function?[TeventTactivityKeyRoadFinishTime]?=?Ch10_NetTimeParamter（Matrix）
%%?程序功能說明
%第10章：網(wǎng)絡(luò)時(shí)間參數(shù)的計(jì)算——按照手工計(jì)算的巧妙算法，給出各時(shí)間和活動(dòng)的時(shí)間參數(shù)，并給出關(guān)鍵線路
%====輸出參數(shù)====
???%Tevent????????事件的時(shí)間及關(guān)鍵事件
???%Tactivity?????活動(dòng)的時(shí)間及關(guān)鍵活動(dòng)、虛活動(dòng)標(biāo)示
???%KeyRoad???????關(guān)鍵線路，按照事件代號給出
???%FinishTime????項(xiàng)目完工時(shí)間
%====輸入?yún)?shù)====
???%Matrix????????網(wǎng)絡(luò)圖的賦權(quán)鄰接矩陣
%編寫時(shí)間：2012年05月；完善時(shí)間：2012年12月。
%參考文獻(xiàn)：張建林.?MATLAB定量預(yù)測與決策——運(yùn)作案例精編[M].?北京：電子工業(yè)出版社?2012年7月。

%%?程序主體部分
m?=?size（Matrix）;??????????????%計(jì)算賦權(quán)網(wǎng)絡(luò)圖鄰接矩陣的維度

%（1）計(jì)算各事件的時(shí)間參數(shù)
Tevent?=?zeros（m（1）5）;????????%存放時(shí)間的矩陣，包括關(guān)鍵事件及時(shí)差
Tevent（:1）?=1:m（1）;???????????%第1列存放事件代號

%（1-1）計(jì)算事件的最早可能發(fā)生時(shí)間，逐列順序計(jì)算
for?j?=?2:m（1）??????????????????%列標(biāo)
????M?=?zeros（j1）;?????????????%存放前面所有節(jié)點(diǎn)到即將計(jì)算的節(jié)點(diǎn)的開始時(shí)間
????for?i?=?1:j-1???????????????%行標(biāo)
????????if?Matrix（ij）~=inf;
????????????M（i）?=?Matrix（ij）;
????????????M（i）?=?Tevent（i2）+M（i）;
????????else
????????????%M（i）?=?Tevent（i2）;???%這條語句不能有
????????end
????end?
????Tevent（i+12）?=?max（M）;?????%第2列，存放事件的最早可能開始時(shí)間
end

%（1-2）計(jì)算事件的最遲必須發(fā)生時(shí)間，逐行倒序計(jì)算
Tevent（m（1）3）?=?Tevent（m（1）2）;
for?i?=?m（1）-1:-1:1????????????????????%行標(biāo)
????M?=?zeros（m（1）-i1）;
????for?j?=?i+1:m（1）???????????????????%列標(biāo)
????????if?Matrix（ij）?~=?inf;
????????????M（j-i）?=?Matrix（ij）;
????????????M（j-i）?=?Tevent（j3）-M（j-i）;
????????else
????????????M（j-i）?=?Tevent（m（1）3）;???%保證逆向求差時(shí)，事件點(diǎn)能夠取到正確值
????????end????????
????end
????Tevent（i3）?=?min（M）;?????????%第3列，存放事件的最遲必須發(fā)生時(shí)間
end

%（1-3）計(jì)算各時(shí)間的時(shí)差并查找關(guān)鍵路線
q?=?1;
for?p?=?1:m（1）
????Tevent（p5）?=?Tevent（p3）-Tevent（p2）;?????%第4列，存放事件的時(shí)差
????if?Tevent（p3）-Tevent（p2）?==?0
????????Tevent（p4）?=?1;???????????????????????%關(guān)鍵事件
????????index（q）?=?p;??????????????????????????%關(guān)鍵線路上的事件代號
????????q?=?q+1;???????????????????????????????%關(guān)鍵線路的指針
????else
????????Tevent（p4）?=?0;???????????????????????%非關(guān)鍵事件
????end
end
KeyRoad?=?index（1:end）;

%（1-4）計(jì)算項(xiàng)目的完工時(shí)間
FinishTime?=?Tevent（m（1）2）;

