Lingo求某些列的和

[复制链接]

字体大小: 正常放大

lliuky

1 主题	3 听众	4 积分

升级 80%

该用户从未签到

电梯直达

1^#

发表于 2014-9-2 11:46 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

sets:
nodes/1..4/:w;
edges/1..5/:x,t;
arcs(nodes,edges):p;
endsets
data:
p=1 0 0 1 1
1 1 0 0 0
0 1 1 0 1
0 0 1 1 0;
enddata
@for(edges(j):
@for(nodes(i):@mod(@sum(p(i,j)#ne#0):
我想求关联矩阵p中,无回路的最多的边.列是边,行是顶点.比如e1,e2,e5,形成回路,我的判断是这三列加起来构成的(2, 2,2,0)四维向量能被2整除,同理e1,e2,e3,e4,形成回路这四列加起来构成的(2, 2,2,2)四维向量能被2整除.现在我要去掉最少的边,使的剩下的边无回路.程序不会写了.请帮忙下!

zan