fx-4850P版はこちらです→fx-4850P 逆トラバース計算
マニュアル、操作手順書のサンプルはこちらです→逆トラバース計算
器械点（Ａ）の座標(Ａx,Ａy)と、バック点（ＢＳ）の座標(ＢＳx,ＢＳy)を入力し、求点（Ｂ）の座標(Ｂx,Ｂy)を入力すると、Ａ点からＢ点までの方向角(Ｈ)と夾角（Ｋｙｏｕ）、距離(Ｌ)が計算できます。
最初に、「放射計算」と「連続計算」を選択してから計算をはじめます。
逆トラバース計算（放射、連続） 【プログラム番号：P1】
AC 999 MinFLBL0 0 "(Hou[RTA]0 Ren[RTA]1) ?" HLT
Min50 MR51 "Ax ?" HLT
Min51 Min91 MR52 "Ay ?" HLT
Min52 Min92 MR53 "Bsx ?" HLT
Min53 Min93 MR54 "Bsy ?" HLT
Min54 Min94 GSBP19
MR9F X=F GOTO0
MR95 Min55 "BsL=" HLT
MR96 Min56 SDMS "BsHoko=" HLT
LBL1 MR57 "Bx ?" HLT
Min57 Min93 MR58 "By ?" HLT
Min58 Min94
LBL2 GSBP19
MR9F X=F GOTO1
MR95 Min59 MR96 Min60 - MR56 = Min61 X>=0 GOTO3
+ 360 = Min61
LBL3 SDMS "Kyou=" HLT
MR59 "L=" HLT
MR60 SDMS "Hoko=" HLT
MR50 X=0 GOTO1
MR51 Min53 MR52 Min54 MR59 Min55 MR60 - 180 = Min56 X>=0 GOTO4
+ 360 = Min56
LBL4 MR57 Min51 Min91 MR58 Min52 Min92 MR57 "(Ren)Bx ?" HLT
Min57 Min93 MR58 "(Ren)By ?" HLT
Min58 Min94 GOTO2
エラー表示サブルーチン 【プログラム番号：P18】
999 Min9F 0 " DATA ERROR" PAUSE座標変換サブルーチン 【プログラム番号：P19】
0 Min9F MR91 - MR93 = X=0 GOTO1GOTO3
LBL1 MR92 - MR94 = X=0 GOTO2
GOTO3
LBL2 GSBP18
GOTO5
LBL3 MR93 - MR91 = R>P ( MR94 - MR92 ) = Min95 X<>Y X>=0 GOTO4
+ 360 =
LBL4 Min96
LBL5
ご注意下さい
- 上記プログラムソースは見やすいようにインデント・改行されていますが、FX-603Pに入力する際には、インデント・改行を無視してください。
- サブルーチンは他のプログラムと共用しますのでプログラム番号を変更しないでください。
- 当プラグラムソースはASCIIコードで書かれていますので、実際の表現とは違う部分があります。表現の違いは下表の通りです。
