fortranでtxtファイルの数値データを処理する方法

前へ 次へ
このQ&Aのポイント
  • fortranでプログラムを作りたいのですが、txtファイルの数値データを処理する方法について教えてください。
  • fortranのopen文でどんなファイルを開けるのか、また処理できるファイルの種類についても知りたいです。
  • ファイル名が1～100のように順番になっている場合、fortranでそれぞれのファイルを開いて計算処理することは可能でしょうか？
回答を見る
  • ベストアンサー

fortranでプログラムを作りたいのですが

今学校で、txtファイルの数値データを数式処理しているのですが、そのtxtファイル数が多く、一つ一つエクセルで開いてやるのがとても面倒くさくて(エクセルの中ではマクロで処理しているが)困ってます。 　そこでfortranでプログラミングして処理しようかと思っているのですが、それに関してわからない事があります １．fortranのopen文はどんなファイルでも開けるか？ ２．またfortranで開いて、計算処理できるファイルはtxt datなどのファイルしかないのか？ ３．ファイル名が1～100のように順番になっている時1～100まで順番で開いて、それぞれに計算処理出　　来るようなプログラムは可能か？

質問者が選んだベストアンサー

  • ベストアンサー
  • Tacosan
  • ベストアンサー率23% (3656/15482)
回答No.1

順に: 1: どんなファイルでも open できます. 2: データがどのようにファイルに格納されているかによりますが, 基本的にはどんなファイルから読み込んでも処理できます. 3: ファイル名を実行時に生成できればいいはずなので, ``file1''～``file100'' に対して処理をするんだったらこんな感じ? DO I = 1, 100 WRITE(filename, '(''file'', I3)') I OPEN(10, FILE=filename) ここでユニット番号 10 に対して処理をする CLOSE(10) END DO

gifgif2000
質問者

お礼

