[問題] 實在是找不到BUG~"~
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
→
11/22 16:30, , 1F
11/22 16:30, 1F
→
11/23 09:48, , 2F
11/23 09:48, 2F
推
11/23 17:06, , 3F
11/23 17:06, 3F
→
11/24 01:00, , 4F
11/24 01:00, 4F
→
11/25 22:45, , 5F
11/25 22:45, 5F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 3 篇)：
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