%（2）計(jì)算各項(xiàng)活動(dòng)的時(shí)間參數(shù)，逐列順序計(jì)算
n?=?sum（sum（Matrix~=inf））-m（1）;???%計(jì)算活動(dòng)的數(shù)量=非無窮大元素個(gè)數(shù)減去零元素的個(gè)數(shù)
Tactivity?=?zeros（n9）;???????????%存放活動(dòng)時(shí)間參數(shù)的矩陣，包括活動(dòng)代號、4個(gè)時(shí)間參數(shù)、是否關(guān)鍵活動(dòng)和總時(shí)差
Tactivity（:1）?=?1:n;?????????????%第1列，存放活動(dòng)序號
h?=?1;
for?j?=?2:m（1）????????????????????%列標(biāo)
????for?i?=?1:j-1?????????????????%行標(biāo)
????????if?Matrix（ij）~=inf;
????????????Tactivity（h2）?=?i;????????????????????????????%第2列，存放活動(dòng)的起始節(jié)點(diǎn)代號
????????????Tactivity（h3）?=?j;????????????????????????????%第3列，存放活動(dòng)的終止節(jié)點(diǎn)代號
????????????Tactivity（h4）?=?Tevent（i2）;??????????????????%第4列，存放活動(dòng)的最早可能開始時(shí)間
????????????Tactivity（h5）?=?Tactivity（h4）+Matrix（ij）;???%第5列，存放活動(dòng)的最遲必須開始時(shí)間
????????????Tactivity（h7）?=?Tevent（j3）;??????????????????%第7列，存放活動(dòng)的最遲必須完成時(shí)間
????????????Tactivity（h6）?=?Tactivity（h7）-Matrix（ij）;???%第6列，存放活動(dòng)的最早可能完成時(shí)間
????????????if?Tactivity（h6）-Tactivity（h7）?==?0??????????%第8列，表明活動(dòng)是否為關(guān)鍵活動(dòng)或虛活動(dòng)，1表示是，0表示不是，2表示虛活動(dòng)
????????????????Tactivity（h8）?=?2;????????????????????????%虛活動(dòng)
????????????elseif?Tactivity（h6）-Tactivity（h4）?==?0
????????????????Tactivity（h8）?=?1;????????????????????????%關(guān)鍵活動(dòng)
???????????

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件???????3984??2012-07-03?11:29??19514?數(shù)據(jù)資料\Ch10_NetTimeParamter.m

?????文件???????2447??2012-05-24?11:01??19514?數(shù)據(jù)資料\Ch11_SingleCycleInventory.m

?????文件???????1919??2012-05-24?11:03??19514?數(shù)據(jù)資料\Ch19_MaxTree_Kruskal.m

?????文件???????1195??2012-05-24?11:04??19514?數(shù)據(jù)資料\Ch19_MaxTree_Prim.m

?????文件???????1811??2012-05-24?11:04??19514?數(shù)據(jù)資料\Ch19_MinTree_Kruskal.m

?????文件???????1114??2012-05-24?11:05??19514?數(shù)據(jù)資料\Ch19_MinTree_Prim.m

?????文件???????3617??2012-06-05?11:08??19514?數(shù)據(jù)資料\Ch1_FZDJ.m

?????文件???????5785??2012-05-24?11:05??19514?數(shù)據(jù)資料\Ch20_ACOA_TSP.m

?????文件???????5672??2012-05-24?11:06??19514?數(shù)據(jù)資料\Ch25_AHP.m

?????文件???????6166??2012-05-24?10:57??19514?數(shù)據(jù)資料\Ch4_Hungary.m

?????文件???????2772??2012-06-29?15:37??19514?數(shù)據(jù)資料\Ch4_Hungary1.m

?????文件???????4207??2012-05-24?10:53??19514?數(shù)據(jù)資料\Ch5_HHFZDJ.m

?????文件???????5859??2012-05-24?11:00??19514?數(shù)據(jù)資料\Ch6_SingleMachine_Rank.m

?????文件???????3059??2012-06-06?15:56??19514?數(shù)據(jù)資料\Ch7_Johnson.m

?????文件???????3735??2012-06-05?10:05??19514?數(shù)據(jù)資料\Ch7_KeyWorkpiece.m

?????文件???????3262??2012-06-06?13:13??19514?數(shù)據(jù)資料\Ch7_Palmer.m

?????文件???????1050??2012-05-09?12:44??19514?數(shù)據(jù)資料\Ch7_PlotRec.m

?????文件???????3708??2012-06-06?13:13??19514?數(shù)據(jù)資料\Ch7_Traverse.m

?????文件??????21812??2012-05-24?10:49??19514?數(shù)據(jù)資料\Ch8_GA_JSP.m

?????文件???????2223??2012-07-03?17:33??19514?數(shù)據(jù)資料\Ch9_CyclicOrdering.m

?????文件???????2245??2012-05-24?10:50??19514?數(shù)據(jù)資料\Ch9_CyclicOrdering1.m

?????文件???????1162??2012-05-10?15:02??19514?數(shù)據(jù)資料\Ch9_FirstHourRule.m

?????文件?????510976??2012-09-21?14:53??19514?數(shù)據(jù)資料\MATLAB自編程序（僅函數(shù)程序）.doc

?????目錄??????????0??2013-01-18?11:08??19514?數(shù)據(jù)資料\MATLAB自編函數(shù)程序\附錄B?MATLAB自編函數(shù)程序

?????目錄??????????0??2013-01-17?15:43??19514?數(shù)據(jù)資料\MATLAB自編函數(shù)程序

?????目錄??????????0??2013-01-18?11:08??19514?數(shù)據(jù)資料

-----------?---------??----------?-----??----

???????????????599780????????????????????26