24小时热门版块排行榜    

查看: 788  |  回复: 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的回帖
2楼2009-08-03 16:46:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cooler8395

金虫 (初入文坛)

程序

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

冬天里的骄阳

铁杆木虫 (正式写手)

同学,你这样设置文件,人家还得扣金币,谁会帮你啊
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的回帖
相关版块跳转 我要订阅楼主 cooler8395 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +7 ASdOkHsho7FD 2026-08-28 11/550 2026-08-30 17:34 by hZiFeudZyoGR
[论文投稿] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +5 ASdOkHsho7FD 2026-08-28 6/300 2026-08-30 17:25 by hZiFeudZyoGR
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +6 ASdOkHsho7FD 2026-08-28 7/350 2026-08-30 17:14 by hZiFeudZyoGR
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-08-30 16:34 by xiangy672
[基金申请] 能否申诉? +4 echo8914667 2026-08-30 4/200 2026-08-30 16:03 by sundiv
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 jCd0dEvKHShX 2026-08-29 5/250 2026-08-30 14:03 by GkCVyODlx4mR
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 gy1nBQXYQJqL 2026-08-29 8/400 2026-08-30 12:02 by l0VvVHGBGRLv
[硕博家园] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +4 gy1nBQXYQJqL 2026-08-29 5/250 2026-08-30 06:55 by ZPa0EcMwuECS
[教师之家] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 ASdOkHsho7FD 2026-08-28 8/400 2026-08-30 05:48 by ZPa0EcMwuECS
[考研] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +4 G6APbkg8SA6w 2026-08-29 5/250 2026-08-30 02:40 by ZPa0EcMwuECS
[论文投稿] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +5 gy1nBQXYQJqL 2026-08-29 6/300 2026-08-30 01:58 by ZPa0EcMwuECS
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +5 yuleib84 2026-08-26 6/300 2026-08-28 00:02 by yudaoqian88
[基金申请] 申请删除本帖 +6 lyz123lyz 2026-08-27 7/350 2026-08-27 17:31 by 宁静致远sy
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件,有关系吗? +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 今天务委会开完了,明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[基金申请] 明天应该可查了!? +6 chengyan1220 2026-08-23 6/300 2026-08-25 19:45 by zfd97
[基金申请] 某些机构,以效率低为荣,以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 如果此刻你正在为国基感到焦虑,不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
信息提示
请填处理意见