关键路径算法 具体代码实现

代码实现：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Status TopologicalOrder(ALGraph G, Stack &T) {     // 有向网G采用邻接表存储结构，求各顶点事件的最早发生时间ve(全局变量)。     // T为拓扑序列定点栈，S为零入度顶点栈。     // 若G无回路，则用栈T返回G的一个拓扑序列，且函数值为OK，否则为ERROR。     Stack S;     intcount=0,k;     charindegree[40];     ArcNode *p;     InitStack(S);     FindInDegree(G, indegree); // 对各顶点求入度indegree[0..vernum-1]     for(intj=0; j<G.vexnum; ++j)     // 建零入度顶点栈S         if(indegree[j]==0)             Push(S, j); // 入度为0者进栈     InitStack(T);//建拓扑序列顶点栈T     count = 0;      for(inti=0; i<G.vexnum; i++)         ve[i] = 0; // 初始化     while(!StackEmpty(S))     {         Pop(S, j);  Push(T, j);  ++count;      // j号顶点入T栈并计数         for(p=G.vertices[j].firstarc;  p;  p=p->nextarc)         {             k = p->adjvex;           // 对j号顶点的每个邻接点的入度减1             if(--indegree[k] == 0) Push(S, k);  // 若入度减为0，则入栈             if(ve[j]+p->info > ve[k])  ve[k] = ve[j]+p->info;         }//for  *(p->info)=dut(<j,k>)     }     if(count<G.vexnum)         returnERROR; // 该有向网有回路     else         returnOK; }

 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Status CriticalPath(ALGraph G) {     // G为有向网，输出G的各项关键活动。     Stack T;     inta,j,k,el,ee,dut;     chartag;     ArcNode *p;     if(!TopologicalOrder(G, T))         returnERROR;     for(a=0; a<G.vexnum; a++)         vl[a] = ve[G.vexnum-1];   // 初始化顶点事件的最迟发生时间     while(!StackEmpty(T))      // 按拓扑逆序求各顶点的vl值         for(Pop(T, j), p=G.vertices[j].firstarc;  p;  p=p->nextarc)         {             k=p->adjvex;  dut=p->info;    //dut<j,k>             if(vl[k]-dut < vl[j])                 vl[j] = vl[k]-dut;         }     for(j=0; j<G.vexnum; ++j)           // 求ee,el和关键活动         for(p=G.vertices[j].firstarc;  p;  p=p->nextarc)         {             k=p->adjvex;dut=p->info;               ee = ve[j];  el = vl[k]-dut;             tag = (ee==el) ?'*': ' ';             printf(j, k, dut, ee, el, tag);  // 输出关键活动         }     returnOK; }