| 7 | 1/1 | 返回列表 |
| 查看: 1933 | 回復(fù): 6 | ||||
[求助]
解帶參數(shù)方程,參數(shù)在變
|
|
function f=fafun(x) syms M01 M02 M03 M04 M05 M06 T N0 R M01=30; M02=30; M03=5; M04=5; M05=0; M06=30; M11=M01/60; M12=M02/56; M13=M03/102; M14=M04/40.3; M15=M05/62; M16=M06/78; M21=M11/(M11+M12+M13+M14+M15+M16); M22=M12/(M11+M12+M13+M14+M15+M16); M23=M13/(M11+M12+M13+M14+M15+M16); M24=M14/(M11+M12+M13+M14+M15+M16); M25=M15/(M11+M12+M13+M14+M15+M16); M26=M16/(M11+M12+M13+M14+M15+M16); N31=0.5*M21/(0.5*M21+0.6875*M22+0.3542*M23+0.4583*M24+0.6736*M25+0.7444*M26); N32=0.6875*M22/(0.5*M21+0.6875*M22+0.3542*M23+0.4583*M24+0.6736*M25+0.7444*M26); N33=0.3542*M23/(0.5*M21+0.6875*M22+0.3542*M23+0.4583*M24+0.6736*M25+0.7444*M26); N34=0.4583*M24/(0.5*M21+0.6875*M22+0.3542*M23+0.4583*M24+0.6736*M25+0.7444*M26); N35=0.6736*M25/(0.5*M21+0.6875*M22+0.3542*M23+0.4583*M24+0.6736*M25+0.7444*M26); N36=0.7444*M26/(0.5*M21+0.6875*M22+0.3542*M23+0.4583*M24+0.6736*M25+0.7444*M26); T=1623.15; N11=(243.2+0.031*T)/1000; N12=(791-0.0935*T)/1000; N13=(1024-0.177*T)/1000; N14=(1770-0.636*T)/1000; N15=(438-0.116*T)/1000; N16=(1604.6-0.72*T)/1000; N0=6.02*10^23; R=8.314; N21=R*T/( N0^(1/3)*(27.516*[1+1*10^(-4)*(T-1773)]*10^-6)^(2/3)); N22=R*T/( N0^(1/3)*(20.7*[1+1*10^(-4)*(T-1773)]*10^-6)^(2/3)); N23=R*T/(N0^(1/3)*(28.3*[1+1*10^(-4)*(T-1773)]*10^-6)^(2/3)); N24=R*T/(N0^(1/3)*(16.1*[1+1*10^(-4)*(T-1773)]*10^-6)^(2/3)); N25=R*T/(N0^(1/3)*(33.0*[1+1*10^(-4)*(T-1773)]*10^-6)^(2/3)); N26=R*T/(N0^(1/3)*(31.3*[1+1*10^(-4)*(T-1773)]*10^-6)^(2/3)); f=[N31*exp((x(7)-N11)/N21)-x(1); N32*exp((x(7)-N12)/N22)-x(2); N33*exp((x(7)-N13)/N23)-x(3); N34*exp((x(7)-N14)/N24)-x(4); N35*exp((x(7)-N15)/N25)-x(5); N36*exp((x(7)-N16)/N26)-x(6); N31*exp((x(7)-N11)/N21)+N32*exp((x(7)-N12)/N22)+N33*exp((x(7)-N13)/N23)+N34*exp((x(7)-N14)/N24)+N35*exp((x(7)-N15)/N25)+N36*exp((x(7)-N16)/N26)-1]; M文件如上所示,我想讓M05+M06=30,所以就是M05=30,29,28....不想一個一個去改,有沒有類似for M05=30 if M05>1 M05=M05-1這樣的辦法直接能輸出30個結(jié)果?還有可能變?nèi)齻量,所以想請教怎么辦? |
榮譽版主 (著名寫手)
彩色掛圖
![]() |
專家經(jīng)驗: +2 |

