当前位置:编程学习 > Matlab >>

我用MATLAB编程,由最小二乘法求函数最小值,但就是运行不出来,不知道是哪里出错了,请帮我改正一下

function f = func( a ) x1=[0.276 0.401 0.4958 0.579]; %苯的液相组成的实验值 x2=1-x1; %正庚烷的液相组成的实验值 ye=[0.393 0.51 0.591 0.67]; %苯的气相组成的实验值 yr=1-ye; %正庚烷的气相组成的实验值 A=[6.87987 6.89386];B=[1196.76 1264.37];C=[219.161 216.64]; P=760; %大气压 tz=[89.5 87.15 85.1 83.65]; %主温度计的数值 ts=[29.5 28.1 27.9 26.9]; %辅助温度计的数值 tg=0.00016*60.*(tz-ts);tx=[0 0 0 0]; %温度校正值,温度修正值 t=tz+tg+tx; %实际温度 f=0; for i=1:4 p1(i)=10^(A(1)-B(1)/(C(1)+t(i))); p2(i)=10^(A(2)-B(2)/(C(2)+t(i))); end for j=1:4 r1(j)=exp(-log(x1(j)+a(1)*x2(j))+x2(j)*(a(1)/(x1(j)+a(1)*x2(j))-a(2)/(x2(j)+a(2)*x1(j)))); r2(j)=exp(-log(x2(j)+a(2)*x1(j))+x1(j)*(a(2)/(x2(j)+a(2)*x1(j))-a(1)/(x1(j)+a(1)*x2(j)))); y1(j)=r1(j)*x1(j)*p1(j)/P; y2(j)=r2(j)*x2(j)*p2(j)/P; f=(ye(j)-y1(j))^2+(yr(j)-y2(j))^2+f; end 运行结果如下: a0=[1,1]; >> x=lsqnonlin('func',a0) y1 = [] [] [] [] ??? Conversion to cell from double is not possible. Error in ==> func at 14 p1(i)=10^(A(1)-B(1)/(C(1)+t(i))); Error in ==> lsqnonlin at 203 initVals.F = feval(funfcn{3},xCurrent,varargin{:}); Caused by: Failure in initial user-supplied objective function evaluation. LSQNONLIN cannot continue.
追问:奇怪,我的是R2010b,我怎么就运行出来两个负数,而且也是提醒错误呢你干嘛把我的问题又贴一遍啊?
答案:好像没有什么问题,是不是你的Matlab版本太低?
运行情况:
>> a0=[1,1];
>> x=lsqnonlin('func',a0)
Warning: Large-scale method requires at least as many equations as variables; 
   switching to line-search method instead.  Upper and lower bounds will be ignored.
> In optim\private\lsqncommon at 169
  In lsqnonlin at 147
Optimization terminated: directional derivative along
 search direction less than TolFun and infinity-norm of
 gradient less than 10*(TolFun+TolX).
x =
         0.131269887748105          2.01369250329103
其他:function f = func( a )
x1=[0.276 0.401 0.4958 0.579];        %苯的液相组成的实验值
x2=1-x1;                              %正庚烷的液相组成的实验值
ye=[0.393 0.51 0.591 0.67];           %苯的气相组成的实验值
yr=1-ye;                              %正庚烷的气相组成的实验值
A=[6.87987 6.89386];B=[1196.76 1264.37];C=[219.161 216.64];
P=760;                                %大气压
tz=[89.5 87.15 85.1 83.65];           %主温度计的数值
ts=[29.5 28.1 27.9 26.9];             %辅助温度计的数值
tg=0.00016*60.*(tz-ts);tx=[0 0 0 0];  %温度校正值,温度修正值
t=tz+tg+tx;                           %实际温度
f=0;
for i=1:4
    p1(i)=10^(A(1)-B(1)/(C(1)+t(i)));
    p2(i)=10^(A(2)-B(2)/(C(2)+t(i)));
end
for j=1:4
    r1(j)=exp(-log(x1(j)+a(1)*x2(j))+x2(j)*(a(1)/(x1(j)+a(1)*x2(j))-a(2)/(x2(j)+a(2)*x1(j))));
    r2(j)=exp(-log(x2(j)+a(2)*x1(j))+x1(j)*(a(2)/(x2(j)+a(2)*x1(j))-a(1)/(x1(j)+a(1)*x2(j))));
    y1(j)=r1(j)*x1(j)*p1(j)/P;
    y2(j)=r2(j)*x2(j)*p2(j)/P;
    f=(ye(j)-y1(j))^2+(yr(j)-y2(j))^2+f;
end
运行结果如下:
a0=[1,1];
>> x=lsqnonlin('func',a0)

y1 = 

    []    []    []    []

??? Conversion to cell from double is not possible.

Error in ==> func at 14
    p1(i)=10^(A(1)-B(1)/(C(1)+t(i)));

Error in ==> lsqnonlin at 203
            initVals.F = feval(funfcn{3},xCurrent,varargin{:});

Caused by:
    Failure in initial user-supplied objective function evaluation. LSQNONLIN cannot continue.

上一个:【求助】matlab指纹识别易做图征点提取的代码
下一个:matlab lingo编程求解0-1非线性规划 目标函数如图 9个点只能用1次 Xi用过了Xj就不可以再用 在线等啊

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,