トップページ⇒tech
22コメント5KB

あってる？

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。NGNG
IMPLICIT REAL*8(A-H＠｀O-Z)
C
PARAMETER(NI=20)
PARAMETER(L=NI+1)
DIMENSION A(0:L)＠｀B(0:L)＠｀C(0:L)＠｀D(0:L)＠｀T(0:L)＠｀Q(0:L)＠｀X(0:L)

RAMD=1.0
DLX=1.0
T1=1.0
T2=0.0
DX=DLX/DBLE(NI)
DO 10 I=1＠｀NI
Q(I)=0.0
10 CONTINUE
DO 11 I=1＠｀L
A(I)=-RAMD/DX/DX
B(I)=2.0*RAMD/DX/DX
C(I)=-RAMD/DX/DX
D(I)=Q(I)
11 CONTINUE
B(0)=0.5
C(0)=0.5
D(0)=T1
A(L)=0.5
B(L)=0.5
D(L)=T2
C
D(0)=D(0)/B(0)
C(0)=C(0)/B(0)
C
DO 20 I=1＠｀L
B(I)=B(I)-A(I)*C(I-1)
C(I)=C(I)/B(I)
D(I)=(D(I)-A(I)*D(I-1))/B(I)
20 CONTINUE
C
DO 21 I=NI＠｀0＠｀-1
D(I)=D(I)-C(I)*D(I+1)
21 CONTINUE
C
DO 22 I=1＠｀NI
X(I)=DBLE(I)*DX-DX*0.5
T(I)=D(I)
WRITE(6＠｀'(2E15.6)')X(I)＠｀T(I)
22 CONTINUE
STOP
END
0002名無しさん＠お腹いっぱい。NGNG
うん
0003名無しさん＠お腹いっぱい。NGNG
じゃ、なんでちゃんと動いてくれないんだろう・・・
0004名無しさん＠お腹いっぱい。NGNG
なんでだろーー？？？？？？？？
0005名無しさん＠お腹いっぱい。NGNG
cc でコンパイルしたに300カノッサ
0006名無しさん＠お腹いっぱい。NGNG
秀丸で書いて
a.fで、保存して
DOSスクリプトG77 a.fでやったら
エラー、エラー
0007名無しさん＠お腹いっぱい。NGNG
これ何言語？
0008名無しさん＠お腹いっぱい。NGNG
本物のプログラマの言語、FORTRANだ。>7
まさか各行頭の空白が足りないとか言うなよ。>1
0009名無しさん＠お腹いっぱい。NGNG
これがFORTRANか、
名前は聞いたことあったけど初めてお目にかかったよ、
なんか行番号の無いベーシックみたいだ
0010名無しさん＠お腹いっぱい。NGNG
なんか普通に流されてるが
スレ立てるほどの物でもなく
ギコ逝きが正しいと思うのだが
0011キロス＞１０NGNG
と、淋しがるギコ猫さんでした
0012名無しさん＠お腹いっぱい。NGNG
ちゃんと７行空けたよ
0013名無しさん＠お腹いっぱい。NGNG
７カラム？
0014赤ちゃんNGNG
C行除いて、行頭に6つのスペースを付加っちゅ。
SunOS 5.6 を使用っちゅ。

>f77 test.f
test.f:
MAIN:
>a.out
0.250000E-01 0.975000E+00
0.750000E-01 0.925000E+00
0.125000E+00 0.875000E+00
0.175000E+00 0.825000E+00
0.225000E+00 0.775000E+00
0.275000E+00 0.725000E+00
0.325000E+00 0.675000E+00
0.375000E+00 0.625000E+00
0.425000E+00 0.575000E+00
0.475000E+00 0.525000E+00
0.525000E+00 0.475000E+00
0.575000E+00 0.425000E+00
0.625000E+00 0.375000E+00
0.675000E+00 0.325000E+00
0.725000E+00 0.275000E+00
0.775000E+00 0.225000E+00
0.825000E+00 0.175000E+00
0.875000E+00 0.125000E+00
0.925000E+00 0.750000E-01
0.975000E+00 0.250000E-01
0015名無しさん＠お腹いっぱい。NGNG
え！それ、答え！？
0016名無しさん＠お腹いっぱい。NGNG
７行→６行にしたら、答え出ました
ありがとう、１４番さん
抱いて
0017名無しさん＠お腹いっぱい。NGNG
新たな質問。
DOSプロンプトに答えが出たんですが
テキストに出したいときってどうすればいいんですか？
コピペしかないですか？
0018名無しさん＠お腹いっぱい。NGNG
>>17
リダイレクトしろ
0019名無しさん＠お腹いっぱい。NGNG
りだいれくと？
0020名無しさん＠お腹いっぱい。NGNG
%a.out > giko
0021名無しさん＠お腹いっぱい。NGNG
>>17
横やりですが
キー入力と結果をまとめてテキストに落としたいのですが。
0022名無しさん＠お腹いっぱい。NGNG
>>21
プログラムが自分で入力をエコーバックするように書きかえれ。
■ このスレッドは過去ログ倉庫に格納されています