反復組みかえ可能な立体グラフ表示法: 沖縄地域学リポジトリ

(1)

Title

反復組みかえ可能な立体グラフ表示法

Author(s)

阿部, 亮一

Citation

沖大経済論叢 = OKIDAI KEIZAI RONSO, 13(2): 1-53

Issue Date

1989-03-31

URL

http://hdl.handle.net/20.500.12001/6781

(2)

反復組みかえ可能な立体グラフ表示法

阿部亮Ｉ立体グラフ表示の得失と基本的仕様はじめに１数値データのグラフ化の利点２立体グラフの得失３基本構想４用語４．１データ関係４．２グラフ関係５基本仕様

ａグラフ形式ｂ軸成分の反復選択化

ｃ軸割当項目の反復選択化dFunctionkeyによるパラメータ設定

ｅ原データfile構成、プログラムの詳細１基本構成２＃0頭記部（リスト1,1000-1220）３＃１初期設定（リスト1,1240-1400）４＃２メイン・ルーチン（リスト2,1420-1550）５＃３項目切り替え（リスト3,1570-2010）５．１グラフ・パラメータ設定６＃４表示成分選択（リスト4,2030-2670）６．１Ｚ項成分選択６．２ＸＹ軸表示成分選択６．３全表示７＃５基準線引き（リスト5,2690-2930）８＃６軸名・番号記入（リスト6,2950-3480）８．１成分番号表示８．２，ＳＵＭ，表示１

(3)

９＃７棒描画（リスト7,3490-4330）９．１高さ別色づけ９．２描棒９．３等高線再描９．４大数値棒の分割１０＃８ファンクション・キー設定（リスト8,4380-5460）１０．１ｆ・ＫＥＹリセット１０．２簡易説明文１０．３棒幅１０．４棒高さ１０．５棒間隔１０．６棒色彩１０．７項目順１０．８行消去１０．９テキスト画面消去１０．１０グラフィック画面消去１ｏ・１１ファンクション・キー設定変更１１＃９初期化作業（リスト9,5480-5680）１１．１タイトル表示１１．２棒模様データ１２＃１０原データ入力（リスト１０，５７００－６０４０）１２．１データ格納１３＃１１終端処理（リスト１１，６０６０－６１９０） Ⅲ実行例１初期画面２諸事項設定２．１項目変更２．２棒幅変更２．３成分変更２．４表示系選択が３実行結果Ｉ３．１既定値実行結果〔中略〕３．８図表１４の実行結果４実行結果Ⅱ ４．１Bljデータの既定値実行結果４．２図表１６の項目、棒高変更結果 Ⅳ成果２

(4)

Ｉ立体グラフ表示の得失と基本的仕様はじめに報告者はこれまで、パソコンによるアンケート調査の集計、分析をＢＡＳＩＣおよびアセンブリ言語をもちいて行った３つの報告を本誌に発表してきた〔文献１～４参照〕。そのなかで集計結果を棒グラフで表示し、「視覚によるチェックが容易に」（文献３，３４頁）なり、きりの良い数値に丸めて回答されている

例など具体的な「データの偏りを発見」（同35頁)する効用があったことを報告

してグラフ化の意義を強調し、「クロス集計表をそのまま立体化してみることができる３次元グラフ化」を「今後の課題」の１つにあげ（同36頁)、発表を予告していた（同注４．１）。本論は、その実行報告である。１数値データのグラフ化の利点数値データの分析において、数値をそのまま厳密に処理して傾向なり法則性なりをみいだすことは多変量解析ほかで多くおこなわれている有効な方法である。しかし、グラフに表示するという視覚に直接訴える方法も、周知のように第三者への説明手段としてきわめて有効であるばかりか、分析作業そのものにおいてもおおいに役立つものである。数値の羅列からその特徴やデータそのものの問題点を見いだすことは可能であるが、注意力の集中を要し、見落としも発生しやすい。グラフ化すれば直感的に把握されやすくなることは論をまつまい。数値解析とて、なんらかの理論を背景におくことが多いとはいえ、その説明変数を無数にありうる要因から抽出しさらにその組み合せを選定する段階では、直感ないし主観が大きな役割をはたしいろ。結論も、決定的な役割をする要因や組み合せが捨象されているときには二次的な要素で事象が説明されてしまうように、その主観の絡んだ選択に影響を受けざるを得ないのである。この傾向は、複雑な要因が絡み合う社会科学分野で著しい。グラフはそのチェックに役立つ重要な手段なのである。また、数値解析手法は処理対象のデータの精度や確度について通常問うこと

はできない｡つまり原データの偏りや信頼性は別な手段で調べるしかないので

あるが、グラフ表示は上記のように有益な情報を提供しうる。さらに回帰を求３

(5)

めろ際に「説明変数間に強い直線性がある場合、得られた回帰式は非常に不安

定であり、信頼性に欠けろ」ことになり、ＡＩＣ規準などによるチェックが必

要になる（文献５，２１４頁～）が、この多重共線性の検出には、回帰線のまわり

にデータが集中して存在するためグラフを用いるのがきわめて有効となる。

したがって、できるだけ多くのデータがグラフに表示されるのが望まれるのであるが、従来はグラフ化するための労力等から、とくに必要なものに限定さ

れる傾向があった。この技術的な制約は、パソコンが普及して簡単にグラフを

表示できる専用ソフトやそのルーチンを組み込んだソフトが普及するに及んで、

急速に減少していろ。専用ソフトには、MicrosoftChart（マイクロソフト社）

やＴｈｅＧＲＡＰＨ（アスキー社）などがある。またLotusl-2-3（ロータス社）

に代表される表計算やデータ・ベースでは、専用のChartを別売しているMul

tipan（マイクロソフト社）を例外として、ほとんどのソフトがこの機能をも

ち、その機能等がいわゆるセールス・ポイントの一つになっていろ。原データ

の入力、加工からその表示まで連続的に容易な操作で実行できるため、広く使

われているようである。ワードプロセッサでも簡易型ながらとの機能を持って

いるものが多い。これは数値型情報の表示法として、グラフがいかに有効であ

り、その需要があるかを示していろといえよう。２立体グラフの得失

単純な１次元のグラフでも、その要因（変数）の最頻値modeを中心に平均

値、分散の度合や歪度などの情報を与えうるが、表示されない他の要因との相

関関係などは当然与ええない。それを実現するには多次元での表示が必要とな

る。多次元のグラフであれば、各軸の要因の特徴を一時に把握できるばかりか、

各要因間の相関の程度等も見ることができ、法則性の発見を含め上記の役割を

よりよく果たすことができる。ただ、３次元を越えた空間把握が困難な分析主体（人間）の制約と、２次元

の平面にほぼ限られる表示手段（紙、画面）の制約とから、直感に訴える役割

を良くはたしうるのは、一般的には３次元の表示までである。他方で、顔形グ

ラフなどからはじまって星座クラブ、木形クラブなど、３次元を越える多変量

を図示する手法が近年開発されつつあり、対象によっては十分に利用しうるが

４

(6)

〔文献６第６章参照〕、変量や表示内容上の制約が付きまとうのはその本性上

避けられず、まだ広範に活用されるまでにいたっていない。

ここでは多次元変量表示の第一歩でもあり、伝統的な表示法を採用すること

にする。すると、表示可能なのは３次元までとなり、数値の表示に距離（長さ）

を用いるのでこれに１次元分使われるから、データとしては自由度が２、ある

いは制限付で３のもの、つまり２ないし３次元までとなる。３次元データが扱

えるのは、３次元目の要素が、性別や産業大分類別のように数個以下のごく

少数で、かつそれらを２次元の要素の間隔内に並列表示できる場合であって、そ

の個数がふえれば急速に見にくくなることはさけられない。つまり多次元とい

っても、実用的にはその入口の２次元と一部の３次元にほぼ限定されてしまう

のである。

そこでわれわれは、２次元データを対象とし、これを立体的に鳥撤する方法

を採用し、他の要因との関係は２要因ずつ、組み合せを替えながら分析して

いくことで対応することにした。

しかし、立体グラフは、平面的グラフにくらべはるかに煩雑な処理を要する。

各点の位置の算定や棒グラフであればその斜視表示、背後に隠れる場合の隠線

処理、折り返し表示などで、プログラムは複雑になり、操作も煩雑になるのを

避けられない。

また次のような独自の問題も生ずる。一つは、正規分布に当てはめうる例の

多いことが示すように、データはある値の周囲に集中することが多く、そこに

大きな数値を示す棒や線分が密集して判読しにくくなる一万、周辺には空白部

分が生じて空間利用率が悪く見にくいグラフとなる場合が多いことである。二

つには、位置関係を明かにし立体感をだすために棒や壁面を用い背後を隠線処

理をするのが普通だが、これにより背後の数値が見えなくなってしまう場合が

頻発することである。三つには、原点や軸の傾斜のとり方から、基点の算定、

表示手段（点か線か棒か面か）、その高さの縮尺や色模様の選定など多くのパ

ラメータを調整しながら決定する必要があることである。

汎用性の高いものを作れば、プログラムはさらに複雑巨大になり、メモリも

多く占有することになる。市販する場合には一般的な効果にたいし価格の急上

昇は避けられないであろう。立体グラフをメニュー加えているソフトが少ない

５

(7)

