[表示 : 全て 最新50 1-99 2chのread.cgiへ]
Update time : 05/09 23:59 / Filesize : 32 KB / Number-of Response : 91
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

　【FORTRAN７７】　ﾌﾟﾛｸﾞﾗﾑを起動させて！！

32 名前：名無しさん＠３周年 [03/07/13 15:17]
Fortranが懐かしいので参加してみる。

17さんのコードだと、階乗の処理ができておらんです。
階乗をくっつけたらこうかな。
PROGRAM TAYLOR
IMPLICIT NONE
INTEGER*8 N,AN
REAL*8 EPS,X,SINX,TMP,A1,A2
EPS = 1.0E-09
DO X = 0.0, 3.2, 0.2
SINX = 0.0
DO N = 0, 100
A1 = 1.0
DO AN = 1, 2*N+1
A1 = REAL(AN)*A1
END DO
A2 = REAL((-1)**N)
TMP = (A2*(X**REAL(2*N+1)))/A1
SINX = SINX + TMP
! PRINT *,ABS(TMP),TMP,A1,A2
IF (ABS(TMP) .LT. EPS)THEN
WRITE(*,600) X,SINX
GOTO 1000
END IF
END DO
1000 CONTINUE
END DO
600 FORMAT('SIN(X=',F6.2,')=',2X,E12.4)
END

　一応ちゃんとサインカーブになってると思うけど。




[ 続きを読む ] / [ 携帯版 ]
全部読む 次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（*・∀・）＜32KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef