文件:Untitled.m 行:8 列:40 不是所需的 MATLAB 表达式？

qpggup

clc
clear all
0 ?; U0 U9 W  s( [% b; ~( V; T9 \3 wclose all
%% 画出函数图
figure(1);
lbx=-2;ubx=2;
, e2 P( _( p9 k/ p9 Llby=-2;uby=2;
ezmesh('y*sin(2*pi*x)+x*cos(2*pi*y)',[1bx,ubx,1by,uby],50);
7 j, a4 D- y+ T5 Z3 @  m' Fhold on;
%% 定义遗传算法参数
( r) a8 Q- h1 p( t% \" X5 Q$ C4 U. }NIND=40;
* c4 A* M' @$ c0 [5 R  HMAXGEN=20;
7 p1 r1 x8 X# Z9 O. XPRECI=20;
1 B6 K+ p" f( R7 N5 ~GGAP=0.95;
px=0.7;
pm=0.01;
( f/ S: J' S5 o; \0 v7 |- Ttrace=zeros(3,MAXGEN);
$ g. K6 [5 z! p6 U1 uFieldD=[PRECI PRECI;lbx 1by;ubx uby;1 1;0 0;1 1;1 1];
Chrom=crtbp(NIND,PRECI*2);
%% 优化
gen=0;
X=bs2rv(Chrom,FieldD);
X=XY(:,1);Y=XY(:,2);
ObjV=Y.*sin(2*pi*X)+X.*cos(2*pi*Y);
while gen<MAXGEN
FitnV=ranking(-ObjV);
SelCh=select('sus',Chrom,FitnV,GGAP);
: F2 O# D6 Z( d7 b& I5 g" X) @' ASelCh=recombin('xovsp',SelCh,px);
2 _4 n/ Q5 x- T  NSelCh=mut(SelCh,pm);
X=bs2rv(SelCh,FieldD);
" ^: E5 X% s5 a6 ZX=XY(:,1);Y=XY(:,2);
ObjVSel=Y.*sin(2*pi*X)+X.*cos(2*pi*Y);
[Chrom,ObjV]=reins(Chrom,SelCh,1,1,ObjV,ObjVSel);
X=bs2rv(Chrom,FieldD);
% |8 g2 g5 \, Y) b. [8 Egen=gen+1;
7 y# f. g9 R( p& |/ l2 t8 b%获取每代的最优解及其序号，Y为最优解，I为个体的序号
[Y,I]=min(ObjV);
trace(1,2,gen)=XY(I,;
trace(3,gen)=Y;
end
plot3(trace(1,,trace(2,,trace(3,:),'bo');
grid on;
$ B# o0 j$ j0 h; c4 M! K" E! @5 eplot3(XY(:,1),XY(:,2),ObjV,'bo');
, I8 A0 r( m/ `& N7 Jhold off
/ @9 t1 y9 u, `- {# z  r7 k%% 画进化图
" ^& P, z+ B, r% L+ Jfigure(2);
plot(1:MAXGEN,trace(3,:));
$ P" n% O- P9 O: V' Hgrid on
xlabel('遗传代数')
ylabel('解的变化')
, U) z5 G$ Q' \5 v; Ptitle('进化过程')
8 ]- g0 q+ ?, x" ~9 T2 [% T$ sbestZ=trace(3,end);
) k6 E( W1 y; b+ X) ibestY=trace(2,end);
bestX=trace(1,end);
fprintf(['最优解:\nX=',num2str(bestX),'\nY=',num2str(bestY),'\nZ=',num2str(bestZ),'\n'])
, g1 \) l1 Q0 k# {) b: |

relchhiclty

1bx和1by里面的数字1改成小写字母l（L的小写），这样才跟6和7行的相同啊