みんなのFortranコミュの教えてください、お願いします。

たぶん、初歩の初歩なのですが…
どうしてもできないんです。お願いします。

ＩＦＬと名づけたテキストファイル(１と０で作った図)を取り込んで、ＩＢＤと名づけたファイルに書き込む。
簡単に言ったらこういうことをしているのですが…。

例えば、このような図を取り込む感じです。
111110000111111111
111101111011111111
111011111101111111
111011111101111111
111101111011111111
111110000111111111
この図はちゃんとテキストファイルに一列にしてから取り込んでます。

そして、この図をこのようにしたいのです。
000001111000000000
000010000010000000
000100000001000000
000100000001000000
000010000010000000
000001111000000000

　　parameter(m=25,m1=25)
　　INTEGER IFL3(m,m1),IBD(m,m1)
　　INTEGER J25,I25
　　OPEN(1,file='C:\Documents and Settings\IFL.txt')
　　DO 10 I=1,25
　　DO 20 J=1,25
　　READ(1,*)IFL(I,J)
20 CONTINUE
10 CONTINUE
　　CLOSE(1)
C
　　J25=25
　　I25=25
　　DO 222 J = 1,J25
　　DO 222 I = 1,I25
　　IBD (I,J) = 0
222 CONTINUE
C
　　DO 230 J = 1,J25
　　DO 231 I = 1,I25-1
　　IF(IFL(I+1,J)-IFL(I,J).EQ.-1) IBD(I,J) = 1
231 CONTINUE
　　DO 232 I = I25,2,-1
　　IF(IFL(I,J)-IFL(I-1,J).EQ.1) IBD(I,J) = 1

232 CONTINUE
230 CONTINUE
　　DO 250 I = 1,I25
　　DO 251 J=1,J25-1
　　IF(IFL(I,J)-IFL(I,J+1).EQ.-1) IBD(I,J) =1
251 CONTINUE
　　DO 252 J = J25,2,-1
　　IF(IFL(I,J-1)-IFL(I,J).EQ.1) IBD(I,J)=1
252 CONTINUE
250 CONTINUE
　　OPEN(1,file='IBD.dat')
　　DO 253 I=1,I25
　　DO 254 J=1,J25
　　WRITE(1,*) IBD(I,J)
254 CONTINUE
253 CONTINUE
　　CLOSE(1)
　　STOP
　　END

上のようなプログラムなんですが、やってみると何故か、1が２列並んだりするのです。
こんな感じです。
00001111110000000
00011000011000000
00110000001100000
00110000001100000
00011000011000000
00001111110000000

どなたか、教えていただけないでしょうか。
よろしくお願いします。

コメント(3)

最初
全て
最新の40件

[1] mixiユーザー 09月08日 07:36

> そして、この図をこのようにしたいのです。

具体的にどういう処理をしたいか書いてくれると答えやすいのですが。。

とりあえず，スレで書いてある条件を満たすなら，
230 で回ってる if の条件を，
-1 を 1 に，1 を -1 に替えればいいと思いますよ。

[2] mixiユーザー 02月05日 01:34

自分でフォートランを勉強し始めたのですが。。。
早くも壁にぶつかってしまいました。。

以下の問題について, プログラムを作成したいのですがどなたかお願いできないでしょうか？？

[1] (m, n) を1 から20 までの整数(1 ≤ m ≤ 20, 1 ≤ n ≤ 20) として, Fm,n が次のような式で表されるとする。
(1) Fm,n の値が最大及び最小となるような(m, n) の組をそれぞれ求めよ(|...| は絶対値を表す)。また最大値・最小値を求めよ。
(2) 400 組の(m, n) に対するFm,n の平均値を計算せよ。

肝心の問題のほうは文字として表わせない記号とかいくつかあったので、
写真で貼り付けておきます。
よろしくお願いします！！（＞＜）

ログインすると、みんなのコメントがもっと見れるよ