トンネハレ姿父歳言十算算にこついて特定造設計課　同男治し。機要トンネル数量計算は複雑ではあるがバタ—ンがきまっているため、これをマルチプランによりプログラムし、業務の迅速化を図った。内空断前形状は１心円と３心円を対象とした。またパターン別のデータ人力に関してはインブット用紙を作成し、これを参考にして入力できるようにした。（図6参照）インブット及び計算、アウトブットはバターン毎に行う。 2 。プログラムの流れプログラムの流れとしては、以1の通りである。
( :1 )マクロ1
プログラムの実行はマクロを使用して行う。使用するマクロは、以下の３バターンがある。（以２、３参照） l ）マクロ】 （キー操作　CTRL+A　で　ST)バターン選択表にて　 0から7の番号でバターンを入力した後、インブット表に画面を移動させる。 2 ）マクロ2 　（キー操作　CTRL+A　で　P)インプット表にてデ—タ入力完了後、計算及び計算結果を打ち出させる。 3 )マクロ3 　（キー操作　C T R L + A　で B )計算結果打ち出し終了後他バターンを計算する際に、バターン選択表に画面を移動させる。
( 2 )ワークシートの構成
数豊計算用のワークシートを１心円では１９個　３心円では２１個に分割し、左端はインプット表　右端は数撤表　興ん中は計算というふうに分けた。（図2 、３参照）これらをマクロ！・２で組み合わせ、計算しアウトブットさせるようにした。（図２、３参照） A 23 'POR59C3:K71C4'KT 24  PUK124050:K173657' XT' XT 25  POR9C36:R58C43.RT+RT 20  PURC3C3G:R112C43. RT'RT CIAL 30 POKAUC3:R52C4’KT’KT (無) 31 POR89C5A:K118C57' KT KT 3? POR9C23:R58C30'RT'R1 33  PDK118C23:R167C3U'RT'K1 CI-CL 35 POK40C3:152C4'RT'RT (有)  30 PORC9C5A:R118C57' RT RT 37 POR9C23:R58C3D.RT+RT 38  PORG1C23:K11UC30'RT'&T 33 POR118C23:R167C30'RT'RT DI-1  A1  POR10C3:R34C4'RT'KT 42 PORRCSU:PS8657' RY K T 43  PORSCIO:R58C17' KT' KT 44 POR66C10:K115C17:KT:KT 45 * TFR163C12>O' * GOR49C1' 4G ' IFRIG3C1SCO' ' GOR5AC1' |マクロスAR TURBY 1849 K T 49 POR123C10:R172C17' RT' RT 50 PML18(iC10:K229C1?' RT' RT 5' POK237C10:K2B0C17' KT' RT 52 POK294C!O:K343C17'KT'KT 54 POR350C10:K399C17* RT* RT 55 POR415C10:R4C4C17' &T' RT 5G POK237C!!:R28GC17' RT'RT 5? POR29AC10:R343C17*RT*KT -B GU PORAUCI:K52GA'R1'KT 61 POK12AC5(I:R173C57*R1 62 PURGC23:R58C3U'RT RT 63 POR118C23:K167C3D KT'RT
マク	のおたい
図2,プログラムの橋本（3に日）
ワークシートの橋版
DoA 70 Portucs:R34C4'kT'kT 71  POR9C50:R58C57,KT'KT 12  POR9C1A:R58Ci7'RT KT 73 POKS6C10:X115C17'RT 7 4  " J F K 1 U 3 U 1 2 > 0 " 6 U K 7 7 C 1 " ?5 ' 1 F R 1 G 3 C 1 2 < 1 ' G O R 9 C 1 ' 77  PUR123C10:K172C17  RT  RT 78 POK18UC14:K229C17 KT KT 79 POK294C10:K343C17~KT*RT 9(1 PUR350C10:K389C17 KT XT S 1  P O K 4 1 5 C 1 [I : K 4 G 4 C 1 7 ' R T ' K T 92  P O K 2 9 4 1 0 : R 3 4 3 0 1 7  R T ' R T -DI-I 1U0 PORARC3:R52C4'KT'KT 1 U1  PORG9C50:K118C57:KT KT 192  POKBC23:R58C3D'RT RT 103  POR180C23:R229C3N'RT'RT 104  POK118C23:K167C30'RT'RT
120  POR123C10:R172C17~RT'R1 121  PUK180C10:K229C17'KT'RY 122  POR24OC23:R289C3U'KT'RT 123 POR29AC10:R343C17'RT RT 13日POX35AC1A:K399C17' RT' RT !31 POK415C10:K464C17'KT'KT 132  POK240C23:K288C3(I, RT, RT 133  PUR294C1D:K343C17' RT' RT
/197-ン別プログラムの活れ表

7 B 60 POR4(IC3:R47C4'RT'RT G1 POR124C50:R173C57'RT'RT 02  POR9C23:R58C3(! RT, RT 63  POK123C23:R172C30'RT'RT Doä  10  PORING3:K34C4'RT'KT ?! PORSC50:R58C5?'RT'RT 72 PORGC10:R58C1?'RT'RT 73  PORGGC1D:R115C17'RT'RT 74 POR123C10:R172C17*KT*R1 75 POR180C10:R229C17* RT 7G   P O R 2 9 4 C 1 O : R 3 4 3 C 1 7 * R T * R T DI-2   ac  partoco:r34c4'kt'rt 81  PNK9C50:R58C57'RT'RT 82  PURSCIN:R58C17' KT' KT 83 PORG8E1D:R115C17'RT'RT 84 POR123C1N:R172C17'RT'RT 85 POR180C10:R229C17'RT'RT 80  POK24AC23:R289C3D. KT. RT 87 ?UK284C10:R343C17 kT kT -DT-1 90 POR40C3:R47C4*RT*RT* 91 PUREACSR:R11RC57'RT2 92 POX9C23:R58C3D.KT.KT 93  POR180C23:R229C30'RT" RT 94  POR123C23:R172C3D' RT' RT 100 SK9: TB4: R1 /107-ン別プロアルのことれ表
３。操作手順( 1. )ブリンタ・に外字を登録1 ）起動させてすぐ外字登録の断面が出るので、ゼ5キーをおしてブリンターに外字を鐘録してやる。その時プリンターは外字を打ち出す。 2）プリンターの打ち出しが終わったら、も１０キーをおして終了させる。 (外字音錄終了後マルチプランがたちあかる) （２） |分空断面形状の選択1 ） T （転送）のL （読込） 2 ）方向キーを動かして使用するファイル名にあわせてリターンする。ファイル名 T O N N E L 1 – 1心円T O N N E L 2 – 3心H
( ３ )バターンの選択
1 ）雨雨に図4 、の様な表が出てくるので計算したいバターンを推导で、 ”選択N O ? ”の隣の空間に人力する。 2 ） C T R L + AのS Tと入力してやる。
( ４ )データの入力
1 ）（3 ）の操作で画面にインブッド表が出るので、数値を人力してやる。 （図５、のインブット表はバターンの選択で、ＡからＤ１－１を選んだ場合に出てくる表である。）
25 ( 5 )計算及びアウトブット1 ) C T R I, + AのPとする。 2 ）』）の操作で計算及び計算結果のアウトブットがされる。
( 6 )終了
1 ）他のバターンを計算する場合には、C T R L + AのBを入力してやると( 3 )の項に展るので、また同じ様に操作してやる。 2）終了させる場合にはＱ（終了）にしてリターンする。
4 。近犬した点
( 1 )このマルチブランの辞書はＷＸだったため、mi SIN 'というような外字はなかったため、カタナに入っているGAIJI.EXE USKCG,SYS USKCG24. SYSを組み込んでやり打ち出せるようにした。 ( 2 ) Ｂ５用紙につめてうちださせるために文字列の中に数式を入れ、表示文字がつめて表示されるようにした。
5 。反省点及び今後の課題
反省点として、ワークシートの構成及びマクロ命令分の構成が整然と配寵されていないので、プログラムの中身がわかりにくい。課題として変形余裕量及び側壁導坑が考慮できるようにし、また各々のバターンの数魅を総括し、一覧表を作成できるようにしたい。 — 区. {, —
インプシト耳浜氏