| 10 | 1/1 | 返回列表 |
| 查看: 2220 | 回復: 9 | |||
[求助]
動力學方程組參數求解問題 已有3人參與
|
主管區(qū)長 (職業(yè)作家)
![]() |
專家經驗: +1059 |

鐵蟲 (小有名氣)

木蟲 (正式寫手)

|
你好,能麻煩你幫我看一下我的下面這個程序為什么運行不了嘛? function fourLumpK_VR440 clc; clear all; format long; fourLumpData=[... 0 69.33 21.33 7.66 1.76 15 52.96 26.45 17.84 3.18 30 49.9 27.61 18.29 3.92 45 39.03 28.51 27.93 5 60 33.45 25.4 34.49 7.1 90 25.76 24.99 42.38 7.48 ]; % vector of yields/% Xexp=fourLumpData(2:6,2:5); % oil residence time,unit: min time= fourLumpData(2:6,1)'; % initiate parameter for optimization X0=fourLumpData(1,2:5); % k1 k2 k3 k4 k5 K0 =[0.0014 0.0012 0.0005 0.0020 0.0013]; lb=0; ub=inf; %計時開始擬合 tic; K=lsqnonlin(@objFun,K0,lb,ub,[],X0,Xexp,time); % 擬合結果顯示 disp(K) % 計時結束 disp('耗時:'); toc; % 保存擬合結果 save fourLumpK_VR440; % 檢驗----------------------------------------------- tf=max(time); tspan=[0:1:tf]; [nr,nc]=size(Xexp); XcalFinal=zeros(nr,nc); for i=1:nr [t,Xcal]=ode45(@modelEquation,tspan,X0,[],K,tf); n=find(t>=time(i)); m=n(1); %線性內插 Xc=Xcal(m, -(Xcal(m, -Xcal(m-1, )/(t(m)-t(m-1))*(t(m)-time(i));XcalFinal(i, =Xc;save XcalFinal end objX = abs((XcalFinal - Xexp)./100).^2; F=sum(sum(objX))^0.5; error=(XcalFinal - Xexp) avrError=sum(abs(error))/nr relatError=(XcalFinal - Xexp)./Xexp*100 avrRelError=sum(abs(relatError))/nr rou_2=1-sum((XcalFinal - Xexp).^2)./sum(Xexp.^2) Fc_11=(sum(XcalFinal.^2)-sum((XcalFinal - Xexp).^2))/5./(sum((XcalFinal - Xexp).^2)/(5*4-5)) % 殘差圖----------------------------------------------------------- figure(1); clf; hold on; plot(XcalFinal(:,1),Xexp(:,1),'m*'); plot(XcalFinal(:,2),Xexp(:,2),'r*'); plot(XcalFinal(:,3),Xexp(:,3),'b*'); plot(XcalFinal(:,4),Xexp(:,4),'k*'); legend('尾油','蠟油','輕油','氣+焦'); % 圖形注解 xlabel('Xcal,%'); % x軸注解 ylabel('Xexp,%'); % y軸注解 % title('Xexp-Xcal'); % 圖形標題 hold on; x=0:0.1:80; plot(x,x,'k-'); % y-t圖形顯示 figure(2); clf; hold on; tf=max(time); tspan=[0:1:tf]; [t,XcalFinal]=ode45(@modelEquation,tspan,X0,[],K,tf); plot(t,XcalFinal(:,1),'m'); plot(t,XcalFinal(:,2),'r'); plot(t,XcalFinal(:,3),'b'); plot(t,XcalFinal(:,4),'k'); legend('尾油','蠟油','輕油','氣+焦'); % 圖形注解 xlabel('t/min'); % x軸注解 ylabel('X/%'); % y軸注解 % title('X--t'); % 圖形標題 hold; %繪制試驗點 figure(2); hold on; plot(fourLumpData(:,1)',fourLumpData(:,2),'m*'); plot(fourLumpData(:,1)',fourLumpData(:,3),'r*'); plot(fourLumpData(:,1)',fourLumpData(:,4),'b*'); plot(fourLumpData(:,1)',fourLumpData(:,5),'k*'); % ----------------------------------------------------------------- function F = objFun(K,X0,Xexp,time) tf=max(time); tspan=[0:1:tf]; [nr,nc]=size(Xexp); XcalFinal=zeros(nr,nc); for i=1:nr [t,Xcal]=ode45(@modelEquation,tspan,X0,[],K,tf); n=find(t>=time(i)); m=n(1); %線性內插 Xc=Xcal(m, -(Xcal(m, -Xcal(m-1, )/(t(m)-t(m-1))*(t(m)-time(i));XcalFinal(i, =Xc;end objX = abs((XcalFinal - Xexp)./100).^2; F=sum(sum(objX))^0.5; error=(XcalFinal - Xexp) avrError=sum(abs(error))/nr avrErr=sum(avrError)/nc relatError=(XcalFinal - Xexp)./Xexp*100 avrRelError=sum(abs(relatError))/nr avrRelErr=sum(avrRelError)/nc K function dxdt = modelEquation(t,X,K,tf) f1=-(K(1)+K(2)+K(3))*X(1); f2= K(1)*X(1)-(K(4)+K(5))*X(2); f3= K(2)*X(1)+K(4)*X(2); f4= K(3)*X(1)+K(5)*X(2); dxdt = [f1;f2;f3;f4]; |
|
發(fā)現有亂碼哎,我上傳個附件給你,麻煩你幫我看一下吧。 |
| 10 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085600材料與化工調劑 324分 +5 | llllkkkhh 2026-03-18 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 一志愿武理材料305分求調劑 +3 | 想上岸的鯉魚 2026-03-18 | 4/200 |
|
|
[考研] 材料專碩306英一數二 +10 | z1z2z3879 2026-03-16 | 13/650 |
|
|
[考研] 304求調劑 +12 | 小熊joy 2026-03-14 | 13/650 |
|
|
[考研] 299求調劑 +5 | △小透明* 2026-03-17 | 5/250 |
|
|
[考研] 材料,紡織,生物(0856、0710),化學招生啦 +3 | Eember. 2026-03-17 | 9/450 |
|
|
[考研] 有沒有道鐵/土木的想調劑南林,給自己招師弟中~ +3 | TqlXswl 2026-03-16 | 7/350 |
|
|
[考研] 一志愿南京大學,080500材料科學與工程,調劑 +4 | Jy? 2026-03-16 | 4/200 |
|
|
[考研] 機械專碩325,尋找調劑院校 +3 | y9999 2026-03-15 | 5/250 |
|
|
[考研] 304求調劑 +4 | ahbd 2026-03-14 | 4/200 |
|
|
[考研] 22408總分284求調劑 +3 | InAspic 2026-03-13 | 3/150 |
|
|
[考研] 070305求調劑 +3 | mlpqaz03 2026-03-14 | 4/200 |
|
|
[考研] 材料與化工 323 英一+數二+物化,一志愿:哈工大 本人本科雙一流 +4 | 自由的_飛翔 2026-03-13 | 5/250 |
|
|
[基金申請] 現在如何回避去年的某一個專家,不知道名字 +3 | zk200107 2026-03-12 | 6/300 |
|
|
[考研] 學碩285求調劑 +13 | Wisjxn 2026-03-12 | 46/2300 |
|
|
[考研] 266求調劑 +4 | 學員97LZgn 2026-03-13 | 4/200 |
|
|
[考研] (081700)化學工程與技術-298分求調劑 +12 | 11啦啦啦 2026-03-11 | 35/1750 |
|
|
[考研] 26調劑/材料科學與工程/總分295/求收留 +9 | 2026調劑俠 2026-03-12 | 9/450 |
|
|
[考研] 材料專碩350 求調劑 +4 | 王金科 2026-03-12 | 4/200 |
|
|
[考研] 277求調劑 +4 | anchor17 2026-03-12 | 4/200 |
|