|
M01=30; M02=30; M03=5; M04=5; for M05=0:30 if M05<=30 M05=M05+1; end M06=30-M05; 這是我改的,運行不了啊,問題是這些代碼是M文件中的,解這個方程還需要在命令窗口中輸入 x0=[0.4;0.2;0.007;0.005;0.16;0.14;0.4]; options=optimset('Display','off'); [x,fval,exitflag,output,Jacobian]=fsolve(@fafun,x0,options) 我需要改變M01-M05得到很多數(shù)據(jù)點,這樣一個一個來太慢了 |
木蟲 (小有名氣)
|
M01=30; M02=30; M03=5; M04=5; x0=[0.4;0.2;0.007;0.005;0.16;0.14;0.4]; options=optimset('Display','off'); for M05=0:30 M06=30-M05; options=optimset('Display','off'); [x,fval,exitflag,output,Jacobian]=fsolve(@fafun,x0,options) Fval(M05+1)=fval; %Fval 即為所求數(shù)組 end %%類似于這樣行不行 |
榮譽版主 (著名寫手)
彩色掛圖
![]() |
專家經(jīng)驗: +2 |
|
function f3209 global M05 M06 options=optimset('Display','off'); x0=[0.4;0.2;0.007;0.005;0.16;0.14;0.4]; for i=1:31 M05=i-1; M06=31-i; [x(:,i),fval(:,i),exitflag(i),output(:,i),Jacobian(i,:, ]=fsolve(@fafun,x0,options);end x fval exitflag output end function f=fafun(x) global M05 M06 M01=30; M02=30; M03=5; M04=5; M11=M01/60; M12=M02/56; M13=M03/102; M14=M04/40.3; M15=M05/62; M16=M06/78; M21=M11/(M11+M12+M13+M14+M15+M16); M22=M12/(M11+M12+M13+M14+M15+M16); M23=M13/(M11+M12+M13+M14+M15+M16); M24=M14/(M11+M12+M13+M14+M15+M16); M25=M15/(M11+M12+M13+M14+M15+M16); M26=M16/(M11+M12+M13+M14+M15+M16); N31=0.5*M21/(0.5*M21+0.6875*M22+0.3542*M23+0.4583*M24+0.6736*M25+0.7444*M26); N32=0.6875*M22/(0.5*M21+0.6875*M22+0.3542*M23+0.4583*M24+0.6736*M25+0.7444*M26); N33=0.3542*M23/(0.5*M21+0.6875*M22+0.3542*M23+0.4583*M24+0.6736*M25+0.7444*M26); N34=0.4583*M24/(0.5*M21+0.6875*M22+0.3542*M23+0.4583*M24+0.6736*M25+0.7444*M26); N35=0.6736*M25/(0.5*M21+0.6875*M22+0.3542*M23+0.4583*M24+0.6736*M25+0.7444*M26); N36=0.7444*M26/(0.5*M21+0.6875*M22+0.3542*M23+0.4583*M24+0.6736*M25+0.7444*M26); T=1623.15; N11=(243.2+0.031*T)/1000; N12=(791-0.0935*T)/1000; N13=(1024-0.177*T)/1000; N14=(1770-0.636*T)/1000; N15=(438-0.116*T)/1000; N16=(1604.6-0.72*T)/1000; N0=6.02*10^23; R=8.314; N21=R*T/( N0^(1/3)*(27.516*[1+1*10^(-4)*(T-1773)]*10^-6)^(2/3)); N22=R*T/( N0^(1/3)*(20.7*[1+1*10^(-4)*(T-1773)]*10^-6)^(2/3)); N23=R*T/(N0^(1/3)*(28.3*[1+1*10^(-4)*(T-1773)]*10^-6)^(2/3)); N24=R*T/(N0^(1/3)*(16.1*[1+1*10^(-4)*(T-1773)]*10^-6)^(2/3)); N25=R*T/(N0^(1/3)*(33.0*[1+1*10^(-4)*(T-1773)]*10^-6)^(2/3)); N26=R*T/(N0^(1/3)*(31.3*[1+1*10^(-4)*(T-1773)]*10^-6)^(2/3)); f=[N31*exp((x(7)-N11)/N21)-x(1); N32*exp((x(7)-N12)/N22)-x(2); N33*exp((x(7)-N13)/N23)-x(3); N34*exp((x(7)-N14)/N24)-x(4); N35*exp((x(7)-N15)/N25)-x(5); N36*exp((x(7)-N16)/N26)-x(6); N31*exp((x(7)-N11)/N21)+N32*exp((x(7)-N12)/N22)+N33*exp((x(7)-N13)/N23)+N34*exp((x(7)-N14)/N24)+N35*exp((x(7)-N15)/N25)+N36*exp((x(7)-N16)/N26)-1]; end |

| 7 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 311求調(diào)劑一志愿合肥工業(yè)大學(xué) +5 | 秋二十二 2026-03-30 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 一志愿鄭大材料工程290求調(diào)劑 +12 | Youth_ 2026-03-30 | 12/600 |
|
|
[考研] 一志愿北京化工大學(xué)材料與化工(085600)296求調(diào)劑 +25 | 稻妻小編 2026-03-26 | 25/1250 |
|
|
[考研] 327求調(diào)劑 +5 | 小卡不卡. 2026-03-29 | 5/250 |
|
|
[考研] 332求調(diào)劑 +6 | @MZB382400 2026-03-28 | 6/300 |
|
|
[考研] 311求調(diào)劑 +10 | lin0039 2026-03-26 | 10/500 |
|
|
[考研] 279求調(diào)劑 +4 | 蝶舞輕繞 2026-03-29 | 4/200 |
|
|
[考研] 調(diào)劑求院校招收 +6 | 鶴鯨鴿 2026-03-28 | 6/300 |
|
|
[考研] 299求調(diào)劑 +7 | 嗯嗯嗯嗯2 2026-03-27 | 7/350 |
|
|
[考研] 283求調(diào)劑 +7 | A child 2026-03-28 | 7/350 |
|
|
[考研] 286求調(diào)劑 +4 | 丟掉懶惰 2026-03-27 | 7/350 |
|
|
[考研] 279 分 求調(diào)劑 +4 | 睡個好覺_16 2026-03-24 | 4/200 |
|
|
[考研] 考研調(diào)劑 +10 | 呼呼?~+123456 2026-03-24 | 10/500 |
|
|
[考研] 求調(diào)劑 +3 | 劉柯@ 2026-03-24 | 4/200 |
|
|
[考研] 一志愿鄭大085600,310分求調(diào)劑 +5 | 李瀟可 2026-03-26 | 5/250 |
|
|
[碩博家園] 北京林業(yè)大學(xué)碩導(dǎo)招生廣告 +6 | kongweilin 2026-03-26 | 8/400 |
|
|
[考研] 調(diào)劑求收留 +7 | 果然有我 2026-03-26 | 7/350 |
|
|
[考研] 290分調(diào)劑求助 +3 | 吉祥止止陳 2026-03-25 | 3/150 |
|
|
[考研] 【2026考研調(diào)劑】制藥工程 284分 求相關(guān)專業(yè)調(diào)劑名額 +4 | 袁奐奐 2026-03-25 | 8/400 |
|
|
[考研] 一志愿武理085500機械專業(yè)總分300求調(diào)劑 +3 | an10101 2026-03-24 | 7/350 |
|