（MSChart，にはなく、,ｔｈｅＧＲＡＰＨ,にあるのを知る程度である）のは、こうした理由からであろう。３基本構想われわれは、上記をふまえ、つぎのような基本的構成を定めた。まず、入力データの構造（３次元配列）と表示形式（２次元数値の立体棒グラフ）を限定する。ついで、各軸に割り当てる要因（変数）そのものと、要因を構成する成分の組み合せおよび表示順序を繰り返し選択可能とする。そして、パラメータ群は初期条件に対応した初期値を与えておき、その主なものはFun‐

ctionkeyに設定routineを割り付けてほぼ自動的な表示が可能であるととも

に設定の変更も簡便にできるようにすることにした。使用するパーソナル・コンピュータは、従来使用したＮＥＣ社製の１６bit機 PC-9801Eの後継機、PC9801VM21型機を使用し、言語は速度を要する部分がないためまた変更箇所も多いため、ＭＳ－ＤＯＳ上のBASIC〔Ｎ88-日本語BASIC （86）Version３．０〕を用いることにした。以下、その概要を見ていこう。４用語プログラムの基本仕様を説明する前に、本論で使う用語の意味を明らかにしておこう。頭記のようにこれまで発表した研究をデータを含め引き継ぐので、独自の用語を用いているところがあるので注意されたい。４．１データ関係本プログラムでは５で述べるように、これまで発表した研究で作成された３次元fileをそのまま使う。そこで、本プログラムに読み込まれる３次元fileに収められた加工対象のデータを、従来と同様に、原データとよぶ。それは読み込まれて配列にそのまま転送されるので、配列中のデータも同じ名でよぶことにする。３つの次元に割り当てられた要因（変数）を、項目itemとよぶ。さらに、各項目（変数）を構成する要素（連続数値の階級classと不連続の序数的または

質的区分を含む）をく項目の＞成分component、個々のデータを元素element、

６

(8)

その格納場所をセルcellとよぶ。（注１）なお、データは通常の２次元集計表の横手方向におかれた項目を第１軸（Ｘ)、

縦方向の項目を第２軸（Ｙ）、表示の際にあらかじめ固定される項目を第３軸

（Ｚ）として、この順序（後方軸を固定して前方の軸から増加させていく形）

で、書き込まれているものとする。４．２グラフ関係

表示グラフは５で述べるように、第一象限を烏撤する形とするので、その横

