- ベストアンサー
fortranのif文で・・・
フォートランの if文で IF(M-1) 15,15,12 ってのがあるんですが，これはどういう意味を表しているのでしょうか ？ IF(R.LE.0.D0) THEN ・・・・ ならＲが0より小さいときは・・・・しなさい．って命令ですよね． でもうえのは，カッコの中がいったいどういうときならってのを表してるのかも分からないし，15，15，12 ってのも意味がわかりません． 基本的なことかもしれませんが，よろしくお願いします． 一応その部分のプログラムも載せておきます． X(N+1)=X(1) Y(N+1)=Y(1) DO 10 I=1,N XM(I)=(X(I)+X(I+1))/2 10 YM(I)=(Y(I)+Y(I+1))/2 IF(M-1)15,15,12 12 XM(NC(1))=(X(NC(1))+X(1))/2 YM(NC(1))=(Y(NC(1))+Y(1))/2 DO 13 K=2,M XM(NC(K))=(X(NC(K))+X(NC(K-1)+1))/2 13 YM(NC(K))=(Y(NC(K))+Y(NC(K-1)+1))/2 15 CONTINUE
- fulikuli
- お礼率41% (145/352)
- その他（プログラミング・開発）
- 回答数5
- ありがとう数2
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
FORTRANなんて学生だった頃にちょっとしただけなのであまり覚えていないし、質問のようなIF文はつかった覚えがないですが、IF ( A ) L1,L2,L3 は Aが負のときL1、0のときL2、正のときL3へジャンプしなさいということではないでしょうか？
その他の回答 (4)
- imogasi
- ベストアンサー率27% (4737/17068)
xの値がゼロになったら、ストップさせるプログラムを書くならＩＦ (X.EQ.0) STOP 「.」をふくめて、「.EQ.」で比較演算子。 ------ 算術if文は一般的に以下のように使う。 if(算術式で書かれた条件）負の場合の文番号、零の場合の文番号、正の場合の文番号 ＩＦ（Ａ）１０，２０，３０は負のとき、０の時、正負のときの飛ぶ先の行文番号。 ---- 算術 if 文 Fortran 90 までは互換性のために存在するが, プログラムの論理構造がわかりにくいため, 利用は奨められない。 Fortran 95 では廃止された。 例 if (x) 10, 20, 30 --- ＩＦ（Ａ）は論理変数Ａが真か偽かきくもの。 Ｍが数値の時ＩＦ（Ｍ－１）は通常使わないのでは。 ---- IF(R.LE.0.D0) THEN LE.0.のあとはDOかD0か。 DOはDO．．．END DO,Do WHILE END DOがあるがここには来ない と思う。不明。
- Takochu
- ベストアンサー率53% (82/154)
こんばんは。 私も、高校の時に習いましたので、参考書を見てみました。 IF (e) s1,s2,s3 は、算術IF文と呼ばれるもので、カッコ内 e の結果が、 e<0 なら、s1 の文番号に e=0 なら、s2 の文番号に e>0 なら、s3 の文番号に、それぞれジャンプします。 ですから、15，15，12 は文番号です。 > Ｋ＝２，２ になりますけど，この場合はＭ＝2についてのみ > 行われることになるんですか？ そうですね。 M=2 で、ループを１回だけ回ることになります。
お礼
回答ありがとうです。 皆さん高校で習っていらっしゃるんですね。 僕は大学３年からなんですが。 補足に対する回答も、ありがとうございました。
- LAMY
- ベストアンサー率25% (249/985)
工業系の高校で習いました...１０年以上前...懐かしいです。 ＃１が書かれたので正しいですが、参考のＵＲＬを載せます。 それと「ＬＥ」は「０」も含むので注意。 ^^^ 昔覚える時に「Ｌ⇔＜」「Ｇ(下の部分)⇔＞」と覚えました。 「Ｅ」はイコールですね...(^-^:...恥ずかしい。
補足
早速のお返事ありがとうございます． すっごく助かりました． ちなみに，乗せたプログラムでですが， Ｍ＝２の場合（Ｍ－１）は正になるので１２へ飛びますよね． すると DO 13 K=2,M では Ｋ＝２，２ になりますけど，この場合はＭ＝2についてのみ 行われることになるんですか？
- SHJYOR
- ベストアンサー率35% (7/20)
FORTRANなんて学生だった頃にちょっとしただけなのであまり覚えていないし、質問のようなIF文はつかった覚えがないですが、IF ( A ) L1,L2,L3 は Aが負のときL1、0のときL2、正のときL3へジャンプしなさいということではないでしょうか？
関連するQ&A
- fortran 途中まで考えたのですが。。。。
エラトステネスのふるい（素数の倍数を除いていって残ったのが素数）で３桁の素数を求めて表示したいです。 私が考えたのは、 １・２～９９までの数を素数かどうか調べて、素数を配列に入れていく ２・１００～９９９まで素数の配列の中の数で割って、割り切れたらおしまい。割り切れなかったら表示していく ということです。 しかし下のプログラムではうまく素数配列ができていないようなのです。 ここまでかなり時間がかかったのでこのプログラムに手をいれて これ以外におかしくなるところもどこを直せばいいのか教えてくださるとうれしいです。 C C q223.f C PROGRAM q223 C IMPLICIT NONE C INTEGER N,i,K,s,l REAL a(99),b(99),c(99),X,Y C real M C a(1)=2 a(2)=3 l=2 C DO N=2,99,1 M=N**(0.5) S=M DO i=2,S,1 K=MOD(N,i) IF(K ==0)THEN exit ELSE IF(K /=0)THEN l=l+1 a(l)=N ENDIF ENDDO ENDDO C do N=100,999 do l=1,99 X=a(l) Y=N/X if(Y==0)then exit else if(Y/=0)then write(*,*)N end if end do end do c end よろしくおねがいします
- ベストアンサー
- その他（プログラミング・開発）
- FORTRAN→Cに翻訳
どなたか、次のFORTRANのプログラムを、Cに、翻訳して頂けないでしょうか。C++ではなく、Cです。ANSI準拠のCでお願いします。 プログラムの内容は、最小二乗法による計算プログラムです。MS-DOS Ver3.3～6.0の頃の、MS FORTRANコンパイラ仕様のものです。その頃持っていたFORTRANの本も処分してしまい、今からFORTRANを学びなおすのにも多大な労力と時間がかかりそうなので、Cに翻訳して頂ければ大変ありがたいです。よろしくお願いします。 （“□”はタブ） ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ C□LEAST SQUARE APPROXIMATION □PROGRAM MAIN9 □DIMENSION X(100),Y(100),S(0:18),T(0:9),SM(10,10),TV(10),AV(10) □WRITE(*,*) 'N ?' □READ(*,*) N □WRITE(*,*) 'x1,x2,..,xn ?' □READ(*,*) ( X(I),I=1,N ) □WRITE(*,*) 'y1,y2,..,yn ?' □READ(*,*) ( Y(I),I=1,N ) □WRITE(*,*) 'M ?' □READ(*,*) M □DO 110 K=0,M*2 □□VS=0. □□DO 100 I=1,N □100□VS=VS+X(I)**K □□S(K)=VS □110□CONTINUE □□DO 130 K=0,M □□□VS=0. □□□DO 120 I=1,N □120□VS=VS+Y(I)*X(I)**K □□□T(K)=VS □130 CONTINUE □□DO 140 I=1,M+1 □□□DO 140 J=1,M+1 □□□□K=I+J-2 □□□□SM(I,J)=S(K) □140 CONTINUE □□DO 150 I=1,M+1 □150 TV(I)=T(I-1) □□CALL SIMULE( AV, SM, TV, M+1 ) □□DO 160 I=1,M+1 □160 WRITE(*,1000) I-1,AV(I) □1000 FORMAT(1H ,'A',I1,'=',F10.5) □□STOP □□END ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
- ベストアンサー
- C・C++・C#
- IF文での条件の書き方について(fortran)
条件 (1)exp(-at)<x (2)exp(-bt)<y と二つの条件があるとする． （a,b,x,yは定数とし，tは時間でdo文でまわすとする) 例えば，IF( (1) .AND. (2) )THENとすれば，「(1) かつ (2)」となり，つまり，「時間的に，(1)・(2)がどちらが先に条件を満たしたとしても良い」とういうことですよね． 今回，私が作ろうとしているプログラムは 「(1)が先に条件を満たした後に，(2)の条件を満たすなら」というIF文を作りたいのです．（ (2)の条件が先に満たしてしまう場合は除きたいということです） こういう場合はどういった表記をすればよいのでしょうか． 下手な文章で読みにくいかもわかりませんが，アドバイスをお願いいたします．
- ベストアンサー
- その他（プログラミング・開発）
- if文について
ソートのプログラムにおいて昇順・降順を選択して表示させるプログラムを書いてるのですが 下記のように記述するとエラーが出てしまいます。 よく調べたのですがエラー表示もよくわからないものなのでした。 どのようにすればうまく動くようになるのでしょうか？ #include <stdio.h> #define swap(type, x, y) do {type t = x; x = y; y = t; } while (0) void bubble(int a[], int n) { int i, j; for (i = 0; i < n - 1; i++) { for (j = n - 1; j > i; j--) if (a[j - 1] > a[j]) swap(int, a[j - 1], a[j]); } } void bubble2(int a[], int n) { int i, j; for (i = 0; i < n - 1; i++) { for (j = n - 1; j > i; j--) if (a[j - 1] < a[j]) swap(int, a[j - 1], a[j]); } } int main(void) { int i; int x[7]; int nx = sizeof(x) / sizeof(x[0]); int select; printf("%d個の整数を入力せよ。\n", nx); for (i = 0; i < nx; i++) { printf("x[%d] : ", i); scanf("%d", &x[i]); } printf("昇順ですか降順ですか？ 0:昇順／1:降順 ＞"); scanf("%d",&select); if (select == 0) bubble(x, nx); puts("昇順にソートしました。"); for (i = 0; i < nx; i++) printf("x[%d] = %d\n", i, x[i]); else bubble2(x, nx); puts("降順にソートしました。"); for (i = 0; i < nx; i++) printf("x[%d] = %d\n", i, x[i]); return (0); }
- 締切済み
- C・C++・C#
- fortran 繰り返しループから抜きたい
10 continue ： ： ： do 100 i=1,10 if (abs(x (i)-y(i)) .lt. 1.0) then r= r + dr goto 100 else goto 1000 end if 100 continue ： ： ： 1000 contiue end すべての条件（ｉ＝1～10）が満足されたら、ループから抜きたいのですが、出来ませんでした。 教えて頂けませんでしょうか？よろしくお願しますね！*<>*！
- 締切済み
- 数学・算数
- 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を０から１００まで吐き出されるような目的のファイル作るにはをどのようにしてプログラムを書けばいいかご教授ください。
- 締切済み
- その他（プログラミング・開発）
- fortranで・・・
実行の画面に数字を入力すると、 英語の文章と 0.0 0.0 0.0 -NaN -NaN -NaN という文字が出てくるだけなんですが、これはプログラムが組めていないということなのでしょうか？ ちなみに、打ったプログラムは、 C 判別関数 WRITE(*,100) 100 FORMAT(1H1/22X,'判別関数モデル'//19X,'消費量',3X,'消費比率'//19X, +'清酒',5X,'焼酎',5X,'ビール',7X,'清酒',6X,'ビール',7X,'M'10X,'D'/ +/) DO 10 I=1,47 CALL SUB1 10 CONTINUE STOP END SUBROUTINE SUB1 DIMENSION B1(3),B2(3),C(3),L(3),P(3) CHARACTER*12 A READ(5,50) A 50 FORMAT(3F8.1,3F7.1) X=1.0 DO 11 K=1,300 Y1=(-1.0) Y2=0.0 DO 12 J=1,3 B2=0.0 B1=0.0 L(J)=(-NINT(B1(J)*10.0/B2(J))) S1=Y1+X**L(J) S2=Y2+L(J)*X**(L(J)-1) Y1=S1 Y2=S2 12 CONTINUE W=X-Y1/Y2 IF(ABS(W-X).LT.1E-10) GO TO 13 X=W 11 CONTINUE 13 WO=W DO 14 J=1,3 C(J)=WO**L(J) 14 CONTINUE R1=0.0 DO 15 J=1,3 R2=R1+B2(J) R1=R2 15 CONTINUE D=0.0 DO 16 J=1,3 P(J)=B2(J)/R1 DO=D+P(J)*ALOG(P(J)/C(J)) D=DO 16 CONTINUE E=0.0 DO 17 J=1,3 EO=E+(B1(J)/B2(J)*P(J)) E=EO 17 CONTINUE WRITE(*,200) A,B2,P,E,D 200 FORMAT(1H,2X,A12,3X,3(F7.1,2X),4X,3(F9.6,X),4X,F9.6,2X,F9.6) RETURN END です。
- ベストアンサー
- その他（プログラミング・開発）
- fortran77
オイラー法とルンゲ・クッタ法 のプログラムを作るにあたっての質問です。 ネットで調べたら do i=0,N-1 x=x+h*ｆ(x,y) t=t+h というのがでてきたのですが、 do文の中にiと言うものは一回も出てきていません。 どうしてこのようなものでまわるのでしょうか？？？ 初心者なので、わかりやすくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- fortran エラーについて
fortranで、副プログラムを使ってデータを昇順または降順に並べ替えるプログラムを入力して実行しようとしたところ、 ・Unexpected junk in formal argument list at (1) ・Two main PROGRAMs at (1) and (2) という2つのエラーが出ました。 これらの改善方法を教えて頂きたいです。 初心者ですので簡単なところで間違えている可能性もありますが、ご指摘いただければ幸いです。 以下、実際に入力したプログラムです。 ------------------------------ implicit none integer::i,n real::x(1000),a(1000),b(1000) n=1000 open(10,file='input-data-1.txt') do i=1,n read(10,*) x(i) end do close(10) open(10,file='output-data-1.txt') do i=1,n call koukan(i,x(i),a(i),b(i)) write(10,'(i4,2f10.3)') i,a(i),b(i) end do close(10) stop end subroutine koukan(i,x(i),shoujun,koujun) implicit none integer::i,n,made real::x(1000),w,shoujun,koujun do made=n-1,1,-1 do i=1,made if(x(i)>x(i+1)) then w=x(i) x(i)=x(i+1) x(i+1)=w end if end do end do shoujun=x(i) do made=n-1,1,-1 do i=1,made if(x(i)<x(i+1)) then w=x(i) x(i)=x(i+1) x(i+1)=w end if end do end do koujun=x(i) return end ------------------------------
- ベストアンサー
- その他(ソフトウェア)
- FORTRAN…これってどんなプログラムになりますか？？
DO 10 I=1,47 CALL SUB1 10 CONTINUE STOP END SUBROUTINE SUB1 DIMENSION B1(3),B2(3),C(3),L(3),P(3) CHARACTER*12 A READ(5,50) A,B1,B2 50 FORMAT(A12,3F8.1,3F7.1) X=1.0 DO 11 K=1,300 Y1=(-1.0) Y2=0.0 DO 12 J=1,3 L(J)=(-NINT(B1(J)*10.0/B2(J))) Y1=Y1+X**L(J) Y2=Y2+L(J)*X**(L(J)-1) 12 CONTINUE W=X-Y1/Y2 IF(ABS(W-X).LT.1E-10) GO TO 13 X=W 11 CONTINUE 13 WO=W DO 14 J=1,3 C(J)=WO**L(J) 14 CONTINUE R1=0.0 DO 15 J=1,3 R2=R1+B2(J) R1=R2 15 CONTINUE D=0.0 DO 16 J=1,3 P(J)=B2(J)/R1 D=D+P(J)*ALOG(P(J)/C(J)) 16 CONTINUE E=0.0 DO 17 J=1,3 E=E+(B1(J)/B2(J)*P(J)) 17 CONTINUE WRITE(*,200) A,B2,P,E,D 200 FORMAT(1H,2X,A12,3X,3(F7.1,2X),4X,3(F9.6,X),4X,F9.6,2X,F9.6) RETURN END
- 締切済み
- その他（プログラミング・開発）
お礼
回答ありがとうです。 じぶんでももっと勉強しないとだめですね。 また質問あるかもしれません。 その時はよろしくお願いします。 ありがとうございました。