様式9 +-------------------------------------+----------------+----------------------+ | システム名(コード): ALGOPAK | | システム報告書概要 | +-------------------------------------+ +----------------------+ | モジュール名(コード): FTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者・学生番号: 南和子 30SS1145 | 文書作成者・学生番号: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ | 親モジュール: | 子モジュール: | +-------------------------------------+---------------------------------------+ | 講義名・課題名: | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | 数理科学 NO.267, | +-------------------------------------+ | | 形式: サブルーチン | 1985 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納メディア形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的(問題解説、機能解説−制限事項)| 格納メディア番号、ファイル名: 85-5080,FTREE | | フラクタル・トゥリーをかくプログラ +---------------------------------------+ | | 記述言語・走行OS: TURBO PASCAL | | ム +---------------------------------------+ | | 走行条件(ハードウェア、ソフトウェア)| | | PC-9801,MS-DOS | | | | | | | +-------------------------------------+---------------------------------------+ | キーワード(適用分野、手法など) : | 分類コード(CRコードを使用) : | | フラクタル | | +-------------------------------------+---------------------------------------+ | 呼び出し法: FTREE | | | +-----------------------------------------------------------------------------+ | 操作手順(コンプリートプログラム(メインプログラム)の場合:1.システム起動手順、2.データ入出力 | | 手順と形式、3.終了手順) | | (サブルーチンの場合:1.呼び出し形式-引き数の並べ方-、2.親ルーチン、3.子ルー | | チン、4.その他) | | | | | | 1. 呼び出し形式 | | | | FTREE | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム1つにつき1枚作成 必要な場合モジュール1つにつき1枚作成(インターフェース仕様書-様式1-に追加) 様式7 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | 問題解説 | +-------------------------------------+ +----------------------+ | モジュール名: FTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 南和子 30SS1145 | 文書作成者: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ | | | フラクタル集合の中にあるものは、どの一部分をとってもそれが全体と | | | | 相似な構造を有している、自己相似性という特徴を持っています。 | | | | まず、1枚の硬貨を投げたとき、表が出ればF0という作用、裏が出れば | | | | F1という作用を行うことにします。次に、元になる線を考え、その作用を | | | | 繰り返す回数、次の線の長さ、次の線との角度を決めて、上のような操作 | | | | を行って図をかき、その図がどのようになるかを示します。この場合、図 | | | | を複素平面で表すとし、それぞれの時の位置を複素数で表します。 | | | | | | F0(z)=az | | | | F1(z)=(1−a)z+a | | | | ただし、 a=1/2+i/2 | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: FTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 南和子 30SS1145 | 文書作成者: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ | | | +-----+ +-------+ +---------+ | | +paramet+ +x1 , y1 + |integer | | | +--+ er +----|, x2 , |----| | | | | + + +y2 + | | | | | +-----+ +-------+ +---------+ | | | | | ++-------++ | ++-------++ | | ||procedu|| | ||line ( || | | +--||re ||-+--||x1 , || | | | ||gline || ||y1 , x2|| | | | ++-------++ ||, y2 ) || | | | || || | | | || || | | | || || | | | || || | | | || || | | | ++-------++ | | | | | | +-----+ +-------+ ++-------++ | | | +paramet+ +var c1 , + ||complex|| | | | +--+ er +----|c2 , c3 |----|| || | | | | + + + + || || | | | | +-----+ +-------+ ++-------++ | | | | | | | ++-------++ | +---------+ | | | ||procedu|| | |c3 . re | | | +--||re ||-+--|:= c1 . | | | | ||cadd || |re + c2 | | | | ++-------++ |. re ; | | | | |c3 . im | | | | |:= c1 . | | | | |im + c2 | | | | |. im | | | | | | | | | +---------+ | | | | | | +-----+ +-------+ ++-------++ | | | +paramet+ +var c1 , + ||complex|| | | | +--+ er +----|c2 , c3 |----|| || | | | | + + + + || || | | | | +-----+ +-------+ ++-------++ | | | | | | | ++-------++ | +---------+ | | | ||procedu|| | |c3 . re | | | +--||re ||-+--|:= c1 . | | | | ||csub || |re - c2 | | | | ++-------++ |. re ; | | | | |c3 . im | | | | |:= c1 . | | | | |im - c2 | | | | |. im | | | | | | | | | +---------+ | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: FTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 南和子 30SS1145 | 文書作成者: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ | | | | | +-----+ +-------+ ++-------++ | | | +paramet+ +var c1 , + ||complex|| | | | +--+ er +----|c2 , c3 |----|| || | | | | + + + + || || | | | | +-----+ +-------+ ++-------++ | | | | | | | | +---------+ | | | | |c3 . re | | | | +--|:= c1 . | | | | | |re * c2 | | | | | |. re - | | | | | |c1 . im *| | | | ++-------++ | |c2 . im | | | | ||procedu|| | |; | | | +--||re ||-+ |c3 . im | | | | ||cmul || |:= c1 . | | | | ++-------++ |re * c2 | | | | |. im + | | | | |c1 . im *| +-------+ +---------+ | | | |c2 . re | +xre , + |real | | | | | | +--|xim |----| | | | | | | | + + | | | | | +---------+ | +-------+ +---------+ | | | | | | | +-----+ | +-------+ ++-------++ | | | +paramet+ | +var c + ||complex|| | | | +--+ er +-+--| |----|| || | | | | + + + + || || | | | | +-----+ +-------+ ++-------++ | | | | | | ++-------++ | ++-------++ | +---------+ | | ||module || | ||procedu|| | |c . re | | | ||fract ||-+--||re ||-+--|:= xre ; | | | || || | ||set_com|| |c . im | | | ++-------++ | ++-------++ |:= xim | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | +-----+ +-------+ ++-------++ | | | +paramet+ +c1 , c2 + ||complex|| | | | +--+ er +----| |----|| || | | | | + + + + || || | | | | +-----+ +-------+ ++-------++ | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: FTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 南和子 30SS1145 | 文書作成者: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ++-------++ | | | | ||gline || | | | +--||( || | | | | ||round (|| | | | | ||c1 . || | | | | ||re * || | | | | ||1000 ) || | | | | ||, || | | | | ||round (|| | | | | ||c1 . || | | | | ||im * || | | | | ||1000 ) || | | | ++-------++ | ||, || | | | ||procedu|| | ||round (|| | | +--||re ||-+ ||c2 . || | | | ||cline || ||re * || | | | ++-------++ ||1000 ) || | | | ||, || | | | ||round (|| | | | ||c2 . || | | | ||im * || | | | ||1000 ) || | | | ||) || | | | || || | | | || || +-------+ ++-------++ | | | || || +c1 , c2 + ||complex|| | | | || || +--|, f0 , |----|| || | | | || || | +f1 + || || | | | ++-------++ | +-------+ ++-------++ | | | | | | | +-----+ | +-------+ +---------+ | | | +paramet+ | +n + |integer | | | | +--+ er +-+--| |----| | | | | | + + + + | | | | | | +-----+ +-------+ +---------+ | | | | | | | | +-----+ +-------+ ++-------++ | | | | +var + +z , z0 , + ||complex|| | | | +--+ +----|z1 |----|| || | | | | + + + + || || | | | | +-----+ +-------+ ++-------++ | | | | T: | | | | ++-------++ | | | | ||cline || | | | | +-||( c1 , || | | | | | ||c2 ) || | | | | | ++-------++ | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: FTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 南和子 30SS1145 | 文書作成者: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ++-------++ | | | | | ||csub ( || | | | | | ||c2 , || | | | | | ||c1 , z || | | | | | ||) || | | | | | || || | | | | | || || | | | | | || || | | | | | || || | | | | | || || | | | | | ++-------++ | | | | | | | | | ++-------++ | | ++-------++ | | | ||procedu|| | | ||cmul ( || | | +--||re ||-+ | ||z , f0 || | | ||ftree || | | ||, z0 ) || | | ++-------++ | | || || | | | | || || | | | | || || | | | | || || | | | | || || | | | | || || | | | | ++-------++ | | | | | | | | | ++-------++ | | | | ||cmul ( || | | | | ||z , f1 || | | | | ||, z1 ) || | | | | || || | | | | || || | | | | || || | | | | || || | | | | || || | | | | || || | | | | ++-------++ | | | | | | | | +-------+ | ++-------++ | | | |if 0 < + | ||cadd ( || | | +--|n +--+ ||c1 , || | | | + | ||z0 , z0|| | | +-------+ | ||) || | | | || || | | | || || | | | || || | | | || || | | | || || | | | ++-------++ | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: FTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 南和子 30SS1145 | 文書作成者: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ++-------++ | | | ||cadd ( || | | | ||c1 , || | | | ||z1 , z1|| | | | ||) || | | | || || | | | || || | | | || || | | | || || | | | || || | | | ++-------++ | | | | | | | ++-------++ | | | ||ftree || | | | ||( c2 , || | | | ||z0 , || | | | ||f0 , f1|| | | | ||, n - || | | | ||1 ) || | | | || || | | | || || | | | || || | | | ++-------++ | | | | | | | ++-------++ | | | ||ftree || | | +-||( c2 , || | | ||z1 , || | | ||f0 , f1|| | | ||, n - || | | ||1 ) || | | || || | | || || | | || || | | ++-------++ | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式9 +-------------------------------------+----------------+----------------------+ | システム名(コード): ALGOPAK | | システム報告書概要 | +-------------------------------------+ +----------------------+ | モジュール名(コード): CFTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者・学生番号: 南和子 30SS1145 | 文書作成者・学生番号: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ | 親モジュール: | 子モジュール: FTREE,COMP,GSXUTY | +-------------------------------------+---------------------------------------+ | 講義名・課題名: | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | 数理科学 NO.267 | +-------------------------------------+ | | 形式: コンプリート | 1985 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納メディア形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的(問題解説、機能解説−制限事項)| 格納メディア番号、ファイル名: 85-5080,CFTREE | | フラクタル・トゥリーをかくプログラ +---------------------------------------+ | | 記述言語・走行OS: TURBO PASCAL | | ム +---------------------------------------+ | | 走行条件(ハードウェア、ソフトウェア)| | | PC-9801,MS-DOS | | | | | | | +-------------------------------------+---------------------------------------+ | キーワード(適用分野、手法など) : | 分類コード(CRコードを使用) : | | フラクタル | | +-------------------------------------+---------------------------------------+ | 呼び出し法: CFTREE | | | +-----------------------------------------------------------------------------+ | 操作手順(コンプリートプログラム(メインプログラム)の場合:1.システム起動手順、2.データ入出力 | | 手順と形式、3.終了手順) | | (サブルーチンの場合:1.呼び出し形式-引き数の並べ方-、2.親ルーチン、3.子ルー | | チン、4.その他) | | | | | | 1.B:CFTREE.SRC | | | | 2. 'hight?' :初めに与える線の長さ(INTEGER) | | | | 'order?' :線をかく回数(INTEGER) | | | | 'factror?':線の長さの比率(REAL) | | | | 'kakudo?' :線の傾いた角度(REAL) | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム1つにつき1枚作成 必要な場合モジュール1つにつき1枚作成(インターフェース仕様書-様式1-に追加) +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: FTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 南和子 30SS1145 | 文書作成者: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ | | | ++-------++ +-----+ +-------+ | | !!program!! +paramet+ +input , + | |---!! ftree !!-!--+ er +----!output ! | |! !! !! ! + + + + | |! ++-------++ ! +-----+ +-------+ | |! ! | |! ! +-----+ ++-------++ +---------+ | |! ! +const + !!pi !! !31415926 ! | |! !--+ +----!! !!----! ! | |! ! + + !! !! ! ! | |! ! +-----+ ++-------++ +---------+ | |! ! | |! ! +-----+ ++-------++ +------++ +-------+ | |! ! +type + !!complex!! !record ++ +re , im + | |! !--+ +----!! !!----! ++----! !---| |! ! + + !! !! ! ++ + + | |! ! +-----+ ++-------++ +------++ +-------+ | |! ! | |! ! +-----+ +-------+ +---------+ | |! ! +var + +th + !real ! | |! !--+ +-!--! !----! ! | |! ! + + ! + + ! ! | |! ! +-----+ ! +-------+ +---------+ | |! ! ! | |! ! ! +-------+ +---------+ | |! ! ! +sinth + !real ! | |! ! !--! !----! ! | |! ! ! + + ! ! | |! ! ! +-------+ +---------+ | |! ! ! | |! ! ! +-------+ +---------+ | |! ! ! +costh + !real ! | |! ! !--! !----! ! | |! ! ! + + ! ! | |! ! ! +-------+ +---------+ | |! ! ! | |! ! ! +-------+ +---------+ | |! ! ! +factor + !real ! | |! ! !--! !----! ! | |! ! ! + + ! ! | |! ! ! +-------+ +---------+ | |! ! ! | |! ! ! +-------+ +---------+ | |! ! ! +center + !real ! | |! ! !--! !----! ! | |! ! ! + + ! ! | |! ! ! +-------+ +---------+ | |! ! ! | |! ! ! +-------+ +---------+ | |! ! ! +hi , + !integer ! | |! ! !--!order !----! ! | |! ! ! + + ! ! | |! ! ! +-------+ +---------+ | |! ! ! | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: FTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 南和子 30SS1145 | 文書作成者: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | !real ! | |---! ! | | ! ! | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: FTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 南和子 30SS1145 | 文書作成者: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ |! ! ! | |! ! ! +-------+ ++-------++ | |! ! ! +f0 , f1 + !!complex!! | |! ! ---!, c0 , !----!! !! | |! ! +c1 + !! !! | |! ! +-------+ ++-------++ | |! ! | |! ! ++-------++ | |! ! !!procedu!! | |! !--!!re exx !! | | ! !! !! | | ! ++-------++ | | ! | | ! ++-------++ | | ! !!gsxinit!! | | !! !! !! | | !! !! !! | | !! ++-------++ | | !! ! | | !! ++-------++ | | !! !!gopen !! | | -!-!!( 1 ) !! | | ! !! !! | | ! ++-------++ | | ! ! | | ! +---------+ | | ! !center ! | | ! !:= maxint! | | ! !/ 2000 ! | | ! +---------+ | | ! ! | | ! +-------+ | | ! +write + | | ! !( ! | | ! +'hight + | | ! +-------+ | | ! ! | | ! +-------+ | | ! +readln + | | ! !( hi ) ! | | ! + + | | ! +-------+ | | ! ! | | ! +-------+ | | ! +write + | | ! !( ! | | ! +'order + | | ! +-------+ | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | | ! ! | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: FTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 南和子 30SS1145 | 文書作成者: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ | ! ! | | ! +-------+ | | ! +readln + | | ! !( ! | | ! !order )! | | ! ! ! | | ! ! ! | | ! ! ! | | ! ! ! | | ! ! ! | | ! + + | | ! +-------+ | | ! ! | | ! +-------+ | | ! +write + | | ! !( ! | | ! +'factor+ | | ! +-------+ | | ! ! | | ! +-------+ | | ! +readln + | | ! !( ! | | ! +factor + | | ! +-------+ | | ! ! | | ! +-------+ | | ! +write + | | ! !( ! | | ! +'kakudo+ | | ! +-------+ | | ! ! | | ! +-------+ | | ! +readln + | | ! !( th ) ! | | ! + + | | ! +-------+ | | ! ! | | ! +--------++ ++-------++ | | ! !while !! !!gclear !! | | ! !not eof !!--!-!! !! | | ! ! !! ! !! !! | | ! +--------++ ! ++-------++ | | ! ! ! ! | | ! ! ! +---------+ | | ! ! ! !th := pi ! | | ! ! ! !* th / ! | | ! ! ! !1800 ; ! | | ! ! ! !costh := ! | | ! ! ! !cos ( th ! | | ! ! ! !) ; ! | | ! ! ! !sinth := ! | | ! ! ! !sin ( th ! | | ! ! ! !) ! | | ! ! ! +---------+ | | ! ! ! ! | +-----------------------------------------------------------------------------+ 様式6 +-------------------------------------+----------------+----------------------+ | システム名: ALGOPAK | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: FTREE | ライブラリ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 南和子 30SS1145 | 文書作成者: 南和子 30SS1145 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/02/ ー / / | 文書作成期間: 61/02/ ー / / | +-------------------------------------+---------------------------------------+ | ! ! ! ! | | ! ! ! ! | | ! ! ! ! | | ! ! ! !