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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 计算模拟 » matlab 求指点 动力学方程拟合过程中导数的获取
111/2返回列表12下一页
查看: 3560  |  回复: 10
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

shidoudou

新虫 (初入文坛)

[求助] matlab 求指点 动力学方程拟合过程中导数的获取

本人matlab不通，勉强做了一个程序能够达到预期目的，可是老师想要中间运算的导数值，也就是dxdt的值，不知道如何填补表达式实现，望各位高手出手相助，不胜感激。
主程序：
format short
global Umax Ks Kp Y1 Y2 Uo Ko D Ux Kx Ku Ki;
Ki=0.0001;Ku=0.0006;
k0=[0.2 0.5 0.1 10 10 0.01 0.01 0.1 0.01 0.01]; %参数的初始值
x0=[0.0514 0.250 0]; %菌体浓度、底物浓度和产物浓度的初始值
t1=[0 6 12 18 24 30 36 42 48 54 60 66]';%发酵时间的实验数据
tspan=[0 6 12 18 24 30 36 42 48 54 60 66 ]';%时间间隔
%yexp实验数据[菌体浓度x1、底物浓度x2和产物浓度x3]
yexp=[[0.0514 0.0711 0.0997 0.1887 0.3478 0.6634 0.8711 1.1023 1.2336 1.4239 1.5849 1.6739];[0.25 0.2447 0.2366 0.2258 0.2196 0.203 0.1872 0.1698 0.1453 0.1124 0.0855 0.0608];[0 0.0012 0.0021 0.0039 0.0088 0.0137 0.0183 0.0268 0.0361 0.0438 0.0557 0.0643]]';
lb=[0 0 0 0 0 0.0216 0.001 0 0.001 0.001];ub=[1 10 10 50 50 2 1 1 0.1 0.1];%参数的下、上限
[k,resnorm,residual,exitflag,output,lambda,jacobian]=lsqnonlin(@ObjFunc4LNL103,k0,lb,ub,[],x0,yexp);%非线性拟合
y1=[yexp(:,1)];y2=[yexp(:,2)];y3=[yexp(:,3)]';
[t4plot,x4plot]=ode45(@kineticseqs103,[0 100],x0,[],k);
plot(t1,y1,'b*',t4plot,x4plot(:,1),'k-'),xlabel('T(h)'),ylabel('Cx/（g/L）');
figure
plot(t1,y2,'g*',t4plot,x4plot(:,2),'k-'),xlabel('T(h)'),ylabel('Cs/(mmol/L)');
figure
plot(t1,y3,'r*',t4plot,x4plot(:,3),'k-'),xlabel('T(h)'),ylabel('Cp/(mmol/L)');
disp(k)
子程序：
1）
function f=ObjFunc4LNL103(k,x0,yexp)
tspan=[0 6 12 18 24 30 36 42 48 54 60 66];
[t1,x]=ode45(@kineticseqs103,tspan,x0,[],k);
y(:,1)=x(:,1);y(:,2)=x(:,2);y(:,3)=x(:,3);
f1=y(: ,1)-yexp(: ,1);f2=y(: ,2)-yexp(: ,2);f3=y(: ,3)-yexp(: ,3);
f=[f1*1 f2*5 f3*10];
2）
function dxdt=kineticseqs103(t,x,k) %模型方程
global Umax Ks Kp Y1 Y2 Uo Ko D Ux Kx Ku Ki
Umax=k(1); Ks=k(2); Kp=k(3); Y1=k(4); Y2=k(5); Ux=k(6); Kx=k(7); D=k(8); Uo=k(9); Ko=k(10);
  dxdt1=Umax*x(2)*x(1)*(1-Kp*x(3))/(Ks+x(2));
   if dxdt1<0
      dxdt1=0;
   end
  dxdt2=-1/Y1*dxdt1-Ux*x(2)*x(1)/(Kx+x(2))*(Ki/(Ki+x(3)));
  dxdt3=D*(-dxdt2-1/Y2*dxdt1-Uo*x(2)*x(1)/(Ko+x(2))*(Ku/(Ku+x(3))));
   if dxdt3<0
      dxdt3=0;
  end
  dxdt=[dxdt1;dxdt2;dxdt3];
只要能显示对应时间t1,这些点的dxdt值就可以了。谢谢
回复此楼

» 收录本帖的淘帖专辑推荐

matlab

» 本帖已获得的红花（最新10朵）

shidoudou

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2012-02-09 14:46:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingd

铁杆木虫 (职业作家)

【答案】应助回帖

感谢参与，应助指数 +1
dbb627(金币+1): 欢迎交流 2012-02-10 18:25:29
最好用非Matlab代码的文本（图片）方式把问题描述一下。
赞一下 回复此楼
2楼2012-02-09 17:16:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

shidoudou

新虫 (初入文坛)
送鲜花一朵
非常感谢您哈。
我的本来的目的就是，建立了 微生物发酵的动力学方程，是三个微分方程，然后利用实验所得的数据就是yexp那组数据，非线性拟合微分方程里面的参数即可，以上的程序可以实现这个了。可是，老师让我能够显示这三个微分方程在对应的时间点t1那几个点处的导数值，我就不知道怎么样加语句了。不知道我表达清楚了没有～
赞一下 回复此楼
3楼2012-02-09 20:30:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hhucy

实习版主 (著名写手)

DOE锅炉工

【答案】应助回帖

感谢参与，应助指数 +1
dbb627(金币+1): 欢迎交流 2012-02-10 18:25:37
添加作图的命令，就能直观显示
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

