くだすれFORTRAN（超初心者用）at TECHくだすれFORTRAN（超初心者用） - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト981:980 06/10/31 16:47:36 自己解決しました if文を入れてi=70だけを飛ばしました。 982:デフォルトの名無しさん 06/10/31 20:54:05 ｽﾏｿ、助けてください。 例えば、この連立一次方程式 3x1+2x2+7x3+x4=8 x1+5x2+x3－x4=5 4x1+x2+3x3－2x4=7 x1+6x2+4x3+3x4=13 これをガウスジョルダン法で解きたいんですが open文でデータを開いて計算したいんです。 プログラムはどのようにすればよいでしょうか？ 983:982 06/10/31 20:56:03 ちなみに77でお願いします。 984:デフォルトの名無しさん 06/10/31 22:30:19 >>982 program hoge parameter (N=4) real a(N,N+1) open(11, file='data.txt', status='old') read(11,*) ((a(i,j), j=1,N+1), i=1, N) close(11) do 101 i=1, N piv = a(i,i) do 201 j=i, N+1 a(i,j) = a(i,j) / piv 201 continue do 202 j=1, N if (j .ne. i) then t = a(j, i) do 301 k = i, N+1 a(j,k) = a(j,k) - t * a(i, k) 301 continue end if 202 continue 101 continue write(*,*) (a(i, N+1), i=1, N) stop end エラーチェックは省いたので「不正なデータ」を読ますとランタイムエラーになるｗ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch