版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

tg725925

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 805.3
散金: 210
帖子: 43
在线: 28.9小时
虫号: 995224
注册: 2010-04-12
专业: 波谱分析与成像分析

[交流] 【求助】急！利用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]

回复此楼

» 猜你喜欢

Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有7人回复
2025冷门绝学什么时候出结果已经有4人回复
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗已经有8人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件已经有5人回复
论文投稿，期刊推荐已经有6人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
孩子确诊有中度注意力缺陷已经有14人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复

1楼2010-11-07 22:06:06

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

change0618

铁杆木虫 (著名写手)

方丈大师

应助: 44 (小学生)
金币: 17724.5
红花: 17
帖子: 2413
在线: 546.7小时
虫号: 496517
注册: 2008-01-19
专业: 化学反应工程

★ ★ ★
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 ]

赞一下(1人)

回复此楼

2楼2010-11-08 06:53:29

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

change0618

铁杆木虫 (著名写手)

方丈大师

应助: 44 (小学生)
金币: 17724.5
红花: 17
帖子: 2413
在线: 546.7小时
虫号: 496517
注册: 2008-01-19
专业: 化学反应工程

★ ★ ★
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);

赞一下(1人)

回复此楼

3楼2010-11-08 07:17:24

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

tg725925

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 805.3
散金: 210
帖子: 43
在线: 28.9小时
虫号: 995224
注册: 2010-04-12
专业: 波谱分析与成像分析

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的具体数值再告诉我一下好吗？谢谢！

赞一下(1人)

回复此楼

4楼2010-11-08 10:44:06

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 tg725925 的主题更新

返回列表