24小时热门版块排行榜    

查看: 456  |  回复: 2

lunda69

新虫 (初入文坛)

[求助] 按照书上的多目标优化的matlab程序,运行时出现问题,求高人指点 已有1人参与

问题:
??? Undefined function or method 'rep' for input arguments of type 'double'.

Error in ==> GA at 11
FieldD=[rep([PRECI],[1,NVAR]);rep([1;2],[1,NVAR]);rep([1;0;1;1],[1,NVAR])];
程序:
function  GA()
clear;clc;close all
NIND=100;                    %个体数目
MAXGEN=50;                                                       %最大遗传代数
NVAR=2;                                                          %变量个数
PRECI=20;                                                        %变量的二进制位数
GGAP=0.9;                                                        %代沟
trace1=[];trace2=[];trace3=[];                                   %性能跟踪
%建立区域描述器
% rep([PRECI],[1,NVAR])
FieldD=[rep([PRECI],[1,NVAR]);rep([1;2],[1,NVAR]);rep([1;0;1;1],[1,NVAR])];
Chrom=crtbp(NIND,NVAR*PRECI);                               %初始种群
v=bs2rv(Chrom,FieldD) ;                                         %初始种群十进制转换
gen=1;
while gen<MAXGEN,
    [NIND,N]=size(Chrom);
    M=fix(NIND/2);
    ObjV1=func1(v(1:M,);                                          %分组后第一目标函数值
    FitnV1=ranking(ObjV1);                                       %分配适应度值
    SelCh1=select('sus',Chrom(1:M,,FitnV1,GGAP);               %选择
    ObjV2=func2(v(M+1:NIND,);                                     %分组后第二目标函数值
    FitnV2=ranking(ObjV2);                                       %分配适应度值
    SelCh2=select('sus',Chrom(M+1:NIND,,FitnV2,GGAP);          %选择
    SelCh=[SelCh1;SelCh2];                                       %合并
    SelCh=recombin('xovsp',SelCh,0.7);                           %重组
    Chrom=mut(SelCh);                                            %变异
    v=bs2rv(Chrom,FieldD);
    trace1(gen,1)=min(func1(v));
    trace1(gen,2)=sum(func1(v))/length(func1(v));
    trace2(gen,1)=min(func2(v));
    trace2(gen,2)=sum(func2(v))/length(func2(v));
    trace3(gen,1)=min(func1(v)+func2(v));
    trace3(gen,2)=sum(func1(v))/length(func1(v))+sum(func2(v))/length(func2(v));
    gen=gen+1;
end
figure(1);clf;
plot(trace1(:,1));hold on;plot(trace1(:,2),'-.');
plot(trace1(:,1),'.');plot(trace1(:,2),'.');grid on;
legend('解的变化','种群均值的变化')
xlabel('迭代次数');ylabel('目标函数值');
figure(2);clf;
plot(trace2(:,1));hold on;
plot(trace2(:,2),'-.');
plot(trace2(:,1),'.');
plot(trace2(:,2),'.');grid;
legend('解的变化','种群均值的变化');
xlabel('迭代次数');ylabel('目标函数值');
figure(3);clf;
plot(trace3(:,1));hold on;
plot(trace3(:,2),'-.');
plot(trace3(:,1),'.');
plot(trace3(:,2),'.');grid;
legend('解的变化','种群均值的变化');
xlabel('迭代次数');ylabel('目标函数值');
figure(4);clf;plot(func1(v));hold on;
plot(func2(v),'r-.');grid;
function f1=func1(x)                                                 %第一目标函数
f1=x(:,1).*x(:,1)./4+x(:,2).*x(:,2)./4;
function f2=func2(x)                                                 %第二目标函数
f2=x(:,1).*(1-x(:,2))+10
另两个函数已存为M文件
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

LS1234567

新虫 (初入文坛)

遗传算法程序代码????有没有
没有困难 只有挑战
2楼2015-05-11 10:16:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

素三鲜

新虫 (初入文坛)

【答案】应助回帖

trace1=[ ];trace2=[ ];trace3=[ ];中括号中间加空格
FieldD=[rep([PRECI],[1,NVAR]);[1,1;4,2];rep([1;0;1;1],[1,NVAR])];
最后一行公式最后加“;”
3楼2015-06-19 21:02:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lunda69 的主题更新
信息提示
请填处理意见