24小时热门版块排行榜    

查看: 792  |  回复: 4
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

cooler8395

金虫 (初入文坛)

[交流] 【求助】MATLAB回归wilson方程参数

麻烦高手,求助一下回归wilson方程参数的matlab程序。自己编的不知道哪里的原因,误差很大。
% wilson  回归参数  调用格式-----[x,fval]=fminsearch(@wilson,[100 100])单纯形法求最小值
function f = wilson(x)      


A12=x(1);
A21=x(2);
YY=0;
YYY=0;
FFF=0;
X1=[0.0593 0.1306 0.2660 0.3842 0.4708 0.6256 0.7178 0.8214 0.9037 0.9397];
Y1=[0.3285 0.4902 0.6234 0.6831 0.7125 0.7524 0.7832 0.8349 0.8864 0.9215];
    for i=1:length(X1)
     i
    x1=X1(i);%提取本次试验点的实验值
    x2=1-x1;  % x1,x2 试验值
    y1=Y1(i);
    y2=1-y1;  % y1,y2 试验值
    A12;
   A21;
    Lnr1=-log(x1+A12*x2)+x2*(A12/(x1+A12*x2)-A21/(x2+A21*x1));
    Lnr2=-log(x2+A21*x1)+x1*(A21/(x2+A21*x1)-A12/(x1+A12*x2));

    r1=exp(Lnr1);
    r2=exp(Lnr2);

  
   A1=4.1973;A2=3.4337;
   B1=1575.0;B2=1413.0;
   C1=-34.29;C2=-44.25;
    t=70;
    T=t+273.15;
   
    P10=exp(A1-B1/(C1+t));
    P20=exp(A2-B2/(C2+t));
   
   
  
    P=x1*r1*P10+x2*r2*P20
    % P-总压;P10-物质1的饱和蒸汽压;P20-物质2的饱和蒸汽压.   单位:Kpa

    y1cal=x1*r1*P10/P
    y2cal=x2*r2*P20/P
   %------------------------------
    Y=abs(y1-y1cal); %Y-本次计算点的绝对误差
    YY=YY+Y;      %YY-已计算点的绝对误差之和
   %-------------------------------
   MM=abs((y1-y1cal)./y1);
   YYY=YYY+MM;
   %------------------
   m=abs(y1cal-y1);
   M(1,i)=m;
%-----------------------
    FF=(y1cal-y1).^2+(y2cal-y2).^2;
    FFF=FFF+FF;%目标函数
    %a=log(r1/r2);
    %b=log(r1)/x2^2;
   % c=-log(r2)/x1^2;
    end
f=FFF;

fata=YY/i%平均偏差
sigma=YYY/i%平均相对偏差
sigmaM=max(M)%最大偏差

[ Last edited by cooler8395 on 2009-8-3 at 20:45 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cooler8395

金虫 (初入文坛)

程序

这是我编的程序 ,各位高手看看中间哪里出了问题了,多谢了!
3楼2009-08-03 18:44:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答

冬天里的骄阳

铁杆木虫 (正式写手)

同学,你这样设置文件,人家还得扣金币,谁会帮你啊
4楼2009-11-10 16:29:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

冬天里的骄阳

铁杆木虫 (正式写手)

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
cooler8395(金币+10,VIP+0): 11-10 16:30
nono2009(金币-10,VIP+0):请不要通过马甲转移金币!扣除转移金币。 11-10 16:50
nono2009(金币+10,VIP+0):经解释说明,金币退还。但不鼓励通过这种方式奖励金币,下不为例。 11-11 11:24
私下聊聊吧,你的问题我能解决
5楼2009-11-10 16:29:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 4FFAWE8HcgUD 2026-08-29 3/150 2026-08-30 20:19 by hZiFeudZyoGR
[论文投稿] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 zICmwzsBXjbN 2026-08-29 5/250 2026-08-30 20:08 by hZiFeudZyoGR
[论文投稿] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 jCd0dEvKHShX 2026-08-29 4/200 2026-08-30 19:57 by hZiFeudZyoGR
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 jCd0dEvKHShX 2026-08-29 4/200 2026-08-30 19:34 by hZiFeudZyoGR
[考研] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +5 G6APbkg8SA6w 2026-08-29 6/300 2026-08-30 19:02 by hZiFeudZyoGR
[考博] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +4 G6APbkg8SA6w 2026-08-29 5/250 2026-08-30 18:50 by hZiFeudZyoGR
[博后之家] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 gy1nBQXYQJqL 2026-08-29 4/200 2026-08-30 18:28 by hZiFeudZyoGR
[考研] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +4 gy1nBQXYQJqL 2026-08-29 6/300 2026-08-30 17:47 by hZiFeudZyoGR
[找工作] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +6 ASdOkHsho7FD 2026-08-28 10/500 2026-08-30 17:36 by hZiFeudZyoGR
[基金申请] 面上意见出来了 +9 黄鸟于飞Chao 2026-08-29 18/900 2026-08-30 16:47 by 黄鸟于飞Chao
[基金申请] 能否申诉? +4 echo8914667 2026-08-30 4/200 2026-08-30 16:03 by sundiv
[基金申请] 麻烦专家们看看评委们的意见(F口面上) +6 gdd2018 2026-08-28 11/550 2026-08-30 08:58 by 超级无敌华子
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 ASdOkHsho7FD 2026-08-28 7/350 2026-08-30 06:10 by ZPa0EcMwuECS
[基金申请] 中青基了要发朋友圈吗? +4 349506619 2026-08-28 4/200 2026-08-29 22:41 by alongwaytogo
[基金申请] 为什么到现在没收到通知? +4 tannykie 2026-08-29 4/200 2026-08-29 17:14 by lmz0216
[基金申请] 看板上这么多中的,有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜? 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件,有关系吗? +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 国合现在查不到了吗? +10 chengyan1220 2026-08-24 20/1000 2026-08-26 08:57 by peasantsprig
[基金申请] 明天应该可查了!? +6 chengyan1220 2026-08-23 6/300 2026-08-25 19:45 by zfd97
信息提示
请填处理意见