[問題] FORTRAN問題

看板Programming作者 (momo)時間17年前 (2008/03/01 21:05), 編輯推噓0(009)
留言9則, 3人參與, 最新討論串1/4 (看更多)
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

03/01 21:52, , 1F
就一直打到i+200就好了,不用別人幫忙
03/01 21:52, 1F

03/01 21:53, , 2F
才兩百行而已!有什麼好怕的!
03/01 21:53, 2F

03/01 22:01, , 3F
恩!看看有沒有更好的邏輯阿!卸卸大大分享
03/01 22:01, 3F

03/01 22:32, , 4F
…你知道do loop的用法吧?
03/01 22:32, 4F

03/01 22:35, , 5F
你知道就不用打到i+200,不然就老實點
03/01 22:35, 5F

03/01 22:35, , 6F
這裡面根本無邏輯可言,只是找一找
03/01 22:35, 6F

03/01 22:35, , 7F
基本指令怎麼用,就這樣而已
03/01 22:35, 7F

03/02 09:48, , 8F
do i=200,3.49,-0.01 <-這樣吧
03/02 09:48, 8F

03/02 09:49, , 9F
2年沒碰Fortran
03/02 09:49, 9F
文章代碼(AID): #17oLI57C (Programming)
文章代碼(AID): #17oLI57C (Programming)