Title
初期型パソコンによる経済基礎統計分析
Author(s)
阿部, 亮一
Citation
沖大経済論叢 = OKIDAI KEIZAI RONSO, 9(2): 105-131
Issue Date
1985-03-31
URL
http://hdl.handle.net/20.500.12001/6747
初期型パ ソコ ンに よ る経済基礎統計 分析
阿 部 亮 一 1. パ ソコンの普及 と利用の拡大 パ ソコンの発達史 本論で使用 したMZ- 80K2.
BASICの特徴 MZ- 80KのBASIC 3.統計処理への適用 4.プログ ラムの概要 本プログ ラムの特徴 項 目名の説明 プログ ラムの具体的構成 プログ ラム上の工夫点 5.プログ ラムの実行結果 今後の課題 1. パ ソ コ ンの普 及 と利 用 の拡 大 パソコンあるいはマイコンと略称 される超小型 コンピュータは ､その中枢装 置たるCPU (注1)の祖型が登場 したのが 1971年 と､その歴 史が非常に浅い にもかかわ らず ､ 1980年代には急速に普及 しつつある (表 1参照)｡少年層にはゲーム等のホビー ･ユースの面か ら､社会人にはOA (OnceAutomation)の
中心機器として ､またCAD (ComputerAided Design)や CAM (〟 " Manu-facturing)やCA l ( 〟 " Assisted LnstnlCtion)と称 して美術 ･工業向の設計や 製造や教 育の中にも浸透 しつつ ある｡文書作成 に特化 したいわゆ るワー ドブロ
-セ ッサの 最近の普及 には眼をみは るものが あり､事務系を中心 に労働環境や産 業構造 は大幅な変化 を もた らす と して広 く注 目されてい る｡ さ らに この機器は ､人間個有の もの と思われて きた知的能力の一部を機械 に 置換 して ､いわば思考 し､かつ熟練作業の一部 も代行 で きる能力を もっため ､ その可能性 と危険性の分析 ､その対策の検討 ､人間 との好 ま しい関係の模索が､ 広汎 にまた慎重に展開 され る必要が ある｡ただ ､事態の進行の速 さに ､その作 業が追 いっけずにいることは否めない (注2)0 本論 は ､復帰後の沖縄経済構造の分析 (注3)の一環 と して ､初期型のパ ソ コンを用 いて行 な った経済統計の基礎的分析のプ ログ ラムをフォローす ること で ､パ ソコンの可能性や限界 ､注意点等 を検討 しようとす るものである｡ 表1 パ -ソナル ･コンピュータ発運 の歴史
パ ソコンの発達史 パ ソコンはマイコンと用語上混用 されてい るが ､その発展段 階に応 じて ､ハ ー ドウェア ､ソフ トウェアともほぼ完成 し家電機器の よ うに売買 され特 別のマ ニアでな くて も身近かに利用できるようにな った
1
9
7
0
年代末以降の ものを､パ ーソナル ･コンピュータとよぷにふ さわ しく､それ以前の一枚の基板上 に全部 品を登載 しただけで ､基本的なソフ トウェアさえ 自作 を要 した ものは個 性が強 か ったこと もあ っで t私の-My " コンピュータといえ ､マイクロ ･コンピュ ータとよぷのが適 している (文献8
参照)0 さてパ ソコンの第 1世代 は､1
9
7
7
年に登場 したアメ りカの アップ/レ社のAP-PLE
IIとコモ ドール社のPET
を噂矢 と し､日本 では､1
9
7
8
年 に出たシャープ㈱〔以下メーカーの社名は通称 を用 い る 〕のMZ-
8
0K
や翌年の 日立のベ ー シ ッ クマスター レベ/
レ
Ⅱ､NEC
のPC-
8
0
01
､沖電気のiト 8
0
0
などを も って形成さ れた. これ らは ,欧文 タイプ ライタ形式のキーボー ドを もち､テ レビジ ョン等 のデ ィスプ レイや カセ ッ ト･テープ レコーダや フロッピィ ･デ ィス ク装置 ､プ りンタ等へのインターフェースを備 え ､またそれ ら周辺装置を大量に提供す る 一方 ､その 当時マイコン ･パ ソコン用 に急速 に開発 ･利用 されてきた言語BAS-ICを標準言語 として採用 して ､操作 とプ ログ ラ ミングお よびその異機種 間での 移植を容易に し､ゲ ームや ビジネス用の市販 ソフ トウ ェア も充実 させて ､パ ソ コンのブームを もた らしたO その2年内に大型 コンピュータ ･メーカーの富士 通や東芝 も参入 し､その後はl
C技術 やソフ トウ ェア技術の急伸 を背景 に機 能 の充実 と価格の引下げが本体 ･周辺機器ソフ トウェアを問わず繰 り返 され ､激 烈 な競争が展開 されてい った｡8
2-8
3
年 には8
ビッ ト機 (注4)の能 力 を 十 分に駆使す る第2世代の機種が登場 してきた｡ その結果 ､ 8ビッ ト機の直接管理可能 な記憶装置 (メモ り)の領域の狭 さ (28×2
8-6
5,
5
3
6
バイ ト)とそれに も関連す る処 理ス ピー ドの遅 さおよびプ ログ ラ ムや言語の大 きさの制限などか らくる能力の限界が問題 とされ ､ビジネス用 を 中心によ り高い処理速度 と直接管理 メモ リの飛躍的増加 (8ビッ ト機の1
6-2
5
6
倍)が可能 となる1
6
ビッ ト機への移行が始 ま った｡他方ホビー用等では8
ビッ ト機の画面表示や音楽 ･音声出力の機能向上がはか られてい る｡-1
0
7-手槍で使用 した
〟2-8
0Ⅹ
著者は ､現在 ､大学で標準的1
6
ビッ ト携､pc19
8
01E(
NEC)
を､8
イン チ ･フロッピィ ･デ ィスク装置を接続 して ､利用 しているが ､本研究はその導 入前に .自宅に設置 してあ ったシャープ製のMZ-8
0
K
の システム (注5
)香 用いて始め られていた.またこの第1世代機は .単純なゆえにパソコンの可能 性 と問題点を知 るのに好都合であ った. 同機は ､既成の構成要素を組み立てるだけのキ ッ トであるという以外に次の ような特徴を も っているo(I)プログ ラミング言 語BASI
C
を､他 機 種 がROM
(
Re
a
dOnl
yMe
mor
y;
読み出 し専用の記憶用I
C
｡命令やデータが電源を切 って も保存 されている)に焼 きこんで本休内に格納 しているのに対 し､始動ご とに外部のカセ ッ ト･テープやフロッピィ ･デ ィスクか らRAM(
Ra
ndo
m Ac
-c
e
s
sMe
mo
r
y;
随時読み書 き可能な記憶用I
C
｡通常､電源が切れると記憶は消 滅す る)に読みこむ方式をと っている｡大型機 と同 じ方式で .言語等を 自由に 選択できるという利点を もっ.同社はこれを ｢ク り-ン ･コンピュータ ｣と自 賛 している｡ しか しBASI
C
が､高速 ･省 メモ りをめざすプログ ラムで多用 され る機械語Ma
c
hi
neLa
ngua
g
e
とともに独占的位置を占めるに及んで､読みこみ に時間がかか り､テープの劣化進行で読みこみエ ラーが発生 しやす くなるなど 不利にな ってい った｡ も っとも.デ ィスク使用を前提 とするシステムでは.BAS-I
C
のROM
を .無色のRAM
に切 り換 え られ るものが増加 してお り.機能が向 上す る程 ｢ク り-ン化 ｣が進みつつ あり､その意味では先進的であ ったともい え150 (2)ユーザが使えるメモ りが4
8
K
バイ ト (注4
参照)
に限定 されており､大 規模な言語やプログ ラムやデータは扱えないという限界がある (ライバルとい われたPC-8
0
01
も同様だ ったが)0(
3
)
処理の基準クロックが2
MHz(メガ･へ /レツ)であり.後の標準4MHzの半分 しかなく､処理 もこの比どお りでないに して も遅い｡(4)後述のように言語BASI
C
の内容や周辺機器の仕様が独特で､他 社のような国際的標準への準拠か ら外れているため､互換性が悪い｡これは自 社製の後継機種間で も発生 し､2大メーカ-の地位をすべ り落ちる原因とな っ た｡-1
0
8-2. BASICの特徴
プログ ラム作成のための言語BASI
Cは､大型機の最もポピュラーな言語FOR-TRAN (1957年にIBM社で開発された科学技術用の言語｡FORmulasTRANs･
lationか らの造語)とよく似た高級 (即 ち人間言語に近 い)言語である｡ しか し､
FORTRANが ､それで記述 されたプログ ラム (sourceprogram)をまず機
械東
にまとめて変換 し､ついでこの機械語 にな ったプログ ラム (objectprogram)
を実行す るという二段階で処理す るコンパイ ラCompilerの一種 なの に対 して､
BASICは､それで記述 されたプログ ラムをそれに沿 って直接解釈 しなが ら実行
す るインタプ りタInterpreterの一種である点で大 きく異なる.
これは､BASICがアメ りカのダ- トマス大学のKemenyとKurtsにより大型
コンピュータ教育用に 1966年頃に開発 されたことに起因 している 〔文献
4
〕｡ 従来のコンパイラでは入カ ー実行 一点検 一修正 一再入力に時間がかか り問題意 識が薄れ興味 もそがれがちだ ったが ､インタプ りタな ら学生はす ぐに実行 し結 果を見､修正を加え再実行す るという作業を連続 して 自ら行なうことができ､ その学習効率は極めて高 くなる｡ これが素人が扱 うマイコンの言語に採用 され､ 実用性 も加え られてい ったのである 〔以上 ､文献 9参照 〕｡ この来歴が示す ように､BASICは習得 しやすい言語であるが ､欠点 も少な く ない｡第1に､プログ ラムの1ステ ップごとに翻訳 していくため ､コンパイ ラ にくらベ 10倍以上遅 く,実用に耐えない場合 もある｡第 2に,随時修正可能な ため､準備不足の ままプログ ラム して修正を重ね (行番号を指標に動作す るた め修正分は次々に後方に入 り乱れておかれることになる)極めて見通 しの悪い - 本人でも後日の修正が困難になるような- プログラムができやすい｡第3に
見通 しをよくし誤動作を防 ぐのに適 したプログ ラムの構造化が しにくく､前述 のように行番号を重視す るためプログ ラムの結合が困難で､既存のプログ ラム 群を知的遺産 として活用す るのが難 しいのである｡ それで も､かなり融通が きき､試行 一修正が随時可能で､そのためのエデ ィ ッ トEdit機能 も大型用よりむ しろす ぐれているなど､個人的開発には ､今 日な お便利な手段として多用 され .主流言語の地位を保 っている｡ パ ソコン用 としては､アメ り力のマイクロ ･ソフ ト社製の ものおよびその手 -109-法に準拠 した ものが主流 とな っている｡ JVZ- 80Xの BASIC シャープのMZ-80シ り-ズのBASIC､SP- 5010や同 5030そのフロッピ ィ ･デ ィスク版sp- 6010 (本 プログ ラムはこれで書かれている)等は 自社製 で.上記の主流とは多少異な っている｡たとえば､プ リンタへの出力命令はマ イクロ ･ソフ ト系がLPRINTと表示す るのに､PRINT/Pとな っていたりとい った表現上の相違がある｡次に計算の精度は通常二段階を選択できるのに対 し､ 有効8ケタだけ しかないとか ､条件分岐命令の IF構文に､条件不充足の場合の 処理を示すELSEがつけ られないためプログラムが若干複雑化 し見通 しを悪 くす
るとか ､繰返 し命令群の うち使えるのはFOR-NEXT文のみでWHILE一一WEND
文やREPEAT∼UNTIL文が使 えず処理が冗長にな り見通 しもさらに悪 くなる とか ､多用す る命令や文 ､デ-タ等を一挙動で入力できるKeyFunction機能 がないとかい った能力の不足が早 くか ら指適 されている｡ さ らに ､一定の書式や配列でデータや結果を表示す るUSING命令 がないこ とは.本論の統計処理や位置及びケタ合わせを要す る帳票出力の実務応用には 不便である｡このため後述のようにプログ ラム上 ､煩 しい工夫が必要となる｡ 逆にみれば .パ ソコンをよく知 る機会が増加す るともいえようが｡ 3.枚計処理 への適用 パ ソコンを実務面で利用す るとき対象 として選ばれることの多い分野は､金 種計算を含む給与計算 ､在庫管理 .住所録 ､そ して統計処理である｡ これ らは 単純 な計算や判断の繰返 しが多いため､コンピュータに載せやすいのである｡ 統計処理については ､大型 コンピュータ用のFORTRANによる書籍 .論文が 古 くか ら大量に発表 されてお り､パ ソコン向けにBASICに移植されたものある いは新たに開発された もの も非常に多いcMZ機 と同期のPCl8001の 市販の プログ ラ ミング教本 〔文献7〕では .応用 プログ ラム集の中にこれを加えてい る｡今 日では経済学のほぼ全域 をパ ソコン処理の対象に組み入れようとする『マ
イコンによる経済学 』〔文献13〕の試みも出ている｡ また､統計処理用のパ ッ ケージはパソコン専門誌に毎号多数広告されており､比較的低廉なもの もあるO そこで今 さらプログ ラムを自作す る必要はないとの判断 も出ようが,荊述の ようにパ ソコン自体をよく知るため､またプログ ラムの対象や内容を 目的に応 じて自由に設定 ･変更するために､経済研究者が 自作す る意義は十分にある｡ すなわち､経済 ･社会に多大の影響を与えつつあるOA化の主役機器の構成 ､ 機能､能力と限界､ひいては可能性と危険性の一端を知ることができ､第
2
に は､統計の特性に応 じた処理手法を選択 し､期間や組み合わせを自由に選んで 比較検討 したり､出力の形式を 自由に設定できることで新知見をうる可能性が 高まるのである｡4
. プ ログ ラムの概 要 りス ト1
に掲げたプログ ラムは､その冒頭および結果の出力 りス ト2
の冒頭 にあるように.基礎統計分析を目的としたもので､前述のように復帰後の沖絶 経済の構造解約のための統計分析の一環として1983-4年に一度開発されたも のを今回の発表のため若干の修正と追加 (連続処理化や相関係数MATRIX 表 等)を行な ったものであるQ このプログラム作成の動機は､この計算作業を学生2名の協力をえていわゆ る電卓をたたいて行な ったところ､ 7年分の全データ項 目の基礎統計量 (標準 偏差まで)と主要項 目間の相関係数 と回帰直線 ､数件を計算するだけで3名で 延6時間を消費 して しまい､当時県の集計方法の変更で全データが変更された こともあり､研究の推進に困難を感 じていたことにある｡ これ らの作業はパソコンを利用す ることで一挙に片づけ られる｡むろん､プ ログラムの開発には､パソコンの機能や命令を理解 し習熟す る分を含めれば､ 膨大な時間を要 した｡ しか し､一度完成すれば､数値や期間や項 目間の組み合 わせなどを自由に凄択 してその結果を直ちに出力させることで研究を促進 させ る効果は大であ ,た｡ さらに今後 .データの入れかえと配列静定の変更で､他 の対象に使用できるので､早晩時間も節約 されることになる｡ -111-本プログラムの特徴
本プログ ラムは次のような特徴をもっ｡
(1) デ-タは
､DATA
文で本文中に格納 した｡デ-タが大量にな ったり､メモリが不足 した場合などは､データを､SequentialFileあるいはRandom File
としてプログ ラムか ら分離 したFileに納め､これとデータや結果を出し入れ す る形で処理することが多いが ､ここでは､メモ リに余裕があり､データの 追加 も十分可能なので､処理や保存が容易な形式を採用 したのである｡ (2) データ項 目間の比とその基礎統計量を計算表示できる｡ データ項 目間の比は､項 目間の関係により構成比であ ったり逆に倍率であ ったり､寄与率の比較であ ったりす るが､この時系列変化をみることができ るように した｡ (3) 全データ項 目の連続処理ができるO 全データ項 目のデ-タと基礎統計の計算と表示の一貫処理ができるように した｡また任意の1項 目と他のすべての項 目との比率とその基礎統計につい て も同様の処理ができるようにし､重要な項 目についての入力指示の手間と 見落 しをなくすように した｡ (4) 出力は3件づっ並列に行なう｡ 関連す る統計を近 くで比較できるため､画面や紙面を節約するとともに新 知見をえやす くす る｡ (5) 相関係数
MATRI
X
表で相関の強弱が一覧できる｡ すべてのデータ項 目間の相関係数が一覧でき､その高低をあますところな く点検できる｡特に強相関の欄には､記号を使 って目立っようにした｡ 項 目名の税明 経済の所得関係のデータ項 目を横方向に配置 し､各項 目の各年度の値 と基礎 統計値を縦方向に配置 している｡ 横方向のデータ項 目(
DATA I
TEMS)
の内容は次のとおり｡ GNP :県民総生産 NI:県民所得 FR :対外受取額EX
:移輸出W
:商品移輸出 S :サービス等移輸出 K :観光 収入 FI :財政受取 MR :軍関係受取 F&M :FI+MR
これ以外にHBか らHJまで 9項 目を予備としている｡なお､添字は. 1が公 式数値 〔文献17〕を､2,3は著者による修正値を意味す る(詳紗 ま別稿に護る). 縦方向 (YEAR ETC.)の項 目の内容は次のとお り｡ FYS50- FYS56:昭和50年度∼同56年度 MEAN :平均値 vAR :分散 sD:
標準偏差 SD/M :基準化標準偏差 uvAR :不偏分散 プログラムの異体的構成 このプログラムは次のような構成で実行 される｡ 〔行番号〕
100.- 130 140- 750 760′- 860 870--1110 1120--1240 〔内 容 〕 冒頭の表示 (デ ィスプレイ) DATA文DATAの配列AH S(P),AV ‡(N),A (N,P)へ の
転送 データ項 目一覧の表示oPrinter出力も可｡表示サブJL, -チ ン (950- 1110)を含む｡ 処理の選択 ♯ 1:ホンデータ (1650行へ) ♯ 2:データヒ (1280行へ) ♯ 3:ソ ウカ ン (1250行へ) ♯ 4:ソノタ (3340行へ) ♯ 5:オ ワ リ (3350行へ) 1250- 1270 :♯ 3 相関係数処理への分岐｡♯ 1が未処理だと計算で きないのでその旨の指示をす る｡ 1280- 1640 :♯ 2 登録済データ項 目間の比を計算 し､その基礎統計 -11
3-値 も算出 ､表示す る｡ 3件づっ処理す る｡ ある項 目と他のすべての項 目との比を連続 して処理す る こと も可能 (1290- 1520)0 1650- 1870:♯ 1 登録済のデータない し加工済のデータを計算す る｡ 計算サブルーチ ンをCALLす る0 3340 :♯ 4 プ ログ ラム外の処理をす る際の指示を出すのみ｡ 3350- 3380:♯ 5 プ ログ ラム終了処 理｡ 1880- 2780:計算サブルーチ ン｡ 計算枠組みの決定 (1890- 2070)､ 項 目名の表示CZO80 - 2220)､データの表示 (2230- 2420)､平均 ･標準偏 差等の計算(2430-2620)､同結果の表示(2630- 2780) か らな る｡ 2790- 2850:分岐ルーチ ン｡次の処 理を尋ね ､分岐す る (注6)｡ 1 :タ ノレツケイサ ン ♯ 1の処理を繰 り返す｡ 2:ソウカンケイス ウ 2860行からの相関係数および 回帰 直線のルーチ ンへ飛ぶ. 3:タ ノシ ヨり 1120行か らの ｢選択 ｣の♯4 と同一 4 :オ ワ り 同上 (♯ 5) 2860- 3670:相関係数および回帰直線の ルーチ ン｡ 相関係数MATRIX表 (2870- 2880;3390- 3670)｡個 別計算 ･表示 ルーチ ン (2890- 3330)､か らなる｡後者 は さらに ､任意の項 目と他のすべての項 目との相関係数 ･回帰直線を求め る/レーチ ン (3000--3070)を含む｡ プ ログラム上 の工夫点 この プ ログ ラムで ､特 に工夫 した部分は次の とお りである｡ (1) 書式指定の命令､USING命令が使えないため ､データや結 果 を所 定位 置 に小数点でそろえ る工夫 とUSINGでは 自動 的 に行なわれ る表示最下位の次 -11
4-位での四捨五入処理を工夫 した｡前者は表示開始位置を指定す るTAB命令を 利用 して処理す る｡ その例は,2330行にみ られる｡そこではTju3のパ ラメータT2を17+S (2)-LEN (STR‡ (INT (B (NM,2))))と規定 している｡これはあ るデータ項 目が計算 ･表示のために2列 目の配列B (M ,2)に入 ってお り. その整数部分をとり出し〔‖ヾT命令 〕これを文字列 とみなし〔STR
‡
〕､さ らにその字数を計算する〔LEN〕ことで,基数部分のケタ数が求 まる.これ を､2列 目の左端の位置を定める第1項17にその項 目中の最大ケタ数S(2) 〔1690行で指定 〕を加えたもの〔- 17+S(2),ここが小数点の画面ない し紙面左端か らの位置 〕か ら差引くことで､整数ケタ数の多少に応 じて表示 (印字)開始の位置を前後させて､小数点の位置を一致させ るのである｡文 字列の表示の場合は､例えば2100行のようにT4-6+(ll-LEN(BS(1)))/2 という形で､文字列の中心を表示位置の中心にお くように して見やす くして いる｡ 四捨五入の処理は､有効最下位の次位の数値の抽出､それが5以上か否か の判定 .繰上げの場合のケタを考察 しての加算と煩雑な手続 きを要する｡本 プログラムでは､相関係数一覧表の3ケタ表示のためにこの処理を したが､ 簡便化するために､係数をまず1000倍 して整数化 し (3590行)､五入の処理 は単に 1を加えることで済ましている (3600行)0 (2) 前述のように出力は3件づっ まとめて行なうように したが ､このために計 算 ･表示用の新たな配置B‡(Z).B (NN,Z)(Z- 1,2,3)を設定 し､ここ へデータを転送 し加工 した後､3列同時に出力す るという方法をと った｡ (3)相関係数MATRIX中の強相関を目立たすために､数値を棲識 (マーク) つきで表示するように した｡これは上述のように係数値を1000倍し､3ケタ の整数で表示できるようにし､高い相関を示す ものはIFで選別後 ､所定の マークを最上位につけ.下2
ケタは元の数値をその まま表示 させる｡この過 掛ま3590- 3660行に展開されている｡マーク入れなどは3650行と次行で処 理されるが､数値を文字列とみなすSTR‡命令が主役である｡なお､相関係 数MATRIX表の表示は､ 153件について多数の計算を行なうため､時間がか -115-か りす ぎるのではない5-かと危供 したが､時間をは5-か ってみると (TI‡命令､ 3330行および 3500行)､元来遅いプりンタの作動時間 (全 20行)を含めて､ 1分 24秒であった｡これは第 2世代以降の倍速以上のパ ソコンでは 1分以内 で処理でき､実用上特に問題にはな らないといえよう｡ (4)表示 ･計算区間を 自由に設定できるように した (2030- 2060行)｡またプ リンタへの出力を各段階で選択できるように した｡
5.
プ ログ ラム の実 行 結 果 BASICの対話型インタプりタの特徴か ら､プログ ラムは試行を繰返 して形成 されていくため､その完成は.実行 (試行)結果 もほぼ満足すべき水準に達 し たことを意味する｡ 本プログラムの実行結果を参考までに以下掲載する｡ リス ト2は､プ リンタに出力 した冒頭部分である｡データ項 目 (横方向)と 年はかの項 目 (縦方向)の一覧表が出力されている｡ リス ト3は､同 じくデ ィスプレイ上の表示 (40字幅)のハー ド･コピーであ る (&CはBASICに追加 したコピー命令の呼出 し記号｡頭書きは上方にスクロ ール ･アウ トしている)｡このように画面上の指示に従 って操作 していけば分析 が進行す るようにな っている｡ ))ス ト4
は､前述の ｢処理の選択 ｣の♯
lホンデ-タの全部を計算 ･表示す るよう指示 した結果の一部である.全項 目が番号順に小数点をそろえて3列づ つ整然と打ち出されているのが確認できよう｡ りス ト5は､データ比の分析で､GNP2とN12とを各々分母において他の 全項 目との比を連続 して打ち出 したものの一部である｡上側は､GNP2(修正 県民総生産)と他の項 目との比で､構成比ともみ られるが ､これとNJ2(修正 県民所得)との比率が87.6%を中J山 こ標準偏差がその1.2%と非常に狭い範囲 に集中 していることは､この両者の関係か ら当然といえるとしても､FR l-FR 3 (対外受取額)との比率が FR 3で 67.5%を中心に標準偏差がわずかそ の 3･6%と極めて高い比例関係をも っているのは驚異的である｡その他多くの情報をこのデータ比とその統計値は与えてくれる｡ りス ト6は､登録 した全項 目間の相関係数の一覧表であり､高相関係数を示 す欄には頭 (小数点以下 1位)の位置に記号説明に従 った記号がつけ られ､相 関の強弱が一 目でわかるようにな っている｡これによれば､GNPやNIと非常 に高い相関を示すのは､上記のFR 1- 3とF&M l- 2 (財政受取 に軍関係 受取を加えたもの)であり､財政等を中心に外部資金に依存す る沖縄経済の実 態をうかがわせている｡また全休に相関が高いことも注 目に価 しよう0 りス ト7は､GNPおよびNIと他の項 目との個別的な相関係数および回帰直 線 (2種類)のプ りン トアウ トの一部であるO リス ト6か ら注 目すべ き関係に ある項 目のペアをみつけ､これをこの リス トで示 した形式で回帰直線にあては めてみるという手順が一般的であろう｡ 今後の課題 以上のようにかなり時間をかけてパ ソコンの実用的利用をはか ってきた｡初 期型であるための能力の限界か らかなりの工夫と他部分への配慮が必要となり､ 必ず しも効率的とはいえなか った｡ ことに､画素の 1単位毎に
ON-OFF
を指定するグラフィック処理ができな いため､正確なグラフ表示- 例 :二つのデータ項 目間の時系列的変化等 - がで きず.今回は見送 って しま ったことは残念であ った｡グ ラフ ィック処理のでき るシステムである必要がある｡むろんUSING命令 も繰返 し命令群 も同様であ る｡ プログ ラムとしても､このあと多変量解析や主成分分析 ､因子分析等の高度 の分析へと進化す ることが望まれる｡ いずれにしてもパソコンは､人間に近い存在にな ってお り,その潜荏的顕在 的能力はかなりの ものをもつが､人間が もっアイマイさを吸収できる程の能力 はなく､非常に融通のきかない硬直的な反応をするものであ って､このプログ ラム開発中でもいわば些細な考え違いや入力 ミス (これ らはbugと呼ばれる) のため思わぬ動作をされ､その原因 も些細な故に見出せず時間を空費す ること も多か った｡実用後にこのようなことが発生することもあり､結果を鵜呑みに -1ユ7-していると誤ま った方向に導かれる可能性がある｡この点への多面的な (人間､ 機械それぞれか らす る)チ ェック機構はまだ開発の途についたばかりといえる｡ その意味で人間の意識的か無意識的かを問わずその不正確な操作による暴走や､ 思わぬ利用の され方をする可能性は常にある｡それを十分に認識 した上で､限 定された範囲で､多重的な安全対策を施 して利用すべ きであろう｡その限りパ ソコンは極めて有能な道具として役立つであろう｡
〔注1〕 CPUはCentralProcessingUnit中央処理装置のことで､計算や判
断､記憶装置への入出力､外部装置の制御等を行 う装置でIC化されたものを
い うO電卓用ICの汎用化か ら発達 してきた｡MPU主=MicroprcessingUllit ともいう｡ 〔注
2〕
著者は沖縄大学のゼ ミナールでこの面の議論 も行な ってきた｡沖縄 大学経済学会編 『沖大経済経営研究 』第2巻 (1985年)所収の中村昌樹君の 論文 ｢コンピュータ間題への一考察 一地方自治体におけるコンピュータ導入 とは何か- ｣(第 1回経済学会 賞 ･優秀 賞受賞論文)は .蔽場でのコンピュ ータ導入に直面 した体験をもとに､安易な導入に警告を発 したもので､学生 側か らの成果の一つである｡ 〔注3〕 1984年5月に那覇市で開催された日本経済政策学会第 41回大会での 著者の報告 ｢財政依存型地域経済の構造とあるべ き開発の方向｣〔文献16〕 のための分析であ った｡ 〔注4〕 ビッ トbitとは､コンピュータが扱える最小の情報単位のことで､ 0と 1の2様の状態がある｡この ビット8こを 1組 として情報処理の単位に す るCPUを用いた械種を 8ビッ ト機 ､ 16乙を単位とするものを 16ビット機 とよぶ｡前者は1度に 2の 8乗- 256種の情報を区別できるが後者はその 2 乗-6万余が可能で基礎的能力は向上する｡なお､8ビッ トを l単位とみる 場合 ､それを 1バイ トByteとよぶ｡メモ リやプログ ラムの大 きさを測るのに キ ロ ･バ イ トKByteを用いるが､これは 2の 10乗- 1024を 1キロ- 1千と みな して2のべ き乗で拡大 していくコンピュータに対応 して数えやす くして いるのである｡〔注
5
〕
このMZ-
8
0K
システムは､1
0
インチ ･グ リーン ･デ ィスプ レイと カセ ッ ト･レコーダとキーボー ドを一体に組みこむ本体､MZ-
8
0K
(ただ しメモ リは4
8
K
バ イ トに増設済)に､周辺機器を制御す る基板を収めるⅠ
/o
ボ ックスが接続 し､ここか ら5
兄 インチ ･ミニフロッピ ･デ
ィスク装置(2
逮)と8
0
字印字の ドット･プ リンタが接続 している｡この システムは ､著者 のゼ ミナール
に所属 していた謝敷吉克君が1
9
7
9
年頃に本人の勉強と家業の商 品管理への応用を 目的に購入 し､かなりの進捗をみせたものの実務上の不便 さや本人の生活上の変化等で休止 して しま ったもので､強い関心を もちなが ら資金不足か ら購入できずにいた著者に同君が1
9
8
3
年に無期限に貸与 して く れたのであるO再始動のために分解清掃 ､コー ドの交換等が必要で ､今なお 時に原因不明の暴走 (コンピュータが勝手な動作をす ること)がおきるなど 完調ではないが ､著者に多 くの知識 と体験を与えて くれている｡極めて高価 であ ったこの システムを貸与 して くれた同君に謝意を表 したい｡ 〔注6
〕
この分岐ルーチンは,1
1
2
0- 1
2
7
0
行の処理選択のルーチ ンと機能 がほぼ重な っているので､そち らへ統一す るか ､も っと簡素化す ることがで きるであろう｡これは機能をつ ぎた して拡充 してきた名残 りである0 文献 リス ト〔1
〕
岡村迫夫『RunBASI
C』CQ
出版､1
9
8
2
年〔2
〕
同 上『Supe
rBASI
C』CQ
出版､1
9
8
2
年〔3
〕
同 上『BASI
Ct
oASSEMBLER』CQ
出版､1
9
8
3
年〔4
〕
Ke
me
ne
y,Kur
t
s
共著 (森 口他訳) 『ベー シック入門 』共立出版 〔5〕 『MZ-
8
0
シ リーズBASI
C
解説書 』シャープ (株)､1
9
7
8
年 および1
9
8
1年 〔6〕
『MZ-
8
0
シ リーズDI
SKBASI
C
解説書 』シャープ (樵)､
1
9
8
0
年〔7
〕
横山淳『N-BASI
C
プログ ラミング教本 』麻済堂出版,1
9
8
0
年 〔8〕 小林昭夫 ｢マイコン学入門4
0
回 パーソナル ･コンピュータの歴史 ｣ 月刊『Ⅰ/
0 』工学社､1
9
8
4
年 1月号-1
1
9-〔9〕 小池慎一他 ｢BASICテクノロジー
｣
『マイコンピュータ 』1号､CQ 出版 ､ 1981年 〔10〕 『MZ-80 活用研究 』工学社 ､ 1981年 〔11〕 『MZ-80 活用研究 』電波新聞社 ､ 1981年 〔12〕 奥村晴彦 ｢多変量解析のプログ ラム手法 ｣『TheBASIC』1983年 7- 10月号 ､技術評論社 〔13〕
久保庭真彰編著 『マイコンによる経済学 』青木書店 ､ 1984年 〔14〕
奥野忠一他 3名 『多変量解析法 』日科技連出版 ､ 1981年 改訂 〔15〕 奥野忠一他 5名 『続 多変裏解析法 』日科技連出版 ､ 1976年〔1
6
〕
阿部亮一 ｢財政依存型地域経済の構造 とあるべ き開発の方向｣
『日 本経済政策学会年報 』33号 ､ 1985年 (5月予定) 〔17〕 沖縄県統計課 『昭和 56年度 県民所得統計報告書 』1983年100 PRINT "----.~J~".l_( ;J":.•t!'!' l'4.0 BV P.~.----" 110 PRINT 120 PRINT" T" -~ ,) tll00 n? 11750 :}" ..l." 130 PRINT "fo(t!o(!.!",) 11780 :~ h"{' J::n." 140 DAT~ GNP2.HI2.FRI.FR2.FR3.EX1.EX2. 150 D~T~ WI.W2,SI,S2,K1,K2,FII,FI2,~~, 160 DRTR F&NI,F&N2, 170 DRTR HB,HC,HD.HE,HF,HG,HH,HI,HJ, ISO DRTR FYS50,FVS51,FVS52,FVS53,FVS54, 190 DRTR FYS55. FYS56.~1ERH,l.'I'lR, SD, SO/M, 20e ORTI'l UVRR . 210 DRTA 9455.02,9886.88,10731.23, 220 DATA 12340.07,13676.01,14564.04, 230 O~TR 15949.38,0,0,0,0,0, 240 DRTR 8340.41,87€-2.09,9552.8€-, 250 DATR 108€-2.34,11908.€-3.12€-01.51, 260 DATI'l 13690.27,0,0,0,0,0, 270 DRTR 9016.88,8747.08,10230.82, 280 DRTR 11579.86,13098.35,14546.88, 290 D~T~ 15321.31,0,0,0,0,0, 300 DRTR 7229.37,7551.63,8542.76, 310 DRTR 10147.90,11588.91,12485.50, 320 D~TA 13229.99,0,0,0,0,0, 330 D~TA €-067.86,6329.30,7175.86, 340 DRTR 8499.25,9620.16,W255.23, 350 DRTR 10832.83,0,0.0,0,0, 360 DRTR 4208.20.3509.90,4161.18. 370 DRTR 4240.62,5204.27.6284.11. 380 DRTA 6362.44,0,0.0,0,0, 390 DRT~2412.55,2283.45,2473.11, 400 DAT~ 2770.13,3653.18,4222.74. 410 D~T~ 4225.89,0,0,0.0,0, 420 D~TR 2122.05,2154.35.2264.E·5, 430 D~T~ 1959.95,2412.13,3365.14, 440 D~T~ 3071.99,0.0,0,0.0, 450 [)RTR 1092.21,1284.20,1197.40, 460 DATI'l 1342.58.1841.30.2359.39, 470 DRTI'l 1968.64,0,0,0.0,0, 480 [)RTR 2086.15,1355.56,18%.52. 490 DRTR 2280.€-7.2792.14,2918.97. 500 DRTR 3290.45.0,0,0,0.0, 510 DRTA 1320.34.999.25,1275.71, 520 DI'lTR 1427.55, 1811.~:8.1863.35, 530 DRTR 2257.25~e,e~0,0,01 540 DRTR 127€-.55,659.71,1063.82. 550 DATI'l 1434.98,1821.75,1803.15. 560 D~TA 1969.38,0,0,0,0,0, 570 D~TR 713.03,360.20,599.85.825.58, 580 [)RTR 1088.21,1007.61,1110.05, 590 D~TI'l 0,0,0,0,0. 1;;·00 DHTR 411 0.64,4515.66.5468.30. 610 D~TI'l €-619.04,7241.90.7632.64, 620 DATR 8214.37,0,0,0.0,0, 630 D~TR 2949.13,3293.33,4101.40, 640 DRTR 4970.39.5273.15.5402.37, 650 DI'lT~ 5817.21,0.0,0.0,0. 660 D~TI'l 1025.75,1076.94,1020.52, 670 DRT~ 1009.64,1049.76,1129.25, 680 DRTR 1347.45,0,0,0.0,0. 690 DATI'l 5136.39,5592.60.6488.82, 700 D~TR 7628.68.8291.66.8761.89, 710 DRTR 9561.82,0,0.0.0.0. 720 [)~T~ 3974.88~4370.27~5121.92~ 730 D~T~ 5980.03,6322.91, 6531.E,2~ 740 D~TR 7164.66,0,0,0,0,0. 750 FHl ---DI'lTI'l HIC·---
-121-760 REM ---DATR
READ-IN---770 Pl=18:P=27:tH=7 :t~=12
780 Dlf1 A!-l$(P),AU$OD,A(N,P)
790 FOR PO= I TO p: RHID AH$ (PO) : 1·1E)<1 PO
800 FOR Nt~=1 TO II: RERf' RU$(NH> :tln':T lIN
810 FOR PO=1 TO PI
820 FOR NN=I TO N:REAO R(NN,PO) 830 NEXT NN,PO:JU=O
840 FOR PO=Pl+l TO P 850 FOR NJ=1 TO N 860 R(NJ,PO)=On·1EXT IU,PO
870 INPUT ":J""? .(":":,,,, PRItHER.: 1"::I:? [Y/NJ--",PP$ 8813 IF PPt= .. y .. THEH PP=I:GOTO 910 890 IF PPt= ..N" THEN PP=2: GOTO 930 90'3 GOTO 870 910 PRItH,·'P "~'!'~Jf.""'{ :""~.~,!, 1,)4.0(1984) BV R.ABE.WmW":PRltlT/P 9213 PRINT/P"'!If"-~ ,', 111013 1)'; 11750 .:1"). ·•..:,:J" ..I ".(,, 11780 .: '1'""•., .1:J I·ll! " 9313 GOSUB 950: REI1 - >:J""? H,,:,--940 GOTO 1120 950 REf1 ---:J""? .{":'5:., ":;1'"I~-'I'~.-- %0 IF SG$="N" THHl 11330
97'3 PRINT "~DAm ITEMS (ROI,»~ffl"
980 FOR 0=1 TO P'PRlNT"II";STRt(Q), "=",AHt(Q),
QQA NEXT Q:PRINT
10130 PRIHT "~VEAR ETC. (COU%l%'{.@I"
1010 FOR R=1 TO N:PRItH"II",STRHR);"="'~.)$(R),
1020 I~Dn R: PRItH
1030 IF PP=2 THEN 1110 1040 IF JU<>O THEN 1110
1050 P~:INT/P:PF:IHT/P:PRItIT,"P, ". . . . .DATR ITENS (ROI.,U. . . "
1060 FOR 0=1 TO P:PRIIH/P"II",STR$('~l): "=", AH$(Q),
1070 HE~:TO:PRIHT/P:PRHIT/P:PRHIT/P
1080 PRIIH /P: PRItH/p , ...VERR ETC. (COU ...
1090 FOR R=1 TO II: PRItIT.-'P"II"; STF:t(F:;' , "=",A!..'$(R), 1100 HEXT R: PRINT/P: PRINT/P:PRltH/'P:.JU=JU+l 111 0 RETlJRN
1120 F:EM---,·.'..I :J""'? ItlPUT
---1130 DIN B(N,3),B$(3),G(3),8(3) 1140 PRINT:PZ=P-Pl:PK=O:QF=Pl+l
1150 PRINT"'!'~"''''H.1 'H,,:, 1', ,.,.'..1111 : r _·~t ,", ".'..JI12 "'···.f III "',
lIE.O HlPUT" PRItHEF: ':"'I'~";z:' t:'/E~; 2:tlO--.'" PI)$
1170 IF POt="I" THEN PP=I:GOTO 1200 1180 IF PO$="2" THEN PP=2:GOTO 12BB 1190 GOTO 1160
12"'0 PRItH "fl':,'!"'.1 :i''!' [..''')11='': OF
1210 IHPUT .. 'J.'}II " 7H :tt,."··o· 1:'....E8 2:t·l(r--''''8Z$
1220 IF 8Z$="I" THEtl 12413
123'3 WPUT" t··} ".'n 1I1::t.:.·f··'-? 112:f·..·_·~t 113:·:J".l)~· 114:·:.lH 115:1')'..' [1.·{:IJ--II",OQ
1240 011 QG! GOTO 1650,12:30.125'3,3340,3350
1250 Ir·fPUT 1I11("9·{:'.'3" J"'::") ,'" :}3')::r:'E,? [1/.···l~]__II;ZOt
1260 IF ZP$="Y" THEIl 2860
1270 P~~INT 1l~~'~*1~ :"1:l 1)!1I:130TO 115(' 1280 REM---f~-?t
~.~---1290 P>(=O:PV=O: mPlIT ":i'll, :J"":> I· ':1.1 t···:..:J?"':>!·} t"l
,.,p
[,//I-IJ--",[:·4t1300 IF 04$='''J'' THEt·1 HIPUT ''':.I) :J",,·?II IY~'--II";[>5:F=4"30TO 1320
1310 IF D4t="N" THEN 1530
1320 INPUT "':Jl/~ 'J":..;t;..~: 1?? l:')';·:"·;f." 2:T··:_,:.··-_Il;OE.
1330 HlPUT "t) '-lAX t·{;Z"1?7" ,....~---":S(l): INPUT "t··,>'5> 1t,."·· H;Z"? [V/NJ--",[>7t· 1340 E2=0: 011 [:06 60TO 1350, 1440
1350 1=0: FOR 1=1 TO 3:P'r'=PV+I: IF PV=[:'S THEI·I F'V=F"r'+1 1360 IF P,/>PI THEIl F=I:GOTO 1230
137~J BJ:(I)=HH$(PV)+Il/'~+AH$([:t5) 1380 FOR XX=I TO 141
1390 IF RC<;:'~~[~5)=0THEN B(K;<,I)=-;'·;-,?';'9';.';.';a:GOTO 14UJ
14113 t·IEXT XX,! 1420 GOSUB 1970 1430 GOTO 13513
1440 1=0: FOR 1=1 TO 3: PV=P".,+I: IF P".,=()5 THEt·J P'...=P'...+1 1450 IF PV>PI THEN F=I :r30TO 123')
14E.08$(I )=AH$«)5)+"./"HIH:l'(PV) 1470 FOR ~<)(=1 TO tl1
1480 IF R(XX,PV)=0 THE'·j 80i:" J)=9999999'~:GOTO1500 1490 B(XX,I)=R(XX,D5)/R(XX,P".,) 15f") NEXT XX, I 1510 GOSUB 1970 1520 GOTO 1350 1530 FQ=O:FOR FQ=1 TO 3 1540 PRlHT FO:"k'~''''':
1550 ItlPUT " t':'t·II, J.,e?lI,:, :J"':.",.,7'":.,;f:"..o ,/....:.'': INPUT --",G!l,02 1560 B$(FQ)=RH$(QI )+".,,'''+RH$(Q2) 1570 FOR XX=1 TO Nl 1580 IF R(XX,02)=0 THEN B(XX,FO)=99999999:GOTO 1600 1590 B(XX,FQ)=f'l(XX,Ql)/f'l(XX,Q2) 1600 t·IEXT X:>(, I 1610 GOSUB 1970 1620 WPUT "t"-'9t 1')'}? (..,.' tl)--",LG!$ 1630 IF UU='"y''' THE/·I 1230 1640 IF LO$="N" THEt~ 1530 1650 REfolt" -9 "3'..0
---lE,E,0 INPUT "ALL ITEt1S ..1 ~,:.t,·-'9':' t·I[,·" ('r'.·ll)--": m$ IE,70 IF FA$='"r''' THEt~ P','=O:GOTO 169€t
1680 GOTO 1760
1690 WPUT "!f.(:o"'.( t'(;<"'J'9::<" ,)?--"'St·j:S(I)=St·j:S(2)=St·I:~:(3)=SH:F=4 1700 FOR PY=I TO PI STEP 3
1710 G(1)=PY:G(2)=PY+!:G(3)=PY+2 1720 GO:,UB I 88f1
1730 NEXT PV 1740 CX=O:GOTO 2790
1750 IF PP=1 THE'·/ PRItIT.· P:PRItJT/P 1760 FOR F=1 TO 3
1770 WPUT "J..o PRGE.! k'!' 1')'.1" ('....·..t·1)--":E8$ 1780 IF E8$="\''' THEt·1 GOSUB 1880:GOTO 2790 1790 PR WT "t":+'~'lI="";!F-1
1800 PRINT "**" ,F'"I,"J.,': '"
1810 INPUT "HIPUT ::<I~ 1.··'!JlI ,y?---",G(F)
1820 PRINT "t1R~: t·(7"')9::<" ",~·(t·"·:..v~'="'S(F-I),") (I··.,t·· ]--",:ItIPUT E?$ 1830 IF E7$="/" THHJ S(F)='::(F-l ):GOTO 1:::50 1840 S(F)=J.JAL<E7$) ·1850 OF=QF+1HIEXT F 1860 GOSUB 1880 1870 GOTO 2790 1880 REfol ---'J.(,~ ':J'.-f~--- 1890 FOR 1=1 TO 3 1900 B$(!)=J:!H$(G(I» /910 ND<T I 1920 FOR tlt·/= I TO t·1 1930 Bo-ItI,1)=f'lO·It·I,G(l):IF F=2 THEtll?6€f 194') BO/tJ,2)=RO·/tl,G(2)): IF F=3 THENI9E.O 1950 B(t/tl, 3)=R(tIN,13(3» 1960 "EXT tltl 1970 IF (CX=I)*(FR$="I") THEN 2080 1980 INPUT "t3"~·.'J'('~ (~b~] ~ 7If--~:1t~~ 2:~".(--";SX$ /391) IF (S:,,$="I")+(S:<$="/") THEI·j S»I:GOTO 2020
20013 IF S>~f="211 THEt·~ 8X=2: G010 2020 2010 GOTO 1380 2020 IF SX=1 THEI·' 2080 2030 HIPUT"!:3.,'!·..· ,." ....'" ) ~··'3.,11 ,,(--",JV 2040 INF'UT"t3"~'" 1')') ..' ~:"'3"11 ,y;'---",KV
-123-2050 HlPlIT"'H'> ,..", ' ..1
""""3""
I·,·~'--",JJ 2060 HlPlIT"·H':., ;fry'.! .! """"3.,11 ,y)---",VV 2070 C~·;:=12080 REM---:J.,e?
t3.,'..··---209'3 IF PP=1 THEIl PRItH"'P:PRItlT/P:PRItH P, " •••j'-~ t3.,,·· •••":PRItH/P 2100 T4=6+(II-LEN(B$(I»)/2 2110 PRItH "S" :TRB( 14); B$(1): 2120 IF PP=1 THEI~·PRWT.····P TRB(T4+3>:B$O), 2130 IF F=2 THEt·1 2210 21*3 T5=17+(II-LEN(B$(z»),'2 2150 PRINT TRB(T5);B$(2);
21E,0 IF PP=1 THEN PRItH..··P TRB<T5+6):B$(2), 2170 IF F=3 THEN 2210
2180 T6=28+(II-LEN(B$(3»)/2 2190 PRINT TRB(T6);B$(3)
2200 IF PP=1 THEt·1 PRItH.··P TRB<T6+9);B$(3):GOTO 2220 2210 PRIt~T:IF PP=1 THEtl PRHlT/P 2220 PRmT: IF PP=1 THEH PRHlT ..··P 2230 REt'l---j" -~ t3"'.·'·· ---2240 FOR Ht1=J'/ TO VV STEP 2250 GDSUB 2270 2260 11EXT tl~1:GO TO 243'3 2270 PRIHT RI)$OUV:
2280 IF PP= 1 THEIl PR HlT,'F' RI)$ OU·I) , 2290 Tl =6+S( 1)-LEI'l( STR$( ItH(B(tlN, I) ») 2300 PF.:H1T TRB<TI);BOU'"I):
2310 IF PP=1 THEIl PRItlT··P TRB(T!+3),BOU'1, 1); 2320 IF F=2 THEIl 2410
233(' T2=17+SC)-LEI·l(STR$( ItlT·::BOm, 2»» 2340 PRItH TRB(T2); BOU'" 2),
2350 IF PP=1 THEN PRItH··P TRB<T2+E,):BOU",2); 2360 IF F=3 THEIl 2410
2370 T3=28+S(3)-LEI1(STR$( ItlT(B OU'I, 3:0») 2380 PF.:ItlT TRB(T3); BOU",3)
2390 IF PP=I THEN PRIHTP TRB(T3+9); BOU", 3) 2400 GOm 2420 241[1 PF.:HH: IF PP=I THEIl PPHlT'P 2420 PETURH 2430 REM---MERH,S.D. 1{'>---2440 FO~: PU= 1 TO 3 2450 FOR W=1 TO 5 2460 BOH +1•.1, PU) =0 2470 t·1E:·n ,.1, Pli 2480 FOR PU=1 TO 3 24';:"3 FOR l·lN=JJ TO t<t< 2500 B(Nl+l,PU)=B(Hl+I,PU)+8(HM,PU) 2510 B(Hl+2,PU)=B(Hl+2,PU)+B(NM,PU)+8(NM,PU) 252'3 t·1E;....:T NM:N7=t<t<-JJ+I 2530 BOH+l,PU)=BOH+l,PU)"117 2540 8(Hl+2,PU)=B(NI+2,PU)/N7-8(HI+I,PU)+B(NI+I.PU) 2550 8(Nl+3~ PU)=SG!R(8(t'~1+2~PU)") 2560 IF 8(Hl+I,PU)=0 THEN 2590 2570 B(Hl+4,PlI)=B(Hl+3,PU)/8(NI+I,PU) 2580 B(t·ll +5, PlI) =1·17.····(1·17-1 )'B(lll +2, PU) 2590 FOR t'16=1 TO 5 2600 ROH+H6,G(PU»=B0l1+N6.PU):HE::T tl6 261[1 IF PlI+ 1>=F THEN 2630 2620 IIE:<T PU 263'3 PEt'I--- ..' " t3 .".,.. ---2640 PRINT 265'3 IF PP=1 THEIl F'RItH·P 2660 FOR t'ltl=NI + 1 TO tH +5 2670 PF.: ItH R')$(t,lt-D, Hl8( 6); 8 (t'ltl. 1 ':"
2690 IF F=2 THEN 2760 2700 PRINT HIB(I7);B(NN,2);
2710 IF PP=I THEN PRIIH/P T~B(23);8(l'1tl,2); 2720 IF F=3 THEN 2760
2730 PRIIH TI1B(28);8(NN,3)
2740 IF PP=I THEIl PRIIlT/P TI1B(37);Bd'1t~,3)
2750 GOIO 2770
2760 PRINT: IF PP=I THEN PF:HlT/P 2770 llE;<r t1N 27~"3 RETURN 2790 2:::[11.3 2810 2820 2~:30 2840 2850
PR lilT , PRItH: REN---:"'-'>'I' ,1,-'0':'---IF PP=I THEN PRHIT.·P' PRHlT.··P n~PUT"'~.lf··~..' ;.13 1) 1'1"7" 1:·~..1l""~J .,.{!.':'
Ol'~ Q6 GOIO 283~3, 2E:E.O~ 334e~335(1 II-IPUT ":J"",?,,'{' " PRII·IT'>PRHITER IF SN$="N" THEN JU=O
GOSUB 950'GOTO 1120
4:::t'J1) • - •I" ;QE.
28.0,0 PPIIH
"--,.t.,n:,
·H::<.,.nn
f3?t:,--"2870 INPUT "~"n> I'1~TPIX t3"" ••? [Y'~]--",T7$
28:::(~ IF T7$=III...'" THEN 33'30
28'30 PRH~T "t3,,:.,~"I) 1."-3 ";.;'': ~J".tJ:.··':T.{'"(C(:)·, 2~ 3:f="~3",-:'': ",('~3 ~~:.,u
2900 IF ;':8t="W' THEN 2810
29113 HlPUT".,·(!':, n ... ., 1---".'# .! '..1.:<1· -'.:nn·) [Y/IH--"; T4$
2920 IF T4$=·",.'" THEIl PRIIlT"m'H!':, n ..
,.,;1-
I"~'# ,,---1": PRHlT S~f:PPHIT Se$ 2930 IF T4$='",''' THEIl PRIIH set2940 IHPUT" ,...." PRIIHER::>'7"" [v·'tjJ--";T5$
2950 IF T5$="Y" THEU PF:HlT.·'·P " ')·1 !':. n)., I···~'# '.!::\I:"'PRHIT/P SI1f.'PRlt-lT.··,P SB$ 2%0 IF T5$="V" THEN RF:HlT/P r:lCf.
2970 HlPUT "'),,,n,, F'PItITEF:: ~,..,::\") [V/t·I]--":O'.,'$ 2980 IF 0'/1="V" THE/·j PP=I
29'913 IF 0'/1="N" THEN PP=2
3[1[11.3 I"~PUT "rll,J"~·::'.· 1}t·:':,'J"T;·:J~·) ')".tJ:,7 t·ll.? [v/t·~]--,,;.J4$
3010 IF J4$="',-'" THEIl H~PUT ''').! ::J"""~# ,f'--",.J3:GOTO 3(13(1 3(21) GOTO 3080
3030 IHPUT "').{':, "n:.. '1"'3"# ,..,.? [H''!, 7]-e"U8,K8 30413 :'<6=J3: FOR 1=1 TO PI
30513 IF 1=-.13 THE/·f
1=1+1-3060 ;{7=1: GOSUB 3130: GOSUB 318(1: GOSUB 3230:'·ID<T 3070 GOTO 3110
3080 It-lPUT "'~'{'''3'' .t I.··'~.'II ,,7' [1···{:1,3]-1";:":6,:'<7 30·,,0 HlPlIT "'){'!':.. "n:·· '1""3"# If? [t....,.,1,7 J -e"; -.18,103 31013 GOSLIB 3130: GOSLIB 318(1: GOSUE: 323(1
3110 HWUT "'J"n> ;1';1'.10' ['.,'/t-D--";LL$: IF LL1="'i" THEt·1 2810
3120 GOlD 2910 3130 )('/=0: FOR t-IB=.}8 TO K8 3140 ~<'·,'=;<\'+I1(1fE:,):O*~(lle.. :q): tlE>:T tlB 3150 (l.I=)-(\',,··(KS-JB+ 1)-110-11 +1 ..~<6)*~(I-U+ I ..:'Q) 3160 cC=U},....,:,OH+3,~~6)/r:HHl+3,;,~7) 3170 RETUF:t·j 3180 Bl=CU/(~(Hl+3,X7)~:~(Nl+3,X7) 3190 I1I=A(NI+I,X6)-BI*r:l(NI+!,X7) 32t)(~ E:2=CtvO:~O'U+3, ;:<6):f;tfnU +3,::<£.» 3210 A2=~(I-II+I,7:7)-B2,.~(lH+I.. >':.0.) 322') F:ETUF:t~ 3230 F:EI'l---' "
t3""··..
---324L3 PF:HtT:PF:INT ~H:t(X6);":u;~H:f:n~7);II <1l;~I..I:f:('J8)~ "->tI;~I):r(K8); II> CC=";CC 3250 PRINT " [";~Ht(X6);"]=",AI;"+":BI:"*(";~Ht(X7);"]"
32;'.(' F'R IIH " ("; I1Hf.(>:7:"; ")=",~2;"+"; B2; "*["; I1Hf.O(6) , "]" 3270 IF PP=2 THEH 3330
32:=:1) F'P IIlT/p
329(\ Pf=;:It'~T/PRHf:(::<E.);11:-1' RHt-.::;:.:: );It <tI;~I..IJ:(J:3) "_>";f:lI.)f.(KB);II> ) CC=Il;CC 330'3 PPINT···P" [";~H$O(.o. ;"J=" r:l1;"+";BI;"*[" AHtO<7),")"
3310 PPItH/P " [";~HtC<7 ,"]=" A2, "+";E:2; "*[" ~H$O':6);"J"
-125-3340 PF:IHTIl~~4(t5e-4':;''7e IY':.'~ f·,--j-·..· :J31.J :J°o·::"·-;~ :::- "-'·'.~.f ~.,..".(.
II 335'" IHF'UT"?EHD ~ ,.o:;>7))? [V OF: HJ "; \'61
3360 IF '....E.1="V" THEt·l 33:;:1"
337'(1 GOTO 3340
33eO F'Pltn"HID":EtK'
339[' F:EI'1---')?));" ~lI'1TRIX t3?---34('0 TI1="OOOOOO"
3410 PPIHT TI'IB( 8);"Wm:1 ',."?)):.. "IRTP!), t3" ,NY"
342'" PF:ItH/P TI'I8(18):"~r!im ~!.,)):- t'II'ITF:I~:t3? !%~" 343~3 F'RUn "fJ"" tl~I.:-:·1'·: ?{§>=.'~8 n>=.95 .>:=.9[1 .J>=.8f111
3440 PRIHT/P TI'I8(15): "f:r"? t"!",,'·(: m>=.9:3 0>=.95 .>=.·;ll) -">=.E:(l" 345(' HIPUT "-'T.(!,;" em:.. f',"3?11 "'~' [(····,..",7]--"'..I8·K8
3460 PPIHT.·..·P :PRHlT/P TI'IB(':»; 347'0 FOR 1.,1= 18 TO 2 STEP -I
34eo PF: IHT.···'P T1'I8( 9+4*( 1·?-I.o.I,:o-LEH(I'IH$(1,1:>'):LEFH(I'IH$(I.,I), 4): 3490 HE>~T 1.,.1: PF:ItH.··'P
3500 PPHlT.···P TI'IB(9);:FOF: U=1 TO 4,'·17' 3510·PRHlT/P "-",:NE:~TU:PRItH/P
3520 FOR 1}=1 TO 17':PF:ItH/P ,;:TP$('»: TI'IB(:;:-LEt-I(I'IHH'}):')'I'IH$(I..l"TI'IE:(8); " I", 3530 FOR H=18 TO V+1 STEP -1
3540 ;-;f,=U:K7=H: GOSUB 3130: 130-::UE: 359~::l 355'" PP I HVP " ": 02$;
3560 t£:<T H:PF:IHT/P :HD<T I}
357'0 PRItlT TI1
3580 GOTO 2790
3590 OZ$="": F:0=CC*1000: RO=HlT(PO) 36["" IF RO-RO>=0.5 THEH F:O=RO+I 3E.1O IF PO>=980 THEIl OZ$="~!":GOTO 3660 3620 IF PO>=950 THEN 02$="0":GOTO 3E·60 3630 IF RO>='300 THEN o.2$=".":GOTO 3660 3640 IF po.>=80e THEtj 02$=".01": GOTO 3E.E,0 36513 QZ$=STR$(PQ):GOTO 367'0
36613 QZ1=QZf+RIGHT$(STRf(PQ).2) 367'13 RETlJPt·1
III=GNP2 1I9=l,,12 1I17=FU11 1I2~=HH •••••NHA .2=NI2 1II0=SI 1I18=F&t12 1I26=HI ITEt'I:,' (F:OI,.f) . . . . . • "=FRI .4=FR2 .,,=:::2 .12=1':1 .19=HB lI20=HC 1I27=HJ tt5=FF.:.3 .13=1<2 .21=H[' lIE-=E:~1 1II4=Fll .22=HE lI7=E:<2 .IS=FI2 lI23=HF lI8=~11 1II6=t'lF: lI24=HG
. . . . .'r'EAR ETC. (COU •••••
• 1=F','SS0 .2=FY':'~1 1I3=F....·SS2 .4=F'....S53 .5=F'lS~4 .6=F'lS55 117=F'lS~", .8=t'IEAN .9=lIAR .10=SD III I =Sf""I'] 1112=1J1}i=lF:
f'"-·9 ,) 11100 1)? 117~0 :}").
Ht{,,",) .780 :~ ,.".,f ,):11,.
PRINTER OllT? rV/NJ--'I ~;mDATAITEI'IS (ROl,I)t,'%'mti$
III=Gt·IP2 .2=IH2 113=FF:1 .S=FR3 IIE-=EXI 117=EX2 119=W2 1110=51 1111=82 1113=K2 1114=FII 1I1~=FI2 1117=F&111 1118=H.to12 1119=HB 1121=HD 1122=HE 1123=HF .25=HH 1126=HI 1I27=HJ ~~,&.m~YERR ETe.(COL)~~4~t III=FYS50 .2=FYS51 113=F','S~2 ttS::FVS54 ttE.=FVS5S tt7=FVS56 1I9=l1AR II1o..sr, 1111 =:,,[vl'l 114=FF'2 118=Wl 1112=1<1 1116=to1F: 1120=HC 1124=HG 114=F'/:,:S3 1I~:=t'lEf'lt'l II I 2=U'')RR '~.lf."".f '')'.("':., 11 ~J3IHt1 ; f'" _·,t 1"1 ~"31.-"2 ~..., f III
"-PRINTER :"f~"~? I'VES 2:NO--' BREAK IN 1160
RERr,." f,e
-127-i}
;q.
4 F'/:350 F 'S51 F 'S52 F' S53 F'/S54 F'/S55 FVS5E. t'1ERtl l')i=lF: ~:;(:o SD.·1'1 lfl.mF: GtlF'2 9455.02 '38:::6.:::8 10731. 23 12340.07 13676.01 14564.04 15949.38 12371 •1::()4 5240124.1 2289.1317 0.18502812 E.113478.1 tH2 8340.41 8762.(19 9552.:::';:, 10:::62.34 11908.63 12E.01. 51 13E.90.27 1081E,. <::73 35125:::1.7 1:::74. 18:::3 (1.1732652E. 4098011.9 FPl 'O'OIE..l::::: :3747.~)8 10230.<::2 11579.86 130'38.35 14546.88 15321.31 11791.597 5886722.4 242E,.25E,'? 0.20576151 6867842.8 F'y':35C1 F\'~~;51 F'/~:;52 F'/::;53 F'/~354 F'....~:;55 F'/S56 1'1ERtl '.)l:lP ~3[:' S[)··t'1 U\}i=lP FF:2 7229.37 7551. E,3 8542.76 10147.9 115:38.91 12485.5 13229.99 10110. :::E.6 4980781.8 2231. 76E,5 0.22072952 5810912.1 FP3 6329.3 7175.8':, 84'?9.25 9621-'1.16 10255.23 10832.83 8397' . 212::: 3154'0'03.1 177E.. 2047 0.21152312 36::a)72(l. 3 E::I 420:::.2 35(19.'31 4161.18 4240.62 5204.27 E.284.11 6362.44 4:::52.96 1074740.6 1036.6'37 0.213E·2158 12538E.4.1 F'/:350 F\'S51 F'/S52 F' S53 F' S54 F'/S55 F'i~:;56 t'lEl:lt·l !')AP S[) S[)··t'l U'')i=lF: 1025.75 1076.94 1020.52 10[19.64 1049.76 1129.25 1347.45 H:194. 1:::71 12128.776 110.13072 O. 1(1065072 14150.239 5136.39 5592. E, 6488. :::2 7628.68 8291.66 87E,I.89 9561.:::2 7351.6943 2368586.1 1539.0211 0.20'33423::: 2763350.4 3974.8::: 4370.27 5121.91 5'31:::0.03 6322.91 t.5.31.62 7IE.4.E.E, 5E,38.0414 1193540 1091.4916 0.19377164 139246.3.3FYS51J FVS51 F'v'S52 F'r'S53 FVS54 FVS55 F'r'S56 NEm·j l}flR 3D Sr'.··N UlJi:lR 0.88211447 0.88623408 0.89019246 0.88024946 0.87076786 0.86524824 0.8583575 0.8761663 • 11652126E-03 0.010794501 13.012320151 • 13594147E-03 FRI.· GtlP2 0.95366059 0.88471591 0.95336881 0.938395 0.9577':.107 0.'=19882176 0.96062104 0.9496206 .99671981E-03 0.031571387 13.033245772 . 11628398E-02 FR2.·GtIP2 0.76460653 13.763::::0314 13.79606532 13.82235352 0.8473897 0.85728273 13.8294987 13.81157138 • 121 97236E-02 0.l.334924542 0.043033235 .14230109E-02 FVS50 F\'S51 FV~;52 F'lS53 F\'S54 F'i:::S5 FVS56 NEAt·j UHF: ::;:r' ::;;[)/I'l UUHR FR3/GtlF'2 0.64176067 0.64017162 0.66::::68942 0.68875217 0.70343324 0. (1)414734 0.67920137 0. E.751E,502 .E.031841E-03 O. t124559:::f)7 0.1)3':.37E.00;;. • 70371479E-03 EXl· GHP2 0.44507574
o.
355~)0583 O. 3877E,35E, 13.34364635 0.38054008 0.43148124 O.398'~1457 0.39177534 .11::;:27403E-02 0.034390992 ~).(tE:7782432 . 13798637E-€12 E>Q/Gt~F'2 0.25516075 0.230'35759 0.23045914 0.2244:3252 '13.26712323 0.2:399429 0.26495638 0.251:::68'33 .50144532E-03 0.022392975 0.0::::::907253 • 58501954E-03 •••T'- -j t;l.,,,,··, ••• FVS50 F'v'S51 F'r'S52 FVS53 F','S54 F\/S55 FVS56 FII/I-II2 0.49285826 0.51536334 13.57242543 13.60935673 13.60812201 13.60569249 0.600131519 FI2/fH2 0.35359533 0.3('586124 0.42933739 O. 45758(H.'N 0.44281)~)73 0.42:370815 0.42491565 I'1F:/tlI2 (1.1229:355E. I).12290903 1).10682874 0.0929486E.5 13.088151198 0.08'3';.12277 0.098423917 t'lEAt~ l')flR SCI SD,·!·l tjl..JflF: @.57197621 • 20130945E-02 0.1344867522 13.078442986 • 23486102E-02 0.41611407 0.10312277 • 11959178E-02 '. 190291355E-03 0.034582044 0.013794584 0.083107124 0.13376856 .13952374E-02 .22200564E-03-129-~~~~~~~~'~OO~~~~Wt0~ - ..Jcr'l(Jl-+:1.(..~t··) ...1::S)
Ulcr',0:..11 Ul - ..Jcr',cn -..J - ..J-'.J'J', 'J',IJ',-'.J-'.J
IJ" t··) I:::::'-+:..(1",(..1'11•.1)t·.) 1:S:1C·~IJ" - ..J'-.(1 ...(.,~ cn (..l IS' (··lt··)COt·.)'A-'.J.f:.'S'I~n'.(, -..Jt·.)
:;:;':: to.. to.. to.. to.. to..
'J',to.. to..
0 0 0 0 0".(1(.11.,f:..(1\0\ ..-. (.1'1 (0t·) - ..J - ..J 1:""-'.J ('''' cn.~.'·D((0'J',("l'J',t··) - ..J-'.Jt·.).~nt··).f:. ."
...
t··) ."...
... t··) -it U .:.i.
::j
•• :::t '.~I:::::::~
11-1 -,., '.i:t ... ((I :;-::o ;:::::: -..
J0\ • • •to.. • to.. to..
a:J1I))-'.J (''''t!:1':s:' .:::::.1•.1) ...(I)CI)
t-·)(0 - ..J'.,(1~(T',1~11•. ( '(Jl (Jll.jJ ";";; L -..J • 0 • • 0 • • (0) ... - ..J.f:.'~n(..j'AI~n.f:. .f:. (r',t··~1(..fl - ..j (-',(..~- ..JIJ" ~(0 IT ;:-::: Ow ... ... ".1 II
?::
~
!i!!;
L-·.J .. 'S'.f:.'~··l.f:.t·.) t·.).f:.t··) t·.)(lj(Jl(I) I·D (T'I((I'Dt··)--.J
. D . L • • LL
....- (..I} - '-J)l~l I~)(I) (I) ... - ..j (.,~-'.J(.,~C"'=::.-+:0. L • -..J -..JL -'.J - ..J ··D ... -'.J(0t·.) - ..J (0 I=::.((I(.,~(T',(.,~ - ..J-'.J ;;,,:,,00 0 0 0 (I)0\ ('''' -..J01(1", t:::1 I:::'(Jl 0'" (..11 ...-• ...-• 0 ...-• ...-• ~t·.)(..11 ...t··) (0) ....n,~n-..Jcn ::::::: :;:::;: ;~~:::;:;::: I~'••J.)'.J) -..0 .:s;,(.,~(1",(..11 ::: t·.)
:=:
... ." ;1J t··)z
...
t··) ...•. III)A
