測量プログラム説明書FX-603P
ず〜っと眠らしてたネタですが・・・もったいないので出しちゃいましたっ！
これはkouが入社して2〜3年目にかけて作ったプログラム。当時はPCの普及があまりない時代でみんなワープロでやってたりしてましたねっ！その時にプログラムが○万円（現在も）ってな時代にkouはお給料が安かってお金が無いってので自作したものです（笑）
値段は・・プログラム査定価格￥15,000-？（うっそですよ〜ん）
なお動作を自分で確認しての操作願います。又責任は負いません（Ｔ△Ｔ） そんなぁ…
電卓やプログラムについてもお答えできませ〜ん(￣m￣*)；自分で勉強して下さい。
測量についても自分で勉強して下さい(*ﾟ▽ﾟ)ﾉでないとどこを出したか分からないですよ〜
それと・・・プログラムをよ〜く使ってもらったらわかるかもですが・・・あるプログラム計算結果がメモリーに残ってるのでそれを応用すると入力手間が省けたりもするようにそれなりに工夫してるつもりですっA^^; もし電気設備の無い現場でいざ計算しなきゃってがあった場合は役立つはずです。 それとfx-4800Pも作ってますがプログラムを表現出来にくいので出してません〜 ほんとは現場で使うのには4800Pのほうがコンパクトで使いやすいと思いますが・・・
下のほうにプログラムを載せてます。
（有）teratera co （これはもちろんジョークの会社。実在しませんって！！）
P.０ HERON （文字どうり）
A? １辺目の長さ入力 EXE
B? ２辺目の長さ入力 EXE
C? ３辺目の長さ入力 EXE
ANSWER＝・・答えです。EXE
での繰り返しです。
P.1 １ ten point （１点と方向角、距離より求めたい座標の計算）
SHITEN X？ 起点のX座標入力（P） EXE
SHITEN Y？ 起点のY座標入力（Q） EXE
Hohkohkaku? 起点より算出したい方向への方向角入力（α） EXE
L? 起点より算出したい方向への距離入力（L） EXE
X POINT＝ 求めたい点のX座標算出（E） EXE
Y POINT＝ 求めたい点のY座標算出（F） EXE
での繰り返しです。
P.2 zahyo open （2 ten point） （２点より方向角、距離の計算）
SHITEN X？ 起点のX座標入力（P） EXE
SHITEN Y？ 起点のY座標入力（Q） EXE
SHITEN X？ 終点のX座標入力（E） EXE
SHITEN Y？ 終点のY座標入力（F） EXE
Hohkohkaku＝ 起点より終点への方向角算出（α） EXE
L＝ 起点より終点への距離算出（L） EXE
での繰り返しです。
P.3 tra1 Gyaku traverse （逆トラバース）
KIKAI X? 機械点X座標入力(A) EXE
KIKAI Y? 機械点Y座標入力(B) EXE
B.S X 後視点X座標入力(C) EXE
B.S Y 後視点Y座標入力(D) EXE
POINT X 求めたい点X座標入力(E) EXE
POINT Y 求めたい点Y座標入力(F) EXE
KAKUDO= 後視点より求めたい点への夾角θ算出（θ） EXE
Ans L= 機械点より求めたい点への距離L算出（L2） EXE
でPOINT Xから再び繰り返し計算になります。
P.4 tra2 Hohsya traverse （放射トラバース）
KIKAI X? 機械点X座標入力(A) EXE
KIKAI Y? 機械点Y座標入力(B) EXE
B.S X 後視点X座標入力(C) EXE
B.S Y 後視点Y座標入力(D) EXE
KAKUDO? 後視点より求めたい点への夾角θ算出（θ） EXE
L? 機械点より求めたい点への距離L算出（L2） EXE
X Zahyo 求めたい点X座標入力(E) EXE
Y Zahyo 求めたい点Y座標入力(F) EXE
でKAKUDO?から再び繰り返し計算になります。
P.5 Nini(Free) point （任意機械点計算）
B.S X 後視点X座標入力(C) EXE
B.S Y 後視点Y座標入力(D) EXE
POINT X 視準点X座標入力(E) EXE
POINT Y 視準点Y座標入力(F) EXE
KAKUDO? 後視点より視準点への夾角θ入力（θ） EXE
L? 機械より視準点への距離L入力（L2） EXE
KIKAI X ZAHYO 機械点X座標算出(A) EXE
KIKAI Y ZAHYO 機械点Y座標算出(B) EXE
で繰り返し計算です。
※ただ後視点と視準点の選択は機械より近い方の点を視準として計算して下さい。
（だったと思うので再度自分で確認を・・）
P.6 Sinple no1 simple youso （単曲線要素）
I.A? IAの角度入力(IA) EXE
R? Rの入力(R) EXE
T.L TLの算出(TL) EXE
C.L CLの算出 EXE
S.L SLの算出 EXE
M Mの算出 EXE
D Dの算出 EXE
Cl(kocho)? BCより求めたい点への弧長の入力(Cl) EXE
Theta(henkaku)= BCより求めたい点への編角の算出 EXE
L(gencho)= ＢＣより求めたい点への弦長算出 EXE
Again? n 1 y 0 もう一度編角から算出したい場合は０を押す。やめるときは１を押す。
０の時は編角より繰り返し。１を押すと終わりか・・sinple no2にジャンプする。
P.7 Simple no 2 simple zahyo （単曲線座標）
IA? IAの入力(IA) EXE
R? Rの入力(R) EXE
TL? TLの入力(TL) EXE
BC zahyo X? BCのX座標入力 EXE
BC zahyo Y? BCのＹ座標入力 EXE
BC→IP Hohkoh? BCよりIPへの方向角入力 EXE
IP Zahyo X= IPのＸ座標算出 EXE
IP Zahyo Y= IPのＹ座標算出 EXE
Curve L→１ Ｒ→０ 右カーブなら１を押す 左カーブなら０を押す
O zahyo X= Ｒの中心座標Ｘ算出 ＥＸＥ
O zahyo Y= Ｒの中心座標Ｙ算出 ＥＸＥ
Cl(kocho)? BCより求めたい点への弧長の入力(Cl) EXE
Theta(henkaku)= BCより求めたい点への編角の算出 EXE
L(gencho)= ＢＣより求めたい点への弦長算出 EXE
Point X= 求めたい点のＸ座標算出 EXE
Point Y= 求めたい点のＹ座標算出 EXE
Po→O Ａｌｆａ 求めた点よりＲの中心方向への方向角 EXE
で再び編角より繰り返し計算です。
P.8 Simple no 3 simple kuguri （単曲線くぐり）
R? Rの入力(R) EXE
Gencyo(L) 求めたい区間の弦長を入力 EXE
X 求めたい区間の中での円と直線間での交点より任意点までの距離入力 EXE
Kuguri= その任意点でのくぐり EXE
再びＲからの繰り返し計算です。
※例えば・・距離（弦長）が20ｍとします。で、その1/2まではＸを入力できます（10ｍまでは）。が・・11ｍとかその区間で1/2以上の距離を入力すると・・・答えが違いますっ！注意しましょうっ。（再度確認を）
P.9 Vertical curve （縦断曲線）
I1=? 勾配１を％で入力 EXE
I2=? 勾配２を％で入力 EXE
Vcl(L)→１ Ｒ→０ Ｌが分かってたら１を押す。Ｒが分かってたら０を押す
でＲかＬを聞いてくると・・どちらか分からないほうが算出されます。
V max(M)= Ｍ（最大の下がりの算出
X=? 求めたい任意点までの距離入力 EXE
Y= 下がりの算出 EXE
Xよりの繰り返し計算となります。
P.10 Crothoid curve 1 (crothoid youso) （クロソイド要素）
R=? Ｒの入力 EXE
IA=? IAの入力 ＥＸＥ
Youso L→１ Ａ→０ Ｌが分かってたら１を押す。Ａが分かってたら０を押す。
そして・・・どちらかの答えが出た後・・
X= Xの算出 EXE
Y= Ｙの算出 ＥＸＥ
ＴＬ＝ ＴＬの算出 ＥＸＥ
ＴＫ＝ ＴＫの算出 ＥＸＥ
Tau= Tau（τ）の算出 ＥＸＥ
Xm= Xmの算出 ＥＸＥ
Del R= del R(δＲ)の算出 ＥＸＥ
Ｓｏ＝ Ｓｏの算出 ＥＸＥ
Sigma= sigma（σ）の算出 ＥＸＥ
Theta(alfa)= alfa(α)の算出 ＥＸＥ
TorD＝ Ｔ（Ｄ）の算出 ＥＸＥ
Ｌｃ＝ Ｌｃの算出 ＥＸＥ
Again? yes1 no0 もう一回やる場合は１を押す。やめるときは０を押す。
１なら初めから繰り返しＲより計算を。
０なら
Xi Yi? Yes1 no0 任意距離を調べる時は１を押す。やめるときは０を押す。
０ならP.12へジャンプする
１ならＬｉ＝？ KA点よりの任意距離（要はＬから繰り返し）を入力 ＥＸＥ
クロソイドを勉強してから使用願います！
P.11はプログラムは無いです。
P.12 Crothoid curve 2 (crothoid zahyo) （クロソイド座標計算）
R=? Ｒの入力 EXE
IA=? IAの入力 ＥＸＥ
L=? Lの入力 ＥＸＥ
Ａ＝？ Ａの入力 ＥＸＥ
Tau= Tau（τ）の算出 ＥＸＥ
ＳＯ＝ ＳＯの算出 ＥＸＥ
Sigma= sigma（σ）の算出 ＥＸＥ
Curve L→１ Ｒ→０ カーブが右カーブの時は０を押す。左カーブの時は１を押す。
Ka-X? KAのＸ座標を入力 ＥＸＥ
Ka-Y? ＫＡのＹ座標を入力 ＥＸＥ
Ka→IP hohkoh? ＫＡよりＩＰへの方向角を入力 ＥＸＥ
Point x= 任意点でのＸ（ＬをそのままだとＫＥとなる）座標算出 ＥＸＥ
Point y= 任意点でのＹ（ＬをそのままだとＫＥとなる）座標算出 ＥＸＥ
Sessenkaku= 接線方向角算出 ＥＸＥ
Li=? KA点よりの任意距離を入力 EXE
Tauからの繰り返し計算。なお、初めの１回目はＬをそのまま入力して次回のＬｉより任意点を計算するとよいです。
P.13 Clothoid curve3 clothoid waid (拡幅計算)
Wide(max)? 最大拡幅幅を入力 ＥＸＥ
Ｌ？ 拡幅間の距離を入力 ＥＸＥ
Ln(KA→PO)? 求めたい任意距離を入力 ＥＸＥ
Waid lain(all)= 任意点での全体拡幅量算出 ＥＸＥ
Waid lain= 任意点での片側の拡幅量算出 ＥＸＥ
Ｌｎよりの繰り返し計算です。
P.14 closs line 1 (2 ten 2 Hohkoh) （２点２方向の交点座標計算）
A zahyo X? １点目の座標Ｘを入力 ＥＸＥ
A zahyo Y? １点目の座標Ｙを入力 ＥＸＥ
A Hohkohkaku? １点目の方向角を入力 ＥＸＥ
B zahyo X? 2点目の座標Ｘを入力 ＥＸＥ
B zahyo Y? 2点目の座標Ｙを入力 ＥＸＥ
B Hohkohkaku? 2点目の方向角を入力 ＥＸＥ
Kohten X zahyo= 交点座標Ｘ算出 ＥＸＥ
Kohten Ｙzahyo= 交点座標Ｙ算出 ＥＸＥ
Ａ→kohten L= １点目より交点までの距離算出 ＥＸＥ
Ｂ→kohten L= 2点目より交点までの距離算出 ＥＸＥ
A zahyoよりの繰り返し計算です。
P.15 closs line 2 (Suisen 3ten) （垂線交点座標計算）
A zahyo X? １点目の座標Ｘを入力 ＥＸＥ
A zahyo Y? １点目の座標Ｙを入力 ＥＸＥ
B zahyo X? 2点目の座標Ｘを入力 ＥＸＥ
B zahyo Y? 2点目の座標Ｙを入力 ＥＸＥ
C zahyo X? 3点目の座標Ｘを入力 ＥＸＥ
C zahyo Y? 3点目の座標Ｙを入力 ＥＸＥ
Kohten X zahyo= 交点座標Ｘ算出 ＥＸＥ
Kohten Ｙzahyo= 交点座標Ｙ算出 ＥＸＥ
C→kohten Hohkoh= 3点目より交点までの方向角算出 ＥＸＥ
C→kohten L= 3点目より交点までの距離算出 ＥＸＥ
A zahyoよりの繰り返し計算です。
P.16 closs line 3 (4ten kohten) （４点交点座標計算）
A zahyo X? １点目の座標Ｘを入力 ＥＸＥ
A zahyo Y? １点目の座標Ｙを入力 ＥＸＥ
B zahyo X? 2点目の座標Ｘを入力 ＥＸＥ
B zahyo Y? 2点目の座標Ｙを入力 ＥＸＥ
C zahyo X? 3点目の座標Ｘを入力 ＥＸＥ
C zahyo Y? 3点目の座標Ｙを入力 ＥＸＥ
D zahyo X? 4点目の座標Ｘを入力 ＥＸＥ
D zahyo Y? 4点目の座標Ｙを入力 ＥＸＥ
Kohten X zahyo= 交点座標Ｘ算出 ＥＸＥ
Kohten Ｙzahyo= 交点座標Ｙ算出 ＥＸＥ
A zahyoよりの繰り返し計算です。
P.17 Zahyo menseki （座標面積計算）
Ｘｎ？ Ｘ１座標を入力 ＥＸＥ
Ｙｎ+1？ Ｙ１座標の次のＹの座標を入力 ＥＸＥ
Ｙｎ-1？ Ｙ１座標の前のＹの座標を入力 ＥＸＥ
Ａｎｓ n= 面積算出 ＥＸＥ
Again? ｙ→１ ｎ→０ 繰り返し算出なら１を押すとＸｎより繰り返しとなる。 答えを出す時には０を押す
Σ×2＝ にて倍面積算出 ＥＸＥ
Σ MENSEKI= にて面積算出 ＥＸＥ
Tsubo＝ にて坪を算出 ＥＸＥ
で終了（ＡＣ）を・・・・・
P.18 G H keisan （高さ計算）
Ｌｅｖｅｌ→１ koh bai→０
レベル計算なら１を押す。勾配計算なら０を押す
０の時・・kohbai keisan
FH? 計画高さ入力 ＥＸＥ
Kohbai? 勾配（％）を入力 ＥＸＥ
Ｌ？ 求めたい距離を入力 ＥＸＥ
ＥＬ＝ 計画高さ算出 ＥＸＥ
ＦＨ？よりの繰り返しです。
１の時・・
Level→１ kohha→0 レベル計算は１を押す。光波では０を押す
０の時・・kohha keisan
G.H？ 地盤高入力 ＥＸＥ
Ｂ．Ｓ？ 後視高さ入力 ＥＸＥ
POOL? ミラーの高さ入力（必要なければ０でよい） ＥＸＥ
ＩＨ＝ 器械高算出 ＥＸＥ
POOL? ミラーの高さ入力（必要なければ０でよい） ＥＸＥ
F.S? 視準高さ入力 ＥＸＥ
Ｇ．Ｈ＝ 当った地盤高算出 ＥＸＥ
ＰＯＯＬ？からの繰り返し計算でＧ．Ｈの算出の繰り返しです。
１の時・・Level keisan
Ｇ．Ｈ？ 地盤高入力 ＥＸＥ
Ｂ．Ｓ？ 後視点入力 ＥＸＥ
ＩＨ＝ 器械高算出 ＥＸＥ
Ｆ．Ｓ？ 視準点入力 ＥＸＥ
Ｇ．Ｈ＝ 地盤高算出 ＥＸＥ
Ｇ．Ｈより又繰り替えし計算です〜。
一応これがプログラムですが・・・FX-603PはPCを通してプログラム転送が出来ます。約15000円程度であるのですが・・・（kouは持ってます）それを使うとこのメモリーをもし入力しててそれを飛ばしても再入力（地獄のような）の手間が省けます。
又、今後はPCのプログラムが発達してあまり必要ないって感じもあるし・・・開発はしません♪〜(￣ε￣；)
All Program List
P0
AC "HERON" HLT
LBL1 AC MR01 "A?" HLT
Min01 AC MR02 "B?" HLT
Min02 AC MR03 "C?" HLT
Min03 AC EXE
MR03 + MR01 + MR02 = / 2 = Min04 EXE
MR04 * ( MR04 - MR01 ) * ( MR04 - MR02 ) * ( MR04 - MR03 ) = SQR "ANSWER=" HLT
GOTO1
P1
AC "1 ten point" HLT
AC
LBL1 AC MR50 "SHITEN X?" HLT
Min50 AC MR51 "SHITEN Y?" HLT
Min51 AC MR52 "Hohkohkaku?" HLT
Min52 AC MR53 "L?" HLT
Min53 AC EXE
MR50 + ( MR53 * MR52 COS ) = Min05 EXE
MR51 + ( MR53 * MR52 SIN ) = Min06 EXE
MR05 "X POINT=" HLT
MR06 "Y POINT=" HLT
GOTO1
P2
AC "zahyo open" HLT
"2 ten point" HLT
LBL1 AC MR61 "SHITEN X?" HLT
Min61 Min50 AC MR62 "SHITEN Y?" HLT
Min62 Min51 AC MR63 "SYUTEN X?" HLT
Min63 AC MR64 "SYUTEN Y?" HLT
Min64 AC EXE
MR63 - MR61 = Min65 EXE
MR64 - MR62 = Min66 EXE
MR65 R>P MR66 = Min67 X<>Y X<>M68 MR68 SDMS X>=0 GOTO2
+ 360 = Min68
LBL2 MR68 Min52 SDMS "Hohkohkaku=" HLT
MR67 Min53 FIX3 "L=" HLT
GOTO1
P3
AC "tra 1" HLT
"Gyaku traverse" HLT
AC MR01 "KIKAI X?" HLT
Min01 AC MR02 "KIKAI Y?" HLT
Min02 AC MR03 "B.S X?" HLT
Min03 AC MR04 "B.S Y?" HLT
Min04 AC
LBL1 MR05 "POINT X?" HLT
Min05 AC MR06 "POINT Y?" HLT
Min06 AC EXE
MR03 - MR01 = Min10 EXE
MR04 - MR02 = Min11 EXE
MR05 - MR01 = Min12 EXE
MR06 - MR02 = Min13 EXE
MR10 R>P MR11 = Min14 X<>Y X<>M15 EXE
MR12 R>P MR13 = Min08 X<>Y X<>M17 EXE
MR17 - MR15 = Min07 EXE
MR07 SDMS X>=0 GOTO2
+ 360 = Min07
LBL2 EXE
MR07 SDMS "KAKUDO=" HLT
MR08 FIX3 "Ans L=" HLT
GOTO1
P4
AC "tra 2" HLT
"Hohsha traverse" HLT
AC MR01 "KIKAI X?" HLT
Min01 AC MR02 "KIKAI Y?" HLT
Min02 AC MR03 "B.S X?" HLT
Min03 AC MR04 "B.S Y?" HLT
Min04 AC
LBL1 AC MR07 "KAKUDO?" HLT
Min07 AC MR08 "L?" HLT
Min08 AC EXE
MR03 - MR01 = MinF EXE
MR04 - MR02 = Min1F EXE
MRF R>P MR1F = Min09 X<>Y X<>M10 EXE
MR10 + MR07 = Min11 EXE
MR11 X>=0 GOTO2
+ 360 = Min11
LBL2 Min11 EXE
MR01 + ( MR08 * MR11 COS ) = Min05 EXE
MR02 + ( MR08 * MR11 SIN ) = Min06 EXE
MR05 "X Zahyo=" HLT
MR06 "Y Zahyo=" HLT
GOTO1
P5
AC "Nini(Free) point" HLT
LBL1 AC MR03 "B.S X?" HLT
Min03 AC MR04 "B.S Y?" HLT
Min04 AC MR05 "POINT X?" HLT
Min05 AC MR06 "POINT Y?" HLT
Min06 AC MR07 "KAKUDO?" HLT
Min07 AC MR08 "L?" HLT
Min08 AC EXE
( ( ( MR05 - MR03 ) X^2 ) + ( ( MR06 - MR04 ) X^2 ) ) = SQR Min10 EXE
MR08 / MR10 * ( MR07 SIN ) = ASN Min11 EXE
MR07 + MR11 + 180 = Min12 EXE
MR03 - MR05 = Min13 EXE
MR04 - MR06 = Min14 EXE
MR13 R>P MR14 = Min15 X<>Y X<>M16 EXE
MR16 + MR12 = Min17 EXE
MR17 X>=0 GOTO2
+ 360 = Min17
LBL2 Min17 EXE
MR05 + ( MR08 * MR17 COS ) = Min01 EXE
MR06 + ( MR08 * MR17 SIN ) = Min02 EXE
MR01 "KIKAI X ZAHYO=" HLT
MR02 "KIKAI Y ZAHYO=" HLT
GOTO1
P6
AC "Simple no1" HLT
"simple youso" HLT
AC MR01 "I.A?" HLT
Min01 AC MR02 "R?" HLT
Min02 AC EXE
MR02 * ( ( MR01 / 2 ) TAN ) = Min03 FIX4 "T.L=" HLT
EXE
PI * MR01 * MR02 / 180 = Min04 FIX4 "C.L=" HLT
( ( ( MR01 / 2 ) COS 1/X ) - 1 ) * MR02 = Min05 FIX4 "S.L=" HLT
MR02 * ( 1 - ( ( MR01 / 2 ) COS ) ) = Min06 FIX4 "M=" HLT
2 * MR02 * ( ( MR01 / 2 ) SIN ) = Min07 FIX4 "D=" HLT
LBL1 AC MR40 "cl(kocho)?" HLT
Min40 90 * 60 / PI * MR40 / ( 60 * MR02 ) = Min41 EXE
MR41 SDMS "theta(henkaku)=" HLT
2 * MR02 * MR41 SIN = Min42 EXE
MR42 FIX4 "L(gencho)=" HLT
AC "again? n 1 y 0" HLT
MinF X=0 GOTO1
"END or no2 go!" HLT
GSBP7
P7
AC "Simple no2" HLT
"simple zahyo" HLT
AC MR01 "IA?" HLT
Min01 AC MR02 "R?" HLT
Min02 AC MR03 "TL?" HLT
Min03 AC MR05 "BC zahyo X?" HLT
Min05 AC MR06 "BC zahyo Y?" HLT
Min06 AC MR07 "BC[RTA]IP Hohkoh?" HLT
Min07 AC MR05 + ( MR03 * MR07 COS ) = Min08 "IP zahyo X=" HLT
MR06 + ( MR03 * MR07 SIN ) = Min09 "IP zahyo Y=" HLT
AC "curve L[RTA]1 R[RTA]0" HLT
MinF X=0 GOTO1
* ( - 1 ) = MinF GOTO4
LBL1 1 MinF
LBL4 EXE
MR05 + MR02 * ( ( MR07 + 90 * MRF ) COS ) = Min10 "O zahyo X=" HLT
MR06 + MR02 * ( ( MR07 + 90 * MRF ) SIN ) = Min11 "O zahyo Y=" HLT
AC
LBL2 MR40 "cl(kocho)?" HLT
Min40 90 * 60 / PI * MR40 / ( 60 * MR02 ) = Min41 SDMS "theta(henkaku)=" HLT
2 * MR02 * MR41 SIN = Min42 FIX4 "L(gencho)=" HLT
MR05 + MR42 * ( ( MR07 + MR41 * MRF ) COS ) = Min12 "point X=" HLT
MR06 + MR42 * ( ( MR07 + MR41 * MRF ) SIN ) = Min13 "point Y=" HLT
( MR10 - MR12 ) R>P ( MR11 - MR13 ) = Min14 X<>Y X<>M15 MR15 SDMS X>=0 GOTO3
+ 360 = Min15
LBL3 Min15 MR15 SDMS "po[RTA]O Alfa=" HLT
GOTO2
P8
AC "Simple no3" HLT
"simple kuguri" HLT
LBL1 AC MR02 "R?" HLT
Min02 AC MR03 "gencyo (L)?" HLT
Min03 AC MR04 "X?" HLT
Min04 AC MR02 X^2 - ( ( ( MR03 / 2 ) - MR04 ) X^2 ) = Min05 MR02 X^2 - ( MR03 X^2 / 4 ) = Min06 MR05 SQR - MR06 SQR = Min07 MR07 FIX4 "kuguri=" HLT
GOTO1
P9
AC "Vertical curve" HLT
AC "i1=?" MR01 HLT
Min01 AC "i2=?" MR02 HLT
Min02 AC "vcl(L)[RTA]1 R[RTA]0" HLT
Min6F X=0 GOTO5
"vcl(L)=?" HLT
Min03 AC 100 * ( ( MR03 / ( MR01 - MR02 ) ) = Min04 FIX3 "R=" HLT
AC
LBL5 AC MR04 "R=?" HLT
Min04 AC MR04 * ( ( MR01 - MR02 ) / 100 ) = Min05 FIX3 "verti L=" HLT
AC EXE
( MR01 - MR02 ) / 800 * MR05 = Min06 FIX3 "v max(M)=" HLT
LBL4 AC MR07 "x=?" HLT
Min07 AC ( MR01 - MR02 ) ABS * MR07 X^2 / ( 200 * MR05 ) = Min08 FIX3 "y=" HLT
EXE
GOTO4
P10
AC "Crothoid curve 1" HLT
"croteoid youso" HLT
LBL6 AC "R=?" MR02 HLT
Min02 Min51 AC "IA=?" MR03 HLT
Min03 Min50 AC "yohso L[RTA]1 A[RTA]0" HLT
Min5F X=0 GOTO7
"L=?" HLT
Min04 AC MR04 * MR02 = SQR Min01 "A(para)=" HLT
AC
LBL7 AC MR01 "A=?" HLT
Min01 AC MR01 X^2 / MR02 = Min04 FIX4 "L=" HLT
AC
LBL2 MR01 X^2 * 90 / PI / MR02 X^2 = Min06 MR01 / MR02 = Min07 GSBP11
MRF FIX4 "X=" HLT
MR1F FIX4 "Y=" HLT
MR50 X=0 GOTO4
MRF - MR06 TAN 1/X * MR1F = Min11 FIX4 "TL=" HLT
MR1F / MR06 SIN = Min10 FIX4 "TK=" HLT
MR06 SDMS "Tau=" HLT
MRF - MR02 * MR06 SIN = Min09 FIX4 "Xm=" HLT
MR1F + MR02 * MR06 COS - MR02 = Min08 FIX4 "del R=" HLT
LBL4 MR1F / MRF = ATN Min12 MR1F / MR12 SIN = Min13 FIX4 "So=" HLT
MR12 SDMS "sigma=" HLT
MR50 X=0 GOTO5
AC MR03 - 2 * MR06 = Min14 SDMS "theta(alfa)=" HLT
AC ( MR02 + MR08 ) * ( MR03 / 2 ) TAN = Min15 + MR09 = Min16 FIX4 "TorD=" HLT
MR14 * PI * MR02 / 180 = Min17 FIX4 "Lc=" HLT
AC "Again? yes1 no0" HLT
Min05 X=0 GOTO5
GOTO6
LBL5 "Xi Yi? yes1 no0" HLT
Min05 X=0 GOTO1
"Li=?" HLT
Min18 MR01 X^2 / MR18 = Min02 GOTO2
LBL1 "END or P12!" HLT
GSBP12
EXE
P11
MR01 * MR07 * ( 1 - MR07 X^Y 4 / 40 + MR07 X^Y 8 / 3456 - MR07 X^Y 12 / 599040 + MR07 X^Y 16 / 175472640 - MR07 X^Y 20 / 78033715000 + MR07 X^Y 24 / 4904976300000 - MR07 X^Y 28 / 41421543000000000 ) = MinF MR01 * MR07 X^Y 3 / 6 * ( 1 - MR07 X^Y 4 / 56 + MR07 X^Y 8 / 7040 - MR07 X^Y 12 / 1612800 + MR07 X^Y 16 / 588349440 - MR07 X^Y 20 / 313373490000 ) = Min1F
P12
AC "Clothoid curve 2" HLT
"clothoid zahyo" HLT
"R=?" MR02 HLT
Min02 AC "IA=?" MR03 HLT
Min03 AC "L=?" MR04 HLT
Min04 AC "A=?" MR01 HLT
Min01 AC EXE
LBL2 MR01 X^2 * 90 / PI / MR02 X^2 = Min06 MR01 / MR02 = Min07 GSBP11
MR06 SDMS "Tau=" HLT
MR1F / MRF = ATN Min12 MR1F / MR12 SIN = Min13 FIX4 "SO=" HLT
MR12 SDMS "sigma=" HLT
AC "curve L[RTA]1 R[RTA]0" HLT
Min5F X=0 GOTO3
* ( - 1 ) = Min5F GOTO4
LBL3 1 Min5F
LBL4 EXE
AC "ka-X?" MR21 HLT
Min21 AC "ka-Y?" MR22 HLT
Min22 AC "ka[RTA]IP hohkoh?" MR23 HLT
Min23 AC MR21 + MR13 * ( ( MR23 + MR12 * MR5F ) COS ) = Min24 "point x=" HLT
MR22 + MR13 * ( ( MR23 + MR12 * MR5F ) SIN ) = Min25 "point y=" HLT
MR23 + ( MR06 * MR5F ) = Min24 SDMS "sessenkaku=" HLT
AC "Li=?" HLT
Min18 MR01 X^2 / MR18 = Min02 GOTO2
P13
AC "Clothoid curve3" HLT
"clothoid waid" HLT
MR01 "wide(max)?" HLT
Min01 AC MR02 "L?" HLT
Min02
LBL0 AC MR03 "Ln(KA[RTA]PO)?" HLT
Min03 AC MR03 / MR02 = Min04 ( 4 * ( MR04 X^Y 3 ) - 3 * ( MR04 X^Y 4 ) ) * MR01 = Min05 "waid lain(all)=" HLT
MR05 / 2 = Min06 "waid lain=" HLT
GOTO0
P14
AC "closs line 1" HLT
"2 ten 2 Hohkoh" HLT
AC
LBL1 MR71 "A zahyo X?" HLT
Min71 AC MR72 "A zahyo Y?" HLT
Min72 AC MRF "A Hohkohkaku?" HLT
MinF AC MR74 "B zahyo X?" HLT
Min74 AC MR75 "B zahyo Y?" HLT
Min75 AC MR1F "B Hohkohkaku?" HLT
Min1F AC EXE
MRF TAN = Min73 AC EXE
MR1F TAN = Min76 AC EXE
( MR76 * MR74 - MR73 * MR71 + MR72 - MR75 ) / ( MR76 - MR73 ) = Min77 EXE
MR77 "Kohten X zahyo=" HLT
MR73 * ( MR77 - MR71 ) + MR72 = Min78 EXE
MR78 "Kohten Y zahyo=" HLT
( MR77 - MR71 ) R>P ( MR78 - MR72 ) = Min79 FIX4 "A[RTA]kohten L=" HLT
( MR77 - MR74 ) R>P ( MR78 - MR75 ) = Min80 FIX4 "B[RTA]kohten L=" HLT
GOTO1
P15
AC "closs line 2" HLT
"Suisen 3ten" HLT
AC
LBL1 MR71 "A zahyo X?" HLT
Min71 AC MR72 "A zahyo Y?" HLT
Min72 AC MR73 "B zahyo X?" HLT
Min73 AC MR74 "B zahyo Y?" HLT
Min74 AC ( MR72 - MR74 ) / ( MR71 - MR73 ) = Min77 AC MR75 "C zahyo X?" HLT
Min75 AC MR76 "C zahyo Y?" HLT
Min76 AC ( MR77 * MR71 + MR77 1/X * MR75 - MR72 + MR76 ) / ( MR77 + MR77 1/X ) = Min78 EXE
MR78 "Kohten X zahyo=" HLT
MR72 + MR77 * ( MR78 - MR71 ) = Min79 MR79 "Kohten Y zahyo=" HLT
( MR78 - MR75 ) R>P ( MR79 - MR76 ) = Min81 X<>Y X<>M82 MR82 SDMS X>=0 GOTO2
+ 360 = Min82
LBL2 MR82 SDMS "C[RTA]kohten Hohkoh=" HLT
MR81 FIX4 "C[RTA]Kohten L=" HLT
GOTO1
P16
AC "closs line 3" HLT
"4ten kohten" HLT
AC
LBL1 MR71 "A zahyo X?" HLT
Min71 AC MR72 "A zahyo Y?" HLT
Min72 AC MR73 "B zahyo X?" HLT
Min73 AC MR74 "B zahyo Y?" HLT
Min74 AC MR75 "C zahyo X?" HLT
Min75 AC MR76 "C zahyo Y?" HLT
Min76 AC MR77 "D zahyo X?" HLT
Min77 AC MR78 "D zahyo Y?" HLT
Min78 AC ( MR74 - MR72 ) / ( MR73 - MR71 ) = Min79 ( MR78 - MR76 ) / ( MR77 - MR75 ) = Min80 ( MR80 * MR75 - MR79 * MR71 + MR72 - MR76 ) / ( MR80 - MR79 ) = Min81 MR79 * ( MR81 - MR71 ) + MR72 = Min82 MR81 "kohten X zahyo=" HLT
MR82 "kohten Y zahyo=" HLT
GOTO1
P17
AC "Zahyo menseki" HLT
AC
LBL1 0 Min01
LBL2 MR81 "Xn?" HLT
Min81 AC MR82 "Yn+1?" HLT
Min82 AC MR83 "Yn-1?" HLT
Min83 AC MR81 * ( MR82 - MR83 ) = Min84 M+01 MR84 "Ans n=" HLT
AC "again? y[RTA]1 n[RTA]0" HLT
MinF X=0 GOTO3
GOTO2
LBL3 MR01 "[SGM][MUL]2=" HLT
MR01 / 2 = Min85 MR85 "[SGM] MENSEKI=" HLT
AC MR85 * 0.3025 = Min86 MR86 FIX2 "tsubo=" HLT
AC GOTO1
P18
AC "G H keisan" HLT
"Level[RTA]1 kohbai[RTA]0" HLT
MinF X=0 GOTO1
"Level[RTA]1 kohha[RTA]0" HLT
MinF X=0 GOTO2
"Level keisan" HLT
AC
LBL3 MR01 "G.H?" HLT
Min01 AC MR02 "B.S?" HLT
Min02 AC MR01 + MR02 = Min03 "IH=" HLT
MR04 "F.S?" HLT
Min04 AC MR03 - MR04 = "G.H=" HLT
GOTO3
LBL2 "kohha keisan" HLT
AC MR01 "G.H?" HLT
Min01 AC MR02 "B.S?" HLT
Min02 AC MR03 "POOL?" HLT
Min03 AC MR01 - MR02 + MR03 = Min04 "IH=" HLT
LBL4 MR03 "POOL?" HLT
Min03 AC MR05 "F.S?" HLT
Min05 AC MR04 + MR05 - MR03 = "G.H=" HLT
GOTO4
LBL1 "kohbai keisan" HLT
LBL0 AC MR01 "FH?" HLT
Min01 AC MR02 "kohbai?" HLT
Min02 AC MR03 "L?" HLT
Min03 AC MR01 + ( MR03 * ( MR02 / 100 ) = "EL=" HLT
GOTO0
END
プログラムは本家他社やらはどういったプログラムになってるか一切不明ですのでもちろん計算の算出方法もkouなりに出しやすくかつ求めたい値のみを計算さすようにしてます。PCのプログラムと不一致な面もあるかもです（おそらく少数桁の問題等）。それもご了承くださいねっ！！