24小时热门版块排行榜    

查看: 790  |  回复: 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的回帖

冬天里的骄阳

铁杆木虫 (正式写手)

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

cooler8395

金虫 (初入文坛)

程序

这是我编的程序 ,各位高手看看中间哪里出了问题了,多谢了!
3楼2009-08-03 18:44:12
已阅   回复此楼   关注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一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 G6APbkg8SA6w 2026-08-29 4/200 2026-08-30 18:53 by hZiFeudZyoGR
[论文投稿] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +5 gy1nBQXYQJqL 2026-08-29 5/250 2026-08-30 18:29 by hZiFeudZyoGR
[论文投稿] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +6 gy1nBQXYQJqL 2026-08-29 7/350 2026-08-30 18:18 by hZiFeudZyoGR
[公派出国] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +5 gy1nBQXYQJqL 2026-08-29 5/250 2026-08-30 18:07 by hZiFeudZyoGR
[博后之家] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +7 gy1nBQXYQJqL 2026-08-29 8/400 2026-08-30 18:07 by hZiFeudZyoGR
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +6 gy1nBQXYQJqL 2026-08-29 9/450 2026-08-30 17:56 by hZiFeudZyoGR
[考博] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +7 ASdOkHsho7FD 2026-08-28 11/550 2026-08-30 17:34 by hZiFeudZyoGR
[考研] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +7 ASdOkHsho7FD 2026-08-28 10/500 2026-08-30 17:33 by hZiFeudZyoGR
[考研] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +8 ASdOkHsho7FD 2026-08-28 12/600 2026-08-30 17:11 by hZiFeudZyoGR
[基金申请] 能否申诉? +4 echo8914667 2026-08-30 4/200 2026-08-30 16:03 by sundiv
[基金申请] 国社科又开始会评了,不知道这次命运如何 +3 雨打竹帘 2026-08-30 4/200 2026-08-30 12:35 by 白大多亮
[博后之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 gy1nBQXYQJqL 2026-08-29 8/400 2026-08-30 12:03 by l0VvVHGBGRLv
[博后之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +8 ASdOkHsho7FD 2026-08-28 9/450 2026-08-30 11:40 by l0VvVHGBGRLv
[教师之家] 导师吐槽:我怎么摊上了这么个极品研究生! +9 苏东坡二世 2026-08-23 9/450 2026-08-29 14:41 by hustersqt
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 基金未中,这种答复是模板吗? +5 zhaosm1982 2026-08-27 6/300 2026-08-27 16:00 by lfy8008
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜? 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 国合现在查不到了吗? +10 chengyan1220 2026-08-24 20/1000 2026-08-26 08:57 by peasantsprig
信息提示
请填处理意见