【FORTRAN７７】　ﾌﾟﾛｸﾞﾗﾑを起動させて！！

1 名前：１ mailto:sage [03/07/12 15:19] 学校のレポートがあるので、プログラム組みました。 しかし、自宅に起動環境が整ってないので正常に 起動するのかわかりません。 起動環境整っている方いましたらすみませんが、 結果報告してください。お願いします。 問題は>>2へ 組んだものは>>3へ 32 名前：名無しさん＠３周年 [03/07/13 15:17] Fortranが懐かしいので参加してみる。 17さんのコードだと、階乗の処理ができておらんです。 階乗をくっつけたらこうかな。 PROGRAM TAYLOR IMPLICIT NONE INTEGER*8 N,AN REAL*8 EPS,X,SINX,TMP,A1,A2 EPS = 1.0E-09 DO X = 0.0, 3.2, 0.2 SINX = 0.0 DO N = 0, 100 A1 = 1.0 DO AN = 1, 2*N+1 A1 = REAL(AN)*A1 END DO A2 = REAL((-1)**N) TMP = (A2*(X**REAL(2*N+1)))/A1 SINX = SINX + TMP ! PRINT *,ABS(TMP),TMP,A1,A2 IF (ABS(TMP) .LT. EPS)THEN WRITE(*,600) X,SINX GOTO 1000 END IF END DO 1000 CONTINUE END DO 600 FORMAT('SIN(X=',F6.2,')=',2X,E12.4) END 　一応ちゃんとサインカーブになってると思うけど。 33 名前：32 mailto:sage [03/07/13 15:21] あーうちの環境F90にしてたもんで、PRINT文のコメントアウトが「!」に なってますがF77の時は「C」に戻してね。 34 名前：_ mailto:sage [03/07/13 15:38] homepage.mac.com/hiroyuki44/jaz10.html 35 名前：17 mailto:sage [03/07/13 16:24] >32 おおう！初歩的ミス。 気付かんかった。なんかすっきりしました。サンクス。 36 名前：１ [03/07/13 18:19] スレとは関係ないですが、今日はバイトしてきました。 少し見ない間にだいぶスレが進行してますね！ 丁寧なアドバイスにプログラムまで・・・ こんなに親身になっていただいて本当感激です。 ありがとうございます。 プログラム見させていただきました。 IMPLICIT NONEやINTEGER*8、REAL*8、説明を添えて下さったので とてもよくわかりました。一つ一つのプログラムがぼくの考え方より 何倍も合理的で驚きました。ぼくのは根本が間違っているのかな。。。 ぼくももっとがんばらないといけないですね。 37 名前：１ [03/07/13 18:22] とりあえずみなさまのおかげでここまでたどりつけました。 本当に感謝しています。 >>17さんと>>32さんのプログラムは明日学校で起動させてみますね。 それと一応自分のも・・・ 38 名前：_ mailto:sage [03/07/13 19:34] homepage.mac.com/hiroyuki44/hankaku02.html 39 名前：名無しさん＠３周年 [03/07/13 19:59] etc.2ch.net/test/read.cgi/hikky/1057266713/l50 40 名前：名無しさん＠３周年 mailto:sage [03/07/14 03:01] なんか無性に短い行数で書きたくなったので、こんなの作ってみた。 　　　 DO 200 X=0.,3.201,0.2 　　　 　F = 0. 　　　 　G = X 　　　 　DO 100 M=2, 100, 2 　　　 　　F = F + G 　　　 　　IF (ABS(G) .LE. 1.E-6) GOTO 200 　100 　　G = G * (-1) * (X**2) / (M*(M+1)) 　200 　WRITE(*,*) 'SIN(',X,') = ', F, ' (', SIN(X) ,')' 　　　 END ちょっと読みにくいが、先生や先輩方の作ったソースに比べれば、まだまｓ（ｒｙ 41 名前：山崎 渉 mailto:（＾＾） [03/07/15 12:38] 　__∧＿∧_ 　|（　　＾＾ ）|　＜寝るぽ（＾＾） 　|＼⌒⌒⌒＼ 　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉 　　 ~￣￣￣￣ 42 名前：名無しさん＠３周年 mailto:FORTRAN77スレとして再利用しようかな [03/07/22 02:22] 結局>>1はレポートを提出することが出来たのだろうか？ 43 名前：_ mailto:sage [03/07/22 03:19] homepage.mac.com/hiroyuki44/ 44 名前：名無しさん＠３周年 [03/07/22 03:56] これいいよ♪私が見て恥ずかしい♪ angely.h.fc2.com/page005.html akipon.free-city.net/page001.html 45 名前：山崎 渉 mailto:（＾＾）sage [03/08/02 02:24] 　　 ∧＿∧ 　　（　　＾＾ ）＜ ぬるぽ（＾＾） 46 名前：ぼるじょあ ◆yBEncckFOU mailto:（＾＾） [03/08/02 02:59] 　　　 　∧＿∧　 ∧＿∧ ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。 　　＝〔~∪￣￣￣∪￣￣〕 　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ 47 名前：山崎 渉 mailto:（＾＾） [03/08/15 18:50] 　　　 (⌒V⌒) 　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。 　　⊂|　　　　|つ 　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン 48 名前：名無しさん＠３周年 [04/05/03 02:37] FORTRAN77に挑戦します！ 49 名前：名無しさん＠３周年 mailto:sage [04/05/04 05:10] 半年以上も忘れられてたスレに挑戦者が 50 名前：名無しさん＠３周年 mailto:sage [04/05/05 15:10] とりあえず FTN77 Personal Edition ttp://www.salfordsoftware.co.uk/compilers/support/downloads.html CPad ttp://hp.vector.co.jp/authors/VA017148/pages/cpad.html これでプログラムを作れるみたいなのでやってみます． プログラミング自体初めてだけど頑張るぞ！ 51 名前：名無しさん＠３周年 [04/05/18 22:33] Fortran77いまやってます。始めてから2ヶ月。C言語もいつか挑戦したいと思う。 まあとりあえずFortran使いこなすのが先だが。 52 名前：FeaturesOfTheGod ◆UdoWOLrsDM [04/07/12 16:27]  が使えたら良かったのに。 53 名前：FeaturesOfTheGod ◆UdoWOLrsDM [04/07/13 13:44] 思い切って で代用なんて言ってみたりして。 54 名前：FeaturesOfTheGod ◆UdoWOLrsDM [04/07/13 13:48]       end c     テスト。コピペしてコード解析しよう。 55 名前：FeaturesOfTheGod ◆UdoWOLrsDM [04/07/13 13:51] 残念ながら失敗。 数学板だったら が書けるのに、 何故ここでは が書けない？  に代わる文字を誰か持ってきてくれ。 (念のため言うが、普通にスペースを書くと、HTMLでは2個以上のスペースが効かない。) 56 名前：名無しさん＠３周年 [04/07/31 23:27] 至急、質問があります。 ＦＦＴ（高速フーリエ変換）のプログラムを作ってます。 今まで処理データ数が１６０００個くらいで、順調に計算できていました。 しかし、データ数を７００００個くらいに増やすと、出力ファイルに 『*』印がたくさん出てきます。 ちなみに言語はフォートランで出力はＣＳＶ形式で出力してます。 これはフォーマットの設定が悪いんでしょうか？ 57 名前：名無しさん＠３周年 mailto:sage [04/08/08 17:33] >>56 出力桁不足でしょ。コード見てみ。 58 名前：名無しさん＠３周年 mailto:sage [2005/04/10(日) 07:31:15 ] 熊野章,熊野翔,熊野功,熊野輝彦,熊野優子,熊野葉子,熊野治,熊野愼平,熊野光代,熊野海,熊野譲二, 熊野直美,熊野秀一,熊野哲弥,熊野弘樹,熊野和喜,熊野賢治,熊野理沙,熊野遥,熊野尚志,熊野竜也, 熊野次郎,熊野純一,熊野裕次郎,熊野吾朗,熊野潤一,熊野恵理,熊野久美子,熊野光,熊野由紀,熊野宏, 熊野健,熊野直樹,熊野六輔,熊野一輝,熊野加奈子,熊野恵,熊野滉,熊野美代子,熊野敦子,熊野真一, 熊野芳江,熊野一郎,熊野智昭,熊野明子,熊野彩,熊野雄二,熊野新太郎,熊野毅,熊野登紀子,熊野真由美, 熊野正一,熊野雄三,熊野真世,熊野直見,熊野三郎,熊野陽子,熊野ぶぅこ,熊野豊,熊野千佳,熊野秀樹, 熊野和弘,熊野幸太郎,熊野智恵子,熊野孝之,熊野雅彦,熊野善郎,熊野,庸介熊野結子,熊野美和,熊野茂 ,熊野彬,熊野喜一,熊野弥一郎,熊野義光,熊野一,熊野恭子,熊野要,熊野香織,熊野圭子,熊野栄治, 59 名前：名無しさん＠３周年 [2005/08/06(土) 18:49:14 ] 頻度分布のプログラム教えてください。悩んでいるのですが 全然わかりません。 60 名前：名無しさん＠３周年 mailto:sage [2005/08/06(土) 19:00:37 ] そうですか。 それは大変ですね。 61 名前：GiantLeaves ◆6fN.Sojv5w [2005/08/06(土) 19:53:43 ] [>>59]のAIのアルゴリズムを教えてください。悩んでいるのですが全然分かりません。 62 名前：名無しさん＠３周年 [2005/08/06(土) 20:30:46 ] 　　　　　　　　　　※日中友好の同志を募集しています※ 　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 現在の日中間は最悪な局面を迎えています。 中国サイトからのサイバーテロが相次ぎ、日本のサイトは危機を迎えています。 こんな状況下で我々は日々民間日中交流を行っています。 反日系中国ウエッブサイトへの友好交流をしてくださる方！ お持ちの知識・技術を活用してくださる方！ 三度の飯よりお祭りが好きな方！ 今の自分を変えてみたい方！ ちょっと暇だと思ってる方！ 夏休みの思い出を作りたい方！ 田代砲に興味がある方！ もちろん愛国心に燃えてる方も大歓迎！！！！ どんな志願理由でもおｋ！みんなの参加を待ってるお！ 　　　　　　　　　「友　好」は「謝罪と賠償」じゃないです（´･ω･｀） 　　　　　　　　　8/6土 20:00 集合 21:00 集団訪問開始予定です。 　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ★拠点 【友好交流】ハ´;）BAKKER　VS　VIPPER(´･ω【+盆祭+】112 ex11.2ch.net/test/read.cgi/news4vip/1122907493/ 2chan専用プラウザをお勧めいたします。 （無害ですがテキストウイルスが貼り付けられますた) なお、砲撃や投票に参加する人は必ずCCCにも参加してください。 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ＊CCCに参加の際は板名などでもおｋですので必ずお名前を付けてください。 うんばぼ!うんばぼ! 63 名前：名無しさん＠３周年 [2005/08/09(火) 16:29:20 ] >>1 cygwinでも拾って来い。 64 名前：名無しさん＠５周年 [2005/10/30(日) 01:22:58 ] これで　勉強するか これなら買えそうだ www.nag-j.co.jp/FortranBuilder.htm 65 名前：名無しさん＠５周年 mailto:sage [2006/02/03(金) 11:51:55 ] フォートランのソースみてると気持ち悪くならない？ gotoとか簡便してくれよ。 変数宣言しなくていいのもゲロがでそうになる。 66 名前：名無しさん＠５周年 mailto:sage [2006/02/03(金) 18:00:41 ] GO TO が嫌ならCOME FROM を使えばいいじゃない 67 名前：名無しさん＠５周年 [2006/02/11(土) 12:36:25 ] >>32 のソースを、 >>64 のツールでプロットしてみた。 sinカーブのプロット結果はこちら www.asahi-net.or.jp/~wr4g-nkn/img/sinplot.gif 68 名前：名無しさん＠５周年 [2006/02/11(土) 21:04:35 ] 多変数多項式のGCD計算のプログラムがなかなか思いつかないんですが、FORTRANで作ったことある人いますか？ あと、グレブナー基底を求めるプログラム誰か持ってませんか？ これもFORTRANで。 69 名前：名無しさん＠５周年 mailto:sage [2006/03/07(火) 13:58:48 ] >>68 Cでは駄目か？ というか他の言語で書かれた奴を移植できないか？ 70 名前：名無しさん＠５周年 mailto:sage [2006/03/08(水) 20:18:25 ] implicit real*8(a-h,orz) 71 名前：名無しさん＠５周年 [2006/03/17(金) 12:40:47 ] >>70 implicitって インプリシットと読むのか？ それともインプリット？ あるいはインプリジット？ 72 名前：名無しさん＠５周年 mailto:sage [2006/03/17(金) 13:36:13 ] 辞書引け 73 名前：名無しさん＠５周年 mailto:sage [2006/03/17(金) 21:07:34 ] >>72 辞書によればCは無声と書いてるが、 一般にはインプリシットといってるんじゃないのけ 74 名前：名無しさん＠５周年 mailto:sage [2006/03/17(金) 22:16:05 ] 辞書を引け Yahoo!辞書 新グローバル英和辞典 dic.yahoo.co.jp/bin/dsearch?p=implicit&stype=1&dtype=1&dname=1ss 75 名前：名無しさん＠５周年 mailto:sage [2006/03/22(水) 18:17:34 ] >>74 インプリシットだな。 ところで"ｲﾝ"ﾌﾟﾘｼｯﾄだから陰開放って呼ぶようになったのかな。 76 名前：名無しさん＠５周年 [2006/03/27(月) 21:45:12 ] 【ゴールデンレス】 　　∩　・∀・）∩∩ ´∀｀）∩　　このレスを見た人はコピペでもいいので 　　 〉　　　　 _ノ 〉　　　　 _ノ10分以内に3つのスレへ貼り付けてください。 　　ﾉ　ノ　 ノ　　ﾉ　ノ　 ノそうすれば１４日後好きな人から告白されるわ宝くじは当たるわ 　　し´（＿）　　 し´（＿） 出世しまくるわ体の悪い所全部治るわでえらい事です 77 名前：名無しさん＠５周年 mailto:sage [2006/07/10(月) 23:53:00 ] とりあえず>>1は最低でもG77が使える状態にしたのか？ 78 名前：名無しさん＠５周年 [2006/08/10(木) 10:41:26 ] さあ。 79 名前：名無しさん＠５周年 [2006/08/10(木) 13:54:45 ] なんだ？ 80 名前：名無しさん＠５周年 [2006/08/10(木) 17:51:40 ] >>1じゃないしFORTRAN90ですけど，質問させて。 X=3.0 write(*,*)X stop end てな簡単なプログラムtest.f（77も90も関係ないわね）を書いて， win2000上のコマンド・プロンプトでコンパイル＆リンク。 エラー無しでtest.exeができる。 で，実行すると， 3.0000 とか表示される事を期待してたんだけど，win2000で似たようなマシン 2台で表示されたりされなかったりする。 こんなの，何か聞いたことある人，居ます？ 両方ともwin2000，compac visual fortran 6.5だけど，コンパイラが どうとかいう問題じゃないような気がしてます。 OSは両方ともwin2000 5.00.2195 SP4 表示される方 ・画面解像度は1024×768ピクセルでA4ノート型， ・x86 Family Model 8 Stepping 10 ・AT/AT COMPATIBLE ・245.232 RAM 表示されない方 ・1280×1024ピクセルでデスクトップ， ・Pentium 4 CPU 2.40 GHz AT/AT COMPATIBLE ・515.568 RAM ちなみに，write(6,*)Xに変更しても，表示されません。 read(*,*)Y は，どちらもキーボードから値を読むし，入力値が画面にも表示されます。 81 名前：名無しさん＠５周年 [2006/08/10(木) 23:06:47 ] bbs3.on.kidd.jp/?0330/0723 ここに 「う・・・ウルムド・アブドゥル！」「YES I AM！」 と書き込むととても良いことがあるお⊂二二二( ^ω^)二⊃突撃だお 82 名前：80 [2006/09/04(月) 17:33:00 ] 友人に聞いて解決しました。 環境変数にFORT_PRINT=c:\tmpとか設定されていると，設定したファイルに書き出されるとの事。 VisualFORATRANのマニュアルに記述があったそうです。 お騒がせしました。 83 名前：ふぉーとらん？ [2006/11/09(木) 00:38:26 ] fortranでＦＦＴ（高速フーリエ変換）のプログラムを走らせるときって、なんで解析データの点数は２のべき乗じゃなきゃだめなんですか？？？ 84 名前：教えてクン養成マニュアル [2006/11/09(木) 01:01:51 ] 教えてクン養成マニュアル 明日の「教えてクン」を目指す、若き戦士達に以下の文章を捧げる。 日々精進し、パソコンヲタクどもの親切を蹂躙してやれ。 1. 努力を放棄すること いやしくも「教えてクン」たるもの、努力をしてはならない。 過去ログを読んだり、検索してはいけない。 「英語は苦手なので、分かりません。」は、高く評価できる。 辞書片手にマニュアルやReadMeを読むなど、決してしてはならない。 他力本願と言われようと、自分で調べたり試行錯誤したりせず、他人の努力の結果を搾取するのが、正しい「教えてクン」である。 また、「もう何が悪いのかサッパリ分かりません。」と言ってふてくされるのも有効である。 「サッパリ」という単語が「やる気の無さ」を効果的に表現している。 「原因を特定するには、何をすべきでしょうか？」と訊いてしまうと自己の積極性が現れてしまうので、「教えてクン」失格である。 2. 情報を開示しないこと 使用ＯＳや、機器構成などの必須の情報を知らせてはならない。 マザーボード名やＢＩＯＳのバージョンも同様だ。 具体的なアプリ名やバージョンも隠蔽すべきだ。 「ＤＶＤ再生ソフト」のように曖昧に表記しておけばよい。 反対に「前から欲しいと思っていた○○」とか「安売りされていた　○○」等の「どうでもいい情報」は、どんどん書いてやれ。 トラブルの場合は、状況を正確に記述してはならない。 「なんだかうまく動きません。」とか「エラーが出ます。」等と具体的なことは何も書かないことが重要である。 また、自分の試してみた事も具体的に書いてはいけない。 考えられる組合せのマトリックスを作成し、状況を整理するなどもってのほかである。 最悪の場合、それだけで問題が解決してしまうこともあるのだ。 「いろいろやってみたけど、動きません。」が理想的だ。 85 名前：教えてクン養成マニュアル [2006/11/09(木) 01:02:42 ] 3. 答える人間のことを考えないこと 「教えてクン」は、孤高の戦士である。 相手のことを考えるようでは教えてクン失格というものだ。 以下のような行動が、望ましい。 初心者であることを高らかに宣言し、初心者向けの丁寧で分かりやすい説明を強要する。 専門用語の使用を禁じておくとさらに効果的である。 簡潔な説明を禁じられたヲタクどもは、同じ内容を説明するのに、何倍もの労力を強いられる。 自分は努力せず、相手には多大な努力をさせることこそが「教えてクン」の真骨頂である。マルチポストも有効である。 そのＢＢＳを信用していないことを明確に示せる。 「どうせ、お前らじゃ分からんだろう。」という意志表示として高く評価できる。 もちろんマルチポストの非礼をあらかじめ詫びてはならない。 それでは、単なる「急いでいる人」になってしまう。 それは、教えてクンではない。質問のタイトルは、「教えてください。」で良い。 タイトルを読んだだけでは「何に関する質問」か全く分からない。 そういう努力は、答える人間にさせれば良いのだ。 とにかく、答える人間が答えやすいように気を使って質問してはならない。 傲慢で不遜な態度が必須である。「聞きたいことがあります。」など、プロの仕事であろう。 最後に、言うまでも無いことだとは思うが、答えてくれた人達に礼の言葉を返すなど言語道断である。 せっかく「教えてクン」を貫いてきたのに、最後にお礼を言っているようでは、画竜点睛を欠いていると言わざるを得ない。 質問だけしておいて、後はシカトが基本である。 上級テクニックとして、「そんなことはもう試しました。」とか、「そこまで初心者じゃありません。」などと言って、回答者の神経を逆なでしておけば完璧である。 以上のことを踏まえて質問すれば、君も立派な「教えてクン」である。 ビバ！教えてクン！　教えてクンに栄光あれ！！ 86 名前：名無しさん＠５周年 mailto:sage [2006/11/09(木) 19:56:52 ] >>83 2べきじゃないといけないなんてことはない。 ２べきのFFTを作るのが簡単で、処理も速い。 87 名前：ふぉーとらん？ [2006/11/10(金) 09:36:23 ] FFTの計算回数って2log2N回じゃないですか？？Nが２のべき乗じゃなかったら計算回数はNの２乗になるんですか？？ 88 名前：名無しさん＠５周年 mailto:sage [2006/11/10(金) 11:18:04 ] いやすべての場合で、O(N log N)。 特にNが因数分解で小さい因数に分解できる場合は、早く解ける。 (素因数分解して2,3,5の積だけになるくらいがいい) 素数でも倍程度の長さのFFTを使って計算できる方法があって、結局O(N log N)。 ただしその方法は、長さ的に同程度の２べきのFFTと比べると7,8倍くらいは遅いかも。 89 名前：名無し [2006/12/09(土) 14:26:59 ] FFTをして得られたフーリエ係数をスペクトルの形で表したときのスペクトル(縦軸)の値ってのは何をあらわしているのですか？ 90 名前：名無しさん＠５周年 [2006/12/11(月) 02:52:26 ] >>89 フーリエ係数じゃなの？

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef