24小时热门版块排行榜    

查看: 1251  |  回复: 3

tg725925

新虫 (初入文坛)

[交流] 【求助】急!利用matlab求参数k值

请高手帮忙根据下面(1)、(2)两组数据,运用matlab编程求解两个k值.非常感谢!!!
方程:y=y0+(ylimt-y0)/(2*c0)*(x+1/k+c0-((x+c0+1/k)^2-4*c0*x)^0.5)

其中
(1) y0=1.72427;   ylimt=0.93066;   c0=0.00002

xdata=[0.00005 0.00015 0.0002 0.00025 0.0003 0.00035 0.00045 0.00055 0.0006 0.00075 0.00085 0.00095 0.001 0.00115 0.00125 0.00145]

ydata=[1.77235 1.58145 1.37302 1.23911 1.18416 1.13857 1.10483 1.04227 1.02577 0.98729 0.97012 0.96478 0.96057 0.9512 0.94087 0.93066]

(2) y0=1.17094;   ylimt=0.30983;   c0=0.000015

xdata=[0.00005 0.00015 0.0002 0.00025 0.0003 0.00035 0.00045 0.00055 0.0006 0.00075 0.00085 0.00095 0.001 0.00115 0.00125 0.00145 0.00155]

ydata=[1.1414 1.08394 1.02934 1.00169 0.98691 0.92352 0.91823 0.90804 0.83408 0.80894 0.75992 0.71518 0.64931 0.64825 0.56648 0.34087 0.30983]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

change0618

铁杆木虫 (著名写手)

方丈大师

★ ★ ★
robert2020(金币+3):辛苦了!金币不可以解决一切,金钱也不可能解决一切! 2010-11-08 22:54:25
tg725925(金币+100):谢谢 2010-11-09 04:08:29
function simple
clear all
clc
format long
global y0 ylimt c0

% y0=1.72427;   ylimt=0.93066;   c0=0.00002;
% xdata=[0.00005 0.00015 0.0002 0.00025 0.0003 0.00035 0.00045 0.00055 0.0006 0.00075 0.00085 0.00095 0.001 0.00115 0.00125 0.00145];
% ydata=[1.77235 1.58145 1.37302 1.23911 1.18416 1.13857 1.10483 1.04227 1.02577 0.98729 0.97012 0.96478 0.96057 0.9512 0.94087 0.93066];

y0=1.17094;   ylimt=0.30983;   c0=0.000015;
xdata=[0.00005 0.00015 0.0002 0.00025 0.0003 0.00035 0.00045 0.00055 0.0006 0.00075 0.00085 0.00095 0.001 0.00115 0.00125 0.00145 0.00155];
ydata=[1.1414 1.08394 1.02934 1.00169 0.98691 0.92352 0.91823 0.90804 0.83408 0.80894 0.75992 0.71518 0.64931 0.64825 0.56648 0.34087 0.30983] ;

options=optimset('TolFun',1e-10,'display','off');
[k,RESNORM,RESIDUAL,EXITFLAG] = lsqnonlin(@Objfun,6000,[],[],options,xdata,ydata);
ydatacal = ModelFun(xdata,k);
% 实验值与模拟值绘图
figure
plot(ydata,ydatacal,'k.')
hold on
hline = refline([1,0]);     % 对角线
set(hline,'Color','b')
hlineL = refline([0.9,0]);
set(hlineL,'Color','r','line','--');    % -10%线
hlineU = refline([1.1,0]);
set(hlineU,'Color','r','line','--');    % +10%线
grid on
fprintf('\n\tbeta = %.4f\t\n',k)
fprintf('\n\t残差平方和SSE = %d\n',RESNORM)
fprintf('\n\tEXITFLAG = %d\n',EXITFLAG)
fprintf('\n\t最大相对误差 = %.1f\n',max(abs(RESIDUAL./ydata*100)))
fprintf('\n\t平均相对误差 = %.1f\n',mean(abs(RESIDUAL./ydata*100)))
figure
x=0:0.00001:0.0015;
y=ModelFun(x,k);
plot(xdata,ydata,'ro',x,y,'-')
function f=Objfun(k,xdata,ydata)
y = ModelFun(xdata,k);
f=ydata-y;
function y = ModelFun(x,k)
global y0 ylimt c0
y=y0+(ylimt-y0)./(2*c0).*(x+1/k+c0-((x+c0+1/k).^2-4*c0*x).^0.5);

[ Last edited by change0618 on 2010-11-8 at 07:01 ]
2楼2010-11-08 06:53:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

change0618

铁杆木虫 (著名写手)

方丈大师

