 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 1 | 1/1 | 返回列表 |
| 查看: 283 | 回復(fù): 0 | ||
[求助]
各位大神給看看fortran語言編寫的雙溫方程怎么理解
|
|
DO 1000 CLOCK=1,Ntype !************************************************************************* !!!!!!!!!!!!!!!//////////TTM Model\\\\\\\\\\\!!!!!!!!!!!!!!!!!!!!!!!!!!!!! DO 50 j=1,mm2 GVV(j)=0.0 50 CONTINUE DO 100 i=((CLOCK-1)*10+1),CLOCK*10 !FD步長是MD步長的10倍 if (CLOCK.LT.1200 .AND. CLOCK.GT.1000) then DO 110 j=1,mm Ce(j)=Ce0*Te(j) ok(j)=Ke0*B*Te(j)/(A*Te(j)**2+B*Tl(j+50)) !修改 f(j)=ok(j)*dt1/(Ce(j)*dx*dx) g(j)=g0*Tl(j+50)/Te(j) !temperature dependence of e-ph factor alf(j)=g(j)**2*dt1*dt1/(Cl*Ce(j)*(1+g(j)*dt1/Cl))-1-2*f(j)-g(j)*dt1/Ce(j) alf(j)=alf(j)/f(j) blf(j)=-Te(j)-(Wa/Ce(j))*exp(-alpha*j*dx)*exp(-4*0.69315*((i-11000)/1000.0)**2)-g(j)*dt1*Tl(j+50)/(Ce(j)*(1+g(j)*dt1/Cl)) !修改 blf(j)=blf(j)/f(j) |
回復(fù)此樓» 猜你喜歡
328求調(diào)劑
已經(jīng)有7人回復(fù)
-
340求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿南昌大學(xué)324求調(diào)劑
已經(jīng)有4人回復(fù)
-
求調(diào)劑推薦 材料 304
已經(jīng)有15人回復(fù)
-
291求調(diào)劑
已經(jīng)有19人回復(fù)
-
331環(huán)境科學(xué)與工程求調(diào)劑
已經(jīng)有3人回復(fù)
-
289求調(diào)劑
已經(jīng)有8人回復(fù)
-
315分求調(diào)劑
已經(jīng)有7人回復(fù)
-
295求調(diào)劑
已經(jīng)有6人回復(fù)
-
291求調(diào)劑
已經(jīng)有7人回復(fù)
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 凌霄12 的主題更新
| 1 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 291求調(diào)劑 +13 | hhhhxn.. 2026-03-23 | 19/950 |
|
|---|---|---|---|---|
|
|
[考研] 295求調(diào)劑 +5 | 1428151015 2026-03-27 | 6/300 |
|
|
[考研] 352分 化工與材料 +5 | 海納百川Ly 2026-03-27 | 5/250 |
|
|
|
[考研] 學(xué)碩274求調(diào)劑 +5 | Li李魚 2026-03-26 | 5/250 |
|
|
|
[考研] 0703化學(xué) +6 | 妮妮ninicgb 2026-03-27 | 6/300 |
|
|
|
[考研] 一志愿北京化工大學(xué) 070300 學(xué)碩 336分 求調(diào)劑 +9 | vv迷 2026-03-22 | 9/450 |
|
|
|
[考研] 材料292調(diào)劑 +12 | 橘頌思美人 2026-03-23 | 12/600 |
|
|
|
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +7 | 邱gl 2026-03-27 | 7/350 |
|
|
|
[考研] 08開頭275求調(diào)劑 +4 | 拉誰不重要 2026-03-26 | 4/200 |
|
|
|
[考研] 298調(diào)劑 +3 | jiyingjie123 2026-03-27 | 3/150 |
|
|
|
[考研] 303求調(diào)劑 +7 | 安憶靈 2026-03-22 | 8/400 |
|
|
|
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +3 | 崔wj 2026-03-26 | 3/150 |
|
|
|
[考研]
材料調(diào)劑
 5+4
|
想要一壺桃花水 2026-03-25 | 10/500 |
|
|
|
[考研] 086000生物與醫(yī)藥292求調(diào)劑 +6 | 小小陳小小 2026-03-22 | 9/450 |
|
|
|
[考研] 290分調(diào)劑求助 +3 | 吉祥止止陳 2026-03-25 | 3/150 |
|
|
|
[考研] 考研一志愿蘇州大學(xué)初始315（英一）求調(diào)劑 +3 | sbdksD 2026-03-24 | 4/200 |
|
|
|
[考研] 求調(diào)劑 +3 | 李李不服輸 2026-03-25 | 3/150 |
|
|
|
[考研] 一志愿吉大化學(xué)322求調(diào)劑 +4 | 17501029541 2026-03-23 | 6/300 |
|
|
|
[考研] 一志愿山東大學(xué)藥學(xué)學(xué)碩求調(diào)劑 +3 | 開開心心沒煩惱 2026-03-23 | 4/200 |
|
|
|
[考研] 308求調(diào)劑 +3 | 墨墨漠 2026-03-21 | 3/150 |
|