交点計算(直線−直線)

交点計算(直線−直線) 【プログラム番号：P5】

　　 AC 999 MinF 1 Min71
LBL0 0 Min9F 1 +/- Min50 MR71 "(2P2A[RTA]1 4P[RTA]2) ?" HLT
　　 M+50 MR50 X=0 GOTO3
　　 MR50 - 1 = X=0 GOTO1
　　 GOTO0
LBL1 MR51 "A1x ?" HLT
　　 Min51 Min91 MR52 "A1y ?" HLT
　　 Min52 Min92 MR53 "A2x ?" HLT
　　 Min53 Min93 MR54 "A2y ?" HLT
　　 Min54 Min94 GSBP19
　　 MR9F X=F GOTO1
　　 MR96 Min55
LBL2 MR56 "B1x ?" HLT
　　 Min56 Min91 MR57 "B1y ?" HLT
　　 Min57 Min92 MR58 "B2x ?" HLT
　　 Min58 Min93 MR59 "B2y ?" HLT
　　 Min59 Min94 GSBP19
　　 MR9F X=F GOTO2
　　 MR96 Min60 MR51 Min61 MR52 Min62 MR55 Min65 MR56 Min63
　　 MR57 Min64 MR60 Min66 GOTO5
LBL3 MR61 "Ax ?" HLT
　　 Min61 Min91 MR62 "Ay ?" HLT
　　 Min62 Min92 MR65 SDMS "Hoko-A ?" HLT
　　 Min65
LBL4 MR63 "Bx ?" HLT
　　 Min63 Min93 MR64 "By ?" HLT
　　 Min64 Min94 MR66 SDMS "Hoko-B ?" HLT
　　 Min66
LBL5 MR65 - MR66 = X=0 GSBP18
　　 MR9F X=F GOTO0
　　 MR65 - MR66 = ABS - 180 = X=0 GSBP18
　　 MR9F X=F GOTO0
　　 GSBP19
　　 MR9F X=F GOTO0
　　 MR65 - 90 = X=0 GOTO6
　　 MR65 - 270 = X=0 GOTO6
　　 MR66 - 90 = X=0 GOTO7
　　 MR66 - 270 = X=0 GOTO7
　　 MR65 TAN Min67 MR66 TAN Min68 * MR63 - MR67 * MR61
　　 + MR62 - MR64 = / ( MR68 - MR67 ) = Min69 MR67
　　 * ( MR69 - MR61 ) + MR62 = Min70 GOTO8
LBL6 MR61 Min69 MR66 TAN * ( MR69 - MR63 ) + MR64 = Min70 GOTO8
LBL7 MR63 Min69 MR65 TAN * ( MR69 - MR61 ) + MR62 = Min70
LBL8 "Px=" MR69 HLT
　　 "Py=" MR70 HLT
　　 MR50 X=0 GOTO4
　　 GOTO2

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