| 查看: 1235 | 回复: 7 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
lijunxue08金虫 (小有名气)
|
[求助]
下面的程序哪里有问题已有2人参与
|
|
|
figure(1); fplot('v.*sin(10*pi*v)+2.0',[-1,2]); NIND=40; MAXGEN=30; PRECI=20; GGAP=0.9; trace=zeros(2,MAXGEN); FieldD=[20;-1;2;1;0;1;1]; Chrom=crtbp(NIND,PRECI); gen=0; v=bs2rv(Chrom,FieldD); ObjV=v.*sin(10*pi*v)+2.0; while gen<MAXGEN, FitnV=ranking(-ObjV); SelCh=select('sus',Chrom,FitnV,GGAP); FitnVmax=max(FitnV); FitnVave=sum(FitnV)/NIND; if(FitnV>= FitnVave) Index1=find(FitnV>= FitnVave); Index2=find(FitnV< FitnVave); Pc1=0.5*(FitnVmax- FitnV(Index,1))/(FitnVmax- FitnVave); Pm1=0.02*(FitnVmax- FitnV(Index,1))/(FitnVmax- FitnVave); else Pc2=0.85; Pm2=0.05; end end SelCh=recombin('xovsp',SelCh(Index1,1),Pc1); SelCh=recombin('xovsp',SelCh(Index2,1),Pc2); SelCh=mut(SelCh(Index1,1),Pm1); SelCh=mut(SelCh(Index2,1),Pm2); v=bs2rv(SelCh,FieldD); ObjVSel=v.*sin(10*pi*v)+2.0; [Chrom ObjV]=reins(Chrom,SelCh,1,1,ObjV,ObjVSel); gen=gen+1; variable=bs2rv(Chrom, FieldD) [Y,I]=max(ObjV),hold on; plot(I,Y,'bo'); trace(1,gen)=max(ObjV); trace(2,gen)=sum(ObjV)/length(ObjV); if (gen==20) figure(2); plot(ObjV);hold on; plot(ObjV,'b*');grid; end %end figure(3); plot(trace(1,  ','Pr');hold on; plot(trace(2, ','-.');grid;legend('解的变化','种群均值的变化') 程序里的Index是不是有错 |
回复此楼» 猜你喜欢
垃圾破二本职称评审标准
已经有5人回复
-
三无产品还有机会吗
已经有4人回复
-
投稿返修后收到这样的回复，还有希望吗
已经有7人回复
-
压汞仪和BET测气凝胶孔隙率
已经有4人回复
-
博士申请都是内定的吗？
已经有14人回复
-
谈谈两天一夜的“延安行”
已经有13人回复
-
氨基封端PDMS和HDI反应快速固化
已经有11人回复
-
之前让一硕士生水了7个发明专利，现在这7个获批发明专利的维护费可从哪儿支出哈？
已经有11人回复
-
论文投稿求助
已经有4人回复
-
Applied Surface Science 这个期刊。有哪位虫友投过的能把word模板发给我参考一下嘛
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 融合产物作为模板P不出来，求大神指点！！！
已经有9人回复
- 求大神们帮忙看看这个程序哪儿需要改啊
已经有7人回复
- 用matlab画一个函数，能帮我看看程序哪里有问题吗
已经有8人回复
- 大家帮忙看下这个labview小程序哪里有问题？
已经有5人回复
- 请C语言的人们看看我这个最简单的小程序哪里有问题呢
已经有6人回复
- 求助大神帮我看看这段程序是干什么的？（就是定义这个函数算什么）
已经有6人回复
- fluent udf请教
已经有16人回复
- 求大神帮我改一下下面的程序！matlab迭代法的 不知道错在哪里！
已经有7人回复
- Matlab中如何自己定义一个新函数，然后计算时可以调用？
已经有12人回复
- 求助 MATLAB解方程组-fslove
已经有7人回复
- matlab模拟菲涅尔直边衍射
已经有9人回复
- 程序运行不了问题在哪
已经有11人回复
- 这段并行程序有问题，不知道错在什么地方请大家看看！
已经有6人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- 三维数组换行输入到文件（intel fortran 编译器）
已经有6人回复
- 哪位帮忙写份Fortran程序？
已经有10人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
- 【讨论】关于谭浩强的书
已经有6人回复
- 【求助】怎么实现JAVA程序编程.exe格式
已经有11人回复
- 【求助】有很多错误的程序，找不出来了
已经有18人回复
- 【原创】win7下安装程序点击没有反应的可能解决方案（bruker topspin）
已经有6人回复
- 【求助】Riccati传递矩阵法求解临界转速（有部分程序）
已经有5人回复
libralibra
至尊木虫 (著名写手)
骠骑将军
- 程序强帖: 40
- 应助: 817 (博后)
- 金币: 12914.1
- 红花: 64
- 帖子: 2238
- 在线: 287.3小时
- 虫号: 696514
- 注册: 2009-02-05
- 专业: 计算机软件
2楼2014-05-30 22:43:00