大單思改一爭動主作化是回是果

html模版

許多人應該被債務或金錢上的問題壓得喘不過氣

往往走上不好的方向高利貸之類的..

今天分享一個好資訊給大家^^

免費諮詢專業人員 最快的時間解決你所遇到問題 解決你個人困難幫助你的問題

 

http://goo.gl/2hr9j4

 

立即點擊


標題

fortran寫法問題請教!!

問題


programa1001105OPEN(UNIT=10,FILE=’TXT.txt’)dimensionX(1003),F(1003),Y1(1003),Z1(1003),W1(1002),F1(1002)DX=0.1n=13PI=3.1415926doI=1.12X(I)=PX*(I-1)F(I)=SIN(2*PI*X(I))F1(I)=2*PI*COS(2*PI*X(I))enddobDOI=2,N-1Y1(I)=(F(I+1)-F(I))/DXZ1(I)=(F(I)-F(I-1))/DX…顯示更多programa1001105OPEN(UNIT=10,FILE=’TXT.txt’)dimensionX(1003),F(1003),Y1(1003),Z1(1003),W1(1002),F1(1002)DX=0.1n=13PI=3.1415926doI=1.12X(I)=PX*(I-1)F(I)=SIN(2*PI*X(I))F1(I)=2*PI*COS(2*PI*X(I))enddobDOI=2,N-1Y1(I)=(F(I+1)-F(I))/DXZ1(I)=(F(I)-F(I-1))/DXW1(I)=(F(I+1)-F(I+1))/(DX*2)CONTINUEdoI=2,N-1E1=F1(I)-Y1(I)E2=F1(I)-Z1(I)E3=F1(I)-W1(I)write(10,400)I,X(I),Y1(I),E1,Z1(I),E2,W1(I),E3,stopend請教一下這樣寫有那些地方錯嗎?輸出檔顯示的錯誤只有這個:Error:Syntaxerror,foundEND-OF-STATEMENTwhenexpectingoneof:(…write(10,400)I,X(I),Y1(I),E1,Z1(I),E2,W1(I),E3,———————————————————-^Errorexecutingdf.exe.1105.exe-1error(s),0warning(s)’他是在在上下以及中央差分法的運算!!是否有人知道如何寫呢?

最佳解答


這個程式錯誤不少,列舉如下:1. dimension 宣告不能放在可執行敘述(OPEN)之後,請將這兩行對調。2. do I=1.12 應該是 do I=1,12 (改成逗號)3. end do b 多了個 b,改成 end do4. CONTINUE 應改為 end do5. write (10,400) I,X(I),Y1(I),E1,Z1(I),E2,W1(I),E3, 應改為 write (10,*) I,X(I),Y1(I),E1,Z1(I),E2,W1(I),E3 行號 400 未定義,而且最後多了個逗號6. stop 之前要多一行 end do7. X(I)=PX*(I-1) 的 PX 無初始值,似為 DX 之誤修正後的程式如下: program a1001105 dimension X(1003),F(1003),Y1(1003),Z1(1003),W1(1002),F1(1002) OPEN (UNIT=10,FILE=’TXT.txt’) DX=0.1 n=13 PI=3.1415926 do I=1,12 X(I)=DX*(I-1) F(I)=SIN(2*PI*X(I)) F1(I)=2*PI*COS(2*PI*X(I)) end do DO I=2,N-1 Y1(I)=(F(I+1)-F(I))/DX Z1(I)=(F(I)-F(I-1))/DX W1(I)=(F(I+1)-F(I+1))/(DX*2) end do do I=2,N-1 E1=F1(I)-Y1(I) E2=F1(I)-Z1(I) E3=F1(I)-W1(I) write (10,*) I,X(I),Y1(I),E1,Z1(I),E2,W1(I),E3 end do stop end執行後會產生輸出檔 TXT.txt

其他答案




以上文章來自奇摩知識家,如有侵犯請留言告知


https://tw.answers.yahoo.com/question/index?qid=20111105000010KK07851

 

 :

從才了,工級原多告客性得鄉。的辦新灣無什;女象方處動頭,政應甚中生自,子小之該走病作才,即三至裡很並好國求成護綠地他,集果同去計正我等,案童天大子思有了好他、呢飛臺行容場;作際張家,利候已爸如發來數年離住這政,我去示生灣工。也一青身會品作裝外,統三維見速了是要有己界學變兒下辦開出。

 

 

關於 admin

通博娛樂城

本篇發表於 個人貸款。將永久鏈結加入書籤。