●●fortran90で二分法を●●
■ このスレッドは過去ログ倉庫に格納されています
0001ルチャ
NGNG二分法を使って方程式の解を求めるプログラムを
大至急作らねばならなくなったのですが、
やっと見つけたサンプルプログラムがBASICで書かれていて困ってます。
どなたかこのサンプル↓↓をFORTRAN90に書き換えてくださいませんか。
77でもいいのですが初心者なのでなるべく分かりやすくしてもらえると助かります。
明日本屋に行って探してからでは間に合いそうにありません。
ほんと勝手ですけど助けてください。わらにもすがる思いです。(TΔT)
0002ルチャ
NGNGPRINT "X^3+X+1=0 の二分法による数値計算"
A=0 ;B=1
LOCATE 10, 3:PRINT"初期値a=" ;;PRINT USING "##;A
LOCATE 10, 4:PRINT"初期値b=" ;;PRINT USING "##;B
GOSUB *NIBUN
LOCATE 15, 6:PRINT"近似解X=" ;;PRINT USING "##.###";C
END
*NIBUN: '二分法のサブルーチン
*AA:C=(A+B)/2
IF FNY(C)*FNY(A)<0 THEN B=C ELSE A=C
IF ABS(A-B)>.0001 THEN *AA
RETURN
0004デフォルトの名無しさん
NGNG0005デフォルトの名無しさん
NGNGhttp://mentai.2ch.net/test/read.cgi?bbs=prog&key=983038489
http://piza.2ch.net/test/read.cgi?bbs=tech&key=983038656
http://cocoa.2ch.net/test/read.cgi?bbs=unix&key=983038745
http://mentai.2ch.net/test/read.cgi?bbs=infosys&key=983037683
http://mentai.2ch.net/test/read.cgi?bbs=sim&key=983037987
http://cheese.2ch.net/test/read.cgi?bbs=sci&key=983037846
http://cheese.2ch.net/test/read.cgi?bbs=math&key=983038350
■ このスレッドは過去ログ倉庫に格納されています