作者masto (momo)
看板Programming
標題[問題] FORTRAN問題
時間Sat Mar 1 21:05:08 2008
f=0.5
do i=0,3.49,0.01
fz0=f+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(i+1)**2./2.))))
fz(i)=fz0+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i+1)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(I+2)**2./2.))))
fz(I+1)=fz(i)+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i+2)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(I+3)**2./2.))))
fz(I+2)=fz(i+1)+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i+3)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(I+4)**2./2.))))
!fz(i)=fz(I+1)
end do
要跑到200可已幫我修改一下寫法嗎?
最後回到3.49
請指教 多謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.124.60.51
1F：→ MOONRAKER:就一直打到i+200就好了，不用別人幫忙 61.224.251.244 03/01 21:52
2F：→ MOONRAKER:才兩百行而已！有什麼好怕的！ 61.224.251.244 03/01 21:53
3F：→ masto:恩!看看有沒有更好的邏輯阿!卸卸大大分享 140.124.60.51 03/01 22:01
4F：→ MOONRAKER:…你知道do loop的用法吧？ 59.115.215.72 03/01 22:32
5F：→ MOONRAKER:你知道就不用打到i+200，不然就老實點 59.115.215.72 03/01 22:35
6F：→ MOONRAKER:這裡面根本無邏輯可言，只是找一找 59.115.215.72 03/01 22:35
7F：→ MOONRAKER:基本指令怎麼用，就這樣而已 59.115.215.72 03/01 22:35
8F：→ youling0725:do i=200,3.49,-0.01 <-這樣吧 122.116.39.75 03/02 09:48
9F：→ youling0725:2年沒碰Fortran 122.116.39.75 03/02 09:49