様式９ +-------------------------------------+----------------+----------------------+ | ｼｽﾃﾑ名(ｺｰﾄﾞ): ＡＬＧＯＰＡＫ８６ | | システム報告書概要 | +-------------------------------------+ +----------------------+ | ﾓｼﾞｭｰﾙ名(ｺｰﾄﾞ): EVAL (A504) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者･学生番号: 増沢善子21SS1159 | 文書作成者･学生番号: 増沢善子21SS1159 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/ 1/ ー / / | 文書作成期間: 62/ 2/ ー / / | +-------------------------------------+---------------------------------------+ | 親モジュール: ＡＬＧＯＳ | 子モジュール: | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 移植 | SARA BAASE,COMPUTER ALGOLITHMS, | +-------------------------------------+ | | 形式: サブルーチン | ADDISON WESLEY,1978. | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納ﾒﾃﾞｨｱ形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的（問題解説、機能解説−制限事項）| 格納ﾒﾃﾞｨｱ番号、ﾌｧｲﾙ名: | | +---------------------------------------+ | | 記述言語・走行ＯＳ: TURBO PASCAL | | 離散的フーリエ変換の +---------------------------------------+ | | 走行条件（ハードウェア、ソフトウェア）| | サブルーチンプログラム | ＰＣ−９８０１，ＭＳ−ＤＯＳ | | | | | | | +-------------------------------------+---------------------------------------+ | キーワード（適用分野、手法など） ： | 分類コード（ＣＲコードを使用） ： | | EVAL | | +-------------------------------------+---------------------------------------+ | 呼び出し法: EVAL(p,n,VALREAL,VALIMAG) | | | +-----------------------------------------------------------------------------+ | 操作手順(ｺﾝﾌﾟﾘｰﾄﾌﾟﾛｸﾞﾗﾑ(ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ)の場合:1.システム起動手順､2.データ入出力 | | 手順と形式､3.終了手順) | | (ｻﾌﾞﾙｰﾁﾝの場合:1.呼び出し形式-引き数の並べ方-､2.親ルーチン､3.子ルー | | チン､4.その他) | | １.ｐ(入力)：離散的フーリエ変換を行うベクトルの成分（実数） | | | | ｎ(入力)： べクトルの成分の個数 （n=2**k, k=0,1,2,･･･） | | | | VALREAL(出力)：離散的フーリエ変換の結果の実部 | | | | VALIMAG(出力)：離散的フーリエ変換の結果の虚部 | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム１つにつき１枚作成 必要な場合モジュール１つにつき１枚作成(ｲﾝﾀｰﾌｪｰｽ仕様書-様式１-に追加) 様式７ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ８６ | | 問題解説 | +-------------------------------------+ +----------------------+ | モジュール名: EVAL (A504) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 高野勇 20SS1326 | 文書作成者: 高野勇 20SS1326 | +-------------------------------------+---------------------------------------+ | 作成期間: 60/ 7/ ー 60/ 9/ | 文書作成期間: 60/10/ ー 60/11/ | +-------------------------------------+---------------------------------------+ | 実数成分のｎ次元ベクトルを複素成分のｎ次元 ベクトルに変換する。 | | （離散的フーリエ変換、THE DISCRETE FOURIER TRANSFORM）。 | | | | ｎ≧１に対して、w(ｵﾒｶﾞ)を１の原始ｎ乗根と置く。そしてＦnを | | | | ０≦ｉ≦ｎ−１ ，０≦ｊ≦ｎ−１に対しｆij＝w**(i*j)の要素を持つ | | | | ｎ×ｎ行列とする。ｎ次元ベクトルＰ＝（Ｐ0，Ｐ1，・・・，Ｐn-1）の | | | | 離散的フーリエ変換とは、積ＦnＰのことである。 | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ８６ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: EVAL (A504) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 高野勇 20SS1326 | 文書作成者: 高野勇 20SS1326 | +-------------------------------------+---------------------------------------+ | 作成期間: 60/ 7/ ー 60/ 9/ | 文書作成期間: 60/11/ ー 60/12/ | +-------------------------------------+---------------------------------------+ | | | +-----+ ++-------++ +--------++ +---------+ | | + + !! !! !ARRAY !! ! ! | | -->+ TYPE +---->!! ZISU !!---->![0..99] !!---->! real ! | | ! + + !! !! ! !! ! ! | | ! +-----+ ++-------++ +--------++ +---------+ | | ! | | ++-------++ ! +-----+ +---------+ | | !!MODULE !! ! +parame + ! B:EVAL2 ! | | !! EVAL1 !!--! -->+ ter +---->! ------- ! | | !! !! ! ! + + ! ! | | ++-------++ ! ! +-----+ +---------+ | | ! ! | | ! ++-------++ ! +-----+ +---------+ | | ! !!procedu!! ! + + ! B:EVAL3 ! | | -->!!re EVAL!!--!->+ var +---->! ------- ! | | !! !! ! + + ! ! | | ++-------++ ! +-----+ +---------+ | | ! | | ! +--------++ +---------+ +---------+ | | ! !for a:=0!! !ARG[a]:=(! !OMEGAc:= ! | | -->! to n-1!!---->!2*3.14*a)! -->!cos(ARG[a! | | ^ ! !! !/n ! !^ !]*b) ! | | ! +--------++ +---------+ !! +---------+ | | ! ! !! ! | | ! +--------++ +---------+ !! +---------+ | | ! !for a:=0!! !VALREAL[a! !! !OMEGAs:= ! | | !-! to n-1 !!---->!]:=0 ! !! !sin(ARG[a! | | ! !! ^ ! ! !! !]*b) ! | | +--------++ ! +---------+ !! +---------+ | | ! ! !! ! | | ! +---------+ !! +---------+ | | ! !VALIMAG[a! !! ! ! | | ! !]:=0 ! !! !VALREAL[a! | | ! ! ! !! !]:= VALRE! | | ! +---------+ !! !AL[a]+p[b! | | ! ! !! !]*OMEGAc ! | | ! +--------++ !! ! ! | | ! !for b:=0!! !! ! ! | | !-! to n-1 !!--!! ! ! | | ! !! ! ! ! | | +--------++ ! +---------+ | | ! ! | | ! +---------+ | | ! ! ! | | !-!VALIMAG[a! | | !]:= VALIM! | | !AG[a]+p[b! | | !]*OMEGAs ! | | ! ! | | ! ! | | ! ! | | ! ! | | +---------+ | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ８６ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: EVAL (A504) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 高野勇 20SS1326 | 文書作成者: 高野勇 20SS1326 | +-------------------------------------+---------------------------------------+ | 作成期間: 60/ 7/ ー 60/ 9/ | 文書作成期間: 60/11/ ー 60/12/ | +-------------------------------------+---------------------------------------+ | | | +-------------------------+ +-------+ ++-------++ | | ! B:EVAL2 ! + + !! !! | | ! ----------------------- !--!->! p !---->!! ZISU !! | | ! ! ! + + !! !! | | +-------------------------+ ! +-------+ ++-------++ | | ! | | ! +-------+ +---------+ | | ! + + ! ! | | !->! n !---->! integer ! | | ! + + ! ! | | ! +-------+ +---------+ | | ! | | ! +-------+ ++-------++ | | ! +var + !! !! | | -->!VALREAL, !---->!! ZISU !! | | +VALIMAG + !! !! | | +-------+ ++-------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ８６ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: EVAL (A504) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 高野勇 20SS1326 | 文書作成者: 高野勇 20SS1326 | +-------------------------------------+---------------------------------------+ | 作成期間: 60/ 7/ ー 60/ 9/ | 文書作成期間: 60/11/ ー 60/12/ | +-------------------------------------+---------------------------------------+ | | | +---------+ +-------+ +---------+ | | ! B:EVAL3 ! + + ! ! | | ! ------- !--!->! a,b !---->! integer ! | | ! ! ! + + ! ! | | +---------+ ! +-------+ +---------+ | | ! | | ! +-------+ ++-------++ | | ! + + !! !! | | !->! ARG !---->!! ZISU !! | | ! + + !! !! | | ! +-------+ ++-------++ | | ! | | ! +-------+ +---------+ | | ! + OMEGAc, + ! ! | | -->! OMEGAs !---->! real ! | | + + ! ! | | +-------+ +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式９ +-------------------------------------+----------------+----------------------+ | ｼｽﾃﾑ名(ｺｰﾄﾞ): ＡＬＧＯＰＡＫ８６ | | システム報告書概要 | +-------------------------------------+ +----------------------+ | ﾓｼﾞｭｰﾙ名(ｺｰﾄﾞ): CEVAL (P504) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者･学生番号: 増沢善子21SS1159 | 文書作成者･学生番号: 増沢善子21SS1159 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/ 1/ ー / / | 文書作成期間: 62/ 2/ ー / / | +-------------------------------------+---------------------------------------+ | 親モジュール: ＡＬＧＯＰＡＫ８６ | 子モジュール: EVAL (A504) | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 移植 | SARA BAASE,COMPUTER ALGORITHMS, | +-------------------------------------+ | | 形式: コンプリート | ADDISON WESLEY,1978. | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納ﾒﾃﾞｨｱ形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的（問題解説、機能解説−制限事項）| 格納ﾒﾃﾞｨｱ番号、ﾌｧｲﾙ名: | | +---------------------------------------+ | | 記述言語・走行ＯＳ: TURBO PASCAL | | 離散的フーリエ変換の +---------------------------------------+ | | 走行条件（ハードウェア、ソフトウェア）| | サブルーチンプログラム | ＰＣ−９８０１，ＭＳ−ＤＯＳ | | | | | | | +-------------------------------------+---------------------------------------+ | キーワード（適用分野、手法など） ： | 分類コード（ＣＲコードを使用） ： | | EVAL | | +-------------------------------------+---------------------------------------+ | 呼び出し法: CEVAL | | データ | +-----------------------------------------------------------------------------+ | 操作手順(ｺﾝﾌﾟﾘｰﾄﾌﾟﾛｸﾞﾗﾑ(ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ)の場合:1.システム起動手順､2.データ入出力 | | 手順と形式､3.終了手順) | | (ｻﾌﾞﾙｰﾁﾝの場合:1.呼び出し形式-引き数の並べ方-､2.親ルーチン､3.子ルー | | チン､4.その他) | | １．＞ＣＥＶＡＬ．ＳＲＣ　　　　　　　　　　 | | | | 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 | | | | 　　　　　　　　　　　　　　　　　　　　 　　　 | | | | 　　　　　　　　　　　　　　　　　　　　 | | | | データ | | | | ２．1)入力データ | | | | ｎ：ベクトルの成分の個数（ｎ≦100,ｎ＝２**ｋ，ｋ＝０,１,２,・・・） | | | | ｐ（ｋ）：ベクトルの第ｋ実数成分（０≦ｋ≦ｎ−１） | | | | 2)出力データ | | | | ｎ | | | | ｐ（ｋ） （０≦ｋ≦ｎ−１） | | | | ｐ（ｋ）を離散的フーリエ変換して求められたベクトル | | | | ☆テスト例 A>B: | | B>CEVAL