幅杭計算（曲線）

幅杭計算（曲線） 【プログラム番号：P3】

　　 AC 999 MinF
LBL0 MR59 "Haba(L) ?" HLT
　　 Min59 MR60 "Haba(R) ?" HLT Min60
LBL4 180 / PI = Min77 0 "Curve(L[RTA]0 R[RTA]1) ?" HLT Min75
LBL5 0 Min9F MR70 "R ?" HLT
　　 Min70 +/- X>=0 GOTO5
　　 MR71 "BCx ?" HLT
　　 Min71 Min91 MR72 "BCy ?" HLT
　　 Min72 Min92 0 "IP(za[RTA]0 ho[RTA]1) ?" HLT X=0 GOTO6
　　 MR76 SDMS "IP Hoko ?" HLT Min76 GOTO9
LBL6 MR73 "IPx ?" HLT
　　 Min73 Min93 MR74 "IPy ?" HLT
　　 Min74 Min94 GSBP19 MR9F X=F GOTO5
　　 MR96 Min76 MR95 "Kyori=" HLT
　　 MR76 SDMS "Hoko=" HLT
LBL9 MR75 X=0 GOTO8
LBL7 MR78 "(R)l ?" HLT Min78 +/- X>=0 GOTO7
　　 MR78 / MR70 * MR77 / 2 = Min79 SIN * 2 * MR70 = Min81
　　 MR76 + MR79 = Min80 COS * MR81 + MR71 = Min82 MR80 SIN
　　 * MR81 + MR72 = Min83
　　 MR82 "(R)Px=" HLT
　　 MR83 "(R)Py=" HLT
　　 MR80 + MR79 - 90 = Min84 COS * MR59 + MR82 = Min85 MR84 SIN
　　 * MR59 + MR83 = Min86
　　 MR59 +/- X>=0 GOTO1
　　 MR85 "(R)PLx=" HLT
　　 MR86 "(R)PLy=" HLT
LBL1 MR60 +/- X>=0 GOTO7
　　 MR84 + 180 = Min87 COS * MR60 + MR82 = Min88 MR87 SIN * MR60
　　 + MR83 = Min89 MR88 "(R)PRx=" HLT
　　 MR89 "(R)PRy=" HLT GOTO7
LBL8 MR78 "(L)l ?" HLT
　　 Min78 +/- X>=0 GOTO8
　　 MR78 / MR70 * MR77 / 2 = Min79 SIN * 2 * MR70 = Min81
　　 MR76 - MR79 = Min80 COS * MR81 + MR71 = Min82 MR80 SIN
　　 * MR81 + MR72 = Min83
　　 MR82 "(L)Px=" HLT
　　 MR83 "(L)Py=" HLT
　　 MR80 - MR79 - 90 = Min84 COS * MR59 + MR82 = Min85 MR84 SIN
　　 * MR59 + MR83 = Min86
　　 MR59 +/- X>=0 GOTO2
　　 MR85 "(L)PLx=" HLT
　　 MR86 "(L)PLy=" HLT
LBL2 MR60 +/- X>=0 GOTO8
　　 MR84 + 180 = Min87 COS * MR60 + MR82 = Min88 MR87 SIN * MR60
　　 + MR83 = Min89 MR88 "(L)PRx=" HLT
　　 MR89 "(L)PRy=" HLT
　　 GOTO8

エラー表示サブルーチン 【プログラム番号：P18】

　　 999 Min9F 0 " DATA ERROR" PAUSE

座標変換サブルーチン 【プログラム番号：P19】

　　 0 Min9F MR91 - MR93 = X=0 GOTO1
　　 GOTO3
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コードで書かれていますので、実際の表現とは違う部分があります。表現の違いは下表の通りです。