軸をＸ軸､縦軸(奥行き方向）をＹ軸と呼ぶことにし、両軸に割り当てられなか

った３番目の項目をＺ項と呼ぶことにする。Ｚ項の成分（数値あるいは範囑）

があらかじめ選定され、それに対応してＸＹ軸に割り当てられた項目間のクロ

ス集計が図示されることになる。原データは３次元のクロス集計,体，を示して

いろと見なせるから、Ｚ項の成分はいわば切り口で、ＸＹ平面はその断面とい

える。通常、立体図の上下方向の軸をＺ軸と呼ぶが、本論ではその意味でＺを

用いないので、注意を要する。（注２）

データの大きさは立体棒の高さであらわすが、これはDISPLAY画面上

の点dotの数（度数ともよぶ）で表示する。

（注１）データを特定する要因（あるいは関数関係とみて変数）に相当するも

のを、項目とよぶのは、若干奇異にとれるが、アンケートデータのように多数

の調査項目を成分としているときには項目を中心に分析していくため、選択さ

れた各項目を構成する回答番号等が項目の項目という形になり不明確になるの

で、連続・不連続の包括の意図にくわえて、成分とよぶことにしたのである。

なお､，MSChart，では、平面グラフにおいて横軸の変数を項目、縦軸のを数値

とよんでいるが、横軸にも数値の階級が置かれることがあるので、汎用性を損なう〔文献７，１７４頁ほか〕。，Lotus１－２－３，では、横軸も変数のときは、XY Chartとよんで、別扱いしていろ〔文献8,2-103頁ほか〕。

（注２）このようになったのは、３つの項目のうち、２つを任意に選択して表

示するようにしたため、表示しない項目が切り口の場所を定める役割になったからである。７

(9)

５基本仕様ａグラフ形式ａ－１第一象限の烏睡

グラフは第一象限を左手前上から斜視（鳥勵）する形とする。

従来の立体グラフは、理由は不明だが、第二あるいは第四象限に展開される

ものが多かった。原点のとり方や数値きざみの場合増加方向が第一象限に展開

する通常の平面グラフと異なり、読み取りにくいものであった。ここでは､訓通

常の平面グラフの数値をそのまま立体視するイメージをうろため、第一象限に

展開し、これを左手前上方から斜視（鳥撒）する形式とする。ａ－２棒グラフグラフ形式は棒グラフとする。

立体グラフで数値を表示するには、折れ線と棒の２種類が考えられるが、折

れ線は変化量を見やすいものの、数値の集中する部分では線が錯綜してかえっ

て見にくくなり、高さを明示するため基準線から色や模様で壁をつけろと背後

に隠れる部分が多くなり好ましくないうえ、不連続な成分には不適であるので、

ここでは汎用性のある棒で表示することにする。

なお棒の高さは、汎用性を考えて主対象となる千分比のとき見やすくなるよ

う調整していろ（むろん実数でも差し支えないが合計が1000程度になるように

スケールを調整する必要がある）。また図の収まりから、上限を１０Odotsとし、

これを越えるものは１OOdotsの棒を手前方向に並べ最後に残度数の棒を描くこ

とにする〔図表７参照〕。また高さの分別と棒の所属成分の判定が容易にでき

るように、高さに応じて（既定では２０度数ごとに）色を分け、ＸまたはＹ（既定）の成分に応じて模様をつけろ。ａ－３外壁状合計欄

合計欄はＸＹ軸の端末成分として外壁状に表示するα

数値を記載した集計表では通常縦横の合計欄が下端と右端に記載され、検算

や全体の分布状況を見るのに役だっているが、本例でもこれにしたがって、各

成分の合計値を両軸最後の成分として表示することにする。合計値がグラフを

外壁のように外側から囲む形となり、見やすくなるとともに単純集計も同時に

観察できることになる。ただ、合計値のためその値が一般の集計値より大きく

８

(10)

なり表示上バランスがとれなくなりがちなので、棒の高さは一般の場合の５分の１に縮尺して表示することにする。この配置は、通常の集計表を合計欄・合計行を含めほぼそのままデータfile 化したものを、そのまま配列に入れるだけで実現できるので、ｆｉｌｅとの整合性がよく処理手続きも簡単になる。ｂ軸成分の反復選択化各軸上の成分とその位置を反復して選択可能とする。各軸に割り当てられた要因（変数）の成分（数値階級や選択肢等）のうち必

要な組み合せを繰り返し選択できるようにし、同時にそれらの軸上の位置（順

序）も繰り返し自由に選択できるようにする。これにより過密な状態を緩和して十分観察できるだけでなく、隠蔽された部分を見やすい位置に移動して観察できることになる。ｃ軸割当項目の反復選択化各軸への要因（変数）の割当も反復して変更可能とする。柱）これに加えて、各軸に展開される要因全体を繰り返し自由に交替できるようにする。これにより異なった角度から組み合せの状況を視察できるようになり、新たな傾向や法則性の発見機会が増加することが期待されるd

dFunctionkeyによるパラメータ設定

グラフ諸パラメータの設定をFunctionkeyに割り当てて随時変更可能とする。

立体グラフは、軸の角度ないし烏撤の位置、棒の高さや幅や色・模様など多（注）初期のverSionでは、表示項目の位置（軸）が任意に入れ換えられることによって軸と項目との直接的な関係が切れ、プログラムに誤りが発生しやすくなると同時に解読しにくくなると考えられたので、データ配列を保存用と表示・加工用との２つを用いることにしていた。軸を入れ換えるときには前者から後者へ新たな順序でデータを転送し、作業は専ら後者で行うようにすれば、ＸＹＺ各軸の順序は固定しているので表示が明示的にでき混乱を防ぎうると期

待したからである。しかし、軸を固定したまま成分（選択肢等）を入れ換える

ことも多いため一括して関数化しても実際上の見通しはあまり悪化しないため、

データを格納する配列は１つのみとした。９

(11)

数のパラメータを指定しなければ表示できないうえ、その適否が分析に大きく影響するので、各軸の成分の数その他に応じた一般的に妥当な諸パラメータを既定値としてまず算定しておき、とくに指定しなくても外観はつかめるようにする。また、多数の設定を毎回行うのは面倒であり、操作の途中で変更すべき

項目が出てくることもあるので、Functionkeyに主要なパラメータを変更する

機能を付与し、それらキーの割り込みによってさまざまな段階から変更を行えるようにする。変更しなかったパラメータの値はできるだけ記憶しておき再利用できるようにする。これにより操作が簡略化される。なお、Functionkeyの番号は、キーボードの表示を借用して、，f・３，等と略記することにする。また、ＲＥＴＵＲＮキーも画面表示等では,ＣＲ,と略記することもある｡ｅ原データfile構成

原データfileは３次元配列のSequentialdatafileとする。

原データのfile形式は、既往のアンケート調査で作成されたfileをそのまま表示するため、また処理を簡素化するため、３次元配列に限定し、先頭部にそ

の名称や略称、要因番号を付加したSequentialdatafileとする。つまり、ア

ンケート・データ分析のリスト９〔文献３，９９－１００頁〕に示されたように、３次元のクロス集計結果を先頭の項目ＸがＯからその合計欄まで増加していき、それがつぎのＹ、Ｚに波及する方向で、データが並べられることになる。そして先頭部に、３つの次元に割り当てられた各項目（例Ｘ）の項目番号（ＸＮ）、

英数字略号（Ｘ１＄）、日本語略称（Ｘ２＄）、成分数（Ｘｓ）がＸ項目から

順に記載されていろ。これらを読み出せばグラフ上の項目名や配列のdimen‐ sionを自動的に設定できろ。なお、１，２次元のデータは、高次の変数が単一の成分しかない配列として同等に扱えろ。４次以上の表示を要するデータはあまり多く見あたらないので、必要なときには要因（変数）を３つずつ組み合せて１組ごとに処理することを繰り返せば、全体をカバーすることもできるので、本例の３次元形式で一応満足できよう。以上の基本仕様を実現すべく作成したプログラムを次にみていこう。－１０－

(12)

Ⅱプログラムの詳細１基本構成複雑な処理を見通しよく誤謬のすぐないプログラムとするため、構造化をめざした。ただ、ここで用いたＮＥＣ社製の言語BASICは行番号に縛られ構造化のための命令体系も不備であるため、作業を内容に応じてSubroutine群に分割し、その内部もできるだけ機能ごとにSubroutineに分割するなどして、 MODULE化をこころがけた。そして、構造化プログラムで構成を明確にするために一般的に行われているように、冒頭部分で全体を集約する形式とした。リ

スト１に見るように、頭記部〔＃OHeadings，1000-1220〕と初期設定部〔＃１

１nitialwork，1240-1400〕についで、ＭＡＩＮ部〔＃２Mainroutine，1420

1550〕で作業Subroutine群を順次コールして処理を進めている。

なお、このような独立性の強いSubroutine群でプログラムを構成する場合、それらの間の関係が不明瞭になりやすいので、ここではそれらの関係（主従など）を明示しかつその展開箇所を容易に見いだせるように、一般書籍における章節構成を取り入れ、＃記号を先頭に数字と－記号で順次下位の項目を表示している。また目次に相当する部分を冒頭に設けている〔1090-1220〕･主たる Subroutine群の名称と機能はリストにも簡単な説明があるが、もうすこし詳しい説明を次に掲げろ。各行の＊で始まる部分はSubroutine名である。＃Ｏ＊Ｄ3Ｄタイトルと目次部分だけの部分。

＃１システムや主要変数、Functionkeyの設定を行う。

＃２＊MAINSubroutineを順次呼んで作業を行っていくMain routineである。＃３＊ＰＯＳＩＳＷ３つの項目（変数）の表示位置（軸、項）を切りかえ指定する。＃４＊ＮＵＭ・ＳＥＬ

表示するｂａｓｅ（第３次元）と成分component（１，

２次元）を指定する。ここにラベル＊ＲＥＤＯがつけられており、繰り返し表示はここから再開する。＃５＊ＧＲＯＵＮＤＬＩＮＥグラフの経緯線、高度線を引く。＃６＊ＮＵＭＢＥＲ項目名、基盤面２軸の項目番号や度数凡例を書く。 11

(13)

７８＃＃＊ＢＡＲＤRＡＷ立体棒を描く（経緯で模様分け、度数で色分け）。＊IＮＩＴ.ＦＫＥＹ

_{諸設定変更のSubroutine群をFunctionkeyに}

も割り当てる。

＊TITLEDSP、＊ＴＩＬＥＳＴＲ冒頭にタイトル表示と棒模様の設定を

行う。＊ＤＡＴＡＩＮ _{原データをFileから読み込み、原データ配列に転} 送する。＊ＥＮＤＯＲＲＥＤＯ終了か再開かを指定する。＃９＃1０＃1１

以下、各機能の概要をリストに沿いながらより詳しくみていこう。各節の表

題は順に、プログラム上での節番号（＃印）、日本語表題、ラベル名、リスト

番号、その行番号を意味していろ。リスト１，－Ｌ－－－－－ニーーーーー－－－－－＝＝－－－－ニーーーーー－－－－－－－－－－－－＝＿＿二－二－－－－－－＝－－－＝－－－－－－－■￣■￣■－－－－－■－－－－－－－－■￣￣■￣－－－亡＝＝_~=--_￣=~_ニー_＿_＿ﾆｰｰﾆｰｩ－－－－＝＝￣＝＝■￣■－，〈〈＃Ｏ〉〉Ｈｅａｄｍｇｓｌ－Ｑ－－－＿＿＝－－ニーーーーーーーーーー－－＝－－－－＝＝－ニーーーーーー＝圭一一一一で＝＝＝－＝＝－－－－－－－－－－－－－－■￣－－－■￣■－－－－－－－－－－－－－－Ｆ＝－－￣￣￣＝￣＝￣＝＝－－￣~ローーーーー「－－－￣￣ *D3D DATA，，**********************************************，，ＤＡＴＡ，,＊３－ＤＢａｒＧｒａｐｈＤｉｓｐｌａｙ＊，, ＤＡＴＡ，，＊Copyright（C）ｌ９８９ｂｙＲ.Abｅ＊,，ＤＡＴＡ，，**********************************************，’ ｌＯＯＯｌＯ１０１０２０１０３０１０４０１０５０１０６０１０７０１０８０１０９０１１００１１１０１１２０１１３０１１４０ 1１５０１１６０１１７０１１８０１１９０ ,＊**************＊ＴａｂｌｅｏｆＣｏｎｔｅｎｔｓ＊***************＊，＃０Ｈｅａｄｉｎ８ｓ，＃１１ｎｉｔｉａｌｗｏｒｋ，＃２Ｎａｉｎｒｏｕｔｉｎｅ ,＃３Ｓｗｉｔｃｈｐｏｓｉｔｉｏｎｓｏｆｌｔｅｍｓ，ＭＳｅｌｅｃｔＣｏｍｐｏｎｅｎｔｓｏｆｌｔｅｍｓｔｏｄｉｓｐｌａｙ ,＃５ＤｒａＷＧｒｏｕｎｄｌｉｎｅｓ，＃６Ｎｕｍｂｅｒｉｎｇ，＃７ＤｒａＷＢａｒｓ，＃８ＳｕｂｒｏｕｔｉｎｅｓｏｎＰｕｎｃｔｉｏｎｋｅｙｓ

，＃９Initialsub-routines（ＤｉｓｐＴｉｔｌｅ＆tilestrings）

１２

(14)

1200’＃ｌ０Ｇｅｔｄａｔａｌ２１０，＃ｌ１Ｅｎｄｉｎ８ｏｐｅｒａｔｉｏｎ

ｌ２２０,＊*********************************************************＊

1230, 1240,＝==========================＝=============＝=＝ 1250,〈〈＃１－ｌｎｉｔｉａｌｗｏｒｋｌ２６０，＝=＝========＝==＝＝========================＝＝ 1270, 1280ＣＬＥＡＲ＆H1０００，，，＆H2000：ＳＣＲＥＥＮ３１２９０ＤＥＦ１ＮＴＡ－Ｚ

ｌ３００ＤＥＦＦＮＹES=lNSTR(，，Yyﾝ，，+CHR$(13),INPUT$(1)），ｃｈｅｃｋＹｅｓ

ｌ３１０Ｄ１ＮＸ(15),Y(15），ｔｏｓｔｏｒｅｏｒｄｅｒｏｆＡｎｓ・ｎｏ・ｌ３２０１Ｘ＝ｌ：１V=２：１Ｚ=３,lteIIIs，Ｎｏ．ａｓｓｉｇｎｅｄｆｏｒＸ,Ｙ,Ｚ

１３３０ＸＯ=216：ＹＯ=348’１ｏｃａｔｉｏｎｏｆｔｈｅＯｒｉ８ｉｎｏｆＧｒａｐｈ

ｌ３４０ＶB(1)二80：IIB(2)=60：Ｖ８(3)=40：ＶＢ(4)=20：Ｗ(5)=０

，borderheightfor8ar-color赤黄緑水青

1350Ｆ=&HFF，ａｓｓｉ８ｎｔｉｌｅｃｏｌｏｒｌ３６０’ １３７０，‐‐‐－．Ｉｎｉｔｉａｌｓｕｂ－ｒｏｕｔｉｎｅｓ‐‐‐‐‐‐‐ l380GOSUB＊Ｔ１ＴＬＥ・DSP，Ｉｌ９－１ｄｉｓｐｌａｙＴｉｔｌｅｌ３９０ＧＯＳＵＢ＊ＴＩＬＥ・ＳＴＲ，#9-2ｓｅｔ８ａｒｔｉｌｅｓｔｒｉｎ８ｓｌ４００ＧＯＳＵ８＊ｌＮｌＴ.ＦKEY，#８ｉｎｉｔｉａｌｉｚｅＦｕｎｃｔｉｏｎｋｅｙｓｌ４１０, ２＃０頭記部＊Ｄ3Ｄ（リスト1,1000-1220）〔１０００〕他のプログラムに連結ＭＥＲＧＥした際に、このプログラム部分へのＥＮＴＲＹＰＯＩＮＴとするラベル。ただし、実際にMERＧＥさせるには行番号や配列・変数名の重複指定のチェックのほか、環境設定の重複や矛盾にも配慮する必要がある。またこのプログラムからの脱出先（＊ＥＸＩＴ〔１５５０〕）を相手プログラムにあわせる必要もある。〔1040-1070〕プログムラの見出し部画面へのタイトル表示〔＃9-1〕にも流用するため、ＤＡＴＡ文としてある。〔1090-1220〕上記のように、プログラムの目次である。１３

(15)

３＃１初期設定（リスト1,1240-1400）

〔１２８０〕環境設定。機械語領域に64kbytes、ＲＡＭDiskへの転送などを行う

CHILD命令の作業用にl28kytesを割り当てておく。

〔１３００〕ユーザ関数ＦＮＹＥＳは、，Yes，,ＮＣ，を使用者にたずねる場面が多い

ため、これを簡単確実に処理するため設定した（Ｙ，ｙ,ン，ＲＥＴＵＲＮｋｅｙの

いずれかの入力でINSTR関数により１以上の値が返されることになり、これを

調べることで分岐の手続きが簡単に行えろ）。

〔1310-1350〕初期値設定。プログラム全体を通して使われる変数等の明示を

企図したが、実際に使用する場でしか設定できない原データ配列Ｄ(Ｘ,Ｙ,Ｚ）

のようなものもあり、また使用する場所近くで設定した方が理解しやすいこと

もあって、このように半端な展開となってしまった。

Ｘ(）とＹ(）は、繰り返し入れ換えられうるＸ、Ｙ軸の成分（変量階級、回答

肢）の現在の順序を入れておく表示用の配列である。

ＩX、ＩＹ、ＩＺは、ＸＹ軸、Ｚ項に原データのどの項目番号（当初の順は123)が割

り当てられたかを示す変数で、この組み合せをかえることで６通りの表示が可

能となる。

ＸＯとＹＯは表示画面上のグラフの原点の位置を示す（第一象限であるため下

方中央部になる）。

ＷＢ(）は、表示棒の高さを示す色分けの限界値（ここではdot数）をいれる

配列である。対象に応じて、ここをかえれば見やすい色分けが可能となる。

Ｆは、棒の模様を定めるSTRＩＮＧ関数の３原色ごとの指定を簡便に表示する

ために定義した。

〔１３８０〕Subroutine＊ＴＩＴＬＥＤＳＰ〔＃9-1〕をよんで、上記のタイトル

を表示する。

〔１３９０〕Subroutine＊ＴＩＬＥＳＴＲ〔＃9-2〕をよんで、棒の模様パター

ン６種を定義する。

〔１４００〕Subroutine＊ＩＮＩＴＦＫＥＹ〔＃8〕をよんで、諸設定の変更を

割り込みで処理するSubroutineをよびだすFunctionkeyの設定を行う。

1４

(16)

４＃２メイン・ルーチン＊ＭＡＩＮ（リスト2,1420-1550）

本プログラムの中枢部分である。リストにあるとおり、７つのSubroutine

を次々によびだして、処理を進めていく。

はじめに、＃１０＊ＤＡＴＡＩＮで、Disk中の原データを、データ配列に読み

込む。

ついで、＃３＊ＰＯＳＬＳＷで、３つの項目（変数）の役割（Ｘ軸、Ｙ軸、Ｚ

項）を切りかえ指定する。

３番目に、＃４＊ＮＵＭ・ＳＥＬで、上記３項目の役割一Ｚ項の切り口、ＸＹ

軸の表示成分component-を具体的に規定する。なお、この前にラベル＊ＲＥＤＯ

があり、再実行の際はここから再開することになる。

４番目の＃５＊ＧＲＯＵＮＤＬＩＮＥから、グラフの描画準備がはじまる。こ

こでは、基盤上の経緯線と等高線を引く。

５番目の＃６＊ＮＵＭＢＥＲでは、項目の役割表示、基盤面２軸の項目番号や

度数凡例を書く。６番目の＃７＊ＢＡＲＤＲＡＷで、実際に立体棒を、経緯で

模様分け、度数で色分けしながら、順次描いていく。

最後の＃１１＊ＥＮＤＯＲＲＥＤＯでは、作業の終了か再実行かを決定し、前

者の場合は1550行でプログラムを終え、後者では1490行の＊ＲＥＤＯにもどって

表示作業を再開することになる。リスト２－－■■■－－■■■－－－－■■■■■■￣■■■－－■■■￣■■■－－－－■■■Ｄ－－■■■'－－－－－－■■■－－－－－－－＝=＝－－ニニニニーー，－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－＝＝＝＝＝＝三三二二ニーーーーーニ，〈〈＃２〉〉ｌｖｌａｉｎｒｏｕｔｉｎｅ－－－－■■■￣■■■■■■■■■－－■■■－－－－－－'■■■■■●－－－－■■■－－－－■■■－－■■■■■■■■■－－－－＝－－－－－＿ニーニーー，－－－－－－－－－．－－－－－－－－－－－－－－－－－－－－－－ニーー＝＝ニーーーーーー－－－＝ *ＮＡｌＮ

ＧＯＳＵ８＊DATA、１Ｎ，＃１０ｇｅｔ＆transferdata(onendpart）

GOSUB＊ＰＯＳＩ・ＳＶ,＃３ｓｗｉｔｃｈｐａｒｔｓｏｆｌｔｅｍｓ＆ｓｅｔｓｐｅｃｓ． *REDO GOSUB＊NUN・ＳＥＬ，ＩＩ４ｓｅＩｅｃｔＡｎｓ・ｎｏ・ GOSU8＊GROUNDLlNE，#５draWgroudlines GOSU8＊NUMBER，＃６ｄｒａｗＡｎｓ・ｎｏ．＆ｈｅｉ８ｈｔｉｎｄｅｘＧＯＳＵ８＊BARDRAV，#７ｄｒａＷ８ａｒ１４２０１４３０１４４０１４５０１４６０１４７０１４８０１４9０１５００１５１０１５２０１５３０ 1５

(17)

GOSUB＊END・ＯＲ・ＲＥＤＯ,＃ｌ１ｅｎｄｉｎ８０ｐｅｒａｔｉｏｎ *EＸ１ＴＥＮＤ 1５４０１５５０１５６０５＃３項目切り替え＊ＰＯＳＬＳＷ（リスト3,1570-2010）原データを構成する３つの項目（これを順に１２３とよぶことにする）の役割（次元、軸）を指定するroutineである。１．４．１で説明したように、３つの項目はＸＹ軸とＺ項に割り当てられるが、Ｘ軸に割り当てられる原項目番号をＩＸに、Ｙ軸のをＩＹに、Ｚ項のをＩＺにいれておく（＃１初期設定で初期値を設定済み）。〔1630-1660〕画面0行目に各項目の現在の役割を表示する。＊ＣＬＲＬＩＮＥｘは、添字のｘ行目をClearしてその行頭にCursorを移動させるSubroutineである。〔1680-1710〕１行目で現役割を変更するかどうかを尋ねろ。しないときは、＃３１にとぶ。1700行で変数ＦＫにＯをいれ、キー入力をさせてから、そのＦＫが非Ｏならこのブロックを再実行するようにしているのは、キー入力待ち

の間に、既定の入力以外の諸設定を変更すべ<Functionkeyをおして割込処理

をしても、プログラムの流れを乱さずにキー入力処理を再開するためである。柱）（注）N88-BASICに限らず多くの言語で、割込処理後の復帰は、割込時点の状態にではなく、次のＳＴＥＰに戻るようになっている。これは、割込時の状態がきわめて多様でありうるので、その状態の保存と再設定が保障できないから

であろう。そこでここでは、割込がなされたか否かを示すflag変数ＦＫを設

け、これを割込発生の前にＲＥＳＥＴし、割込時にはＳＥＴして、割込処理対象のＳＴＥＰの直後にこれをチェックし、RESET状態ならば割込なしとしてつぎのＳＴＥＰに進み、変化あればもとのキー入力処理ルーチンを必要なところまでさかのぼって再開するようにしていろ。 1６

(18)

〔1720-1780〕変更する場合、１行目で新たなＸＹＺに割り付ける番号列（例

２３１）を入力させ、再確認した〔1740-1750〕のち、ＩＸ等の変数を変更する。

〔18001810〕上記の変更にしたがって、諸変数等に既定値を入れるSubrou‐

tｉｎｅ＊ＳＰＥＣＩＮＩＴをよび、ＲＥＴＵＲＮする。

５．１＃３－１グラフ･パラメータ設定＊SPECINIT（1840-1920）

新たな軸。項の割り当てに基づいて、グラフのパラメータ（諸元）を設定す

る〔図表１参照〕。

〔1860-1870〕新たな軸・項の成分総数をＮＸＯ外に入れ、表示用の成分総数を

示すＮＸ外に転写しておく。表示成分の組み合せは自由に変更させるのでもと

の総数は別に記憶しておく必要があるのである。

〔１８８０〕ＨＳ（ＨＳＯ）はデータ表示のスケールで、棒の高さ（100dots）

に対するデータの度数（数値）を示し、既定値は200とする。ＢＷＩＤは棒の

横幅の指標（軸目盛の間隔の何分の１か）で、初期値を３分の１としておく。

〔１８９０〕ＸＹ両軸の成分列Ｘ(），Ｙ(）を原データの順をそのまま表示できる

ように自然序数で初期化しておく。〔1900-1910〕＊ＢＡＲＷＩＤＴＨをよんで棒の幅を決めてから、＊SPECINIT をよんで他の諸設定事項を自動設定して、復帰する。＊ＳＰＥＣＡＵＴＯ〔1930-2010〕＃３－１－１グラフ諸事項の自動設定図表１に示されたグラフの基図表１盤描画の割付に必要な諸項目を、画面をいつぱいに利用して表示する方向で自動的に設定する routineである。〔1950-1960〕ＸＰ,ＹＰは、ＸＹ軸の成分の間隔intervalで、ＸＰは後の間隔自由設定の際の上限を示すためにＸＲＤに記憶させておく。「－コめいる）芯図では訂E明0 】I ユ 1７

(19)

〔１９７０〕ＤＸは、縦Ｙ軸の画面上の傾斜を定めるもので、ここでは試行の結

果背後を隠す割合が低く見栄えも良い－４／３の傾き（約130度）とした。

〔1980-2000〕ＦＷは、棒のＸ軸側の幅で､＊ＢＡＲＷＩＤＴＨで指定されたＢ

ＷＩＤで決められる。ＳＷとＳＨは、棒のＹ軸側の幅の横と縦の成分で、長さはＸ軸

側の５／９にしてある（ただし棒の形状を保つためＳＷは３dotsを下限として

いろ）。リスト３フーー＝＝＝＝＝＝＝＝＝＝＝＝＝－－－－－－－－ニーーー－－－－－－－－－－－－－－－－－－－－■－－－－－－－－－■－－■－－■－[＝＝=＝－－－－－－－－－■－－■－－－－■－－－■－－－－－－－－－－－－－－－

，〈〈＃３〉〉Ｓｗｉｔｃｌ１ｐｏｓｉｔｉｏｎｓｏｆｌｔｅｍｓ

,＝＝＝＝＝＝＝＝＝＝ニーーーーニーーーーー－－－－－－－－－－－－＝＝－－＝＝＝＝－－＝＝ニーーーーーー￣■￣－－－－－＝＝＝＝＝＝＝＝＝＝＝－－－－－－－－－－－－－－■－■－－－－－－－－－－－－－－－－ *ＰＯＳＩ・ＳＶ

ＡＸ$(lＸ)="X(１０，８.)，'：ＡＸ$(１V)=，，Y(Iａｔ.)'，：ハX$(|Ｚ)=，,Z(base)，，

GOSU8＊CLR・ＬｌＮＥＯＰＲｌＮＴ,，ＩｔｅｍｓＰａｒｔｓ，,；

FOR｜＝ｌＴＯ３：ＰＲ１ＮＴＳＴＲ$(1)”:，，;V2$（１）;”ａｓ，，AX$(1);：ＮＥＸＴ

ＰＲｌＮＴ＊ＰＯＳＩ．Ｓ･ｌＧＯＳＵ８＊ＣＬＲＬｌＮＥ１

ＰＲｌＮＴ，，Tochangetheorder，ｈｉｔ［C]．，，；

ＦＫ=O：Ｋ二lNSTR(，，Ccｿ，，,INPUT$(1))：ＩＦＦＫＴＨＥⅢ680

GOSUB＊CLR・ＬＩＮＥ１：ｌＦＫＴＨＥＮＥＬＳＥ１７９０

ＰＲｌＮＴ，，Inputnewltems，Ｐａｒｔｓｆｏｒ［XYZ]，ｅｏ８.[231]．”；

ＦＫ=Ｏ：ｌＮＰＵＴＡ＄：ｌＦＰＫＴＨＥＮ１７１０ＰＲｌＮＴ'’０Ｋ？”；ＩＦＦＮＹＥＳＴＨＥＮＥＬＳＥ＊ＰＯＳＩ．Ｓ、ｌｌＸ=VAL(ＨＩＤ$(A＄,１，１)）１V=VAL(HID$(A$,2,1)）｜Z二VAL(HID$(A$,3,1)）

GOSUB＊CLR・Ｌ１ＮＥＯ:'GOSUB＊CLR・ＬｌＮＥ１:ＧＯＳＵ８＊CLR・ＬｌＮＥ２

ＧＯＳＵＢ＊SPEC・lN1T RETURN '５７０１５８０１５９０１６００１６１０１６２０１６３０１６４0 1650 1660 1670 1680 1690 1700 1710 1７２０１７３０１７４０１７５０１７６０１７７０１７８０１７９０１８００１８１０１８２０１８３０

_{'－－＜#3‐ｌ〉ＩｎｉｔｉａｌｉｚｉｎｇＶａｒｉａｂＩｅｓ}

1８

(20)

００００００００００００００４５６７８９０１２３４５６７８８８８８８９９９９９９９９１１１１１１１１１１１１１１＊SPECblN1Tグ…．Ｌノル，～…，ｓｃａｌｅｏｆＢａｒ：ＦＶ=ｆｒｏｎｔｗｉｄｔｈ，ＨＳ二H8t・ＳｃａｉｅＮＸＯ=S(IＸ)+1：NVO=S(|Ｙ)+1：NZO二ｓ(ｌＺ)+ｌＮＸ=NXO：ＮＹ=NYO：ＮＺ=NZO HS二200:ⅡＳ､0=ＨＳ：Ｂ､ｖ106.0=３己ＦＯＲK二ＯＴＯ１５：Ｘ(K)二K：Y(K>二K：ＮＥＸＴ～ GOSU8＊BAR・ＮｌＤＴＨＪ, GOSU8＊SPEC・ＡＵＴＯ（・ＲＥＴＵＲＮｉＬ－，－＜#3-1:Ｆ１＞＊SPEOAUTO XP=INT((632-XO-l6)/NX)：ＸＰＤ=ＸＰＹＰ二INT((YO-ll4)/NY）ＤＸ=INT(VP*3/4)ａ，ｌＦ（XO-8*3)<NY*ＤＸＴＨＥＮＤＸ=lNT((XO-8*3)/NY） Ⅳ二lNT(XP/８.ＶＩＤ）Ｗ=INT(FW3)：｜ＰＳＶ<３THEＮＳＷ二３ＳＨ二C1NT(SV*4/3）へRETURN-‘ 1980 1990 2000 2010 2020 ６＃４表示成分選択＊ＮＵＭＳＥＬ（リスト4,2030-2670）〔2070-2200〕第３次元（Ｚ項）の表示成分やＸＹ軸の表示成分を指定する。＊ＲＥＤＯでここから再開することになるｄ表示の実質上のＭＡＩＮｒｏｔｉｎｅの先頭といえよう。Ｌまず、メニューがでて、表示されるグラフを背後で規定する第３次元（Ｚ項）の成分を変更するのか〔Ｚ〕、表示中のＸＹ軸の成分を変更するのか〔Ａ〕、それ以外か〔ＲＥＴＵＲＮ〕をたずねる。ＺのときはSubroutine＊ＮＵＭ.ＳＢＡＳＥ（＃４－１）が、Ａのときは同じく＊ＮＵＭＳＣＨＡＮＧＥ（＃4-2）がよばれ、処理後に戻ってくる。Ｔ〔ＲＥＴＵＲＮ〕のときは、さらに質問がでて既定値で＜全図を＞､見るか

〔Ｐ；＃４－３がよばれる〕、直前のグラフを繰り返してみるか,〔ＣＲｏｒＲ；た

だ戻る〕を決めて〔2150-2200入処理後に戻ってくる。い～」 1９

(21)

６．１＃４－１Ｚ項成分選択＊ＮＵＭＳＢＡＳＥ（2210-2330）・

〔2220-2270〕Ｚ項の切り口(成分）の最大値（合計欄）ＮＺＯを表示し｛そ

れ以下の数値を入力するよう求めろ。

〔1180-2330〕ついでＸＹ軸の項目の全成分を表示するか否かをきき、すると

きには＊ＮＵＭＳＡＬＬ〔＃４－３〕を呼んで戻り、否のときは次に説明する

＊ＮＵＭＳＣＨＡＮＧＥを呼んでから戻る。

６．２＃４－２ｘＹ軸表示成分選択＊ＮｕＭｓｃＨＡＮＧＥ（2340-2480）

Ｘ軸、Ｙ軸の順に、新たな表示成分の組み合せの入力が順次求められる。終

端は、９９の入力で判断し、そこまでの入力回数をＮＸ,ＮＹとし、最後の番号に

合計欄番号を記入する〔2410,2440〕。

＊ＮＵＭ・ＷＫ〔＃4-2-1,2490-2610〕はその作業roUtineである。

ついで既述の＊ＢＡＲ・ＷＩＤや＊ＳＰＥＣＡＵＴＯを呼んで、他のパラメータを

設定しなおして戻る。６．３＃４－３全表示＊ＮＵＭ.ＳＡＬＬ（2620-2670）

ＸＹ軸とも全成分を表示するためのroutineで、表示成分番号を格納する２

配列Ｘ（)、Ｙ（）に１から順に合計欄の番号まで入れ、諸パラメータを＊SPEC

ＡＵＴＯで設定しなおして、戻る。リスト４ ,＝＝＝ニーニニニーニﾆｰｰﾆｰ－－－－－ニーーニーー－－‐－－－－－－－－－＝二一一一一一一二二一一三＝＝－－－－＝＝＝－－－￣-－－－－－＝￣＝＝－－‐ニニーニーーーーニニーニー三一一－一一一一三一＝￣-＝ニニーーー

，〈〈＃４〉〉ＳｅｌｅｃｔＣｏｍｐｏｎｅｎｔｓｏｆｌｔｅｍｓｔｏｄｉｓｐｌａｙ

,＝ニニニニニニニーニニーーーーーーー－－－－－－＝＝＝一二－一二一ニニーーーー_{￣＝＝＝ニーーーー－－－－￣￣＝－－￣－－－－二一一＝＝ニーーーーーー＝＝￣￣＝＝＝＝￣￣-三二三一一＝} 2030 2040 2050 2060 2070 2080 2090 *NUN･ＳＥＬＧＯＳＵＢ＊CLRLlNEO

PR1NT，，IlitKeytochan8e；［Z］Ｂａｓｅｏｆｃｈａｒｔｏｒ［A]ns・ｎｏ.,，，；

，，ｅｌｓｅ［CR］，，；ＦＫ=O：Ａ$二INPUT$(1)：ｌＦＦＫＴＨＥＮ２０８０ＧＯＳＵＢ＊ＣＬＲ・Ｌ１ＮＥＯＩＦｌＮＳＴＲ(，，Zz".A$）THENGOSU8＊ＮＵＭＳ､8ASE：RETURN IFINSTR(，，Aa，，,A$）THENGOSU8＊NUN.Ｓ・CHANGE：RETURN lFlNSTR(CHR$(13),A$）ＴＨＥＮＥＬＳＥ＊NUN・SEL 2１００２１１０２１２０２１３０２１４０ 2０

(22)

2150

PRINT "Hit Ke:y to show [P]rearrangedl:y or [CR,R]epeatedl:y.";

2160

FK=O: BS=INPUT$(l): IF FK THEN 2110

2170

GOSUB*CLR~LINEO

2180

IF INSTR("Pp",BS) THEN GOSUB *NUM.S.ALL ; RETURN

2190

IF' INSTR("Rr"+CHR$(13),B$) THEN RETURN

2200 GOTO *NUM.SEL

2210

'---<#4-1>---2220

*NUM.S.BASE·

2230

GOSUB *CLR.LINEO

2240

PR

I

NT

"I nput the Base of Chart

=

No. of Z

«=";

NZO: ")";

2250

fK=O: INPUT Z$: IF FK THEN *NUM.S.BASE

2260

IF Z$="" THEN *NUM. S. B. NX

2270

IF VAL(Z$)<=NZO THEN NZ=VAL(Z$) ELSE *NUM.S.BASE

2280

*NUM.S.B.NX

2290

GOSUB *CLR.LINEO

2300

PRINT "To show AI

I

ans.,

hit

[A] else any

key. ";

2310

FK=O: K=INSTR("Aa",INPUT$(I»: IF FK THEN *NUM.S.B.NX

2320

IF

K

THEN GOSUB *NUM.S.ALL

ELSE GOSUB *NUM.S.CHANGE

2330

RETURN

2340

'---<#4-2>---2350

*NUM.S.CHANGE

2360

LOCATE 0,3 : PRINT

"1

nput New Order.

[tai

1=99] "

2370

GOSUB *CLR.LINEO:

2380

PRINT "Order:

0

1

2

3

4

5 6 7

8 9 10

11 12 13 14"

2390

XV=l: MAX=NXO

2400

GOSUB

*CLR~LINE1:

PRINT USING

"X

<##";MAX;

2410

GOSUB *NUM.WK: NX=R-l: X(NX)=NXO

2420

XV=2: MAX=NYO

2430

GOSUB *CLR.LINE2: PRINT USING

"V

<##";MAX;

2440

GOSUB

*NUM.WK:

NY=R·l: Y(NY)=NYO

2450

GOSUB SAR.WIDTH: GOSUB SPEC.AUTO

2460

GOSUB CLR.LINEO: GOSUB CLR.LINEl: GOSUB *CLR.LINE2

2470

LOCATE

0,3:

PRINT SPC(30)

2480

RETURN

2490

'---<#4-2-1>

2500

*NU~1.

WK

2510

R=O: E$=''''

2520

WHILE E$<>"99"

AND

R<=MAX

2530

LOCATE R*3+7,XY

(23)

-ＩＮＰＵＴ,,,,,Ｅ＄ＩＦＥ$=，,,，ＴＨＥＮ２５７０１ＦＸＹ=ｌＴＨＥＮＸ(R)=VAL(E$）ＥＬＳＥＶ(R)二VAL(E$）Ｒ=R＋１ VEND LOCATER*3+８，ＸＹ：ＰＲＩＮＴ’'0K?,,；ＩＦＦＮＹＥＳＴＨＥＮＥＬＳＥ＊NUN・ＶＫＲＥＴＵＲＮ '‐－<#4-3〉Ｓｅｌｅｃｔａｌｌ－－－‐‐ *NUM.Ｓ・ＡＬＬＮＸ=NXO：ＮＹ＝ＮＹＯＦｎＲＫ=ＯＴＯｌ５：Ｘ(K)二K：Ｙ(K)二K：ＮＥＸＴ（;U5UB＊SPEC､AUTO RETURN 2540 2550 2560 2570 2580 2590 2600 2610 2620 2630 2640 2650 2660 ２６７０２６８０７＃５基準線引き＊ＧＲＯＵＮＤＬＩＮＥ（リスト5,2690-2930）グラフの経緯線、高度線を引く。 12740〕ＳＸ,ＳＹは、Ｙ軸端の原点からの相対位置、ＳＣＸは、Ｘ軸端の相対位置のＸ成分（Ｙ成分の水平なので不変）である。〔27502800〕縦方向の線をＮＸ件分引く。まずＹ軸方向に相対位置（ＳＸ，ＳＹ）まで、細かい緑色の点線を〔２７８０〕、ついでその端末から垂直にスケール用の柱をl00dots分青色点線を〔２７９０〕引いていく。配色と線種は、目的の棒が見にくくなるのを防ぐものにしたが、地味すぎて多少見にくい面もある。〔2810-2860〕横方向の線を、上と全く同様の方法で引いていろ。〔2870-2930〕最後に棒の高さを示す等高線を、ＸＹ両軸端から立ち上がった柱で構成される外壁の横方向にl0dotsおきに１０本ひく。リスト５フーーーーーーーーーーーーーーーーーーーーーー．.．－０．．－－－－－－－－－－－－－－－－.－－－－－－－－－－－－－￣－－－－－－■■■－－－－－－－￣---0---ご￣､－－－－－－－－－■■■－－■■■■－－－－，〈〈＃５〉〉 DrawGroundLiI1es 2690 2700 2２

(24)

2710,＝===＝=＝===ニニーニニ＝========＝==========＝====＝ 27202 2730＊GROUND・Ｌ１ＮＥ：ＣＬＳ２２７４０ＳＸ＝-NY*､Ｘ：ＳＹ＝-NY*ＶＰ：SCX=XP*ＮＸ’ ２７５０，－‐‐‐－Lengthwise‐‐‐－－－‐－， 2760ＦＯＲ｜＝ＯＴＯＮＸ,タテホウコウ 2770ＰＯＩＮＴ（XO+Ｉ*XP,YO） 2780L1ND-STEP(SX,ＳＹ）,4,,&HAAAA、～ 2790ＬＩＮＥ‐STEP(0,;-100),１，，&Ｈ８８８８２８００ＮＥＸＴｌ２８１０，‐‐‐－‐Ｈｏｒｉｚｏｎｔａｌｌｙ‐‐‐‐‐‐‐‐

2820ＦＯＲＪ=０ＴＯＮＹ⑲ヨコホウコウ

2830八POINT（XO-J*DX,YO-J*VP） 2840ＬｌＮＥ‐STEP(SCX,０）,4,,&H8888~ 2850ＬＩＮＥ‐STEP(0,‐100),１，，&H8888 2860NEXTJ ２８７０，‐‐‐‐‐‐ＨｅｉｇｈｔＳｃａｌｅ‐‐－－２８８０ＦＯＲＫ＝ｌＴＯ１０２８９０ＰＯＩＮＴ（XO+SX,YO+SV-K*10）1 2900ＬＩＮＥ‐STEP（SCX．Ｏ),１，，&H8888 2910LlNE-STEP(-sX’9sY),川&HAAAA ２９２０ＮＥＸＴ２９３０ＲＥTURN ２９４０，８＃６軸名ｐ番号記入＊ＮＵＭＢＥＲ（リスト6,2950-3480）

〔3000-3050〕図示される切り口ｚ項やｘＹ両軸の名称（ｗ２＄()）とＺ項

の成分番号を画面底辺に書く。」

〔3060-3120〕Ｘ軸の成分番号（時に度数階級）を、軸線の下側にグラフィッ

ク文Ｔ２として記入する。番号Ｘ（）はJJに代入され、＊ＰＵＴＩＤＸ〔＃６－１〕に渡されて表′j〈が行われろ。また終端の成分を合計欄に固定しているため、そこに，ＳＵＭ，を表示する＊ＰＵＴ､ＳＵＭ〔＃６－２〕をよぶ。、？￣〔3130-3190〕Ｙ軸について、その左側に上と同様の表示を行う。

〔3200-3340〕Ｙ軸端上部の棒高さを示す等高線の中間（５本目）に、その大

2３

(25)

きさを４分の１角文字で小さく表示する。この等高線に直接接する合計欄の数値は、一般の要素の５分の１にしてあるので、合計欄用の数値を()にいれて併記する。ここで用いる文字はPC-9801シリーズにJIS外で組み込まれている４分の１角グラフィック文字（ＣＯＤＥ、１６進数で0130から0139）である。８．１＃６－１成分番号表示＊ＰＵＴＩＤＸ（3350-3390）表示するＸＹ両軸成分の番号をグラフィック画面に半角文字で表示する。そのＣＯＤＥ番号は１６進数で0030から0039である。８．２＃６－２，ＳＵＭ，表示＊ＰＵＴＳＵＭ（3400-3470），ＳＵＭ'の半角文字を上記と同様にグラフィック表示するｄ文字のASCIIＣＯ‐ ＤＥをそのままＫＡＮＪＩ関数に渡せば良いのは上と同様である。リスト６，－，－－－‐＿～---＝＝＝＝－－＝＿二一ニーニーニーー－－－－＝＝＝-＝二－－－－－と＝－－＝＝￣￣二----＝＝＝＝－－－＝--‐ニニーーーーー－－－－－－－－－－－－－－－－－－－－－－，〈〈ＩＩ６〉〉Ｎｕｍｂｅｒｌｉｎｅｓｌ－－－－－－－＝＿-ニーーーー=＝＝＿-.--ニーーニーーーーーーーーー－－－＝＝－－＝＿ニーー〒---~_-=ﾆｰﾆｰ----￣＝＝＝＝－－－－＝－－－－－－－－－－－－－－－－－－－－－－－－－－ 2950 2960 2970 2980 2990 3000 3010 3020 3030 3040 3050 3060 3070 3080 3090 3100 ３１１０３１２０３１３０３１４０３１５０ *NUNBER’０－〉ＮＸ,ＮＹｍａｘｌ５，１５－‐‐‐‐Title CLS LOCATEq22：PRINT,，Z:'，;V2$（ＩＺ）ＰＲＩＮＴ，,#,，NZ;，，<=',NZO； LOCATE13,23：PRINT，,Y:，，;112$(1V)；,，latitude LOCATE35,23：ＰＲＩＮＴ，'X:，，;V2$（|Ｘ)；，Ｉｏｎｇｉｔｕｄｅ－‐－－ヨコＸシ塵クーー‐‐‐‐－‐‐‐‐ Ｙ=22*1６，XｼｰｸＮｏ．ｌｉｎｅ：CINT(YO/16）ＦＯＲＪ=ＯＴＯＮＸ－１Ｘ=XO+XP*J－４：ＪＪ=X(ＤＧＯＳＵ８＊ＰＵｍｌＤＸＮＥＸＴＸ=XO+XP*ＮＸ－４：GOSUB＊PUTSUN ---タテYシリ---ＦＯＲＪ=ＯＴＯＮＹ－ｌＶ=YO-YP*J－８：Ｘ二XO-DX*J-18：JJ二V(J）－２４

(26)

3160

GOSUB *PUT.IOX

3170

3180

Y=YO-YPNY-8 : X=XO-OXNY-18

3190

GOSUB *PUT.SUM

3200

,---

~T

Scale

[1/4 b?

~~~]

3210

UP.S$=STR$(INT( 5HS/I0»: UP.L=LEN(UP.S$)-l*

3220

LW.S$=STR$(INT(2S*HS/IO»: LW.L=LEN(LW.S$)-l

3230

VX=XO+SX-8*LW.L-12: VY=YO+SY-46

3240

FOR J=l TO

UP.L:

vxo=J*a

3250

CODE=&HIOO+ASC(MIO$(UP.S$,J+l,l))

3260

PUT(VX+VXO,VY-I0),KANJI(CODE)

3270

3280

FOR

J=l TO

LW.L:

VXO=J*7

3290

CODE=&HI00+ASC(MID$(LW.S$~J+1,1»

3300

PUT(VX+VXO,VY

),KANJI(COOE)

3310

3320

IF VX>=O THEN

PUT(VX,VV),KANJI(&H128)

'(

3330

PUT(VX+VXO+7.VY),KANJI(&H129)

')

3340

RETURN

3350

'---<#6-1>---3360

*PUT. lOX

3370

IF JJ>9 THEN PUT(X-8,V),KANJI(ASC("1"»: JJ=JJ-IO

3380

PUT(X,Y),KANJI(&H30+JJ)

3390

RETURN

3400

'---<#6-2>---~

3410

*PUT.SUM

3420

X=X-12

'to arrange tail to

numbers

3430

FOR K=O TO 2

3440

COOE=ASC(MID$("SUM",K+l,l»

3450

PUT(X ,V) , KAN .

.1

,I

(CODE): X=X +8

3460

3470

RETURN

3480 '

(27)

-９＃７棒描画＊ＢＡＲＤＲＡＷ（リスト7,3490-4350）立体棒を描く中枢部分である。狭義の＊ＢＡＲＤＲＡＷ〔3530-3670〕をＭＡＩＮとして、ここから下請けのSubroutine群を呼び出して、複雑な作業を遂行していろ。〔3540-3550〕棒グラフは、Ｙ軸外側（合計欄）から手前へ（変数Ｂ）、Ｘ軸を原点から右外側へ移動させながら（変数Ａ）、描いていく〔ループ端は、 3650〕。このように、後方の棒から描くことで、手前の棒がこれに重なる場合にはその部分を隠すことができる。すなわち隠線処理がなされるのである。〔3560-3570〕初期設定＃１で指摘したように、項目の配置によって引き出すデータの順序が当然異なってくるため、その指定の仕方が複雑にならざるをえない。そこで、配列ｖＯを設け、これをパラメータとして、固定した原データ配列，（，，）から指定された項目割当と成分配列に応じた要素を指定することにした。そのアルゴリズムはつぎのとおりである。Ｄ（，，）の第ｉ次元（ｉ＜＝3）の成分を指す変数をＶ（１）とし、各項目のＸ，Ｙ，Ｚへの割り当てを示す変

数Ⅸ,ＩＹ,ＩＺをＶ()の配列番号にすれば、そのＶ(IX)はＸ(XYZのいずれか）軸．

項に割り当てた項目の成分を指すことになる。さらに、これにＸＹ軸の成分配

列Ｘ（Ａ），Ｙ(Ｂ）を代入(Ｖ(Ⅸ)＝Ｘ(Ａ），Ｖ（ＩＹ)＝Ｙ（Ｂ))し、Ｚ項の固定成

分を代入（Ｖ（IZ)＝ＮＺ)すれば、Ｖ(Ｉｘ）はｘに割り当てられた各項目の指定さ

れた成分番号を指すことになる。そこで、データ配列，（，，）の配列番号を

順にＶ（１），Ｖ（２），Ｖ（３）と指定すれば、原データ配列のままで任意に割り当てられた軸・項の指定された成分番号に対応する要素（元）が引き出されてくることになる。たとえば、Ｘ軸に第３項目が割り当てられた（Ⅸ＝３）とすれば､Ｖ(Ⅸ)－Ｖ（３）となり、このＶ（３）にＸ軸の成分Ｘ（Ａ）が代入されることになるから、Ｄ（Ｖ（１），Ｖ（２），Ｖ（３））は，（Ｖ（１），Ｖ（２），Ｘ（Ａ)）ということになり、Ｘ軸に位置づけられた第３項目（次元）がＸ(Ａ）の値に応じて変化していくことになる。こうして、Ｖ(Ix）をパラメータにすることによって、原データ配列，（，，）１つだけで、表示軸等の割り当てを自由に変更しても、Ｘ軸、Ｙ 2６

(28)

軸の順に固定したループの中で処理できるのである。柱）そして、ここで引き出された要素，（，，）の値に、高さのScaleをあてて（＊100／ＨＳ）、棒の高さＴ（単位ｄｏt）が算出された。〔3580-3600〕つぎに、高さＴがＯのときはバイパスさせたのち、手前隅の位置ＷＸ、ＷＹを定め、合計欄のときは棒高さを５分の１にする。〔３６１０〕Subroutine＊ＢＡＲＣＯＬＲ〔＃７－１〕を呼びだして、棒の高さに応じて色を定める。〔3620-3630〕棒の高さが100度数をこえるときは、＊ＴＡＬＬ〔＃７－３〕をよんで処理し、他は＊ＢＡＲＳＥＴ〔＃７－２〕をよんで実際に棒を表示する。〔3640-3650〕以上の過程を繰り返す。〔３６６０〕＊Ｈ・ＳＣＡＬＥ２〔＃７－３〕をよんで、棒群で一部隠された外壁部の等高線を再び描き、高さを読みやすくする。９．１＃７－１高さ別色づけ＊ＢＡＲＣＯＬＲ（3690-3760）棒の色ＣＯＬを定めろ。ＷＢ()で定められた値に応じて高い順に、赤、黄、緑、水、青色が与えられる。初期値は、＃１の1340行で与えられている。

同時に模様の色もこれと同一にするため３原色のnag変数ＢＬＵ,ＲＥＤ,ＧＲＮ

に0（これと論理積ＡＮＤをとる全bitがＯとなりマスクされることになる）かＦ（16進でＦＦ、同様に相手の全bitがそのままでてくる）を指定する。９．２＃７－２描棒＊ＢＡＲＳＥＴ（3770-4160）棒を描く。まず色を設定する変数Ｃに棒の色に使用しない紫（code3)を指定して、＊ＦＲＡＭＥＯＵＴＥＲ〔＃７－２－１〕をよびだし棒の外輪郭を描き、＊ＦＲＡＭＥＳＷＥＥＰ〔同－２〕で枠内を無色にする。つぎに色Ｃに白（cobe7）を指定して外輪郭を白くし、＊ＦＲＡＭＥＩＮＮＥＲ〔同－３〕で外輪部内にある３本の稜線を同色で引く。そして＊ＢＡＲＴＩＬＩＮＧ〔同－４〕で模様を描いて１本の棒を（注）このように多層化した処理をせずに、表示のためのデータ配列を別に設定し、項目の軸割り当てを変えるたびに書換える方法もあるし、ＸＹ軸に割り当てる項目の組み合せに応じた処理系を並設して選択させる方法もある。いずれも論理構成は単純になるが、処理系が６種も必要になり、分岐や合流の処理などもでてきて、かえって複雑になり冗長化するのを避けられない。 2７

(29)

描き終る。外枠を２回引くような面倒なことをするのは、手前のものが背後を隠す隠線処理をするためで、一度通常の模様や線に使わない色で囲い中を無色 (DISPLAY上では黒）にしてから本来の線の色で囲いなおし、線と模様を新たに描くことでそれが実現されるからである。以下、これら下請けrOutineを説明する。＃７－２－１＊ＦＲＡＭＥＯＵＴＥＲ〔3830-3910〕棒の基準点（ＷＸ、ＷＹ)から左廻りに相対移動６ＳＴＥＰで棒の図上の外郭線を描いていく。＊７－２－２＊ＦＲＡＭＥＳＷＥＥＰ〔3920-3950〕上記で描かれた外輪郭線内部をＣＯＬＯＲ番号Ｏ、黒（実は無色）で塗りつぶす。背後に書かれていた画像はすべて消え、新たな棒が前面にでて描かれろ。つまり陰線処理が行われるのであるが、後から描かれるものがそれ以前のものを隠すので、手前のものほど後から描く必要がある。＊ＢＡＲＤＲＡＷのＹ軸方向の描画順が番号の大きいものから０番までと逆順になっているのはそのためである。＃７－２－３＊ＦＲＡＭＥＩＮＮＥＲ〔3960-4010〕外輪郭内に棒の上面手前角に集まる３本の稜線があるが、これを描く。外輪郭と分けて描くのは、内部の清掃を一括して行った方が簡便だからである。

＃7-2-4＊BARTILING〔4020-4160〕まず、STRING変数TILE$で模

様１byte分のdotパターンを数値で示す変数Ｋと、＃７－１で指定された原色と

のＡＮＤをとって色付きの模様を定めろ。そして後半で、棒の頂面に色（ここでは黒）を塗り、その大きさによって定められる色Ｃを左側面は全面に、正面は上記で定めた模様パターンを描く。９．３＃７－３等高線再描＊ＨＳＣＡＬＥ２（4170-4240）等高線ははじめに引かれ、棒によって消されてしまうため、棒の高さが測りにくくなってしまうので、棒の上から再び描くことで見えやすくした。なお、 50と100の線は水色にして多少目立つようにしている６９．４＃７－４大数値棒の分割＊ＴＡＬＬ（4250-4330）要素の度数が大きく、棒が100dotsを越える場合、画面のはみ出しや他部分の隠蔽等を防ぎ見やすくするために、高さ100の棒を順次手前に並べて描き、残った分を最手前に描く。描くのは上記の＊ＢＡＲ・SETである。４本以上並ぶと手

前の棒の領域にはいって見苦しくなるので、Heightscale〔ｆ・３キー〕老調

2８

(30)

'draw height scale again

'---<#7-1>

assign bar color

---*BAR.~OLR

'Ranging with 5 color

#Ji~]J<1f

IF T>WB(I) THEN COL=2: BLU=O: RED=F: GRN=O: RETURN

IF T>WB(2) THEN COL=6: BLU=O: RED=F: GRN=F: RETURN

IF T>WB(3) THEN COL=4: BLU=O: RED=O: GRN=F: RETURN

IF T>WB(4) THEN COL=5: BLU=F: RED=O: GRN=F: RETURN

IF T>WB(5) THEN COL=1: BLU=F: RED=O: GRN=O: RETURN

RETURN

'---<#7-2>

set

&

draw Bar

----*BAR.SET

'BAR.FRAME

C=3: GOSUB FRAME.OUTER: GOSUB FRAME.SWEEP

C=7: GDSUB FRAME.OUTER: GOSUB FRAME.INNER

GOSUB *BAR.TILING

RETURN

t)

A

~

7 3490 '===============================================

3500'

«#7»

Draw Bars

3510 '===============================================

3520· ,

3530 *BAR.DRAW

3540

FOR B=NY TO 0 STEP -I

'#

V-axis

"3550

FOR A=O TO NX

'#

X-axis

3560

V(IX)=X(A): V(IY)=V(B): V(IZ)=NZ

3570

T=CINT(D(V(I),V(2),V(3))*100/HS)

3580

IF T=O THEN *B. OX

'case: nu II -> pass

3590

WX=XO+AXP-BDX: WY=YO-B*VP

'position of Bar

3600

IF B=NY OR A=NX THEN

T=CINT(T/5)

'sum colslrows are

1/5

3610

GOSUB *BAR.COLR

'sellect "Bar color

3620

IF T>100 THEN GOSUB TALL: GOTD B.DX 'folding tall ba5

3630

GOSUB *BAR.SET

'set Bar frame

&

draw

3640

*B.DX

3650

3660 GOSUB *H.SCALE2

3670 RETURN

3680 '

3690

3700

3710

3720

3730

3740

3750

3760

3770

3780

3790

3800

3810

3820

- 29

(31)

-'side

botm

'side I

'top back#

'side

r '

'front r

'f

ront botm

3830

3840

3850

3860

3870

3880

3890

3900

3910

3920

3930

3940

3950

3960

3970

3980

3990

4000

4010

4020

4030

4040

4050

4060

4070

4080

4090

4100

4110

4120

4130

4140

4150

4160

4170

4180

4190

4200

'--<17-2-1>

*FRAME.OUTER

'OUT.F

LINE(WX,WV)-STEP(-SW,-SH),C

LINE -STEP( O,-T),C

LINE -STEP(FW,O),C

LINE -STEP(SW,SH),C

LINE -STEP(

0,

T),C

LINE

~STEP(-FW,O),C

RETURN

'--<#7-2-2>

*F'RAME.SWEEP

PAINT'STEP(l,-I),O,C

'paint black inside of frame

RETURN

'--<#7-2-3>

*FRAME'. INNER

LINE

-STEP(

O,-T),C

'front I

"LINE' -STEP(FW,O),C

'front top'#

LINE(WX,WV'-T)-STEP(-SW,-SH),C

'top I

RETURN

, '- -<#7 -

'2 -

4>

*BAR.TILING

'-- set ti Ie patterns

: TI

LE$="": VPAT=B

MOD

6 I.MAX=VAL(LEFT$(PAT$(YPAT),I»

FOR I=1 TO I .MAX

K=VAL("&H"+MIO$(PAT$(VPAT),3*1,2»

'piece

of

pat.

TILE$=TILE$'+CH'R$(K

AND

BLU)+CHR$(K

AND RED)

+CHR$(K

AND

GRN)

'select

colors

"- - draw

patterns

PAINT

(WX,WV-T-l),O,C

'top

color

IF' T<2 THEN RETURN

PAINT STEP(-2, O),COL,C

'side

color

PAINT (WX+2,WY-l),TILES,C

'front

ti

Ie

RETURN

'---<#7-3~

Height Scale

2 ----*H.SCALE2

FOR

K=l

TO

10 : SC=I:

IF K MOO 5 THEN

ELSE

SC=5

POINT

(XO+SX,YO+SY-K*lO)

(32)

-4210ＬＩＮＥ‐STEP（SCX，Ｏ),SC,,&H8888 4220ＬｌＮＥ‐STEP(-SX,-sY),SC,,&HAAAA 4230ＮＥＸＴ 4240RETURN 4250’－－<#7-4＞Ｔａｌｌｂａｒ‐‐‐‐－－－‐‐ 4260＊TALL 4270、=Ｔ￥100：Ｒ=TN0DlOO 4280ＦＯＲＴ１＝ｌＴＯＤ,ｄｒａｗｌｏｎｇｂａｒｓｉｎａｒｏｗ４２９０Ｔ＝100：ＣＯL=２：GOSU8＊BAR・ＳＥＴ’ 4３００ＷＸ＝ＶＸ＋ＳＭＷ＝Ｗ＋SＨ,ｔｏｗａｒｄｓｆｏｒｅ８ｒｏｕｎｄ４３１０ＮＥＸＴ 4320Ｔ=Ｒ：ＣＯL=２：GOSU8＊BAR・ＳＥＴ，ｄｒａＨｒｅｓｉｄｕａＩｂａｒ４３３０RETURN 4340’ 4350,＊******＊Ｔａｉｌｏｆ３Ｄ８ａｒＤｒａＨｉｎ８＊*********＊ 4360, １０＃８ファンクション・キー設定＊INlTFKEY（リスト8,4370-5460）

諸設定変更のSubroutine群をFunctionkeyにも割り当てる。

ＢＡＳＩＣでのFunctionkeyによる割り込みはく１行分の処理が終了すること

にチェックされ、そのキーに割り当てられたRoutineにとんでその機能が実行されるので、頻緊にあるいは不時に使用される機能群を割り付ければ、プログ

ラムを簡潔にして見通しをよくすると同時に決りきった入力を減らすなど操作

性と融通性も向上できる性質を持っていろ。本件のように設定事項が多くその

変更機会も多い場合には、きわめて高い効果をあげうる。途中の段階から抜け

出て最初から設定しなおすことも前に戻ることもできるなど分析上の使い勝手

も大幅に向上する。本プログラムでは、この機能を広く活用している。

〔4410-4480〕＊INITFKEY本体各キーに割り当てた機能の名称を表示し

た後、ＯＮＫＥＹＧＯＳＵＢ．､で各機能のSubroutine名を指定し〔4460〕、この

割り込みを有効にして、キー指定変更'のflagＫＥＹ・ＣＨＧＫをたてろ〔4460〕。

またＳＴＯＰkeyで、既定の機能に戻すSubroutine＊ＦＫＲＥＳＥＴ〔＃8-0〕に

飛ぶようにしておく（これはf･10で復旧する）。 3１