| 查看: 1312 | 回复: 7 | ||
| 当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖 | ||
[求助]
下面的程序哪里有问题 已有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是不是有错 |
» 猜你喜欢
342求调剂
已经有9人回复
材料与化工调剂一志愿大连海事085600,349
已经有7人回复
一志愿武理材料工程302调剂环化或化工
已经有16人回复
311求调剂一志愿合肥工业大学
已经有12人回复
环境工程调剂
已经有3人回复
288求调剂 一志愿哈工大 材料与化工
已经有22人回复
085600,321分求调剂
已经有9人回复
282求调剂
已经有11人回复
一志愿 南京航空航天大学 ,080500材料科学与工程学硕
已经有11人回复
土木304求调剂
已经有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人回复
7楼2014-06-01 10:55:02
libralibra
版主
骠骑将军
![]()
![]()
![]()
![]()
- 程序强帖: 40
- 应助: 817 (博后)
- 金币: 12914.1
- 红花: 64
- 帖子: 2238
- 在线: 287.3小时
- 虫号: 696514
- 注册: 2009-02-05
- 专业: 计算机软件

2楼2014-05-30 22:43:00
3楼2014-05-31 09:14:20
5楼2014-05-31 18:45:11














','Pr');
回复此楼
送红花一朵