作者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