作者junny621 (junny)
看板Fortran
標題[問題] 實在是找不到BUG~"~
時間Tue Nov 22 15:45:02 2011
1 do i=1,n
2 if(t(i)>216d0)then
3 cp(i)=1060
4 else if(184d0<t(i).and.t(i)<=216d0)then
5 cp(i)=1500
6 else if(182d0<t(i).and.t(i)<=184d0)then
7 cp(i)=2000
8 else if(t(i)<=182d0)then
9 cp(i)=1190
t(i)從232開始降溫
程式開始跑
跑到T(i)=216就會停下來(就跑到216.001589519226300就不繼續往下了~"~)
如果將第4行後面改成t(i)<=215.95d0才能繼續跑
第6行也有相同問題t(i)<=183.95d0才能繼續跑
但這屬於偷吃步所以值有問題
實在是找不到BUG 請求板上高手幫忙
謝謝~~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.78.53
1F：→ latinboy: 不繼續往下是什麼意思? 當機? 跳出? 11/22 16:30
2F：→ Cypresslin:你的t(i)降溫機制是什麼？由程式算還是外部讀入？ 11/23 09:48
3F：推 target8917:實數盡量不要比大小 11/23 17:06
4F：→ jubilee2:不繼續往下是什麼意思? 跳出? cp(i)=0 ?? 11/24 01:00
5F：→ weichich:可以偷問一下這是熱傳的作業嗎XD 11/25 22:45