 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 3402 | 回復: 9 | ||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | ||
[求助]
為什么Fortran調(diào)試無錯誤運行不出結(jié)果 已有2人參與
|
||
|
program main parameter n=600 double precision u(0:n),u1(0:n),x0,x1,x,t0,t1,h,dett,lambda,y(0:n) integer i,j x0=0.0d0 x1=6.0d0 t0=0.0d0 lambda=0.3d0 t1=0.5d0 h=0.01d0 dett=0.003d0 x=x0 !do i=0,n,1 !if(i<=250)then !y(i)=1.0 !else ! y(i)=0 !end if ! end do do i=0,n,1 if(x>=1 .and. x<=3) then u(i)=1.0d0 else u(i)=0.0d0 end if x=x+h end do open(1,file="yingfeng.dat"  t=t0+dett x=x0 do while(t<=t1) x=x0+h do j=1,n,1 u1(j)=u(j)-3*lambda*(u(j)-u(j-1)) if(abs(t-0.5)<=0.0001)then write(1,*)x,u1(j),y(j) end if x=x+h end do do j=1,n-1 u(j)=u1(j) u(0)=1 u(1)=0 end do t=t+dett end do stop end 求大神指導，為啥這個程序運行后yingfeng.dat文件里面啥數(shù)據(jù)都沒有 |
回復此樓» 猜你喜歡
調(diào)劑
已經(jīng)有0人回復
-
【新加坡】納米電子器件項目組有“聯(lián)合培養(yǎng)博士生”名額
已經(jīng)有0人回復
-
物理學I論文潤色/翻譯怎么收費?
已經(jīng)有199人回復
-
中德博士后2026項目5月30日截止- 國內(nèi)博士后入站、德國兩年全職
已經(jīng)有0人回復
-
面向全球申請人的中德博士后2026項目5月30日截止- 國內(nèi)博后入站德國兩年全職
已經(jīng)有0人回復
-
【新加坡】納米電子器件項目組有“聯(lián)合培養(yǎng)博士生”名額
已經(jīng)有2人回復
-
重慶交大材料學院26年碩士招生復試實施細則已出。歡迎加入光子學微結(jié)構(gòu)與器件課題組。
已經(jīng)有0人回復
-
北工大宋曉艷教授團隊招收2026年9月入學博士【學博和專博名額均有】！
已經(jīng)有1人回復
-
天津城建大學理學院化學、環(huán)境工程、材料物理等方向接收10人
已經(jīng)有0人回復
-
天津城建大學理學院化學、環(huán)境工程、材料物理等方向接收調(diào)劑，10人
已經(jīng)有0人回復
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- Intel fortran與visual fortran
已經(jīng)有11人回復
- FORTRAN
已經(jīng)有0人回復
- Fortran
已經(jīng)有7人回復
- 已經(jīng)安裝studio，為什么還是不能安裝Fortran呢？
已經(jīng)有0人回復
- 開始學習FORTRAN，結(jié)果殺毒軟件總是認為生成的exe程序是木馬，要求刪掉，為什么呢？
已經(jīng)有7人回復
- fortran
已經(jīng)有4人回復
- Fortran77 代碼調(diào)試中提示有Syntax error，但卻不知道為什么出錯。望高人指點！
已經(jīng)有4人回復
- fortran循環(huán)求助
已經(jīng)有3人回復
- Fortran 求解復數(shù)矩陣SVD時，用到cgesvd，結(jié)果與matlab不同，為什么？
已經(jīng)有15人回復
- fortran里的intrisic function: precision()x結(jié)果表示什么意思
已經(jīng)有5人回復
- fortran 程序修改后改回來，計算結(jié)果不同？？？為什么會這樣
已經(jīng)有2人回復
- data 給fortran 的二維數(shù)組如何命名？為什么老出錯，解決送金幣
已經(jīng)有1人回復
- fortran輸出結(jié)果為0
已經(jīng)有3人回復
- fortran 程序有write和沒有write兩種情況計算的結(jié)果為什么會不一樣?
已經(jīng)有14人回復
- fortran輸出求助
已經(jīng)有6人回復
- 幫忙把公式轉(zhuǎn)化為FORTRAN子程序
已經(jīng)有6人回復
- fortran中計算數(shù)據(jù)寫入文本為 NAN的問題
已經(jīng)有4人回復
- 剛開始學Fortran 幫忙看一下這個程序 為什么算不出結(jié)果
已經(jīng)有3人回復
- fortran斷點
已經(jīng)有2人回復
- fortran 運行問題
已經(jīng)有2人回復
- 【求助】請問有什么軟件可以將C語言代碼轉(zhuǎn)換為fortran嗎？
已經(jīng)有7人回復
送紅花一朵 7樓2016-01-03 09:34:43
bennett_14
木蟲 (正式寫手)
- 應(yīng)助: 11 (小學生)
- 金幣: 7204.8
- 紅花: 4
- 沙發(fā): 1
- 帖子: 932
- 在線: 421.5小時
- 蟲號: 1073877
- 注冊: 2010-08-13
- 性別: GG
- 專業(yè): 計算機科學
2樓2016-01-02 16:09:59
bennett_14
木蟲 (正式寫手)
- 應(yīng)助: 11 (小學生)
- 金幣: 7204.8
- 紅花: 4
- 沙發(fā): 1
- 帖子: 932
- 在線: 421.5小時
- 蟲號: 1073877
- 注冊: 2010-08-13
- 性別: GG
- 專業(yè): 計算機科學
3樓2016-01-02 16:35:26
4樓2016-01-02 17:51:51
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 【求調(diào)劑】085601材料工程專碩 | 總分272 | +5 | 腳滑的守法公民 2026-03-27 | 5/250 |
|
|---|---|---|---|---|
|
|
[考研] 0703一志愿9，初試成績：338，四六級已過，有科研經(jīng)歷，求調(diào)劑！ +3 | Zuhui0306 2026-03-25 | 3/150 |
|
|
|
[材料工程] 一志愿C9材料與化工專業(yè)總分300求調(diào)劑 +7 | 曼111 2026-03-24 | 8/400 |
|
|
[考研] 334求調(diào)劑 +3 | 雨清天晴 2026-03-21 | 3/150 |
|
|
|
[考研]
材料調(diào)劑
 5+4
|
想要一壺桃花水 2026-03-25 | 10/500 |
|
|
|
[考研]
 085602 289分求調(diào)劑
+8
|
WWW西西弗斯 2026-03-24 | 8/400 |
|
|
|
[考研] 一志愿河工大 081700 276求調(diào)劑 +4 | 地球繞著太陽轉(zhuǎn) 2026-03-23 | 4/200 |
|
|
|
[考研] 347求調(diào)劑 +4 | L when 2026-03-25 | 4/200 |
|
|
|
[考研] 318求調(diào)劑 +5 | plum李子 2026-03-21 | 8/400 |
|
|
|
[考研] 300分，材料，求調(diào)劑，英一數(shù)二 +5 | 超贊的 2026-03-24 | 5/250 |
|
|
|
[考研] 080500求調(diào)劑 +3 | zzzzfan 2026-03-24 | 3/150 |
|
|
|
[考研] 一志愿吉大化學322求調(diào)劑 +4 | 17501029541 2026-03-23 | 6/300 |
|
|
|
[考研] 求調(diào)劑 +7 | 十三加油 2026-03-21 | 7/350 |
|
|
|
[考研] 361求調(diào)劑 +3 | Glack 2026-03-22 | 3/150 |
|
|
|
[考研] 384求調(diào)劑 +3 | 子系博 2026-03-22 | 6/300 |
|
|
|
[考研] 070300，一志愿北航320求調(diào)劑 +3 | Jerry0216 2026-03-22 | 5/250 |
|
|
|
[考研] 276求調(diào)劑 +3 | YNRYG 2026-03-21 | 4/200 |
|
|
|
[考研] 生物學調(diào)劑 +5 | Surekei 2026-03-21 | 5/250 |
|
|
|
[考研] 求調(diào)劑 +5 | Zhangbod 2026-03-21 | 7/350 |
|
|
|
[考研] 求助 +5 | 夢里的無言 2026-03-21 | 6/300 |
|