様式９ +-------------------------------------+----------------+----------------------+ | ｼｽﾃﾑ名(ｺｰﾄﾞ): ＡＬＧＯＰＡＫ | | システム報告書概要 | +-------------------------------------+ +----------------------+ | ﾓｼﾞｭｰﾙ名(ｺｰﾄﾞ): MINIMAL3(A606) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者･学生番号: 増沢善子21SS1159 | 文書作成者･学生番号: 増沢善子21SS1159 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/　1/ ー / / | 文書作成期間: 62/ 2/ ー / / | +-------------------------------------+---------------------------------------+ | 親モジュール: ＡＬＧＯＳ | 子モジュール: | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | SARA BAASE,COMPUTER ALGORITHMS. | +-------------------------------------+ | | 形式: サブルーチン | ADDISON WESLEY,1978 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納ﾒﾃﾞｨｱ形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的（問題解説、機能解説−制限事項）| 格納ﾒﾃﾞｨｱ番号、ﾌｧｲﾙ名: | | MINIMAL SPNNING TREE の +---------------------------------------+ | | 記述言語・走行ＯＳ: TURBO PASCAL | | サブルーチン プログラム +---------------------------------------+ | | 走行条件（ハードウェア、ソフトウェア）| | | PC-9801 | | | | | | MS-DOS | +-------------------------------------+---------------------------------------+ | キーワード（適用分野、手法など） ： | 分類コード（ＣＲコードを使用） ： | | MINIMAL SPNNING TREE | | +-------------------------------------+---------------------------------------+ | 呼び出し法: MINSPN3(ADJMAT,WGTMAT,T) | | | +-----------------------------------------------------------------------------+ | 操作手順(ｺﾝﾌﾟﾘｰﾄﾌﾟﾛｸﾞﾗﾑ(ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ)の場合:1.システム起動手順､2.データ入出力 | | 手順と形式､3.終了手順) | | (ｻﾌﾞﾙｰﾁﾝの場合:1.呼び出し形式-引き数の並べ方-､2.親ルーチン､3.子ルー | | チン､4.その他) | | 1.MINSPN3を使う時は 次のような宣言が必要である。 | | | | CONST MAXNODE=9; | | | | TYPE MAT=ARRAY[1..MAXNODE,1..MAXNODE] OF INTRGER ; | | | | ARR=ARRAY[1..MAXNODE,1..MAXNODE] OF INTEGER ; | | | | ENTERNAL PROCEDURE MINSPN3(VAR ADJMAT,WGTMAT:MAT;VAR T:ARR); | | | | ２。（入力）ADJMAT: グラフのそれぞれの頂点を１から９までとする。各頂点と | | | | 隣接する辺を１とおき それ以外は０とおいた各頂点をインデックスとする２次 | | | | 元配列である。 | | | | WGT:グラフのそれぞれの頂点を１から９までとする。各頂点と隣接する辺を | | | | 重さとおき、それ以外は０とおいた各頂点をインデックスとする２次元配列である | | | | （出力） | | | | T (T[i,j]) の和集合が求める辺集合である。 | | | | | | | +-----------------------------------------------------------------------------+ 注. システム１つにつき１枚作成 必要な場合モジュール１つにつき１枚作成(ｲﾝﾀｰﾌｪｰｽ仕様書-様式１-に追加) 様式７ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | 問題解説 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増沢 善子 | 文書作成者: 増沢 善子 | +-------------------------------------+---------------------------------------+ | 作成期間: 60/11/16 ー / / | 文書作成期間: 60/11/16 ー / / | +-------------------------------------+---------------------------------------+ | | | あるグラフに 辺を軽い順序にSORTしとき サイクルにならないように | | | | すべてのNODEをとりつくるまで取っていく。 | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式９ +-------------------------------------+----------------+----------------------+ | ｼｽﾃﾑ名(ｺｰﾄﾞ): ＡＬＧＯＰＡＣ | | システム報告書概要 | +-------------------------------------+ +----------------------+ | ﾓｼﾞｭｰﾙ名(ｺｰﾄﾞ): CMINIMAL3(P606) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者･学生番号: 増沢善子 21SS1159 | 文書作成者･学生番号: 増沢善子21SS1159 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/ 1/ ー / / | 文書作成期間: 62/ 2/ ー / / | +-------------------------------------+---------------------------------------+ | 親モジュール: ＡＬＧＯＳ | 子モジュール: | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究　 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | SARA BAASE,COMPUTER ALGORITHMS. | +-------------------------------------+ | | 形式: コンプリート | ADDISON WESLEY,1978 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納ﾒﾃﾞｨｱ形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的（問題解説、機能解説−制限事項）| 格納ﾒﾃﾞｨｱ番号、ﾌｧｲﾙ名: | | コンプリート プログラム +---------------------------------------+ | | 記述言語・走行ＯＳ: TURBO PASCAL | | +---------------------------------------+ | | 走行条件（ハードウェア、ソフトウェア）| | | PC-9801 | | | | | | MS-DOS | +-------------------------------------+---------------------------------------+ | キーワード（適用分野、手法など） ： | 分類コード（ＣＲコードを使用） ： | | MINIMAL SPANNING TREE | | +-------------------------------------+---------------------------------------+ | 呼び出し法: CMINSPN3 | | | +-----------------------------------------------------------------------------+ | 操作手順(ｺﾝﾌﾟﾘｰﾄﾌﾟﾛｸﾞﾗﾑ(ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ)の場合:1.システム起動手順､2.データ入出力 | | 手順と形式､3.終了手順) | | (ｻﾌﾞﾙｰﾁﾝの場合:1.呼び出し形式-引き数の並べ方-､2.親ルーチン､3.子ルー | | チン､4.その他) | | 　　　　　　　　 | | | | 　　　　　　　　　　　　　　　　　　　 | | | | 1. >CMINSPN3 | | | | 2.（入力） ファイル名 ADJ3,WGT3 のテキストファイルに次のデータを入れておく | | | | ADJ3 １から９までをノード番号 ノード番号をインデックスとする２次元配列で | | | | ノードiからノードj に辺があれば(i,j)=1、辺がなければ(i,j)=0 とする。 | | | | WGT3 １から９までをノード番号 ノード番号をインデックスとする２次元配列 | | | | で、ノードiからノードjに辺があれば(i,j)=重さ、辺がなければ(i,j)=0 とする | | | | （出力） １から９までをノード番号 ノード番号をインデックスとする２次元 | | | | 配列でノードiからノードjに辺があれば(i,j)=1 、辺がなければ | | | | (i,j)=0 とする。 | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム１つにつき１枚作成 必要な場合モジュール１つにつき１枚作成(ｲﾝﾀｰﾌｪｰｽ仕様書-様式１-に追加) 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | ++-------++ +-----+ ++-------++ +---------+ | | !!module !! +const + !!maxnode!! !9 ! | | !!spnmin3!!-!--+ +----!! !!----! ! | | !! !! ! + + !! !! ! ! | | ++-------++ ! +-----+ ++-------++ +---------+ | | ! | | ! +-----+ ++-------++ +--------++ +---------+ | | ! +type + !!mat !! !array [ !! !integer ! | | !--+ +-!--!! !!----!1 .. !!----! ! | | ! + + ! !! !! !maxnode !! ! ! | | ! +-----+ ! ++-------++ !, 1 .. !! +---------+ | | ! ! !maxnode !! | | ! ! !] !! | | ! ! ! !! | | ! ! ! !! | | ! ! ! !! | | ! ! +--------++ | | ! ! | | ! ! ++-------++ +--------++ +---------+ | | ! ! !!arr !! !array [ !! !integer ! | | ! !--!! !!----!1 .. !!----! ! | | ! ! !! !! !maxnode !! ! ! | | ! ! ++-------++ !, 1 .. !! +---------+ | | ! ! !maxnode !! | | ! ! !] !! | | ! ! ! !! | | ! ! ! !! | | ! ! ! !! | | ! ! +--------++ | | ! ! | | ! ! ++-------++ +------++ +-------+ | | ! ! !!edge !! !record ++ +node1 , + | | ! ---!! !!----! ++----!node2 , !---| | ! !! !! ! ++ +weight + | | ! ++-------++ +------++ +-------+ | | ! | | ! ++-------++ +-----+ +-------+ ++-------++ | | ! !!procedu!! +paramet+ +var + !!mat !! | | ---!!re !!-!--+ er +-!--!adjmat , !----!! !! | | !!minspn3!! ! + + ! +wgtmat + !! !! | | ++-------++ ! +-----+ ! +-------+ ++-------++ | | ! ! | | ! ! +-------+ ++-------++ | | ! ! +var t + !!arr !! | | ! ---! !----!! !! | | ! + + !! !! | | ! +-------+ ++-------++ | | ! | | ! +-----+ +-------+ +---------+ | | ! +var + +i , j + !integer ! | | !--+ +-!--! !----! ! | | ! + + ! + + ! ! | | ! +-----+ ! +-------+ +---------+ | | ! ! | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | !integer ! | |---! ! | | ! ! | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | ! ! | | ! ! +-------+ +---------+ | | ! ! +e , v , + !integer ! | | ! !--!w !----! ! | | ! ! + + ! ! | | ! ! +-------+ +---------+ | | ! ! | | ! ! +-------+ +---------+ | | ! ! +count + !integer ! | | ! !--! !----! ! | | ! ! + + ! ! | | ! ! +-------+ +---------+ | | ! ! | | ! ! +-------+ +--------++ | | ! ! +l + !array [ !! | | ! !--! !----!1 .. !!---| | ! ! + + !100 ] !! | | ! ! +-------+ +--------++ | | ! ! | | ! ! +-------+ +--------++ | | ! ! +eset + !array [ !! | | ! !--! !----!1 .. !!---| | ! ! + + !maxnode !! | | ! ! +-------+ !, 0 .. !! | | ! ! !maxnode !! | | ! ! !] !! | | ! ! ! !! | | ! ! ! !! | | ! ! ! !! | | ! ! +--------++ | | ! ! | | ! ! +-------+ +---------+ | | ! ! +e_num + !integer ! | | ! ---! !----! ! | | ! + + ! ! | | ! +-------+ +---------+ | | ! | | ! ++-------++ +---------+ | | ! !!functio!! !integer ! | | !--!!n !!-!--! ! | | ! !!edge_lo!! ! ! ! | | ! ++-------++ ! +---------+ | | ! ! | | ! ! +-----+ +-------+ | | ! ! +var + +i , j + | | ! !--+ +-!--! !---| | ! ! + + ! + + | | ! ! +-----+ ! +-------+ | | ! ! ! | | ! ! ! +-------+ | | ! ! ! +ecount + | | ! ! ---! !---| | ! ! + + | | ! ! +-------+ | | ! ! | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | ++-------++ | | !!edge !! | |---!! !! | | !! !! | | ++-------++ | | | | +---------+ | | !integer ! | |---! ! | | ! ! | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | !integer ! | |---! ! | | ! ! | | +---------+ | | | | +---------+ | | !integer ! | |---! ! | | ! ! | | +---------+ | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | ! ! | | ! ! +---------+ | | ! ! !ecount ! | | ! -!-!:= 0 ! | | ! ! ! ! | | ! ! +---------+ | | ! ! ! | | ! ! +--------++ +--------++ | | ! ! !for i !! !for j !! | | ! !-!:= 1 to !!----!:= i to !!---| | ! !maxnode !! !maxnode !! | | ! ! !! ! !! | | ! ! !! ! !! | | ! ! !! ! !! | | ! ! !! ! !! | | ! ! !! ! !! | | ! ! !! ! !! | | ! +--------++ +--------++ | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! ++-------++ +-----+ +-------+ | | ! !!procedu!! +var + +i , j + | | !--!!re !!-!--+ +-!--! !---| | ! !!bubble !! ! + + ! + + | | ! ++-------++ ! +-----+ ! +-------+ | | ! ! ! | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | T: | | +-------+ +---------+ | | !if + !ecount ! | |---!adjmat [ +--!-!:= ecount! | | !i , j ] ! ! !+ 1 ! | | != 1 ! ! +---------+ | | ! ! ! ! | | ! ! ! ! | | ! ! ! ! | | ! + ! ! | | ! + ! ! | | +-------+ ! ! | | ! ! | | ! +--------++ +---------+ | | ! !with l !! !node1 := ! | | ! ![ !!----!i ; ! | | ! !ecount ]!! !node2 := ! | | ! ! !! !j ; ! | | ! ! !! !weight ! | | ! ! !! !:= wgtmat! | | ! ! !! ![ i , j ! | | ! ! !! !] ! | | ! ! !! ! ! | | ! +--------++ +---------+ | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! +---------+ | | ! !edge_load! | | !-!:= ! | | !ecount ! | | +---------+ | | | | +---------+ | | !integer ! | |---! ! | | ! ! | | +---------+ | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | ! ! ! | | ! ! ! +-------+ | | ! ! ! +work + | | ! ! ---! !---| | ! ! + + | | ! ! +-------+ | | ! ! | | ! ! +--------++ +--------++ | | ! ! !for i !! !for j !! | | ! ---!:= !!----!:= 1 to !!---| | ! !edge_loa!! !i - 1 !! | | ! !d !! +--------++ | | ! !downto 2!! | | ! ! !! | | ! ! !! | | ! ! !! | | ! ! !! | | ! +--------++ | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! | | ! ++-------++ +-----+ +-------+ | | ! !!procedu!! +paramet+ +v , w + | | !--!!re !!-!--+ er +----! !---| | ! !!setor !! ! + + + + | | ! ++-------++ ! +-----+ +-------+ | | ! ! | | ! ! +-----+ +-------+ | | ! ! +var + +i + | | ! !--+ +----! !---| | ! ! + + + + | | ! ! +-----+ +-------+ | | ! ! | | ! ! +--------++ +-------+ | | ! ! !for i !! !if eset + | | ! -!-!:= 1 to !!----![ v , i +---| | ! ! !maxnode !! !] = 1 + | | ! ! ! !! +-------+ | | ! ! ! !! | | ! ! ! !! | | ! ! ! !! | | ! ! ! !! | | ! ! ! !! | | ! ! +--------++ | | ! ! ! | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | ++-------++ | | !!edge !! | |---!! !! | | !! !! | | ++-------++ | | T: | | +-------+ +---------+ | | !if l [ + !work := ! | |---!j ] . +----!l [ j + ! | | !weight > ! !1 ] ; ! | | !l [ j + ! !l [ j + ! | | !1 ] . ! !1 ] := l ! | | !weight ! ![ j ] ; ! | | ! ! !l [ j ] ! | | ! + !:= work ! | | ! + ! ! | | +-------+ +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | !integer ! | |---! ! | | ! ! | | +---------+ | | | | +---------+ | | !integer ! | |---! ! | | ! ! | | +---------+ | | T: | | +---------+ | | !eset [ w ! | |---!, i ] := ! | | !1 ! | | +---------+ | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | ! ! ! | | ! ! +---------+ | | ! ! !eset [ v ! | | ! !-!, 0 ] := ! | | ! !0 ! | | ! +---------+ | | ! | | ! ++-------++ +-----+ +-------+ | | ! !!functio!! +paramet+ +v + | | !--!!n !!-!--+ er +----! !---| | ! !!find_es!! ! + + + + | | ! ++-------++ ! +-----+ +-------+ | | ! ! | | ! ! +---------+ | | ! ! !integer ! | | ! !--! ! | | ! ! ! ! | | ! ! +---------+ | | ! ! | | ! ! +-----+ +-------+ | | ! ! +var + +i , j + | | ! !--+ +----! !---| | ! ! + + + + | | ! ! +-----+ +-------+ | | ! ! | | ! ! +--------++ +-------+ | | ! ! !for i !! !if eset + | | ! ---!:= 1 to !!----![ i , 0 +---| | ! !maxnode !! !] = 1 + | | ! ! !! +-------+ | | ! ! !! | | ! ! !! | | ! ! !! | | ! ! !! | | ! ! !! | | ! +--------++ | | ! | | ! ++-------++ +-----+ +-------+ | | ! !!procedu!! +var + +i , j + | | !--!!re !!-!--+ +----! !---| | ! !!init_es!! ! + + + + | | ! ++-------++ ! +-----+ +-------+ | | ! ! | | ! ! +--------++ +--------++ | | ! ! !for i !! !for j !! | | ! -!-!:= 1 to !!--!-!:= 0 to !!---| | ! ! !maxnode !! ! !maxnode !! | | ! ! ! !! ! ! !! | | ! ! ! !! ! ! !! | | ! ! ! !! ! ! !! | | ! ! ! !! ! ! !! | | ! ! ! !! ! ! !! | | ! ! ! !! ! ! !! | | ! ! +--------++ ! +--------++ | | ! ! ! ! ! | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | +---------+ | | !integer ! | |---! ! | | ! ! | | +---------+ | | | | | | | | | | | | | | | | +---------+ | | !integer ! | |---! ! | | ! ! | | +---------+ | | T: T: | | +-------+ +---------+ | | !if eset + !find_eset! | |---![ i , v +----!:= i ! | | !] = 1 + ! ! | | +-------+ +---------+ | | | | | | | | | | | | | | | | +---------+ | | !integer ! | |---! ! | | ! ! | | +---------+ | | | | +---------+ | | !eset [ i ! | |---!, j ] := ! | | !0 ! | | +---------+ | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | ! ! ! ! ! | | ! ! ! ! +---------+ | | ! ! ! ! !eset [ i ! | | ! ! ! !-!, 0 ] := ! | | ! ! ! !1 ! | | ! ! ! +---------+ | | ! ! ! | | ! ! +--------++ +---------+ | | ! ! !for i !! !eset [ i ! | | ! !-!:= 1 to !!----!, i ] := ! | | ! !maxnode !! !1 ! | | ! ! !! +---------+ | | ! ! !! | | ! ! !! | | ! ! !! | | ! ! !! | | ! ! !! | | ! +--------++ | | ! | | ! ++-------++ +-----+ +-------+ | | ! !!functio!! +paramet+ +v , w + | | !--!!n equi !!-!--+ er +----! !---| | ! !! !! ! + + + + | | ! ++-------++ ! +-----+ +-------+ | | ! ! | | ! ! +---------+ | | ! ! !boolean ! | | ! !--! ! | | ! ! ! ! | | ! ! +---------+ | | ! ! | | ! ! +---------+ | | ! ! !equi := ! | | ! ---!( ! | | ! !find_eset! | | ! !( v ) = ! | | ! !find_eset! | | ! !( w ) ) ! | | ! ! ! | | ! ! ! | | ! ! ! | | ! +---------+ | | ! | | ! ++-------++ +-----+ +-------+ | | ! !!procedu!! +paramet+ +v , w + | | !--!!re !!-!--+ er +----! !---| | ! !!set_equ!! ! + + + + | | ! ++-------++ ! +-----+ +-------+ | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | !integer ! | |---! ! | | ! ! | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | !integer ! | |---! ! | | ! ! | | +---------+ | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | ! ! | | ! ! ++-------++ | | ! ! !!setor !! | | ! ---!!( !! | | ! !!find_es!! | | ! !!et ( !! | | ! !!v ) , !! | | ! !!find_es!! | | ! !!et ( w !! | | ! !!) ) !! | | ! !! !! | | ! ++-------++ | | ! | | ! ++-------++ | | ! !!init_es!! | | -!-!!et !! | | ! !! !! | | ! ++-------++ | | ! ! | | ! ++-------++ | | ! !!bubble !! | | ! !! !! | | ! !! !! | | ! ++-------++ | | ! ! | | ! +--------++ +--------++ +---------+ | | ! !for i !! !for j !! !t [ i , ! | | ! !:= 1 to !!----!:= 1 to !!----!j ] := 0 ! | | ! !maxnode !! !maxnode !! ! ! | | ! ! !! ! !! +---------+ | | ! ! !! ! !! | | ! ! !! ! !! | | ! ! !! ! !! | | ! ! !! ! !! | | ! ! !! ! !! | | ! +--------++ +--------++ | | ! ! | | ! +---------+ | | ! !count := ! | | ! !0 ; ! | | ! !e_num := ! | | ! +---------+ | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | ! ! | | ! +--------++ +---------+ | | ! !while !! !e_num := ! | | !-!count < !!--!-!e_num + ! | | !maxnode !! ! !1 ! | | !- 1 !! ! +---------+ | | ! !! ! ! | | ! !! ! ! | | ! !! ! ! | | ! !! ! ! | | ! !! ! ! | | +--------++ ! ! | | ! ! | | ! +--------++ +-------+ | | ! !with l !! !if not + | | !-![ e_num !!----!equi ( +---| | !] !! !node1 , ! | | +--------++ !node2 ) ! | | ! ! | | ! ! | | ! ! | | ! + | | ! + | | +-------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL3 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | T: | | +---------+ | | !t [ ! | |-!-!node1 , ! | | ! !node2 ] ! | | ! !:= 1 ; ! | | ! !t [ ! | | ! !node2 , ! | | ! !node1 ] ! | | ! !:= 1 ! | | ! ! ! | | ! +---------+ | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ++-------++ | | ! !!set_equ!! | | ! !!i ( !! | | ! !!node1 ,!! | | ! !!node2 !! | | ! !!) !! | | ! !! !! | | ! !! !! | | ! !! !! - | | ! !! !! | | ! ++-------++ | | ! ! | | ! +---------+ | | ! !count := ! | | ! !count + ! | | !1 ! | | +---------+ | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+