様式９ +-------------------------------------+----------------+----------------------+ | ｼｽﾃﾑ名(ｺｰﾄﾞ): ＡＬＧＯＰＡＫ | | システム報告書概要 | +-------------------------------------+ +----------------------+ | ﾓｼﾞｭｰﾙ名(ｺｰﾄﾞ): WINGRAD (A503) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者･学生番号: 増沢善子21SS1159 | 文書作成者･学生番号: 増沢善子21SS1159 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01　/ ー / / | 文書作成期間: 62/ 2/ ー / / | +-------------------------------------+---------------------------------------+ | 親モジュール: ＡＬＧＯＳ | 子モジュール: | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 移植 | SARA BAASE,COMPUTER ALGORITHMS, | +-------------------------------------+ | | 形式: サブルーチン | ADDISON WESLEY,1978. | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納ﾒﾃﾞｨｱ形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的（問題解説、機能解説−制限事項）| 格納ﾒﾃﾞｨｱ番号、ﾌｧｲﾙ名: | | +---------------------------------------+ | | 記述言語・走行ＯＳ: TURBO PASCAL | | 行列式の計算 +---------------------------------------+ | | 走行条件（ハードウェア、ソフトウェア）| | Ａ(M*N型) * Ｂ(N*Q型) | ＰＣ−９８０１，ＭＳ−ＤＯＳ | | | | | | | +-------------------------------------+---------------------------------------+ | キーワード（適用分野、手法など） ： | 分類コード（ＣＲコードを使用） ： | | MATRIX MULTIPLICATION-WINOGRAD | | +-------------------------------------+---------------------------------------+ | 呼び出し法: WINGRAD(M,N,Q,A,B,C) | | | +-----------------------------------------------------------------------------+ | 操作手順(ｺﾝﾌﾟﾘｰﾄﾌﾟﾛｸﾞﾗﾑ(ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ)の場合:1.システム起動手順､2.データ入出力 | | 手順と形式､3.終了手順) | | (ｻﾌﾞﾙｰﾁﾝの場合:1.呼び出し形式-引き数の並べ方-､2.親ルーチン､3.子ルー | | チン､4.その他) | | | | | | １． Ｍ，Ｎ，Ｑ（入力）：（整数型，１≦Ｍ，Ｎ，Ｑ≦２０） | | | | Ａ（入出力）：Ｍ*Ｎ型行列 （整数型 ３桁まで,AA） | | | | Ｂ（入出力）：Ｎ*Ｑ型行列 （整数型 ３桁まで,AA） | | | | Ｃ（出力）：Ａ*Ｂの値 (AA) | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム１つにつき１枚作成 必要な場合モジュール１つにつき１枚作成(ｲﾝﾀｰﾌｪｰｽ仕様書-様式１-に追加) 様式７ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | 問題解説 | +-------------------------------------+ +----------------------+ | モジュール名: WINGRAD (A503) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 羽山明美 10SS1142 | 文書作成者: 羽山明美 10SS1142 | +-------------------------------------+---------------------------------------+ | 作成期間: 58/ 6/ ー 58/ 7/ | 文書作成期間: 59/11/ ー 59/12/ | +-------------------------------------+---------------------------------------+ | | | Ｍ*Ｎ型行列 Ａ と、Ｎ*Ｑ型行列 Ｂ のかけ算を行う｡ | | | | Ｐ＝［Ｎ／２」 とし、あらかじめ | | P P | | Ｒi ＝ Ａi,2j-1 * Ａi,2j , Ｓi ＝ Ｂ2j-1,i * Ｂ2j,i | | j=1 j=1 | | (1≦i≦Ｍ) (1≦i≦Ｑ) | | | | を計算しておく｡ そして､ | | P | | Ｃi,j ＝ （Ａi,2k-1 + Ｂ2k,j）*（Ａi,2k + Ｂ2k-1,j）- Ｒi - Ｃj | | K=1 | | (1≦i≦Ｍ, 1≦j≦Ｑ) ･･･(1) | | | | ここで、Ｎが奇数の場合､ 上の式(1)に､ Ａi,n * Ｂn,j を加える｡ | | | | この方法での乗算は､ （Ｍ*Ｐ+Ｑ*Ｐ+Ｍ*Ｑ*Ｐ） 回､ | | | | Ａ,Ｂ共に正方行列であれば､ Ｎ／2 + Ｎ 回行う｡ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: WINGRAD (A503) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 羽山明美 10SS1142 | 文書作成者: 羽山明美 10SS1142 | +-------------------------------------+---------------------------------------+ | 作成期間: 58/ 6/ ー 58/ 7/ | 文書作成期間: 59/11/ ー 59/12/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | ++-------++ +---------+ | | !!WINOGRA!! ! ! | | !!D(A503)!!---->!P:= n/2｣ ! | | !! !! ^ ! ! | | ++-------++ ! +---------+ | | ! ! | | ! +--------++ +---------+ | | ! !FOR i:=1!! !Ri:= ! | | ! ! TO m !!---->! Ai,2j-1 ! | | ! ! !! ! * A,2j ! | | ! +--------++ +---------+ | | ! ! | | ! +--------++ +---------+ | | ! !FOR i:=1!! !Si:= ! | | ! ! TO q !!---->! B2j-1,i! | | ! ! !! ! * B2j,i ! | | ! +--------++ +---------+ | | ! ! | | ! +--------++ +--------++ +-------------------------+ | | ! !FOR I:=1!! !FOR i:=1!! !Ci,j:= ! | | ! ! TO m !!---->! TO q !!---->!(Ai,2k-1 + B2k,j) * ! | | ! ! !! ! !! !(Ai,2k + B2k-1,j) -Ri-Si ! | | ! +--------++ +--------++ +-------------------------+ | | ! ! | | ! +-------+ +--------++ +--------++ +---------+ | | ! !IF n IS + !FOR i:=1!! !FOR j:=1!! !Ci,j:= ! | | !-! ODD +---->! TO m !!---->! TO q !!---->!Ci,j + Ai! | | ! + ! !! ! !! !,n * Bn,j! | | +-------+ +--------++ +--------++ +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式９ +-------------------------------------+----------------+----------------------+ | ｼｽﾃﾑ名(ｺｰﾄﾞ): ＡＬＧＯＰＡＫ | | システム報告書概要 | +-------------------------------------+ +----------------------+ | ﾓｼﾞｭｰﾙ名(ｺｰﾄﾞ): CWINGRAD (P503) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者･学生番号: 増沢善子21SS1159 | 文書作成者･学生番号: 増沢善子21SS1159 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/ 1/ ー / / | 文書作成期間: 62/ 2/ ー / / | +-------------------------------------+---------------------------------------+ | 親モジュール: ＡＬＧＯＰＡＫ | 子モジュール: WINGRAD (A503) | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 移植 | SARA BAASE,COMPUTER ALGORITHMS, | +-------------------------------------+ | | 形式: コンプリート | ADDISON WESLEY,1978. | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納ﾒﾃﾞｨｱ形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的（問題解説、機能解説−制限事項）| 格納ﾒﾃﾞｨｱ番号、ﾌｧｲﾙ名: | | +---------------------------------------+ | | 記述言語・走行ＯＳ: TURBO PASCAL | | 行列式の計算 +---------------------------------------+ | | 走行条件（ハードウェア、ソフトウェア）| | （Ａ(M*N 型) * Ｂ(N*Q 型)） の | ＰＣ−９８０１，ＭＳ−ＤＯＳ | | | | | サブルーチン プログラム | | +-------------------------------------+---------------------------------------+ | キーワード（適用分野、手法など） ： | 分類コード（ＣＲコードを使用） ： | | MATRIX MULTIPLICATION-WINOGRAD | | +-------------------------------------+---------------------------------------+ | 呼び出し法: CWINGRAD | | データ | +-----------------------------------------------------------------------------+ | 操作手順(ｺﾝﾌﾟﾘｰﾄﾌﾟﾛｸﾞﾗﾑ(ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ)の場合:1.システム起動手順､2.データ入出力 | | 手順と形式､3.終了手順) | | (ｻﾌﾞﾙｰﾁﾝの場合:1.呼び出し形式-引き数の並べ方-､2.親ルーチン､3.子ルー | | チン､4.その他) | | １．＞ ＣＷＩＮＧＲＡＤ．ＳＲＣ 　　　　　 | | | | 　　　　　　　　　　　　　　　　　　　　　　　　　 | | | | 　　　　　　　　　 | | | | データ | | | | ２． 1)入力データ | | | | Ｍ，Ｎ，Ｑ （整数型，１≦Ｍ，Ｎ，Ｑ≦２０） | | | | Ｍ*Ｎ 型行列 Ａ （整数型 ３桁まで） | | | | Ｎ*Ｑ 型行列 Ｂ （整数型 ３桁まで） | | | | 2)出力データ | | | | Ｍ*Ｎ型行列 Ａ | | | | Ｎ*Ｑ型行列 Ｂ | | | | Ａ*Ｂ の値 Ｃ | | | | | | | +-----------------------------------------------------------------------------+ 注. システム１つにつき１枚作成 必要な場合モジュール１つにつき１枚作成(ｲﾝﾀｰﾌｪｰｽ仕様書-様式１-に追加)