网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
07月17日漏签0天
河南理工大学吧 关注:402,588贴子:21,537,726
  • 看贴

  • 图片

  • 吧主推荐

  • 视频

  • 游戏

  • 9回复贴,共1页
<<返回河南理工大学吧
>0< 加载中...

有没有会MATLAB的大神

  • 只看楼主
  • 收藏

  • 回复
  • oO可乐加冰Ooo
  • 叫我前辈
    9
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
求帮忙调试一个程序 程序是写好的 就是有一句程序有错误但不会改


  • oO可乐加冰Ooo
  • 叫我前辈
    9
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
n=8;C=[0 5 4 3 0 0 0 0 0 0 0 0 5 3 0 0 0 0 0 0 0 3 2 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 0 ]; %弧容量
for i=1:n
for j=1:n
f(i,j)=0;
end;
end %取初始可行流f为零流
for i=1:n
No(i)=0;
d(i)=0;
end %No,d 记录标号
while(1) %%11
No(1)=n+1;
d(1)=Inf; %给发点vs 标号
while(1) %%14
pd=1; %标号过程
for i=1:n %%16
if(No(i)) %选择一个已标号的点vi %%17
for j=1:n %%18
if(No(j)==0&f(i,j)<C(i,j)) %对于未给标号的点vj, 当vivj 为非饱和弧时
No(j)=i;
d(j)=C(i,j)-f(i,j);
pd=0;
if(d(j)>d(i))
d(j)=d(i);
end %%18
elseif (No(j)==0&f(j,i)>0) %对于未给标号的点vj, 当vjvi 为非零流弧时
No(j)=-i;
d(j)=f(j,i);
pd=0;
if(d(j)>d(i))
d(j)=d(i);
end; %%15
end; %%14
end; %%12
end; %%11
end
if(No(n)|pd)
break;
end;
end%若收点vt 得到标号或者无法标号, 终止标号过程
if(pd)
break;
end %vt 未得到标号, f 已是最大流, 算法终止
dvt=d(n);
t=n; %进入调整过程, dvt 表示调整量
while(1)
if(No(t)>0)
f(No(t),t)=f(No(t),t)+dvt; %前向弧调整
elseif(No(t)<0)
f(No(t),t)=f(No(t),t)-dvt;
end %后向弧调整
if(No(t)==1)
for(i=1:n)
No(i)=0;
d(i)=0;
end;
break;
end %当t 的标号为vs 时, 终止调整过程
t=No(t);
end;
end; %继续调整前一段弧上的流f
wf=0;
for(j=1:n)
wf=wf+f(1,j);
end %计算最大流量
f %显示最大流 wf %显示最大流量
No %显示标号, 由此可得最小割, 程序结束


2025-07-17 00:23:32
广告
  • oO可乐加冰Ooo
  • 叫我前辈
    9
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
毕设的一个程序 运行不了毕不了业啊 改成了定有答谢


  • 墨斗鱼LSZ
  • 伪新自重
    12
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
你这个C是一维的?


  • 朱安琪angel9
  • 发帖拜吧
    2
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
我仰慕过迈克尔杰克逊,他 ??哎,啥都不说了,说起来 眼泪哗哗地??!


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 9回复贴,共1页
<<返回河南理工大学吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示