shidoudou
人生那么多不确定，你怕什么
4楼2012-02-09 20:40:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

shidoudou

新虫 (初入文坛)
送鲜花一朵
引用回帖:
楼: Originally posted by hhucy at 2012-02-09 20:40:21:
添加作图的命令，就能直观显示

感谢哈。
能不能详细点致命咧，呵呵，我对此还真不通呢，可是老师说想要数值看一看，还得交差哈
赞一下 回复此楼
5楼2012-02-09 20:53:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

change0618

铁杆木虫 (著名写手)

方丈大师

【答案】应助回帖

感谢参与，应助指数 +1
dxdt=kineticseqs103(t,x,k) %模型方程

这不就是浓度梯度啊？
赞一下 回复此楼
6楼2012-02-10 15:58:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

change0618

铁杆木虫 (著名写手)

方丈大师

【答案】应助回帖

dbb627:编辑内容 2012-02-10 18:24
dbb627(金币+2): 感谢应助 2012-02-10 18:25:08
CODE:
[t,x]=ode45(@kineticseqs103,t1,x0,[],k);
n = length(x);
dxdt = zeros(size(x));
for i = 1:n
    dxdt(i,:) = kineticseqs103(t,x(i,:),k);
end
dxdt

[ Last edited by dbb627 on 2012-2-10 at 18:24 ]
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

shidoudou
7楼2012-02-10 16:30:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

715211229

木虫 (正式写手)
matlab命令窗口输入cftool，这个是拟合工具箱，拟合好后，最后一项分析里面有求一二阶导倒数的按钮
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

shidoudou
我是蜗牛
8楼2012-02-11 00:49:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

shidoudou

新虫 (初入文坛)
送鲜花一朵
引用回帖:
楼: Originally posted by change0618 at 2012-02-10 16:30:07:
CODE:
[t,x]=ode45(@kineticseqs103,t1,x0,[],k);
n = length(x);
dxdt = zeros(size(x));
for i = 1:n
    dxdt(i,:) = kineticseqs103(t,x(i,:),k);
end
dxdt

[ Last edited by dbb627 on  ...

谢谢哈
回复此楼
9楼2012-02-12 09:08:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

shidoudou

新虫 (初入文坛)
送鲜花一朵
引用回帖:
楼: Originally posted by 715211229 at 2012-02-11 00:49:28:
matlab命令窗口输入cftool，这个是拟合工具箱，拟合好后，最后一项分析里面有求一二阶导倒数的按钮

谢谢哈
回复此楼
10楼2012-02-12 09:08:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 shidoudou 的主题更新
111/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 299求调剂 +5 △小透明* 2026-03-17 5/250 2026-03-18 11:49 by 尽舜尧1
[考研] 0703化学求调剂 总分331 +3 ZY-05 2026-03-13 3/150 2026-03-18 10:58 by macy2011
[考研] 268求调剂 +6 简单点0 2026-03-17 6/300 2026-03-18 09:04 by 无际的草原
[考研] 268求调剂 +7 好运连绵不绝 2026-03-12 8/400 2026-03-17 20:28 by xilongliang
[考研] 085600材料与化工求调剂 +5 绪幸与子 2026-03-17 5/250 2026-03-17 16:40 by laoshidan
[考研] 26考研求调剂 +6 丶宏Sir 2026-03-13 6/300 2026-03-17 16:13 by 醉在风里
[考研] 290求调剂 +6 孔志浩 2026-03-12 11/550 2026-03-17 14:41 by 周舟舟77
[考研] 材料工程专硕274一志愿211求调剂 +6 薛云鹏 2026-03-15 6/300 2026-03-17 11:05 by 学员h26Tkc
[考研] 302求调剂 +4 小贾同学123 2026-03-15 8/400 2026-03-17 10:33 by 小贾同学123
[考研] 0703化学调剂 290分有科研经历，论文在投 +7 腻腻gk 2026-03-14 7/350 2026-03-16 10:12 by houyaoxu
[考研] 机械专硕调剂 +3 笨笨兔子 2026-03-12 3/150 2026-03-15 20:02 by 栗子粥?
[考研] 26考研一志愿中国石油大学(华东)305分求调剂 +3 嘉年新程 2026-03-15 3/150 2026-03-15 13:58 by 哈哈哈哈嘿嘿嘿
[考研] 080500，材料学硕302分求调剂学校 +4 初识可乐 2026-03-14 5/250 2026-03-14 21:08 by peike
[考研] 学硕285求调剂 +13 Wisjxn 2026-03-12 46/2300 2026-03-14 10:33 by JourneyLucky
[考研] 26调剂/材料科学与工程/总分295/求收留 +9 2026调剂侠 2026-03-12 9/450 2026-03-13 20:46 by 18595523086
[考研] 求调剂 +5 一定有学上- 2026-03-12 5/250 2026-03-13 18:31 by ms629
[考研] 求调剂 +7 18880831720 2026-03-11 7/350 2026-03-13 16:10 by JourneyLucky
[考研] 274求调剂 +3 S.H1 2026-03-12 3/150 2026-03-13 15:15 by JourneyLucky
[考研] 求调剂 +3 程雨杭 2026-03-12 3/150 2026-03-13 15:06 by JourneyLucky
[考博] 26读博 +4 Rui135246 2026-03-12 10/500 2026-03-13 07:15 by gaobiao
信息提示
关闭
请填处理意见
关闭