根据邻接矩阵搜索路径

一哥很二

邻接矩阵用二进制表示，输入起点和终点编号，点击按钮，可以搜索出路径

大神帮忙写个算法，，可以用深度优先/广度优先都可以。

An374938857

就是找最短路径是吗？我尝试过用VB实现广度优先搜索算法，代码直接按算法逻辑写出来是ok的，但是递归深度不够，4、5个节点就内存堆栈溢出。可以考虑直接用规划求解解决呀

An374938857

我写了个LINGO模型，如下，但是LINGO免费版的限制0-1约束最多30个，你这个题目有34个0-1约束，得用非免费版的才能求解，模型应该没啥问题，LINGO也可以直接关联excel从excel抓数据，具体哪里不懂可以加我VX：An374938857

!最短路径问题;

MODEL:

SETS:

CITY/A..T/;
!W弧的消耗量，X是否经过该弧;
ROAD(CITY,CITY)/
        B A,                                                        I A,                                                                                       
A B,                C B,                E B,                                                                                                                       
        B C,                D C,                F C,                                                                                                               
                C D,                                        H D,                                                                                               
        B E,                                        G E,                                                                                                       
                C F,                                                                K F,                M F,                                                       
                                E G,                                                                                                                       
                        D H,                                                                L H,                                                                T H,
A I,                                                                        J I,                                                P I,                               
                                                                I J,                                                                                       
                                        F K,                                                                                                               
                                                        H L,                                                                                               
                                        F M,                                                                                                               
                                                                                                                O N,                                       
                                                                                                        N O,                P O,        Q O,                       
                                                                I P,                                                O P,                        R P,        S P,       
                                                                                                                O Q,                                       
                                                                                                                        P R,                               
                                                                                                                        P S,                               
                                                        H T                                                                                               
/:W,X;

ENDSETS

DATA:

W =
        1                                                        1                                                                                       
1                1                1                                                                                                                       
        1                1                1                                                                                                               
                1                                        1                                                                                               
        1                                        1                                                                                                       
                1                                                                1                1                                                       
                                1                                                                                                                       
                        1                                                                1                                                                1
1                                                                        1                                                1                               
                                                                1                                                                                       
                                        1                                                                                                               
                                                        1                                                                                               
                                        1                                                                                                               
                                                                                                                1                                       
                                                                                                        1                1        1                       
                                                                1                                                1                        1        1       
                                                                                                                1                                       
                                                                                                                        1                               
                                                                                                                        1                               
                                                        1                                                                                               
;

ENDDATA

MIN=@SUM(ROAD:W*X);

!流量平衡约束;
@FOR(CITY(I)|I #NE# A #AND# I #NE# G:
        @SUM(ROAD(I,J):X(I,J))
        =
        @SUM(ROAD(K,I):X(K,I))
);

@SUM(ROAD(I,J)|I #EQ# R: X(I,J)) = 1;
@SUM(ROAD(I,J)|J #EQ# L: X(I,J)) = 1;
@FOR(ROAD: @BIN(X));

END

microyip

表示完全看不明白需求

一哥很二

时间的音符 发表于 2022-4-2 22:27

大神，牛逼克拉斯，我在最前面加了一句，每次计算清除前面的结果  Columns("x:x").ClearContents

perfect131

学学学

An374938857

microyip 发表于 2022-4-2 17:15
表示完全看不明白需求

图论，求路径中两点间的最短路径