fortranでのプログラム作成について

質問

DO t=0,100
　　k(t)=0
　　IF (0<x<=1-at)then
　　k(t)=k(t)+1
　　 cycle
　　ELSE IF (1-at<x<=1)then
　　　　・
　　　　・
　　---------------------------------
　　　DO t=t1,100
　　　　　・
　　　　　・
　　　END DO
　　END IF
END DO

上記のプログラムをある目的で作っていて、線上の・・の部分で、1-at(aは少数)が乱数xより小さくなったときのt(t1)(tは整数)を求めて、線以下の・・でt1を用いたループを作りたいのですが、線上の・・の部分をどうすればt1が求められるのかがわかりません。アドバイスをいただけませんか？

回答No.2

Tacosan · ベストアンサー

1-at を「1 から変数 at を引いた値」と解釈すると, かっこ内の「a は小数」が無意味になります. それでいいのでしょうか?
で, この解釈では「外の DO ループでまわるごとに x を (乱数で) 定める」ということになるのですが, それはどこで行われているのでしょうか?
内側の DO ループで再度 t を制御変数に使うのは危険な気がするので, ここは変える方がいいような気がします. つまり内側の DO ループを
DO t1=t, 100
のようにしてしまうってことですね.
なお, このループだと「最小の t」ということにならないので, END IF の前に「外の DO ループから脱出する」という文を書く必要があります.

お礼

非常に参考になりました．ありがとうございました

回答No.1

Tacosan

「1-at(aは少数)が乱数xより小さくなったときのt(t1)」の意味がわかりません. 最後の t(t1) の意味を「そのような t を t1 とおく」と読んだとしても, 「最小の t」かどうかによってあとが変わる可能性があります. また, 1-at というのは Fortran では「1 から変数 at を引いた値」の意味ですが, その意味で解釈していいですか?

お礼

質問べたで申し訳ありませんでした．ありがとうございました

補足

質問下手で申し訳ありません。最小のtで、1-atもその解釈でお願いします