様式9 +-------------------------------------+----------------+----------------------+ | システム名(コード): ALGOPAK | | システム報告書概要 | +-------------------------------------+ +----------------------+ | モジュール名(コード): MINIMAL2(A302) | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者・学生番号: 増沢善子21SS1159 | 文書作成者・学生番号: 増沢善子21SS1159 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/ 1/ ー / / | 文書作成期間: 62/ 2/ ー / / | +-------------------------------------+---------------------------------------+ | 親モジュール: ALGOS | 子モジュール: | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | SARA BAASE,COMPUTER ALGORITGMS. | +-------------------------------------+ | | 形式: サブルーチン | ADDISON WESLEY,1978 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納メディア形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的(問題解説、機能解説−制限事項)| 格納メディア番号、ファイル名: | | MINIMAL SPNNING TREE の +---------------------------------------+ | | 記述言語・走行OS: TURBO PASCAL | | サブルーチン プログラム +---------------------------------------+ | | 走行条件(ハードウェア、ソフトウェア)| | | PC-9801 | | | | | | MS-DOS | +-------------------------------------+---------------------------------------+ | キーワード(適用分野、手法など) : | 分類コード(CRコードを使用) : | | MINIMAL SPNNING TREE | | +-------------------------------------+---------------------------------------+ | 呼び出し法: MINSPN2(adjmat,wgtmat,parent) | | | +-----------------------------------------------------------------------------+ | 操作手順(コンプリートプログラム(メインプログラム)の場合:1.システム起動手順、2.データ入出力 | | 手順と形式、3.終了手順) | | (サブルーチンの場合:1.呼び出し形式-引き数の並べ方-、2.親ルーチン、3.子ルー | | チン、4.その他) | | 1. MINSPN2を使う時は 次のような宣言が必要である。 | | | | CONST MAXNODE=9; | | | | TYPE MAT=ARAAY[1..MAXNODE,1..MAXNODE] OF INTEGER; | | | | ENTERNAL PROCEDURE MINSPN2(VAR ADJMAT,WGTMAT:MAT;VAR PARENT:PLIST); | | | | 2.(入力) ADJMAT : 隣接行列 | | | | WGTMAT : 重さ行列 | | | | (出力) | | | | PARENT (PARENT[i]) の和集合が求める辺集合である。 | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム1つにつき1枚作成 必要な場合モジュール1つにつき1枚作成(インターフェース仕様書-様式1-に追加) 様式7 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | 問題解説 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増沢 善子 | 文書作成者: 増沢 善子 | +-------------------------------------+---------------------------------------+ | 作成期間: 60/11/16 ー / / | 文書作成期間: 60/11/16 ー / / | +-------------------------------------+---------------------------------------+ | | | あるグラフに対して 各辺を重みとして ある実数が割り当てられている重み | | | | 付きグラフを表現するのに リスト構造を使って表現したものである。 | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式9 +-------------------------------------+----------------+----------------------+ | システム名(コード): ALGOPAK | | システム報告書概要 | +-------------------------------------+ +----------------------+ | モジュール名(コード): CMINIMAL2(P302) | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者・学生番号: 増沢 善子21SS1159 | 文書作成者・学生番号: 増沢善子21SS1159 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/ 1/ ー / / | 文書作成期間: 62/ 2/ ー / / | +-------------------------------------+---------------------------------------+ | 親モジュール: ALGOS | 子モジュール: | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | SARA BAASE,COMPUTER ALGORITHMS. | +-------------------------------------+ | | 形式: コンプリート | ADDISON WESLEY,1978 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納メディア形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的(問題解説、機能解説−制限事項)| 格納メディア番号、ファイル名: | | MINIMAL SPNNING TREE の +---------------------------------------+ | | 記述言語・走行OS: TURBO PASCAL | | コンプリート プログラム +---------------------------------------+ | | 走行条件(ハードウェア、ソフトウェア)| | | PC-9801 , MS-DOS | | | | | | | +-------------------------------------+---------------------------------------+ | キーワード(適用分野、手法など) : | 分類コード(CRコードを使用) : | | MINIMAL SPANNING TREE | | +-------------------------------------+---------------------------------------+ | 呼び出し法: CMINIMAL2 | | | +-----------------------------------------------------------------------------+ | 操作手順(コンプリートプログラム(メインプログラム)の場合:1.システム起動手順、2.データ入出力 | | 手順と形式、3.終了手順) | | (サブルーチンの場合:1.呼び出し形式-引き数の並べ方-、2.親ルーチン、3.子ルー | | チン、4.その他) | |          | | | |                      | | | | >CMINSPN2 | | | | 2.(入力) ファイル名 ADJ2,WGT2のテキストファイルに次のデータを入れておく。 | | | | ADJ2 1から9までをノード番号とし, ノード番号をインデックスとする2次元 | | | | 配列でノードiからjに辺があれば(i,j)=1,辺がなければ(i,j)=0とする。 | | | | WGT2 1から9までをノード番号とし、ノード番号をインデックスとする2次元 | | | | 配列でノードiからjに辺があれば(i,j)=重さ、辺がなければ(i,j)=0とする。 | | | | (出力) | | | | MINIMAL SPNNING TREEを構成するedgeがnodeの対として順次出力される。 | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム1つにつき1枚作成 必要な場合モジュール1つにつき1枚作成(インターフェース仕様書-様式1-に追加) 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | ++-------++ +-----+ ++-------++ +---------+ | | ||module || +const + ||maxnode|| |9 | | | ||spnmin2||-+--+ +----|| ||----| | | | || || | + + || || | | | | ++-------++ | +-----+ ++-------++ +---------+ | | | | | | +-----+ ++-------++ +--------++ +---------+ | | | +type + ||mat || |array [ || |integer | | | +--+ +-+--|| ||----|1 .. max||----| | | | | + + | || || |node , 1|| | | | | | +-----+ | ++-------++ | .. maxn|| +---------+ | | | | |ode ] || | | | | | || | | | | | || | | | | | || | | | | | || | | | | +--------++ | | | | | | | | ++-------++ +--------++ +---------+ | | | | ||plist || |array [ || |integer | | | | +--|| ||----|0 .. max||----| | | | | | || || |node ] || | | | | | | ++-------++ | || +---------+ | | | | | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | +--------++ | | | | | | | | ++-------++ +---------+ | | | | ||nodeptr|| |^ node | | | | +--|| ||----| | | | | | || || | | | | | | ++-------++ +---------+ | | | | | | | | ++-------++ +------++ +-------+ | | | | ||node || |record ++ +vtx + | | | +--|| ||----| ++-+--| |---| | | || || | ++ | + + | | | ++-------++ +------++ | +-------+ | | | | | | | | +-------+ | | | | +wgt + | | | +--| |---| | | | + + | | | | +-------+ | | | | | | | | +-------+ | | | | +link + | | | +--| |---| | | + + | | | +-------+ | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | ++-------++ | | ||nodeptr|| | |---|| || | | || || | | ++-------++ | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | ++-------++ +-----+ +-------+ ++-------++ | | | ||procedu|| +paramet+ +var adjma+ ||mat || | | +--||re mins||-+--+ er +-+--|t , wgtma|----|| || | | ||pn2 || | + + | |t | || || | | ++-------++ | +-----+ | | | ++-------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | + + | | | | +-------+ | | | | | | | | +-------+ ++-------++ | | | | +var paren+ ||plist || | | | +--|t |----|| || | | | + + || || | | | +-------+ ++-------++ | | | | | | +-----+ +-------+ ++-------++ | | | +var + +ptr + ||nodeptr|| | | +--+ +-+--| |----|| || | | | + + | + + || || | | | +-----+ | +-------+ ++-------++ | | | | | | | | +-------+ +---------+ | | | | +e1 , e2 + |integer | | | | +--| |----| | | | | | + + | | | | | | +-------+ +---------+ | | | | | | | | +-------+ +---------+ | | | | +x , y , j+ |integer | | | | +--| , i |----| | | | | | + + | | | | | | +-------+ +---------+ | | | | | | | | +-------+ +--------++ | | | | +v2link + |array [ || | | | +--| |----|0 .. max||---| | | | + + |node ] || | | | | +-------+ | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | +--------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | +-------+ +--------++ | | | | +w + |array [ || | | | +--| |----|0 .. max||---| | | | + + |node ] || | | | | +-------+ | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | +--------++ | | | | | | | | +-------+ +--------++ | | | | +vset + |array [ || | | | +--| |----|0 .. max||---| | | | + + |node ] || | | | | +-------+ | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | +--------++ | | | | | | | | +-------+ +--------++ | | | | +adjlist + |array [ || | | | +--| |----|0 .. max||---| | | | + + |node ] || | | | | +-------+ | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | +--------++ | | | | | | | | +-------+ +---------+ | | | | +ecount + |integer | | | | +--| |----| | | | | | + + | | | | | | +-------+ +---------+ | | | | | | | | +-------+ ++-------++ | | | | +a , b , c+ ||nodeptr|| | | | +--| , d , e |----|| || | | | |, f , g ,| || || | | | | h , nowp| ++-------++ | | | |tr , newp| | | | |tr | | | | | | | C | | | | | | + + | | | +-------+ | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | ++-------++ | | ||nodeptr|| | |---|| || | | || || | | ++-------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | ++-------++ +-----+ +-------+ | | | ||procedu|| +paramet+ +var e1 , + | | +--||re e2mi||-+--+ er +----|e2 |---| | | ||n || | + + + + | | | ++-------++ | +-----+ +-------+ | | | | | | | | +-----+ +-------+ | | | | +var + +i + | | | +--+ +-+--| |---| | | | + + | + + | | | | +-----+ | +-------+ | | | | | | | | | | +-------+ | | | | | +weight + | | | | +--| |---| | | | | + + | | | | | +-------+ | | | | | | | | | | +-------+ | | | | | +f1 , f2 + | | | | +--| |---| | | | + + | | | | +-------+ | | | | | | | | +---------+ | | | | |weight :=| | | | ++-| maxint | | | | | | | | | | | +---------+ | | | | | | | | | +--------++ +-------+ | | | | |for i :=|| |if ( vse+ | | | | | 1 to ma||----|t [ i ] +---| | | | |xnode || |= 2 ) an | | | | | | || |d ( w [ | | | | | | || |i ] < we | | | | | | || |ight ) | | | | | | || | | | | | | | || | + | | | | | || | + | | | | +--------++ +-------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | +---------+ | | | | |e1 := f1 | | | | | | | | | | | | | | | | | +---------+ | | | | | | | | | +---------+ | | | | |e2 := f2 | | | | +-| | | | | | | | | | +---------+ | | | | | | ++-------++ +-----+ +-------+ | | | ||functio|| +paramet+ +e1 , e2 + | | +--||n in_v2||-+--+ er +----| |---| | | || || | + + + + | | | ++-------++ | +-----+ +-------+ | | | | | | | | +---------+ | | | | |integer | | | | +--| | | | | | | | | | | | +---------+ | | | | T: | | | | +-------+ +---------+ | | | | |if vset + |in_v2 := | | | | +--|[ e1 ] = +-+--|e1 | | | | | 2 + | | | | | | +-------+ | +---------+ | | | | F: | | | | +-------+ | | | | |if vset + | | | +--|[ e2 ] = +---| | | | 2 + | | | +-------+ | | | | | | | | | | | | | | | | | | | | | | | | ++-------++ +-----+ +-------+ | | | ||procedu|| +paramet+ +x + | | +--||re remo||-+--+ er +----| |---| | | ||ve || | + + + + | | | ++-------++ | +-----+ +-------+ | | | | | | | | +-----+ +-------+ | | | | +var + +link + | | | +--+ +----| |---| | | | + + + + | | | | +-----+ +-------+ | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | T: | | +---------+ | | |in_v2 := | | |+--|e2 | | || | | | || +---------+ | || F: | || +-------+ | || +writeln+ | |+-- | ( '?' | | | +) + | | +-------+ | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | +---------+ | | | | |link := 0| | | | ++-| | | | | | | | | | | | +---------+ | | | | | | | | | +--------++ +---------+ | | | | |while ( || |link := v| | | | | |v2link [||----|2link [ l| | | | | | link ] || |ink ] | | | | | |= x ) or|| | | | | | | | ( v2lin|| | | | | | | |k [ link|| | | | | | | | ] = 0 )|| | | | | | | | || | | | | | | | || | | | | | | +--------++ +---------+ | | | | | T: | | | | +-------+ +---------+ | | | | |if v2lin+ |v2link [ | | | | +-|k [ link +----|link ] :=| | | | | ] = x | | v2link [| | | | | | | v2link [| | | | | | | link ] ]| | | | | | | | | | | | | | | | | | | + | | | | | | + | | | | | +-------+ +---------+ | | | | | | ++-------++ +-----+ +-------+ | | | ||procedu|| +var + +root , pt+ | | +--||re make||-+--+ +-+--|r |---| | | ||adj || | + + | + + | | | ++-------++ | +-----+ | +-------+ | | | | | | | | | | +-------+ | | | | | +i , j + | | | | +--| |---| | | | + + | | | | +-------+ | | | | | | | | +--------++ +---------+ | | | | |for i :=|| |root := n| | | | +--| 1 to ma||--+-|il | | | | |xnode || | | | | | | | || | +---------+ | | | | || | | | | | | || | | | | | | || | | | | | | || | | | | | | || | | | | | +--------++ | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ++-------++ | | ||nodeptr|| | |---|| || | | || || | | ++-------++ | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | +--------++ | | | | |for j :=|| | | | | | 1 to ma||---| | | | |xnode || | | | | | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | +--------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | |adjlist [| | | | +-| i ] := r| | | | |oot | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | T: | | +-------+ +---------+ | | |if adjma+ |new ( ptr| | |---|t [ i , +--+-| ) | | | |j ] = 1 | | | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | + | | | | | + | | | | +-------+ | | | | | | | | | +--------++ +---------+ | | | |with ptr|| |vtx := j | | | | | ^ ||--+-| | | | | | || | | | | | | +--------++ | +---------+ | | | | | | | | | | | +---------+ | | | | | |wgt := wg| | | | | | |tmat [ i | | | | | | |, j ] | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | | | | | | | +---------+ | | | | | |link := r| | | | | +-|oot | | | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |root := p| | | +-|tr | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | ++-------++ | | | ||makeadj|| | | ++-|| || | | | || || | | | ++-------++ | | | | | | | +---------+ | | | |x := 1 | | | | | | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |vset [ 1 | | | | |] := 1 | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |ecount :=| | | | | 0 | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |v2link [ | | | | |0 ] := 0 | | | | | | | | | +---------+ | | | | | | | +--------++ +---------+ | | | |for i :=|| |vset [ i | | | | | 2 to ma||----|] := 3 | | | | |xnode || | | | | | | || +---------+ | | | | || | | | | || | | | | || | | | | || | | | | || | | | +--------++ | | | | | | | +--------++ +---------+ | | | |while ec|| |ptr := ad| | | +-|ount < m||--+-|jlist [ x| | | |axnode -|| | | ] | | | | 1 || | | | | | | || | | | | | | || | | | | | | || | | | | | | || | | | | | | || | | | | | +--------++ | +---------+ | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | +--------++ +---------+ | | | |while pt|| |y := ptr | | | | |r <> nil||--+-|^ . vtx | | | | | || | | | | | | +--------++ | +---------+ | | | | | | | | | | | +-------+ | | | | | |if ( vse+ | | | | | |t [ y ] +---| | | | | |= 2 ) an | | | | | | |d ( ptr | | | | | | |^ . wgt | | | | | | |< w [ y | | | | | | |] ) | | | | | | | + | | | | | | + | | | | | +-------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-------+ | | | | | |if vset + | | | | | |[ y ] = +---| | | | | |3 + | | | | | +-------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | T: | | +---------+ | | |parent [ | | |-+-|y ] := x | | | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | |w [ y ] :| | | +-|= ptr ^ .| | | | wgt | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | T: | | +---------+ | | |vset [ y | | |-+-|] := 2 | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |v2link [ | | | | |y ] := v2| | | | |link [ 0 | | | | |] | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |v2link [ | | | | |0 ] := y | | | | | | | | | +---------+ | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | T: | | +---------+ | | |parent [ | | |-+-|y ] := x | | | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | |w [ y ] :| | | +-|= ptr ^ .| | | | wgt | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | T: | | +---------+ | | |vset [ y | | |-+-|] := 2 | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |v2link [ | | | | |y ] := v2| | | | |link [ 0 | | | | |] | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |v2link [ | | | | |0 ] := y | | | | | | | | | +---------+ | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | |ptr := pt| | | | | +-|r ^ . lin| | | | | |k | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | T: | | | +-------+ +-------+ | | | |if v2lin+ +writeln+ | | | |k [ 0 ] +--+- | ( 'no | | | | |= 0 | | |minimal| | | | | | | | spanni| | | | | | | |ng tree| | | | | | | |' ) | | | | | | | | | | | | | + | | | | | | | + | + + | | | +-------+ | +-------+ | | | | | | | | | | | ++-------++ | | | | | ||exit || | | | | +-|| || | | | | || || | | | | ++-------++ | | | | | | | ++-------++ | | | ||e2min (|| | | | || e1 , e|| | | | ||2 ) || | | | ++-------++ | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | +---------+ | | | |parent [ | | | | |y ] := x | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |w [ y ] :| | | +-|= ptr ^ .| | | | wgt | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL2 | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | +---------+ | | | |x := in_v| | | | |2 ( e1 , | | | | |e2 ) | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | | | ++-------++ | | | ||remove || | | | ||( x ) || | | | || || | | | ++-------++ | | | | | | | +---------+ | | | |vset [ x | | | | |] := 1 | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |ecount :=| | | +-| ecount +| | | | 1 | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+