様式9 +-------------------------------------+----------------+----------------------+ | システム名(コード): ALGOPAK | | システム報告書概要 | +-------------------------------------+ +----------------------+ | モジュール名(コード): HILBERT | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者・学生番号: 北村 健一 E2J045 | 文書作成者・学生番号: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | 親モジュール: CHILBERT | 子モジュール: | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | WIRTH著 アルゴリズム+デ-タ構造=プログラム | +-------------------------------------+ | | 形式: サブルーチン | 日本コンピュ-タ協会 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納メディア形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的(問題解説、機能解説−制限事項)| 格納メディア番号、ファイル名: HILBERT.SRC | | ハイチャ-トのライブラリ-の一部 +---------------------------------------+ | | 記述言語・走行OS: TURBOPASCAL,MS-DOS| | ヒルベルト曲線を描くプログラム +---------------------------------------+ | | 走行条件(ハードウェア、ソフトウェア)| | | PC-9801 | | | | | | MS-DOS | +-------------------------------------+---------------------------------------+ | キーワード(適用分野、手法など) : | 分類コード(CRコードを使用) : | | HILBERT | | +-------------------------------------+---------------------------------------+ | 呼び出し法: HILBERT.SRC | | | +-----------------------------------------------------------------------------+ | 操作手順(コンプリートプログラム(メインプログラム)の場合:1.システム起動手順、2.データ入出力 | | 手順と形式、3.終了手順) | | (サブルーチンの場合:1.呼び出し形式-引き数の並べ方-、2.親ルーチン、3.子ルー | | チン、4.その他) | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム1つにつき1枚作成 必要な場合モジュール1つにつき1枚作成(インターフェース仕様書-様式1-に追加) 様式7 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | 問題解説 | +-------------------------------------+ +----------------------+ | モジュール名: HILBERT | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | ヒルベルト曲線を計算機の制御のもとに プロッタによって描きだす。Hnを位数nのヒルベルト | | 曲線とする。Hn+1は、大きさが半分の4つのHnを適当に回転させて、3本の結合 | | 線でそれらを結ぶことによって構成している。その4つの部分を各々手続A,B,b | | C,Dと表し,例えば図式Aでは、単位直線の長さをhで表し,B,D及びAの再帰 | | 的呼び出しを使って表される。 | | 曲線をプロットするための基本的道具として、2つの座標 xとy,procedure setplot | | (座標 xとy にペンをセットする。)及び、procedure plot (ペンを現在の位置から, | | xとyで示される位置まで動かす)を仮定している。 | | | | | | (入力例) | | | | 3 600 1800 | | | | 4 400 1000 | | | | 5 200 400 | | | | 6 100 200 | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: HILBERT | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | +-----+ +-------+ +---------+ | | +paramet+ +t + |integer | | | +--+ er +----| |----| | | | | + + + + | | | | | +-----+ +-------+ +---------+ | | | | | ++-------++ | +---------+ | | ||procedu|| | |course | | | +--||re ||-++-|:= course| | | | ||xturn || | |+ t | | | | ++-------++ | +---------+ | | | | | T: | | | | +-------+ +---------+ | | | | |if + |course | | | | +-|course > +----|:= course| | | | |4 + |- 4 | | | | +-------+ +---------+ | | | | | | +-----+ +-------+ +---------+ | | | +paramet+ +f + |integer | | | | +--+ er +----| |----| | | | | | + + + + | | | | | | +-----+ +-------+ +---------+ | | | | | | | | +-----+ +-------+ +---------+ | | | | +var + +i + |integer | | | | +--+ +----| |----| | | | | | + + + + | | | | | | +-----+ +-------+ +---------+ | | | | 1 : | | | | +---------+ | | | | |y := y + | | | | | +--|f * | | | | | | |ysize | | | | | | +---------+ | | | | | 2 : | | ++-------++ | ++-------++ | | +---------+ | | ||module || | ||procedu|| | | |x := x + | | | ||hilbert||-+--||re ||-+ +--|2 * f * | | | || || | ||forwrd || | | |xsize | | | ++-------++ | ++-------++ | | +---------+ | | | | | 3 : | | | | +-------+ | +---------+ | | | | |case + | |y := y - | | | | ++-|course +-+--|f * | | | | | | + | |ysize | | | | | +-------+ | +---------+ | | | | | | 4 : | | | | ++-------++ | +---------+ | | | | ||moveto || | |x := x - | | | | +-||( x , || +--|2 * f * | | | | ||y ) || |xsize | | | | ++-------++ +---------+ | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: HILBERT | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | | | +-----+ +-------+ +---------+ | | | +paramet+ +j + |integer | | | | +--+ er +----| |----| | | | | | + + + + | | | | | | +-----+ +-------+ +---------+ | | | | 1 : | | | | +---------+ | | | | |y := y + | | | | | +--|j * | | | | | | |ysize | | | | | | +---------+ | | | | | 2 : | | | ++-------++ | | +---------+ | | | ||procedu|| | | |x := x + | | | +--||re ||-+ +--|2 * j * | | | ||jump || | | |xsize | | | ++-------++ | | +---------+ | | | | 3 : | | | +-------+ | +---------+ | | | |case + | |y := y - | | | ++-|course +-+--|j * | | | | | + | |ysize | | | | +-------+ | +---------+ | | | | | 4 : | | | +---------+ | +---------+ | | | |grxx1 := | | |x := x - | | | +-|x ; | +--|2 * | | | |grxy1 := | |xsize | | | +---------+ +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: HILBERT | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | +-----+ +-------+ +---------+ | | +paramet+ +a , + |integer | | | +--+ er +----|xsize , |----| | | | | + + +ysize + | | | | | +-----+ +-------+ +---------+ | | | T: | | | ++-------++ | | | ||xturn || | | | +--||( 3 ) || | | | | || || | | | | ++-------++ | | | | F: | | | | +---------+ | | | | |a := a - | | | | ++-|1 ; | | | | || |flag := | | | | || |2 ; | | | | || +---------+ | | | || | | | | || ++-------++ | | | || ||hilbert|| | | | || ||( a , || | | | || ||xsize || | | | || ||, || | | | || ||ysize )|| | | | || || || | | | || || || | | | || || || | | | || || || | | | || ++-------++ | | | || | | | | || ++-------++ | | | || ||forwrd || | | | || ||( 2 ) || | | | || || || | | | || ++-------++ | | | || | | | | || ++-------++ | | | || ||xturn || | | | || ||( 3 ) || | | | || || || | | | || ++-------++ | | | || | | | | || +---------+ | | | || |flag := | | | | || |1 | | | | || | | | | | || +---------+ | | | || | | | | || | | | | || | | | | || | | | | || | | | | || | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: HILBERT | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | || | | | | || ++-------++ | | | || ||hilbert|| | | | || ||( a , || | | | || ||xsize || | | | || ||, || | | | || ||ysize )|| | | | || || || | | | || || || | | | || || || | | | || || || | | | || ++-------++ | | | || | | | | || ++-------++ | | | || ||xturn || | | | || ||( 1 ) || | | | || || || | | | || ++-------++ | | | 1 : || | | | ++-------++ ++-------++ | +-------+ || ++-------++ | | ||module || ||procedu|| | |if a = + || ||forwrd || | | ||hilbert||----||re ||-+ +--|0 +-+| ||( 2 ) || | | || || ||hilbert|| | | | + | || || | | ++-------++ ++-------++ | | +-------+ | ++-------++ | | | | | | | | | | | +---------+ | | | | | |flag := | | | | | | |1 | | | | | | | | | | | | | +---------+ | | | | | | | | | | | ++-------++ | | | | | ||hilbert|| | | | | | ||( a , || | | | | | ||xsize || | | | | | ||, || | | | | | ||ysize )|| | | | | | || || | | | | | || || | | | | | || || | | | | | || || | | | | | ++-------++ | | | | | | | | | | | ++-------++ | | | | | ||forwrd || | | | | | ||( 2 ) || | | | | | || || | | | | | ++-------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: HILBERT | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | ++-------++ | | | | | ||xturn || | | | | | ||( 3 ) || | | | | | || || | | | | | ++-------++ | | | | | | | | | | | +---------+ | | | | | |flag := | | | | | | |2 | | | | | | | | | | | | | +---------+ | | | | | | | | | | | ++-------++ | | | | | ||hilbert|| | | | | | ||( a , || | | | | | ||xsize || | | | | | ||, || | | | | | ||ysize )|| | | | | | || || | | | | | || || | | | | | || || | | | | | || || | | | | | ++-------++ | | | | | | | | | | | +---------+ | | | | | |a := a + | | | | | +-|1 | | | | | | | | | | | +---------+ | | | | T: | | | +-------+ | ++-------++ | | | |case + | ||xturn || | | +--|flag +-+ +--||( 1 ) || | | | + | | || || | | +-------+ | | ++-------++ | | | | F: | | | | +---------+ | | | | |a := a - | | | | ++-|1 ; | | | | || |flag := | | | | || |2 ; | | | | || +---------+ | | | || | | | | || ++-------++ | | | || ||hilbert|| | | | || ||( a , || | | | || ||xsize || | | | || ||, || | | | || ||ysize )|| | | | || || || | | | || || || | | | || || || | | | || || || | | | || ++-------++ | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: HILBERT | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | || | | | | || ++-------++ | | | || ||xturn || | | | || ||( 1 ) || | | | || || || | | | || ++-------++ | | | || | | | | || ++-------++ | | | || ||forwrd || | | | || ||( 2 ) || | | | || || || | | | || ++-------++ | | | || | | | | || +---------+ | | | || |flag := | | | | || |2 | | | | || | | | | | || +---------+ | | | || | | | | || ++-------++ | | | || ||hilbert|| | | | || ||( a , || | | | || ||xsize || | | | || ||, || | | | || ||ysize )|| | | | || || || | | | || || || | | | || || || | | | || || || | | | || ++-------++ | | | || | | | | || ++-------++ | | | || ||forwrd || | | | || ||( 2 ) || | | | || || || | | | || ++-------++ | | | 2 : || | | | | +-------+ || ++-------++ | | | |if a = + || ||xturn || | | +--|0 +-+| ||( 3 ) || | | | + | || || | | +-------+ | ++-------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | |flag := | | | | |2 | | | | | | | | | +---------+ | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: HILBERT | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | | | | ++-------++ | | | ||hilbert|| | | | ||( a , || | | | ||xsize || | | | ||, || | | | ||ysize) || | | | || || | | | || || | | | || || | | | || || | | | | ++-------++ | | | | | | | ++-------++ | | | ||xturn || | | | ||( 1 ) || | | | || || | | | ++-------++ | | | | | | | ++-------++ | | | ||forwrd || | | | ||( 2 ) || | | | || || | | | ++-------++ | | | | | | | +---------+ | | | |flag := | | | | |1 | | | | | | | | | +---------+ | | | | | | | ++-------++ | | | ||hilbert|| | | | ||( a , || | | | ||xsize || | | | ||, || | | | ||ysize )|| | | | || || | | | || || | | | || || | | | || || | | | ++-------++ | | | | | | | +---------+ | | | |a := a + | | | +-|1 | | | | | | | +---------+ | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式9 +-------------------------------------+----------------+----------------------+ | システム名(コード): ALGOPAK | | システム報告書概要 | +-------------------------------------+ +----------------------+ | モジュール名(コード): CHILBERT | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者・学生番号: 北村 健一 E2J045 | 文書作成者・学生番号: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | 親モジュール: | 子モジュール: HILBERT | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | WIRTH 著 アルゴリズム+デ-タ構造=プログラム | +-------------------------------------+ | | 形式: コンプリート | 日本コンピュ-タ協会 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納メディア形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的(問題解説、機能解説−制限事項)| 格納メディア番号、ファイル名: CHILBERT.SRC | | ハイチャ-ト の ライブラリ- の 一部 +---------------------------------------+ | | 記述言語・走行OS: TURBOPASCAL,MS-DOS| | シェルピンスキ-曲線を描くプログラム +---------------------------------------+ | | 走行条件(ハードウェア、ソフトウェア)| | | PC-9801 | | | | | | MS-DOS | +-------------------------------------+---------------------------------------+ | キーワード(適用分野、手法など) : | 分類コード(CRコードを使用) : | | CHILBERT | | +-------------------------------------+---------------------------------------+ | 呼び出し法: CHILBERT.SRC | | | +-----------------------------------------------------------------------------+ | 操作手順(コンプリートプログラム(メインプログラム)の場合:1.システム起動手順、2.データ入出力 | | 手順と形式、3.終了手順) | | (サブルーチンの場合:1.呼び出し形式-引き数の並べ方-、2.親ルーチン、3.子ルー | | チン、4.その他) | | 1. >GRX | | | | >TURBO | | | | >Y | | | | >R | | | | >CHILBERT.SRC | | | | 2.(入力) N(位数)_XSIZE_YSIZE | | | | (出力) 図形 | | | | 3. >(CR) | | | | >Q | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム1つにつき1枚作成 必要な場合モジュール1つにつき1枚作成(インターフェース仕様書-様式1-に追加)