★ ★ ★
robert2020(金币+3):辛苦了! 2010-11-08 22:52:39
tg725925(金币+100):谢谢 2010-11-09 04:10:53
function MTCsimpl
clear;        clc
format long
global y0 ylimt c0

y0=1.72427;   ylimt=0.93066;   c0=0.00002;
xdata=[0.00005 0.00015 0.0002 0.00025 0.0003 0.00035 0.00045 0.00055 0.0006 0.00075 0.00085 0.00095 0.001 0.00115 0.00125 0.00145];
ydata=[1.77235 1.58145 1.37302 1.23911 1.18416 1.13857 1.10483 1.04227 1.02577 0.98729 0.97012 0.96478 0.96057 0.9512 0.94087 0.93066];
%
% y0=1.17094;   ylimt=0.30983;   c0=0.000015;
% xdata=[0.00005 0.00015 0.0002 0.00025 0.0003 0.00035 0.00045 0.00055 0.0006 0.00075 0.00085 0.00095 0.001 0.00115 0.00125 0.00145 0.00155];
% ydata=[1.1414 1.08394 1.02934 1.00169 0.98691 0.92352 0.91823 0.90804 0.83408 0.80894 0.75992 0.71518 0.64931 0.64825 0.56648 0.34087 0.30983] ;

options=optimset('TolFun',1e-10,'display','off');
k1= nlinfit(xdata,ydata,@model,200,options);
x=0:0.00001:0.0015;
C=model(k1,x);
figure
plot(xdata,ydata,'ro',x,C,'b')
grid on;
fprintf('\n\tk = %.4f\n',k1)

function y=model(k,x)
global y0 ylimt c0
y=y0+(ylimt-y0)./(2*c0).*(x+1/k+c0-((x+c0+1/k).^2-4*c0*x).^0.5);
3楼2010-11-08 07:17:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tg725925

新虫 (初入文坛)

robert2020:建议虫友自己计算,不能全部依靠别人! 2010-11-08 22:53:12
引用回帖:
Originally posted by change0618 at 2010-11-08 07:17:24:
function MTCsimpl
clear;        clc
format long
global y0 ylimt c0

y0=1.72427;   ylimt=0.93066;   c0=0.00002;
xdata=[0.00005 0.00015 0.0002 0.00025 0.0003 0.00035 0.00045 0.00055 0.0006 0.00075 0. ...

楼主真是好人。
请您把这两个k的具体数值再告诉我一下好吗?谢谢!
4楼2010-11-08 10:44:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 tg725925 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-09-02 00:19 by xiangy672
[基金申请] 面上合作单位盖章 +6 ssyjh 2026-08-27 9/450 2026-09-01 20:01 by huagongfeihu
[基金申请] 面上函评意见出来了,像什么等级? 20+4 Tsingking1 2026-08-27 17/850 2026-09-01 19:51 by 超级无敌华子
[基金申请] 为什么国自然不能直接公布 +5 bjdxyxy 2026-08-26 5/250 2026-09-01 17:54 by 小伟大博士
[文学芳草园] 梦想 +5 myrtle 2026-08-26 7/350 2026-09-01 15:18 by myrtle
[基金申请] 学科评审组评审是指会评吗? +4 瞬息宇宙 2026-08-31 4/200 2026-09-01 14:58 by jiaoxg
[论文投稿] 小白求助 投论文要求的highlights应该如何写 5+3 l1963982152 2026-08-29 4/200 2026-09-01 09:04 by 北京莱茵编辑
[基金申请] 麻烦专家们看看评委们的意见(F口面上) +7 gdd2018 2026-08-28 12/600 2026-09-01 08:32 by 尼古拉斯小虫
[基金申请] 怎么看青基中了没有啊 +6 叶九微 2026-08-26 6/300 2026-08-31 23:54 by yudaoqian88
[基金申请] 国社科又开始会评了,不知道这次命运如何 +7 雨打竹帘 2026-08-30 11/550 2026-08-31 23:16 by hittle2008
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +6 yuleib84 2026-08-26 7/350 2026-08-31 19:46 by 鱼翔浅底1
[基金申请] 29号明天会评吗 +4 笨笨唐 2026-08-28 4/200 2026-08-31 09:30 by huixian257
[基金申请] 我就是申请一个面上项目而已,这评审意见是按照杰青的条件评的吧? +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 国自然面上复盘~欢迎讨论 (金币+15) +15 晴天加油 2026-08-26 16/800 2026-08-29 18:28 by symmetry
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 看板上这么多中的,有点像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 北京莱茵编辑
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 国合可查了 +3 paperzjh 2026-08-26 3/150 2026-08-26 10:41 by LemmonTr
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
信息提示
请填处理意见