fx-4850P版はこちらです→fx-4850P トラバース計算
マニュアル、操作手順書のサンプルはこちらです→トラバース計算
器械点（Ｏ）とバック点（ＢＳ）の座標を入力し、夾角(Ｋｙｏｕ)，距離(Ｌ)の点(Ｐ)の方向角（Ｈｏｋｏ）と座標(Ｐx,Ｐy)を
計算します。
最初に、「放射計算」と「連続計算」を選択してから計算をはじめます。
トラバース計算（放射、連続） 【プログラム番号：P0】
AC 999 MinFLBL0 0 "(Hou[RTA]0 Ren[RTA]1) ?" HLT
Min50 MR51 "Xo ?" HLT
Min51 Min91 MR52 "Yo ?" 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 SDMS "Kyou ?" HLT
Min57 + MR56 = Min58 - 360 = X>=0 Min58
LBL2 MR59 "L ?" HLT
Min59 +/- X>=0 GOTO2
MR51 Min61 MR52 Min62
LBL3 MR59 P>R MR58 = M+61 X<>Y M+62 "Hoko=" MR58 SDMS HLT
"Px=" MR61 HLT
"Py=" MR62 HLT
MR50 X=0 GOTO1
MR51 Min53 MR52 Min54 MR61 Min51 MR62 Min52 MR58 + 180 = Min56
- 360 = X>=0 Min56 MR57 SDMS "(Ren)Kyou ?" HLT
Min57 + MR56 = Min58 - 360 = X>=0 Min58
LBL4 MR59 "(Ren)L ?" HLT
Min59 +/- X>=0 GOTO4
GOTO3
エラー表示サブルーチン 【プログラム番号：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コードで書かれていますので、実際の表現とは違う部分があります。表現の違いは下表の通りです。
