- ベストアンサー
fortran初心者です。
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
可能ですが、doループを使わない方が簡単だと思います。
関連するQ&A
- 情報処理 ポインタ渡しによる関数作成について
現在、3次元ベクトルの外積計算をするプログラムを作成を行っています。 プログラムの仕様で (1)3次元ベクトルは、3成分をもつ配列として扱うこと (2)外積計算をする関数を作成すること。ただし、この関数は ２つの入力ベクトルと１つの出力ベクトル（＝外積）を扱うものとする。（ポインタ渡し） (3)main関数内で、入力である２つの3次元ベクトルを設定し、外積計算の関数を呼ぶ。 (4)２つの入力ベクトル、およびその外積を表示すること。 を条件に作成しているのですが、どうもうまく作れません。 どのようにプログラムを作成すればよいのか 参考に教えて頂けるとありがたいです。 よろしくお願いします。
- ベストアンサー
- C・C++・C#
- FORTRAN
FORTRANについて聞かせてください。 WRITE(*,*) 'A= READ( *,*) A Aの値を0～0.15の範囲で0.01刻みで増やしていって実行したいのですが，どのようにプログラムを作成すればいいですか？？ DOループだと思うのですが，あってますか？ 分かる方いらっしゃったらお願いします。 FORTRANについてお勧めの初心者用ホームページがあればおしえてくださると助かります。
- ベストアンサー
- その他（プログラミング・開発）
- FORTRANの動的割り当てについて
今、FORTRANでg95でプログラムを作っているのですが、動的割り当てで理解出来ない現象が起きたので質問させていただきます。 real(8),dimension(:,:,:),allocatable :: a と三次元の動的配列aを定義し allocate(a(0:10,0:10,0:10)) としています。 ここで、外部のファイルから各成分0～10の配列の所に値を読み込ませます。 私の理解では、これは0～10の添字までしか扱えないものと思っていたのですが、write文でa(11,11,11)という要素を書かせてみると、実際に値が出力されてしまいます。動的割り当てとはそういうものなのでしょうか。 また現在作っているプログラムではこれが値を持っているとまずいので、doループで11の値のところだけをif文で0にしようと試みたのですが、そのif文を反映してくれません。 （つまり do i=0.11 do j=0,11 do k=0,11 if (i==11.or.j==11.or.k==11) then .・・・ の時、・・・のところで0にしようしてもそれが反映されない） 始めはコードが間違っているのかと思いましたが、doループの10の値のところを同様に0にしてみたら成り立っていました。 （つまり do i=0,10 do j=0,10 do k=0,10 if (i==10.or.j==10.or.k==10) then ・・・ の時、・・・のところで0にしようとするとそれが反映される） これはやはり定義してないa(11,11,11)が出力されることと関係があるのでしょうか。 初歩的な質問かもしれませんが、よろしくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- FORTRAN subroutineと配列と繰り返し
以下のように二次元配列の場合でsubroutineを使うときに、主プログラムで2重Doループ(iとj)で繰り返しをしているのですが、すでにsubroutineでDoループ(i)を用いて計算しています。これではsubroutineの利点をうまく使えていないと思うのですが、subroutineを使って配列、Doループをきれいにする方法をどなたか教えていただけませんか。 実際は4重ループ、4次元配列なので、プログラムをわかりやすくするためにサブルーチンを使いたいと思っています。 -------------------------------------------------------------- program S real,dimension(5,5) :: B real,dimension(5) :: A integer :: i,j do j=1,5 CALL sub1(A) do i=1,3 B(i,j)=A(i)*j write(*,*) B(i,j) end do end do end program S subroutine sub1(A) real,dimension(5) :: A integer :: i do i=1,3 A(i)=3.*i end do end subroutine sub1
- ベストアンサー
- その他（プログラミング・開発）
- fortran 配列受け渡し時の次元の一致
fortran90、コンパイラはifortです。 普通メインプログラムとサブルーチン間での配列の受け渡しは、次元を揃えて渡すと思います。 とあるコード（以後コードA）を読んでいると、2次元配列を渡し、1次元配列で受け取っていました。 例 program test1 integer :: a(3,3) call testsub(a) end program subroutine testsub(b) integer :: b(9) end subroutine これが受け取り側でどう処理されているのかわからず、調べるために適当なテストコードを書きました。 a 123 456 789 ↓ b 123456789 になるとか 結果、コンパイルは通ったのですがサブルーチン側では全て0で置き換えられてしまいました。 コードAはpgiかなんかでコンパイルしていたようなのでコンパイラの違いでしょうか？ よくわらなかったので質問させて頂きました。 質問をまとめますと、 (1)次元の異なる配列の受け渡しができるかどうか (2)その場合中身はどうなるか よろしくお願いします。 ---以下テストコード--- program testa implicit none integer :: a(3,3),i,j do i=1,3 do j=1,3 a(i,j)=j+(i-1)*3 enddo enddo do i=1,3 do j=1,3 write(6,*) a(i,j) enddo enddo call sub1(a) end program subroutine sub1(b) integer :: b(9),i do j=1,9 write(6,*) b(i),'sub' enddo end subroutine
- ベストアンサー
- その他（プログラミング・開発）
- FortranにあってCにない関数？について
10年間Fortran90でプログラミングをしてきましたが、 C言語を使う必要があって、プログラムを書き直し中の者です。 入門書を数冊読んでいて疑問に思ったのですが、Fortranには、 A=SUM(B) と書けば、配列Bの全ての総和をAに返す、という関数があるのですが、C言語に同じような関数はないのでしょうか？（標準ライブラリに無いという事はないのでしょうか？） Fortranと比べてCは組み込み関数が少ないという印象を持ったのですが実際そうなのでしょうか？ また、Fortanでは配列の和をとる時、 do i=0,n a(i)=b(i)+c(i) end do を一行で、 a(0:n)=b(0:n)+c(0:n) と書いても良いですし、もし定義されている全部の配列の要素が対象なら a=b+c と一行で書いても良いのですが、ｃ言語では似たような書き方はできないのでしょうか？ つまり、多次元配列を扱う時、Fortranでは単に「a=b+c」と書けば済むところを、Cでは for (i=0,i<=n,i++){ for (j=0,j<=n,ｊ++){ for (k=0,k<=n,ｋ++){ a[i][j][k]=b[i][j][k]+c[i][j][k]; }}} と書かなくてはいけないのか？と悩んでおります。 私がCの機能を知らないだけなのか、Cとはそうゆうことが出来ないのか、浅学なため判断できません。 ご教授ください、どうぞよろしくお願いいたします。
- ベストアンサー
- C・C++・C#
- Do文で副プログラムの増やす【Ｆｏｒｔｒａｎ】
Fortranを使用してます。 DO文で副プログラムをループさせて増やしたいのですが、どうすればいいか分りません。 具体的には、副プログラムの「SUBROUTINE」文+サブルーチン名 であるサブルーチン名の後にループを使って番号を付けたいのですが・・・ 簡易なイメージとして以下のソースでtest0、test1、test2、・・・・・test10となるようなサブルーチン名にしたいのです。 do ｘ＝0,10 SUBROUTINE teｓｔ+ｘ ｙ＝ｘ+10 retun end end do Fortran初心者ですが、解決したいので難しい解説でも大丈夫です。 分る方は宜しくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- 外積 商 次元
前回、内積にはなぜ商が定義されないのか 質問させて頂きました。 URL：http://okwave.jp/qa/q7403145.html 外積の商が定義されないことを示そうとしています。 ベクトルa=(1,0,0)とベクトルxの外積を以下に示すと、 a×x=bから、 (1,0,0)×（0,1,0）=（0,0,1） (1,0,0)×（1,1,0）=（0,0,1） (1,0,0)×（2,1,0）=（0,0,1） とベクトルbとなるベクトルxが複数存在します。 よって、 (1,0,0)×（γ,1,0）=（0,0,1）が成り立つ。 γ成分は、a=（1,0,0）における並行成分が任意であるということ。 したがって、ベクトルaとベクトルbが既知でもベクトルxが一意に 定まらないため商が定義されない。 上記の内容でOKでしょうか？ また、内積と外積が定義される次元についてですが、 スカラーの内積とスカラーの外積は存在しないと思うので最低でも 2次元以上のn次元で定義されると認識でOKでしょうか？ 以上、ご回答よろしくお願い致します。
- ベストアンサー
- 数学・算数
- Fortran90 初心者です
Fortran初心者です。 「3-1=」を文字列データとして入力された式の答えを数値で出力するプログラムをつくりたいのですがよくわかりません。どなたかヒントください。御願いします。
- 締切済み
- その他（プログラミング・開発）
- fortranについて
「ベクトルを入力して、それを正規化したものを出力するプログラムを作りなさい。ベクトルを正規化するとは、ベクトルをその長さで割り、長さを1にすることである。」 情報処理の講義で上記のような問題がでたのですが、どうすればいいのか分かりません。親切な方よかったら教えてください。ちなみにプログラムとはfortranのプログラムのことです。
- ベストアンサー
- その他（プログラミング・開発）
