美文网首页交通运输工程
基于树表示法的变邻域搜索算法求解考虑后进先出的取派货旅行商问题

基于树表示法的变邻域搜索算法求解考虑后进先出的取派货旅行商问题

作者: 肥了个大西瓜 | 来源:发表于2018-07-04 15:17 被阅读0次





    1 什么是考虑后进先出的取派货旅行商问题?(the Pickup and Delivery Traveling Salesman Problem with LIFO Loading)

      考虑后进先出的取派货旅行商问题是旅行商问题的一个变种,它可以描述为:假设车辆从起点(depot)出发去完成所有任务,每个任务分别对应着一个位于不同地理位置的取货点和派货点,需要制定一条路线来保证总费用最小。其中,从起点出发提供服务的车辆只有一辆;车辆必须先到达取货点获得货物才能去派货点;车辆装卸货时必须服从后进先出原则。要处理现实情况中的问题,首先要将其转化为对应的数学模型,然后研究模型,对所建立的模型进行求解。

      给出的完全无向连通图G=(V,E,d)中,点的集合表示为V=P∪D∪{0+,0-},边的集合表示为E={(x,y):x≠y∈V},d(x,y)表示点x和点y之间的距离。其中点0+和点0-表示起点,P={1+,...,n+}表示取货点集合,D={1-,...,n-}表示送货点集合。车辆的速度为单位速度(即从点x到点y的时间在数值上与其欧式距离dij相等)。车辆必须从位置0+开始并回到位置0-。车辆装卸货时必须服从后进先出原则。

    2 使用树表示法的变邻域搜索算法求解考虑后进先出的取派货旅行商问题

      旅行商问题中解的编码方式一般采用自然数编码并使用数组进行存储,如下图所示。此种存储结构的优点是清晰易懂且解码过程简单,但在进行移动或遍历等操作时具有时间复杂度高的缺点(即操作耗时多)。

      本文采用树结构来存储解,如下图(a)所示。此种存储结构虽然看起来有些繁琐难懂,但是便于进行移动和遍历操作。解码过程如下图(b)所示,即从顶点0处对树中叶子节点进行遍历和递归。将树转换为可行解及其逆过程的算法复杂度仅为O(n),其中n是节点的个数(即线性时间)。

      与数组存储方式相比,树表示法主要有以下优点:

      1)节点序列表示的解与树表示的解释呈一一对应的关系,树形结构可以自动保证解的可行性,而节点序列表示的解不一定是可行解;

      2)基于树形表示方式,在用算子进行操作时不需要检验新生成解的可行性,节省计算时间;

      3)如果用节点序列来表示解,一旦采用交换节点的邻域搜索算子,生成的新解极有可能违反先进后出的约束;

      4)基于树形表示方式的算子实现过程简单且更直接,大量与树相关的算子可以被使用。

      TSP问题是经典的NP完全问题。精确的解决TSP问题的算法复杂度为O(2^n), 其中n是节点的个数。而TSPPDL在基础的TSP问题上加了约束,其复杂度远远高于原问题。

    3 算法步骤

    3.1 伪代码:

    伪代码

    3.2 算法步骤

      算法的主要步骤为:

      1)步骤1,设置最大迭代次数max_iter、最大无改进迭代次数max_nonimproving、种群大小pop_size等参数;

      2)步骤2,新建大小为pop_size的种群population(即新建大小为pop_size的数组);

      3)步骤3,初始化当前最好解S_best;步骤6-8,初始化种群population(即将个体S_best执行pop_size次扰动操作);

      4)步骤10-18,对种群population的每个个体使用局部搜索算子、ATSP算子、交叉算子crossover进行搜索(具体算子描述见下文);

      5)函数local_search()使用了5种邻域搜索算子,就是前文提到的Variable neighborhood Descent阶段;

      6)步骤19-24,更新当前解S_current和全局最好解S_best;

      7)步骤25-27,对种群population使用扰动算子perturbation进行一定的扰动(具体算子描述见下文)。

    3.2.1 搜索算子

      其中,函数local_search()共采用5种搜索算子:

    1. 子树移位算子:

      随机删除原树中的一棵子树,遍历插入到树中的任意节点下,邻域为所有子树移位可能得到的解的集合。如下图所示,图(a)、(b)分别为初始解和经过子树移位后的解。

    1. 子树交换算子:

      随机选择原树中的两棵子树并交换他们的位置。邻域为子树交换算子完全遍历能得到的解的集合。如下图所示,图(a)、(b)分别为初始解和经过子树交换后的解。

    3.节点移位算子:

      随机删除原树中的一个节点,遍历插入到树中的任意节点下。邻域为节点移位算子完全遍历能得到的解的集合。如下图所示,图(a)为初始解,删除节点x后将其作为节点0的子节点可以有4种情况,即如图(c),(d),(e)和(f)。

    4.节点交换算子:

      随机选择原树中的两个节点并交换它们的位置。

    5.混合移位算子:

      随机删除原树中的若节点,随机插入到树中的任意位置。

    3.2.2 ATSP算子:

      随机选择原树中的一个节点,如果此节点的子节点数目小于8,则使用穷举法优化子节点服务顺序;否则使用RAI算法进行搜索(即从此节点的子节点集合中随机踢出若干节点,再使用贪婪算法进行插入)。下图(a)、(b)和(c)给出如何将调整子节点顺序的问题转化为一个非对称的TSP问题(Asymmetric TSP,简称ATSP)。

    3.2.3 交叉算子

      随机删除原树T1中的一棵子树Ts,然后根据树T2中的父子关系将删除子树Ts中的节点以贪婪的规则插回到原树T1中。如下图所示,图(a)、(b)、(c)、(d)、(e)和(f)分别为原树T1、树T2、删除子树Ts之后的T1和Ts中节点以贪婪的规则逐步插回而生成的新解。

    3.2.4 扰动算子perturbation

      随机删除原树T1中的一棵子树,然后利用贪婪算法将删除子树中的节点插回到原树T1中。

    3 代码实现

    #include <stdio.h>
    #include <string.h>
    #include <math.h>
    #include <stdlib.h>
    #include <time.h>
    #include <utility>
    #include <algorithm>
    using namespace std;
    
    // Change any of these parameters to match your needs
    
    const int POP_SIZE = 10;            // population size(种群大小)
    const int MAXN = 751 + 2;           // no. of problem variables(问题规模即点的数量)
    const int MAX_DIMENSION = 100009;   // max. dimension(最大维度即问题规模)
    const int MAX_OUTER_ITER = 50;      // max. iteration(最大迭代次数)
    const int MAX_INNER_ITER = 15;      // max. no. of no update(无改进最大迭代次数)
    const int INF = 0x3f3f3f3f;         // max. integer
    
    
    
    char instance[109];                        // the name of the data instance
    int size;                                  // no. of the cities (excluding the depot)(所有城市)
    pair <int, int> points[MAX_DIMENSION];     // the coordinates of the cities(pick_up点和delivery点一一对应)
    pair <int, int> node[MAXN / 2 + 1];        // the tree nodes (including a pikeup point and a delivery point)(树中pick_up点和delivery点一一对应)
    int nodeSize;                              // the size of the tree(树的大小)
    int nodeID[MAXN];                          // the tree id of the point(树中点的id)
    int adj[MAXN / 2 + 1][MAXN / 2 + 1];       // linked list of the tree(树中点与点的连接关系)
    int deg[MAXN / 2 + 1];                     // the degree of the tree node(树中点的出入度)
    int dis[MAXN][MAXN];                       // the distance matrix(距离矩阵对应点到点的距离)
    int other[MAXN];                           // the id of the other point in a tree node(树中delivery和pick_up点的对应关系)
    int vertexP[MAXN];                         // to record all the pickup points(记录所有的pick_up点)
    int nVertexP;                              // the no. of the pickup points(pick_up点的数量)
    bool isVertexP[MAXN];                      // to record whether a point is a pickup point(记录是否为pick_up点)
    int startingTourCost;                      // the cost of the starting tour(初始解的目标函数值)
    
    
    // genotype(GT), a member of the population//
    //结构体genotype存储路径规划和对应的目标函数值
    struct Genotype {
        //路径规划
        int gene[MAXN + 2];
        //目标函数值
        int fitness;
        
        Genotype() {}
        
        //构造函数
        Genotype(const Genotype &b) {
            memcpy(gene, b.gene, size * sizeof(int));
            fitness = b.fitness;
        }
        
        //重定义
        void operator =(const Genotype &b) {
            memcpy(gene, b.gene, size * sizeof(int));
            fitness = b.fitness;
        }
    };
    
    Genotype population[POP_SIZE + 2];      // the current population(当前解即当前种群)
    Genotype newPopulation[POP_SIZE + 2];   // the new population(新得到的解即新种群)
    Genotype src;                           // the starting solution(初始解即初始种群)
    
    
    
    // Declaration of procesdures used by this genetic algorithm
    
    void initialize(void);
    void evaluate(void);
    void keepTheBest(void);
    void elitist(void);
    void coupleExchange(Genotype&);
    void blockExchange(Genotype&);
    void relocateBlock(Genotype&);
    void relocateCouple(Genotype&, int, int);
    void relocateCouple(Genotype&);
    int calcFitness(const Genotype&);
    bool check(const Genotype &);
    void ATSP(Genotype &);
    void RAI(Genotype &);
    void localSearch(Genotype &);
    Genotype crossOver(const Genotype &gt, const Genotype &gt2);
    
    // to localSearch the current genotype.
    //使用四种算子对现有genotype进行局部搜索
    void localSearch(Genotype &gt) {
        coupleExchange(gt);
        relocateCouple(gt);
        blockExchange(gt);
        relocateBlock(gt);
    }
    
    
    // to initialize the values of all the genes.
    //对所有gene进行初始化
    void initialize() {
        localSearch(src);
        ATSP(src);
        int mem, k;
        for (mem = 0; mem < POP_SIZE; ++mem) {
            population[mem] = src;
            RAI(population[mem]);
            localSearch(population[mem]);
            ATSP(population[mem]);
            newPopulation[mem] = population[mem];
        }
        for (mem = 0; mem < POP_SIZE; ++mem) {
            Genotype bestOne = population[mem], t;
            for (k = 0; k < POP_SIZE; ++k) 
                if (k != mem) {
                    t = crossOver(newPopulation[mem], newPopulation[k]);
                    if (t.fitness > bestOne.fitness)
                        bestOne = t;
                }
                population[mem] = bestOne;
        }
    }
    
    
    // to compute the fitness of the genotype.
    //计算路径规划genotype的目标函数值
    int calcFitness(const Genotype &gt) {
        int i, fitness = 0;
        for (i = 1; i < size; ++i)
            fitness += dis[gt.gene[i - 1]][gt.gene[i]];
        fitness += dis[0][gt.gene[0]] + dis[gt.gene[size - 1]][0];
        return -fitness;
    }
    
    
    // to evalute the fitness of the genotype.
    //计算当前population中所有genotype的目标函数值
    void evaluate() {
        for (int mem = 0; mem < POP_SIZE; ++mem)
            population[mem].fitness = calcFitness(population[mem]);
    }
    
    
    // to keep the best solution.
    //记录当前population中的最好解
    void keepTheBest() {
        int mem, best = 0; // stores the index of the best individual
        
        for (mem = 1; mem < POP_SIZE; ++mem)
            if (population[mem].fitness > population[best].fitness)
                best = mem;
            population[POP_SIZE] = population[best];
    }
    
    
    // The best member of the previous generation
    // is stored as the last in the array. If the best member of
    // the current generation is worse then the best member of the
    // previous generation, the latter one would replace the worst
    // member of the current population.
    //上一代中的最好个体存储在数组末端。若当前的最好个体比上一代的差,则当前的最差个体被替代。
    void elitist() {
        int best, worst;
        int i, bestMem, worstMem;
        
        best = population[0].fitness;
        worst = population[0].fitness;
        bestMem = worstMem  = 0;
    
        //遍历得到当前种群中最好个体和最差个体
        for (i = 0; i < POP_SIZE - 1; ++i) {
            if (population[i].fitness > population[i + 1].fitness) {
                if (population[i].fitness >= best) {
                    best = population[i].fitness;
                    bestMem = i;
                }
                if (population[i + 1].fitness <= worst) {
                    worst = population[i + 1].fitness;
                    worstMem = i + 1;
                }
            } else {
                if (population[i].fitness <= worst) {
                    worst = population[i].fitness;
                    worstMem = i;
                }
                if (population[i + 1].fitness >= best) {
                    best = population[i + 1].fitness;
                    bestMem = i + 1;
                }
            }
        }
        
        if (best >= population[POP_SIZE].fitness) {
            population[POP_SIZE] = population[bestMem];
        } else {
            population[worstMem] = population[POP_SIZE];
        }
    }
    
    
    // to get the position of x+ and x-.
    //遍历得到pickup点x+和delivery点x-的位置
    void getPosition(const Genotype &gt, int x, int &xl, int &xr) {
        for (int i = 0; i < size; ++i) {
            if (gt.gene[i] == x) {
                xl = i;
            } else if (gt.gene[i] == other[x]) {
                xr = i;
                //return;
            }
        }
    }
    
    
    // dfs to rebuild the solution.
    //深度优先搜索x的位置
    void dfs(int x, int arr[], int &n) {
        int i;
        if (x != 0) arr[n++] = node[x].first;
        for (i = 0; i < deg[x]; ++i)
            dfs(adj[x][i], arr, n);
        if (x != 0) arr[n++] = node[x].second;
    }
    
    
    // calculate TSP according to the distance matrix dis[][]
    int calcTSP(int dis[][MAXN / 2 + 1], int n, int id[], int T) {
        const int INF = 0x3f3f3f3f;
        int i, j, k, l, m, t, cur, min, pos, q[MAXN], nq, mid[MAXN], ans = INF, seq[MAXN];
        
        while (T--) {
            for (i = 0; i < n; ++i) q[i] = i;
            random_shuffle(q, q + n);
            m = 0;  nq = n;
            id[m++] = q[--nq];
            while (nq) {
                cur = q[--nq];
                for (min = INF, id[m] = id[0], i = 0; i < m; ++i) {
                    t = dis[id[i]][cur] + dis[cur][id[i + 1]] - dis[id[i]][id[i + 1]];
                    if (t < min) {
                        min = t;
                        pos = i;
                    }
                }
                memmove(id + pos + 2, id + pos + 1, (m - (pos + 1) + 1) * sizeof(int));
                id[pos + 1] = cur;
                m++;
            }
            int cnt = 0;
            for (l = 0; l < n * 30; ++l) {
                i = rand() % n;
                j = rand() % n;
                if (i > j) swap(i, j);
                for (k = 0; k < n; ++k) mid[k] = id[k];
                for (nq = m = k = 0; k < n; ++k)
                    if (i <= k && k <= j) q[nq++] = id[k];
                    else id[m++] = id[k];
                    random_shuffle(q, q + nq);
                    if (m == 0) id[m++] = q[--nq];
                    while (nq) {
                        cur = q[--nq];
                        for (min = INF, id[m] = id[0], i = 0; i < m; ++i) {
                            t = dis[id[i]][cur] + dis[cur][id[i + 1]] - dis[id[i]][id[i + 1]];
                            if (t < min) {
                                min = t;
                                pos = i;
                            }
                        }
                        memmove(id + pos + 2, id + pos + 1, (m - (pos + 1) + 1) * sizeof(int));
                        id[pos + 1] = cur;
                        m++;
                    }
                    for (id[n] = id[0], cur = 0, i = 0; i < n; ++i)
                        cur += dis[id[i]][id[i + 1]];
                    if (cur < ans) {
                        ans = cur;
                        for (i = 0; i < n; ++i) seq[i] = id[i];
                        cnt = 1;
                    } else {
                        ++cnt;
                        for (i = 0; i < n; ++i) id[i] = mid[i];
                    }
                    if (cnt > n * 5) break;
            }
        }
        for (i = 0; i < n; ++i)
            if (seq[i] == 0) break;
            for (pos = i, j = 0; i < n; ++i) id[j++] = seq[i];
            for (i = 0; i < pos; ++i) id[j++] = seq[i];
            return ans;
    }
    
    
    // process the TSP
    void TSPProcess(int depot, int *arr, int n) {
        int i, j, u, v;
        static int a[MAXN / 2 + 1][MAXN / 2 + 1];
        static int q[MAXN / 2 + 1];
        static bool used[MAXN / 2 + 1];
        static int id[MAXN / 2 + 1];
        static int seq[MAXN / 2 + 1];
        int t = 0, ans = 0;
        
        if (n <= 1) return;
        
        id[0] = depot;
        for (i = 0; i < n; ++i)
            id[i + 1] = arr[i];
        ++n;
        for (i = 0; i < n; ++i)
            for (j = 0; j < n; ++j) {
                if (i == j) a[i][j] = 0;
                else if (i == 0) {
                    u = node[id[i]].first;
                    v = node[id[j]].first;
                    a[i][j] = dis[u][v];
                } else if (j == 0) {
                    u = node[id[i]].second;
                    v = node[id[j]].second;
                    a[i][j] = dis[u][v];
                } else {
                    u = node[id[i]].second;
                    v = node[id[j]].first;
                    a[i][j] = dis[u][v];
                }
            }
            if (n < 8) {
                int min = INF;
                for (i = 0; i < n; ++i) q[i] = i;
                q[n] = 0;
                do {
                    int sum = 0;
                    for (i = 0; i < n; ++i)
                        sum += a[q[i]][q[i + 1]];
                    if (sum < min) {
                        min = sum;
                        memcpy(seq, q, n * sizeof(int));
                    }
                } while (next_permutation(q + 1, q + n));
                for (i = 0; i < n - 1; ++i)
                    arr[i] = id[seq[i + 1]];
                return;
            }
            for (i = 0; i < n; ++i) {
                seq[i] = i;
                ans += a[i][(i + 1) % n];
            }
            t = calcTSP(a, n, q, 3);
            if (t < ans) {
                ans = t;
                for (i = 0; i < n; ++i) seq[i] = q[i];
            }
            int sum = 0;
            seq[n] = seq[0];
            for (i = 0; i < n; ++i)
                sum += a[seq[i]][seq[i + 1]];
            for (i = 0; i < n - 1; ++i)
                arr[i] = id[seq[i + 1]];
    }
    
    
    // the TSP improve operator
    //ASTP:随机选择一个结点的所有子节点,若规模大于8,则以贪婪法依次插入;否则遍历所有插入情况
    void ATSP(Genotype &gt) {
        int *a = gt.gene;
        int i, u, v;
        static int stck[MAXN];
        int top = 0;
        int oldFitness = calcFitness(gt);
        
        //由可行解a转换为树stck
        stck[top++] = 0;
        memset(deg, 0, sizeof(deg));
        for (i = 0; i < size; ++i) {
            if (!isVertexP[a[i]]) {
                --top;
            } else {
                stck[top++] = a[i];
                u = nodeID[stck[top - 2]];
                v = nodeID[stck[top - 1]];
                adj[u][deg[u]++] = v;
            }
        }
        for (i = 0; i < nodeSize; ++i)
            TSPProcess(i, adj[i], deg[i]);
        int n = 0;
        dfs(0, a, n);
        gt.fitness = calcFitness(gt);
        if (gt.fitness < oldFitness) {
            printf("ATSP is wrong!!!\n");
            exit(1);
        }
    }
    
    // cross-over operator
    //cross_over算子:随机从gt中取子树,根据gt2中的父子关系来重新插入回gt
    Genotype crossOver(const Genotype &gt, const Genotype &gt2) {
        const int *a;
        int i, u, v;
        static int stck[MAXN], q[MAXN], pnt[MAXN], pnt2[MAXN];
        int top;
        //Genotype oldGT = gt;
        
        memset(pnt, 0, (size + 1) * sizeof(int));
        memset(pnt2, 0, (size + 1) * sizeof(int));
        a = gt.gene;
        top = 0;
        stck[top++] = 0;
        for (i = 0; i < size; ++i) {
            if (!isVertexP[a[i]]) {
                --top;
            } else {
                stck[top++] = a[i];
                u = nodeID[stck[top - 2]];
                v = nodeID[stck[top - 1]];
                pnt[v] = u;
            }
        }
        
        a = gt2.gene;
        top = 0;
        stck[top++] = 0;
        for (i = 0; i < size; ++i) {
            if (!isVertexP[a[i]]) {
                --top;
            } else {
                stck[top++] = a[i];
                u = nodeID[stck[top - 2]];
                v = nodeID[stck[top - 1]];
                pnt2[v] = u;
            }
        }
        
        int xl, xr;
        getPosition(gt, vertexP[rand() % nVertexP], xl, xr);
        for (i = xl; i <= xr; ++i)
            if (isVertexP[gt.gene[i]]) {
                pnt[nodeID[gt.gene[i]]] = pnt2[nodeID[gt.gene[i]]];
            }
            memset(deg, 0, (nodeSize + 1) * sizeof(int));
            for (i = 1; i < nodeSize; ++i) adj[pnt[i]][deg[pnt[i]]++] = i;
            for (i = 0; i < nodeSize; ++i) TSPProcess(i, adj[i], deg[i]);
            
            int n = 0;
            Genotype ret;
            dfs(0, ret.gene, n);
            ret.fitness = calcFitness(ret);
            return ret;
    }
    
    
    // to check whether the current genotype is a valid solution.
    //检查当前genotype是否可行
    bool check(const Genotype &gt) {
        //存储pick_up点
        static int stck[MAXN + 2];
        //存储每个点的访问状态
        static int vst[MAXN + 2];
        int i, top = -1;
        
        memset(vst, 0, sizeof(vst));
        for (i = 0; i < size; ++i) {
            //检查gene是否超过范围
            if (!(1 <= gt.gene[i] && gt.gene[i] <= size))
                return false;
            //检查每个点是否全部被访问
            if (++vst[gt.gene[i]] > 1)
                return false;
            //检查pick_up点和delivery点是否对应
            if (!isVertexP[gt.gene[i]]) {
                if (top <= -1) return false;
                if (stck[top--] != other[gt.gene[i]]) return false;
            } else {
                stck[++top] = gt.gene[i];
            }
        }
        return top == -1;
    }
    
    // couple-exchange operator
    //exchange:将x对应pick_up点和delivery点与y对应的一一进行交换
    void coupleExchange(Genotype &gt) {
        int it = 0, x, y, ok = true;
        int i, xl, xr, yl, yr;
        int fitness, newL;
        static int pos[MAXN + 2];
        
        for (i = 0; i < size; ++i) pos[gt.gene[i]] = i;
        while (ok) {
            ok = false;
            for (it = 0; it < nVertexP; ++it) {
                x = vertexP[it];
                for (i = 0; i < nVertexP; ++i) {
                    y = vertexP[i];
                    if (y == x) continue;
                    yl = pos[y];
                    yr = pos[other[y]];
                    xl = pos[x];
                    xr = pos[other[x]];
                    
                    newL = -gt.fitness;
                    
    #define getPoint(x) (((x) < 0 || (x) >= size) ? 0 : gt.gene[(x)])
    
                    newL -= dis[getPoint(xl - 1)][getPoint(xl)] +
                        dis[getPoint(xl)][getPoint(xl + 1)] +
                        dis[getPoint(xr - 1)][getPoint(xr)] +
                        dis[getPoint(xr)][getPoint(xr + 1)] +
                        dis[getPoint(yl - 1)][getPoint(yl)] +
                        dis[getPoint(yl)][getPoint(yl + 1)] +
                        dis[getPoint(yr - 1)][getPoint(yr)] +
                        dis[getPoint(yr)][getPoint(yr + 1)];
                    
                    if (xl + 1 == xr) newL += dis[getPoint(xl)][getPoint(xr)];
                    if (yl + 1 == yr) newL += dis[getPoint(yl)][getPoint(yr)];
                    if (xr + 1 == yl) newL += dis[getPoint(xr)][getPoint(yl)];
                    if (yr + 1 == xl) newL += dis[getPoint(yr)][getPoint(xl)];
                    
                    
                    swap(gt.gene[xl], gt.gene[yl]);
                    swap(gt.gene[xr], gt.gene[yr]);
                    swap(pos[x], pos[y]);
                    swap(pos[other[x]], pos[other[y]]);
                    
                    newL += dis[getPoint(xl - 1)][getPoint(xl)] +
                        dis[getPoint(xl)][getPoint(xl + 1)] +
                        dis[getPoint(xr - 1)][getPoint(xr)] +
                        dis[getPoint(xr)][getPoint(xr + 1)] +
                        dis[getPoint(yl - 1)][getPoint(yl)] +
                        dis[getPoint(yl)][getPoint(yl + 1)] +
                        dis[getPoint(yr - 1)][getPoint(yr)] +
                        dis[getPoint(yr)][getPoint(yr + 1)];
                    
                    if (xl + 1 == xr) newL -= dis[getPoint(xl)][getPoint(xr)];
                    if (yl + 1 == yr) newL -= dis[getPoint(yl)][getPoint(yr)];
                    if (xr + 1 == yl) newL -= dis[getPoint(xr)][getPoint(yl)];
                    if (yr + 1 == xl) newL -= dis[getPoint(yr)][getPoint(xl)];
                    
                    fitness = -newL;
                    if (fitness > gt.fitness) {
                        gt.fitness = fitness;
                        ok = true;
                    } else {
                        swap(gt.gene[xl], gt.gene[yl]);
                        swap(gt.gene[xr], gt.gene[yr]);
                        swap(pos[x], pos[y]);
                        swap(pos[other[x]], pos[other[y]]);
                    }
                }
            }
        }
        
    }
    
    // block-exchange operator
    //swap:将x对应pick_up和delivery之间的gene与y对应的交换
    void blockExchange(Genotype &gt) {
        int it = 0, x, ok = true;
        while (ok) {
            ok = false;
            for (it = 0; it < nVertexP; ++it) {
                x = vertexP[it];
                Genotype newGT = gt;
                int i, xl, xr, y, yl, yr, bestY = x, n = 0;
                int length = -gt.fitness, bestFitness = gt.fitness, fitness, newL;
                static int pos[MAXN + 2];
                
                for (i = 0; i < size; ++i) pos[newGT.gene[i]] = i;
                for (i = 0; i < nVertexP; ++i) {
                    y = vertexP[i];
                    if (y == x) continue;
                    yl = pos[y];
                    yr = pos[other[y]];
                    xl = pos[x];
                    xr = pos[other[x]];
                    if ((xl < yl && yr < xr) ||
                        (yl < xl && xr < yr)) continue;
                    if (xl > yl) {
                        swap(xl, yl);
                        swap(xr, yr);
                    }
                    newL = length;
                    if (xl == 0) {
                        newL -= dis[0][gt.gene[xl]];
                        newL += dis[0][gt.gene[yl]];
                    } else {
                        newL -= dis[gt.gene[xl - 1]][gt.gene[xl]];
                        newL += dis[gt.gene[xl - 1]][gt.gene[yl]];
                    }
                    
                    if (xr + 1 == yl) {
                        newL -= dis[gt.gene[xr]][gt.gene[yl]];
                        newL += dis[gt.gene[yr]][gt.gene[xl]];
                    } else {
                        newL -= dis[gt.gene[xr]][gt.gene[xr + 1]];
                        newL += dis[gt.gene[yr]][gt.gene[xr + 1]];
                        newL -= dis[gt.gene[yl - 1]][gt.gene[yl]];
                        newL += dis[gt.gene[yl - 1]][gt.gene[xl]];
                    }
                    
                    if (yr == size - 1) {
                        newL -= dis[gt.gene[yr]][0];
                        newL += dis[gt.gene[xr]][0];
                    } else {
                        newL -= dis[gt.gene[yr]][gt.gene[yr + 1]];
                        newL += dis[gt.gene[xr]][gt.gene[yr + 1]];
                    }
                    
                    fitness = -newL;
                    if (fitness > bestFitness) {
                        bestFitness = fitness;
                        bestY = y;
                        break;
                    }
                }
                
                if (bestY == x) continue;
                if (gt.fitness > bestFitness) {
                    printf("gtFitness = %d bestFitness = %d\n", gt.fitness, bestFitness);
                    printf("blockExchange fails\n");
                    exit(1);
                }
                //  if (fabs(gt.fitness - bestFitness) < 1e-6) return;
                if (gt.fitness == bestFitness) continue;
                xl = pos[x];
                xr = pos[other[x]];
                yl = pos[bestY];
                yr = pos[other[bestY]];
                if (xl > yl) {
                    swap(xl, yl);
                    swap(xr, yr);
                }
                for (i = 0; i < xl; ++i)
                    gt.gene[n++] = newGT.gene[i];
                for (i = yl; i <= yr; ++i)
                    gt.gene[n++] = newGT.gene[i];
                for (i = xr + 1; i < yl; ++i)
                    gt.gene[n++] = newGT.gene[i];
                for (i = xl; i <= xr; ++i)
                    gt.gene[n++] = newGT.gene[i];
                for (i = yr + 1; i < size; ++i)
                    gt.gene[n++] = newGT.gene[i];
                gt.fitness = bestFitness;//calcFitness(bestGT);
                ok = true;
            }
        }
    }
    
    
    // relocate-block operator
    //relocate:移动x对应pick_up和delivery之间的gene
    void relocateBlock(Genotype &gt) {
        int it, x, ok = true;
        
        while (ok) {
            ok = false;
            for (it = 0; it < nVertexP; ++it) {
                x = vertexP[it];
                Genotype newGT = gt, T1; // T1 = T'
                int i, xl, xr, n = 0, m = 0, bestPos;
                int fitness, bestFitness = gt.fitness, length = 0;
                
                getPosition(newGT, x, xl, xr);
                for (i = 0; i < xl; ++i)
                    T1.gene[n++] = newGT.gene[i];
                for (i = xr + 1; i < size; ++i)
                    T1.gene[n++] = newGT.gene[i];
                for (i = xl; i < xr; ++i)
                    length += dis[newGT.gene[i]][newGT.gene[i + 1]];
                for (i = 0; i < n - 1; ++i)
                    length += dis[T1.gene[i]][T1.gene[i + 1]];
                T1.gene[n] = 0;
                if (n > 0) {
                    length += dis[0][T1.gene[0]] + dis[T1.gene[n - 1]][0];
                }
                for (i = -1; i < n; ++i) {
                    if (i == -1) {
                        fitness = -(length + dis[0][newGT.gene[xl]]
                            + dis[newGT.gene[xr]][T1.gene[0]]
                            - dis[0][T1.gene[0]]);
                        //bestFitness = fitness;
                        //bestPos = i;
                    } else {
                        fitness = -(length + dis[T1.gene[i]][newGT.gene[xl]]
                            + dis[newGT.gene[xr]][T1.gene[i + 1]]
                            - dis[T1.gene[i]][T1.gene[i + 1]]);
                        
                    }
                    if (fitness > bestFitness) {
                        bestFitness = fitness;
                        bestPos = i;
                        break;
                    }
                }
                if (gt.fitness > bestFitness) {
                    printf("gtFitness = %d bestFitness = %d\n", gt.fitness, bestFitness);
                    printf("relocateBlock fails\n");
                    exit(1);
                }
                //if (fabs(gt.fitness - bestFitness) < 1e-6) return;
                if (gt.fitness == bestFitness) continue;
                for (i = 0; i <= bestPos; ++i)
                    gt.gene[m++] = T1.gene[i];
                for (i = xl; i <= xr; ++i)
                    gt.gene[m++] = newGT.gene[i];
                for (i = bestPos + 1; i < n; ++i)
                    gt.gene[m++] = T1.gene[i];
                gt.fitness = bestFitness;
                ok = true;
            }
        }
    }
    
    
    // randomized arbitrary insertion function.
    //RAI:随机挑选x对应pick_up和delivery之间的gene,以随机次序插入末端
    void RAI(Genotype &gt) {
        int i, j, n, xl, xr, nq = 0;
        static int q[MAXN];
        //  Genotype old = gt;
        
        gt.fitness = calcFitness(gt);
        //  while (true) {
        getPosition(gt, vertexP[rand() % nVertexP], xl, xr);
        //    if (xr - xl + 1 >= size / 30) break;
        //}
        for (i = xl; i <= xr; ++i)
            if (isVertexP[gt.gene[i]]) {
                q[nq++] = gt.gene[i];
            }
            random_shuffle(q, q + nq);
            for (i = xl, j = xr + 1; j < size; ++i, ++j)
                gt.gene[i] = gt.gene[j];
            n = size - (xr - xl + 1);
            for (j = 0; j < nq; ++j) {
                gt.gene[n++] = q[j];
                gt.gene[n++] = other[q[j]];
                relocateCouple(gt, q[j], n);
            }
            // if (old.fitness > gt.fitness)
            //    gt = old;
    }
    
    
    // relocate-couple operator with size
    //relocate:将x对应的pick_up点和delivery点重新插入
    void relocateCouple(Genotype &gt, int x, int size) {
        Genotype newGT = gt, T1;
        int i, j, lp, rp, n = 0, m = 0;
        int bestFitness = 0, fitness, newL, length = 0;
        static int pos[MAXN + 2];
        
        for (i = 0; i < size - 1; ++i)
            bestFitness += dis[gt.gene[i]][gt.gene[i + 1]];
        bestFitness += dis[0][gt.gene[0]] + dis[gt.gene[size - 1]][0];
        bestFitness = -bestFitness;
        gt.fitness = bestFitness;
        
        
        for (i = 0; i < size; ++i)
            if (newGT.gene[i] != x && newGT.gene[i] != other[x]) {
                T1.gene[n++] = newGT.gene[i];
                pos[T1.gene[n - 1]] = n - 1;
                if (n > 1) length += dis[T1.gene[n - 2]][T1.gene[n - 1]];
            }
            T1.gene[n] = 0;
            if (n > 0) length += dis[0][T1.gene[0]] + dis[T1.gene[n - 1]][0];
            for (i = -1; i < n; ++i) {
                if (i == -1) {
                    newL = length + dis[0][x] + dis[x][other[x]] + dis[other[x]][T1.gene[0]]
                        - dis[0][T1.gene[0]];
                    fitness = -newL;
                    if (fitness > bestFitness) {
                        bestFitness = fitness;
                        lp = -1;
                        rp = -1;
                    }
                    for (j = 0; j < n; ++j) {
                        if (isVertexP[T1.gene[j]]) { // y+ -> y-
                            j = pos[other[T1.gene[j]]];
                        }
                        newL = length + dis[0][x] + dis[x][T1.gene[0]]
                            + dis[T1.gene[j]][other[x]]
                            + dis[other[x]][T1.gene[j + 1]]
                            - dis[0][T1.gene[0]]
                            - dis[T1.gene[j]][T1.gene[j + 1]];
                        fitness = -newL;
                        if (fitness > bestFitness) {
                            bestFitness = fitness;
                            lp = -1;
                            rp = j;
                        }
                    }
                } else {
                    newL = length + dis[T1.gene[i]][x] + dis[x][other[x]] + dis[other[x]][T1.gene[i + 1]]
                        - dis[T1.gene[i]][T1.gene[i + 1]];
                    fitness = -newL;
                    if (fitness > bestFitness) {
                        bestFitness = fitness;
                        lp = i;
                        rp = i;
                        
                    }
                    for (j = i + 1; j < n; ++j) {
                        if (isVertexP[T1.gene[j]]) {
                            j = pos[other[T1.gene[j]]];
                        } else if (pos[other[T1.gene[j]]] <= i) {
                            break;
                        }
                        newL = length + dis[T1.gene[i]][x] + dis[x][T1.gene[i + 1]]
                            + dis[T1.gene[j]][other[x]]
                            + dis[other[x]][T1.gene[j + 1]]
                            - dis[T1.gene[i]][T1.gene[i + 1]]
                            - dis[T1.gene[j]][T1.gene[j + 1]];
                        fitness = -newL;
                        if (fitness > bestFitness) {
                            bestFitness = fitness;
                            lp = i;
                            rp = j;
                        }
                    }
                }
            }
            if (gt.fitness > bestFitness) {
                printf("gtFitness = %d bestFitness = %d\n", gt.fitness, bestFitness);
                printf("relocateCouple fails\n");
                exit(1);
            }
            if (gt.fitness == bestFitness) return;
            for (i = 0; i <= lp; ++i)
                gt.gene[m++] = T1.gene[i];
            gt.gene[m++] = x;
            for (i = lp + 1; i <= rp; ++i)
                gt.gene[m++] = T1.gene[i];
            gt.gene[m++] = other[x];
            for (i = rp + 1; i < n; ++i)
                gt.gene[m++] = T1.gene[i];
            gt.fitness = bestFitness;
    }
    
    
    // relocate-couple operator
    //relocate:遍历所有的pick_up点x,将x对应的pick_up点和delivery点重新插入
    void relocateCouple(Genotype &gt) {
        int it, x, ok = true;
        while (ok) {
            ok = false;
            for (it = 0; it < nVertexP; ++it) {
                x = vertexP[it];
                Genotype newGT = gt, T1;
                int i, j, lp, rp, n = 0, m = 0;
                int bestFitness = gt.fitness, fitness, newL, length = 0;
                static int pos[MAXN + 2];
                
                for (i = 0; i < size; ++i)
                    if (newGT.gene[i] != x && newGT.gene[i] != other[x]) {
                        T1.gene[n++] = newGT.gene[i];
                        pos[T1.gene[n - 1]] = n - 1;
                        if (n > 1) length += dis[T1.gene[n - 2]][T1.gene[n - 1]];
                    }
                    T1.gene[n] = 0;
                    if (n > 0) length += dis[0][T1.gene[0]] + dis[T1.gene[n - 1]][0];
                    for (i = -1; i < n; ++i) {
                        if (i == -1) {
                            newL = length + dis[0][x] + dis[x][other[x]] + dis[other[x]][T1.gene[0]]
                                - dis[0][T1.gene[0]];
                            fitness = -newL;
                            if (fitness > bestFitness) {
                                bestFitness = fitness;
                                lp = -1;
                                rp = -1;
                            }
                            for (j = 0; j < n; ++j) {
                                if (isVertexP[T1.gene[j]]) { // y+ -> y-
                                    j = pos[other[T1.gene[j]]];
                                }
                                newL = length + dis[0][x] + dis[x][T1.gene[0]]
                                    + dis[T1.gene[j]][other[x]]
                                    + dis[other[x]][T1.gene[j + 1]]
                                    - dis[0][T1.gene[0]]
                                    - dis[T1.gene[j]][T1.gene[j + 1]];
                                fitness = -newL;
                                if (fitness > bestFitness) {
                                    bestFitness = fitness;
                                    lp = -1;
                                    rp = j;
                                }
                            }
                        } else {
                            newL = length + dis[T1.gene[i]][x] + dis[x][other[x]] + dis[other[x]][T1.gene[i + 1]]
                                - dis[T1.gene[i]][T1.gene[i + 1]];
                            fitness = -newL;
                            if (fitness > bestFitness) {
                                bestFitness = fitness;
                                lp = i;
                                rp = i;
                                
                            }
                            for (j = i + 1; j < n; ++j) {
                                if (isVertexP[T1.gene[j]]) {
                                    j = pos[other[T1.gene[j]]];
                                } else if (pos[other[T1.gene[j]]] <= i) {
                                    break;
                                }
                                newL = length + dis[T1.gene[i]][x] + dis[x][T1.gene[i + 1]]
                                    + dis[T1.gene[j]][other[x]]
                                    + dis[other[x]][T1.gene[j + 1]]
                                    - dis[T1.gene[i]][T1.gene[i + 1]]
                                    - dis[T1.gene[j]][T1.gene[j + 1]];
                                fitness = -newL;
                                if (fitness > bestFitness) {
                                    bestFitness = fitness;
                                    lp = i;
                                    rp = j;
                                    break;
                                }
                            }
                        }
                    }
                    if (gt.fitness > bestFitness) {
                        printf("gtFitness = %d bestFitness = %d\n", gt.fitness, bestFitness);
                        printf("relocateCouple fails\n");
                        exit(1);
                    }
                    //if (fabs(gt.fitness - bestFitness) < 1e-6) return;
                    if (gt.fitness == bestFitness) continue;
                    for (i = 0; i <= lp; ++i)
                        gt.gene[m++] = T1.gene[i];
                    gt.gene[m++] = x;
                    for (i = lp + 1; i <= rp; ++i)
                        gt.gene[m++] = T1.gene[i];
                    gt.gene[m++] = other[x];
                    for (i = rp + 1; i < n; ++i)
                        gt.gene[m++] = T1.gene[i];
                    gt.fitness = bestFitness;
                    ok = true;
            }
        }
    }
    
    
    // to read the coordinates of the points.
    //文件读入,输入点的坐标
    void readCoordinate(char *file) {
        FILE *fp;
        int i, id;
        char s[109];
        
        if ((fp = fopen(file, "r")) == NULL) {
            printf("ERROR: Can not open input file %s!\n\n", file);
            exit(1);
        }
        while (true) {
            fscanf(fp, "%s", s);
            if (strcmp("NAME", s) == 0) {
                fscanf(fp, "%s", s); // read the character ":"
                fscanf(fp, "%s", instance);
            } else if (strcmp("DIMENSION", s) == 0) {
                fscanf(fp, "%s", s); // read the character ":"
                fscanf(fp, "%d", &size);
            } else if (strcmp("NODE_COORD_SECTION", s) == 0) {
                for (i = 0; i < size; ++i) {
                    fscanf(fp, "%d", &id);
                    fscanf(fp, "%d%d", &points[i].first, &points[i].second);
                }
                break;
            }
        }
        fclose(fp);
    }
    
    
    // to read the matching file.
    //文件读入,进行参数设置
    void readMatching(char *file) {
        FILE *fp;
        int i, j, x, state, y, px, py;
        
        if ((fp = fopen(file, "r")) == NULL) {
            printf("ERROR: Can not open input file %s!\n\n", file);
            exit(1);
        }
        
        nVertexP = 0;
        nodeSize = 0;
        node[nodeSize++] = make_pair(0, 0);
        nodeID[0] = 0;
        while (fscanf(fp, "%d%d%d", &x, &state, &y) != EOF) {
            if (state == 1) {
                other[x] = y;
                other[y] = x;
                vertexP[nVertexP++] = x;
                isVertexP[x] = true;
                isVertexP[y] = false;
                node[nodeSize] = make_pair(x, y);
                nodeID[x] = nodeSize++;
            }
        }
        
        // to calculate the distance matrix
        //计算距离矩阵
        --size;
        for (i = 0; i <= size; ++i)
            for (j = 0; j <= size; ++j) {
                px = points[i].first - points[j].first;
                py = points[i].second - points[j].second;
                dis[i][j] = (int) (sqrt(px * px + py * py) + 0.5);
            }
            fclose(fp);
    }
    
    
    // to get the starting tour.
    //构造初始解
    void getStartingTour() {
        int i, n = 0;
        for (i = 1; i < nodeSize; ++i) {
            src.gene[n++] = node[i].first;
            src.gene[n++] = node[i].second;
        }
        src.fitness = calcFitness(src);
        startingTourCost = -src.fitness;
    }
    
    
    int main(int argc, char *argv[]) {
        srand(1);
        if (argc != 3) {
            printf("\nERROR: wrong number of input parameters.\n");
            printf("USAGE: exeFile coordinateFile matchingFile resultFile\n");
            exit(1);
        }
        
        int i, j, k = 0, mem, best = INF, startTime = clock();
        readCoordinate(argv[1]);
        readMatching(argv[2]);
        getStartingTour();
        
        //if ((output = fopen(argv[3], "w")) == NULL) {
        //  printf("ERROR: Can not open output file %s!\n\n", argv[3]);
        //  exit(1);
        //}
        
        for (i = 0; i < MAX_OUTER_ITER; ++i) {
            initialize();
            evaluate();
            keepTheBest();
            j = 0;
            while (j < MAX_INNER_ITER) {
                for (mem = 0; mem < POP_SIZE; ++mem) {
                    RAI(population[mem]);
                    localSearch(population[mem]);
                    ATSP(population[mem]);
                    newPopulation[mem] = population[mem];
                }
                for (mem = 0; mem < POP_SIZE; ++mem) {
                    Genotype bestOne = population[mem], t;
                    for (k = 0; k < POP_SIZE; ++k) 
                        if (k != mem) {
                            t = crossOver(newPopulation[mem], newPopulation[k]);
                            if (t.fitness > bestOne.fitness)
                                bestOne = t;
                        }
                        population[mem] = bestOne;
                }
                evaluate();
                elitist();
                if (-population[POP_SIZE].fitness < best) {
                    j = 0;
                    best = -population[POP_SIZE].fitness;
                } else {
                    ++j;
                }
            }
            if (-population[POP_SIZE].fitness <= best) {
                best = -population[POP_SIZE].fitness;
                src = population[POP_SIZE];
            }
            //printf("current best = %d\n", best);
            if (!check(population[POP_SIZE])) {
                printf("The answer is wrong\n");
                exit(1);
            }
        }
        
        printf("Problem Name: %s    Dimension: %d   StartingTourCost: %d", instance, size + 1, startingTourCost);
        printf("\nTime: %.2f seconds. Cost = %d\n", (clock() - startTime) * 1.0 / (CLOCKS_PER_SEC), best);
        //fprintf(output, "Problem Name: %s     Dimension: %d   StartingTourCost: %d", instance, size + 1, startingTourCost);
        //fprintf(output, "\nTime: %.2f seconds. Cost = %d\n", (clock() - startTime) * 1.0 / (CLOCKS_PER_SEC), best);
        //fclose(output);
        return 0;
    }
    
    
    











    Reference:

    1. 论文拾萃 | 基于树表示法的变邻域搜索算法求解考虑后进先出的取派货旅行商问题(附C++代码和详细代码注释)
    2. Codeing

    相关文章

      网友评论

        本文标题:基于树表示法的变邻域搜索算法求解考虑后进先出的取派货旅行商问题

        本文链接:https://www.haomeiwen.com/subject/wkieuftx.html