交点計算(円−円)

交点計算(円−円) 【プログラム番号：P7】

　　 AC 999 MinF
LBL0 0 Min9F MR51 "Ax ?" HLT
　　 Min51 Min91 MR52 "Ay ?" HLT
　　 Min52 Min92
LBL6 MR55 "Ra ?" HLT
　　 Min55 +/- X>=0 GOTO6
LBL1 MR53 "Bx ?" HLT
　　 Min53 Min93 MR54 "By ?" HLT
　　 Min54 Min94
LBL7 MR56 "Rb ?" HLT
　　 Min56 +/- X>=0 GOTO7
　　 GSBP19
　　 MR9F X=F GOTO0
　　 MR95 Min57 MR96 Min58 MR55 + MR56 - MR57 = X>=0 GOTO2
　　 GSBP18
　　 GOTO0
LBL2 MR57 + MR56 - MR55 = X>=0 GOTO3
　　 GSBP18
　　 GOTO0
LBL3 MR57 + MR55 - MR56 = X>=0 GOTO4
　　 GSBP18
　　 GOTO0
LBL4 MR57 X^2 + MR55 X^2 - MR56 X^2 = / ( 2 * MR57 * MR55 )
　　 = ACS Min59 MR58 + MR59 = Min60 COS * MR55 + MR51 = Min61
　　 MR60 SIN * MR55 + MR52 = Min62 MR58 - MR59 = Min60 COS *
　　 MR55 + MR51 = Min63 MR60 SIN * MR55 + MR52 = Min64
LBL5 "Px=" MR61 HLT
　　 "Py=" MR62 HLT
　　 "Qx=" MR63 HLT
　　 "Qy=" MR64 HLT
　　 GOTO1

エラー表示サブルーチン 【プログラム番号：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コードで書かれていますので、実際の表現とは違う部分があります。表現の違いは下表の通りです。