| 5 | 1/1 | 返回列表 |
| 查看: 2712 | 回復: 14 | ||
| 當前只顯示滿足指定條件的回帖,點擊這里查看本話題的所有回帖 | ||
[交流]
【求助】這個帶有分段函數(shù)偏微分方程怎么用for程序去解決
|
||
» 搶金幣啦!回帖就可以得到:
+1/496
+1/180
+1/78
+1/52
+1/37
+1/37
+1/35
+1/16
+1/13
+1/11
+1/8
+1/7
+1/6
+1/5
+1/4
+1/4
+1/3
+1/3
+1/1
+1/1
|
看我這個 我寫的外部函數(shù) 可有問題: external f dimension y(3),d(3),z(3,5000000),b(4,3),e(3),s(3),g(3) open(26,file='variable.dat') h=0.001d0 m=5000000 n=3 eps=0.00001d0 y(1)=1.0d0 y(2)=2.0d0 y(3)=3.0d0 call adams(a,h,m,y,n,z,f,d,eps,b,e,s,g) do 20 i=1,m t=(i-1)*h if(t.ge.1d2) write(26,'(4f15.6)')t,z(1,i),z(3,i) 20 continue close(26) end subroutine f(t,y,n,d) c ---------------------------------------------------------------------- dimension y(n),d(n) real*8 mm c if (abs(y(1)).gt.2.9d0)then mm=0.366d0 else mm=0.061d0 endif d(1)=(1.15d0-mm*y(1)-sin(y(2))-y(3))/2.6d0 d(2)=y(1) d(3)=(y(1)-y(3))/0.707d0 return end 這才是 最后一部分 重要的 上面 以及 以前 都是模塊化的 程序 |



| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿同濟大學323分(080500)求調劑 +3 | yikeniu 2026-04-01 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 311求調劑一志愿合肥工業(yè)大學 +14 | 秋二十二 2026-03-30 | 14/700 |
|
|
[考研] 材料專碩306英一數(shù)二 +6 | z1z2z3879 2026-03-31 | 6/300 |
|
|
[考研] 348求調劑 +7 | zzzzyk123 2026-04-01 | 7/350 |
|
|
[考研] 085600,材料與化工321分,求調劑 +10 | 大饞小子 2026-03-27 | 10/500 |
|
|
[考研] 085701環(huán)境工程,267求調劑 +17 | minht 2026-03-26 | 17/850 |
|
|
[考研] 0856調劑 +7 | 曲聽筠 2026-03-30 | 7/350 |
|
|
[考研] 環(huán)境工程297分求調劑一志愿杭高院 +10 | GENJIOW 2026-03-31 | 10/500 |
|
|
[考研] 一志愿:西北大學,英一數(shù)一408-284分求調劑 +7 | 12.27 2026-03-27 | 7/350 |
|
|
[考研] 352分-085602-一志愿985 +6 | 海納百川Ly 2026-03-29 | 6/300 |
|
|
[考研] 299求調劑 +8 | 嗯嗯嗯嗯2 2026-03-27 | 8/400 |
|
|
[考研] 一志愿華東師范大學有機化學專業(yè),初試351分,復試被刷求調劑! +9 | 真名有冰 2026-03-29 | 10/500 |
|
|
[考研] 070300化學354求調劑 +15 | 101次希望 2026-03-28 | 15/750 |
|
|
[考研] 英一數(shù)一總分334求調劑 +4 | 陳陽坤 2026-03-31 | 4/200 |
|
|
[考研] 調劑310 +13 | 溫柔的晚安 2026-03-25 | 14/700 |
|
|
[考研] 調劑 +4 | GK72 2026-03-30 | 4/200 |
|
|
[考研] 311求調劑 +10 | lin0039 2026-03-26 | 10/500 |
|
|
[考研] 本科雙非材料,跨考一志愿華電085801電氣,283求調劑,任何專業(yè)都可以 +6 | 芝士雪baoo 2026-03-28 | 8/400 |
|
|
[考研] 求調劑 +4 | 零八# 2026-03-27 | 4/200 |
|
|
[考研] 321求調劑 +6 | wasdssaa 2026-03-26 | 6/300 |
|