ありがとうございました。解決しました。 ありがとうございました！

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • fortran77で複数のファイルの読み込み

    fortran77で複数のファイルの読み込み 現在fortran77のプログラムを勉強しております。 ファイルが複数あり、すべてのファイルを読み込みたいのですが、ファイルの数がたくさんあるため、プログラムの行数が多くなってしまいます。 do ループで次々とファイルを開くプログラムを考えているのですが、思いつきません。 どなたか考え方でもいいので、教えてください。 ちなみに私が考えたプログラムは、 open(10,file='C:\FORTRAN\100.txt',status='old') open(11,file='C:\FORTRAN\121.txt',status='old') open(12,file='C:\FORTRAN\144.txt',status='old') open(13,file='C:\FORTRAN\169.txt',status='old') open(14,file='C:\FORTRAN\196.txt',status='old') open(15,file='C:\FORTRAN\225.txt',status='old') ・・・。 これを do ループで次々に開くことを考えると、 character*3 A(10) do 100 i=1,10 A=i*i open(i,file='C:\FORTRAN\A.txt',status='old') 100 continue ・・・ みたいな感じです。 ' 'の中の一部だけを変えたい場合のcharacter 文の使い方がいまいちよく分かりません。

  • ＦＯＲＴＲＡＮのプログラム

    今、実験の解析を行っています。 読み込みたいテキストファイルには -1,0.4 0,0,233 -1,0.9 ・・など左側には－１か０のどちらかがあります。 これを -1,0.4 -1,0.9 を含むファイルと 0,0.0233 を含むファイルの二つに分けたいのです。 今プログラムを作っているのですがどうしてもできません。 どうしたらいいのでしょうか？ program dat real x(10), y(10) open(7,file='test.txt') do i=1,10 read(7,*,end=200) x(i),y(i) end do do j=1,10 if(x(j).eq.0.0) then open(8,file='aftest1.txt') write(8,*) y(j) else open(9,file='aftest2.txt') write(9,*) y(j) end do close(8) close(9) 200 close(7) end

  • C言語からのFortranプログラムの呼び出し

    Fortranで記述した以下のような構成の有限要素法プログラムをC言語から呼び出したいのですが，具体的にどのようなコードを記述すればいいのかがわかりません．お教えいただけないでしょうか． サブルーチンinputおよびoutputでは入力および結果ファイルの入出力を行っています． 当方C言語はほぼ初心者です．Fortranのプログラミング環境としてはVisualStudio2005およびVisualFortran9.1を用いています． C言語のプログラミング環境としてはおなじくVisualStudio2005を使用したいとおもっております． [メインプログラム] open (5,file='input.dat') open (6,file='output.dat')　/入出力用のファイルを開く call input(parameter1) /各サブルーチンで有限要素法を実行 call bound(parameter2) call matrix(parameter3) call solve(parameter4) call output(parameter5) close (5) /入出力用のファイルを閉じる close (6) stop end

  • FORTRANでGUIプログラム

    FORTRANでGUIプログラム FORTRANでGUIを持ったWINアプリを作成することは不可能でしょうか？ 現在自作でFEMプログラムをつくっています。入力ファイルはその度簡単なプログラムをつくって作成するか，汎用のプリプロセッサを利用しています。解析結果は自作で応力図などをeps形式で可視化してはきだすようにしていますが，市販のプログラムのように，画面上で節点や要素を作成していき，それがリアルタイムに画面に表示されて，入力ファイル作成から解析，後処理までをすべてマウス操作でできるようにしたいです。 C++ではできることは分かるのですが，FORTRANしか使ったことないので，FORTRANで作りたいと思っているのですが，やはり数値解析以外のことはFORTRANでやるのは無理なのでしょうか？FORTRANでプリプロセッサが自作できるかどうか，もし可能なら参考書籍などがあれば教えていただきたいです。よろしくお願いします。

  • Fortran90/Fortran95→Fortran77

    大学の授業でFortranを使ったプログラミングを勉強しています。 以下の文が大学のPCに入っているコンパイラでは問題なくコンパイルでき実行できるのですが、家のPCだとコンパイルすることが出来ません(以下の文でエラーが出ます) 大学のPCの開発環境はFujitsu-FORTRANだと思います(^ ^; 家のPCはSalford FTN77 Personal Edition CompilerとCPad for Salford FTN77を組み合わせて使用しています なぜエラーがでるのか自分なりに考えた結果、Fortran90/Fortran95のプログラムをFortran77のコンパイラでコンパイルしているからだと思います(全くの勘違いだったら指摘して下さい) Fortran90/Fortran95の開発環境がフリーで整えばいいのですが、見つからないのでプログラムを修正したいと思います　そこで、力を貸していただきたいのです 前置きが長くなりましたが、エラーが出る文は以下のところです open(8,file='freq_ex13.dat',action='write',status='replace') ここを、Fortran77のコンパイラでコンパイルできるようにアドバイスを下さい　よろしくお願いします

  • FORTRANのプログラミング

    FORTRANに関する質問です。 今、実験のデータ解析を行っているのですが、 データの数が多くて困っています。 プログラムで行いたいのは、データが1.txt,2.txt......100.txtとあります。 1.txtなどにはテキスト形式で、 ２、４ ６、８ ・・・・・・・・ などデータが入っています。 これら２×４＋６×８・・・・・・・・・・ と計算を行い、それらの結果をout1.txt,out2.txt.............out100.txt と計算を行いたいのですがどのようにプログラムを組めばいいかよくわかりません。 とくにファイルの入出力に関してです。 ご解答よろしくお願いします。

  • 【fortran77】空行を含む数値データの読み込み

    fortran77でプログラムを書いています。 いま以下のような空行を含むデータファイルを読み込んで、プログラム中で計算し、その結果を別のファイルに書き出すものを作りたいと考えています。 1.0 1.1 1.2 1.3 1.0 1.4 1.5 1.6 2.0 2.1 2.2 2.3 2.0 2.4 2.5 2.6 3.0 3.1 3.2 3.3 3.0 3.4 3.5 3.6 ＊数字はあくまでも例です。 例えば、1列目が2.0で始まる箇所のみ取り出したいのですが、どうもデータの読み込みのところでエラーが起こっているようです。 open(1,file="data.dat") do i = 1,8 read(1,*) (a(i,j),j=1,4) enddo 空行や空白の読み飛ばしを行う方法を自分なりに調べてみて、open文にblankを指定するなどの方法があることはわかったんですが、いまいち使いかたがわからず立ち止まってしまいました。 よろしくお願いします。

  • Fortran;入出力の繰り返し

    　まだまだFortran初心者なのですがよろしくお願い致します。 　Fortranを用いて数値計算を行っておりまして、読み込ませたいデータが100ほどあるのですが（data1, data2, …, data100、というデータファイルでして、ヘッダーは同じで読み込ませたい数値のみが異なっています。）、1つずつ読み込ませるのはかなり効率悪いので連続して全てを一気に読み込ませるたいのですが、そのためにはどうしたらよいのか悩んでいます。 　同様に結果のファイル（result1, result2, …, result100）も全て自動で書き出したいので、どちらもopen文をdo-continueでくくればよいのかとも思いやってみましたが上手く行きませんでした。（このようにしますとresult100のみしか作成されません） 　 　かなり見当違いのことをやってしまっているのかもしれませんが、周囲にはFortranユーザーはおりませんので、こちらに質問させて頂きました。 　正しいプログラムの書き方やアドバイスなど、ご教授頂ければ幸いです。

  • fortranでプログラムを実行するとEnd of fileと表示されてしまいます

    fortran初心者です。 以下のプログラムのコンパイルは出来るのですが、実行すると At line 9 of file ./rennsyu1.f90 Fortran runtime error: End of file というエラーがでてしまいます。 End of fileが何を意味するのか解からず対処が出来ません。 一つ言えることは、open文を使用すると必ずこのエラーが出てしまうということです。 どなたか、End of fileの意味と対処法を教えてください。 プログラム　 既存のファイルxx.txtからx1とx2の値を読み取り、画面に出力させる。 program rennsyu1 implicit none real :: x(2) integer :: i open (17 , file = ' xx.txt ' ) do i = 1 , 2 read (17 , *) , x(i) write (6 , *) " x = " , x(i) end do close(17) stop end program rennsyu1

  • FORTRANのプログラミングについて

    たびたび申し訳ありません。 またFORTRANに関しての質問です。 x y z 0 0 30 1 0 45 2 0 60 3 0 43 4 0 51 5 0 32 0 1 43 1 1 90 2 1 32 3 1 85 4 1 65 5 1 90 0 2 32 1 2 32 と続くファイルがあります。これをFORTRANをで書き換えて、 0 0 30 0 1 43 0 2 32 1 0 45 1 1 90 1 2 32 と続くデータにしたいのです。（これを以下目的のファイルという） 今のところ、次のようなプログラムを書き、特定のXに対しては、結果を吐き出すことに成功しています。 program dat real x1(100),h,y2(100),y1(100),z1(100) integer i,n,j,k,l,m,a(100) open(7,file='test.txt') open(9,file='af-test.dat') do i=1,100 read(7,*,end=200) x1(i),y1(i),z1(i) if(x1(i).eq.90)then write(9,*) x1(i),y1(i),z1(i) end if end do 200 close(7) close(9) end ここまではうまくいくのですが、これでは９０以外の場合は出力されません。（あたりまえですが） 特定のXに限らずに例えばXを０から１００まで吐き出されるような目的のファイル作るにはをどのようにしてプログラムを書けばいいかご教授ください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する