5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

●●fortran90で二分法を●●

1 :ルチャ:2001/02/25(日) 03:06
FORTRAN90を覚えたての者です。
二分法を使って方程式の解を求めるプログラムを
大至急作らねばならなくなったのですが、
やっと見つけたサンプルプログラムがBASICで書かれていて困ってます。

どなたかこのサンプル↓↓をFORTRAN90に書き換えてくださいませんか。
77でもいいのですが初心者なのでなるべく分かりやすくしてもらえると助かります。
明日本屋に行って探してからでは間に合いそうにありません。
ほんと勝手ですけど助けてください。わらにもすがる思いです。(TΔT)

2 :ルチャ:2001/02/25(日) 03:07
DEF FNY(X)=X^3+X-1
PRINT "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


3 :名無しさん@1周年:2001/02/25(日) 06:01
マルチポストうぜえ。消えろ。

4 :名無しさん@1周年:2001/02/25(日) 06:12
http://mentai.2ch.net/test/read.cgi?bbs=prog&key=983038489&to=3

5 :名無しさん@1周年:2001/02/25(日) 08:16
マルチポストあげ
http://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


6 :名無しさん@1周年:2001/02/25(日) 15:24
F90の日本語版ですけど、いいですか?

定義 関数わい(エックス) = エックス^三 + エックス - 一
書け "エックス^三+エックス+一 = 0 の二分法による数値計算"
あ=ゼロ ;い=一
なぜ 十, 3:書け"初期値 あ=" ;;書け 使う "##;あ
なぜ 十, 4:書け"初期値 い=" ;;書け 使う "##;い
行けサブ *2分
なぜ 15, 6:書け"近似解X=" ;;書け 使う "##.###";C
終わり

*2分: '二分法のサブルーチン
  *ああ:う=(あ+い)/2
もし 関数わい(う)*関数わい(あ)<0 それならば い=う 違うなら あ=う
もし 絶対(あ-い)>点ゼロゼロゼロ一 それなら *ええ
もどれ

7 :名無しさん@1周年:2001/03/01(木) 12:00
#挿入 <標準に入れて出して・エッチ!>

8 :名無しさん@1周年:01/12/24 22:17
,v‐--/l_
  _「   く   /
ΣlYノノ/ノlゝヽ))
  巛イ( l l )lヽ  / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
   《'|l、" ()"ノ|lヾ< けいちゃん!クリスマスまでクンクンしょんかな!?
  ,(ヨリ <><>リ'])  \______________
  |ト‐!]- |。∪]l
  ヽ_ノv_|。_l ヽ
.  ソ│ ‐个 /| ゞ
    │ , | ‖
    │_‖  |

9 :名無しさん@1周年:01/12/24 22:18
  ,v‐--/l_
  _「   く   /
ΣlYノノ/ノlゝヽ))
  巛イ( l l )lヽ  / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
   《'|l、" ()"ノ|lヾ< けいちゃん!クリスマスまでクンクンしょんかな!?
  ,(ヨリ <><>リ'])  \______________
  |ト‐!]- |。∪]l
  ヽ_ノv_|。_l ヽ
.  ソ│ ‐个 /| ゞ
    │ , | ‖
    │_‖  |

10 :名無しさん@1周年:02/02/26 01:54
(´ε`)

11 :pdd6e68.tkyoac00.ap.so-net.ne.jp:02/02/27 22:41
 bb

12 :名無しさん:03/01/03 01:02
        / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄\
Λ_Λ  | 君さぁ こんなスレッド立てるから          |
( ´∀`)< 厨房って言われちゃうんだよ             |
( ΛΛ つ >―――――――――――――――――――‐<
 ( ゚Д゚) < おまえのことを必要としてる奴なんて         |
 /つつ  | いないんだからさっさと回線切って首吊れ     |
       \____________________/

(-_-) ハヤクシンデネ… (-_-) ハヤクシンデネ… (-_-) ハヤクシンデネ…
(∩∩) (∩∩) (∩∩)

(-_-) ハヤクシンデネ… (-_-) ハヤクシンデネ… (-_-) ハヤクシンデネ…
(∩∩) (∩∩) (∩∩)

(-_-) ハヤクシンデネ… (-_-) ハヤクシンデネ… (-_-) ハヤクシンデネ…
(∩∩) (∩∩) (∩∩)


13 :山崎渉:03/01/11 05:21
(^^)

14 :記念巡り ◆KinenSe.yw :03/02/25 13:06
2周年記念、sage。

15 :山崎渉:03/03/13 13:21
(^^)

16 :山崎渉:03/04/17 09:03
(^^)

17 :山崎渉:03/04/20 04:09
   ∧_∧
  (  ^^ )< ぬるぽ(^^)

18 :山崎渉:03/05/21 22:15
━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―

19 :山崎渉:03/05/21 23:16
━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―

20 :山崎渉:03/05/28 14:34
     ∧_∧
ピュ.ー (  ^^ ) <これからも僕を応援して下さいね(^^)。
  =〔~∪ ̄ ̄〕
  = ◎――◎                      山崎渉

21 :山崎 渉:03/07/12 12:32

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄

22 :山崎 渉:03/07/15 12:49

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄

23 :山崎 渉:03/08/02 02:30
   ∧_∧
  (  ^^ )< ぬるぽ(^^)

24 :ぼるじょあ ◆yBEncckFOU :03/08/02 03:05
     ∧_∧  ∧_∧
ピュ.ー (  ・3・) (  ^^ ) <これからも僕たちを応援して下さいね(^^)。
  =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
  = ◎――――――◎                      山崎渉&ぼるじょあ

25 :山崎 渉:03/08/15 18:34
    (⌒V⌒)
   │ ^ ^ │<これからも僕を応援して下さいね(^^)。
  ⊂|    |つ
   (_)(_)                      山崎パン

7 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)