|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
第一步,新建一个表(名:带权连接矩阵),把路径连接图转化成矩阵形式填入相应的表格,无直接连接的取一个大数值填入。
第二步,新建一个表(名:最优路径),此表用于演算。在“A5"单元格键入公式”=IF((ROW()-3)<=COUNTA(带权连接矩阵!B2:J2),"第"&(ROW()-3)&"步","运算停")“并选中下接复制公式至运算停出现,此公式的目的从“带权连接矩”表获取运算的步聚数。
第三步,在B4单元格键入起点的标号,此外为“V1"
第四步,在C4单元格键入”=MIN(D4:L4)“,以此获取与左侧标号连接点的最短路径值,键入公式后,可下拉复制公式
第五步:在D4单元格键入公式”=INDEX(带权连接矩阵!$B$2:$J$10,MATCH($B4,带权连接矩阵!$A$2:$A$10,0),COLUMN()-3)“,并向右拖动复制单元,获取与V1点相连的路径信息。此步骤也可以手工填入。
第六步:在B5单元格键入公式”=INDEX($D$3:$L$3,,MATCH(C5,D5:I5,0))“,获取本步聚最短连接点的标号
第七步:在D5单元格键入"=IF(D4=D$3,D$3,IF(D$3=$B4,D$3,INDEX(带权连接矩阵!$B$2:$J$10,MATCH($B4,带权连接矩阵!$B$1:$J$1),COLUMN()-3)))",获取与前一个点的连接信息,同时将前一个点的值用标点代替,以防后续步聚参与计算,照样将单元格向右拖复制。
第八步:选中B5至I5单元格,向下拖动复制至运算停处即可。
这样,V1至各点的最优路径便显示在B,C列了。
详情见附件:
最优路径.rar
(8.39 KB, 下载次数: 106)
|
评分
-
1
查看全部评分
-
|