- FX-603P測量計算
- 交点計算(直線−直線)プログラム
FX-603P 測量プログラム交点計算(直線−直線)
FX-603P は、既に 製造が終了 しており、FX-603Pに関連した サービスも終了 しております。
また、FX-603Pに関する掲載情報も今後更新する予定はありません。
プログラムの概要
交点計算(直線−直線)プログラムの概要は次の通りです。
二直線の交点(Ｐ)の座標(Ｐx,Ｐy)を計算します。
直線の入力方法は、「一点の座標と方向角」，「二点の座標」の二種類を選択できます。
fx-5800Pのご案内
FX-603P は 2005年に 製造終了 となっております。
現場でお使いになるのであれば、fx-5800P をお勧めします。
fx-5800P は、 FX-603P の後継機種に当たります。処理能力が高いだけでなく、電池が切れてもプログラムが消えない優れた機能を持ち、現場での使い勝手も良い、手帳型のプログラム電卓です。
Excel 測量計算 のご案内
Excel 測量計算（Ver.2）は、様々な測量計算（30種）ができるように作られたソフトウェアです。
1,000点 の座標登録ができ、測点名で検索できます。また、CSV や SIMAデータの作成、簡易図形表示も備えています。
Web 測量計算2 のご案内
Web 測量計算2は、座標登録ができ、CSV・SIMAデータの読み込み・書き出しなど、Excel測量計算（Ver.2）と同等の機能を追加した Web 測量計算 の進化版です。
ただいま Excel測量計算 が 半額 で入手できる 特典 が付いています。
プログラムのソース表示
プログラムご利用の前に、
下記 「ご利用の前に」 の各項目をお読みください。
ご利用の前に
- 本プログラムは著作権法によって保護されている著作物です。本内容の全部、または一部を複製し、転売（オークションに出品）するような行為はお止め下さい。
- プログラムの入力を始める前に FX-603P 取扱説明書を熟読されることをお勧めします。
- 本プログラムをご使用になる前に、「実行マニュアル」「操作手順書」「例題集」を良くお読みになり、操作方法を練習してください。
マニュアル類ダウンロード（PDF）
- 本プログラムはお客様の責任でお使いください。本プログラムに起因するトラブルにより損害を受けても、弊社は一切の責任を負いません。
- プログラムを手動で間違いなく入力するのは至難の業です。また、入力ミスは、必ずと言っていいほど発生します。どうか根気よく入力し、チェックを入念に行ってください。
- プログラムの入力方法がわからない、エラーが出る、答えが合わない、といった内容のお問い合わせはご容赦願います。
プログラム ソース
交点計算(直線−直線) 【プログラム番号：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コードで書かれていますので、実際の表現とは違う部分があります。表現の違いは下表の通りです。
