- FX-603P測量計算
- 交点計算(円−直線)プログラム
FX-603P 測量プログラム交点計算(円−直線)
FX-603P は、既に 製造が終了 しており、FX-603Pに関連した サービスも終了 しております。
また、FX-603Pに関する掲載情報も今後更新する予定はありません。
プログラムの概要
交点計算(円−直線)プログラムの概要は次の通りです。
円と直線の交点(Ｐ),(Ｑ)の座標(Ｐx,Ｐy)，(Ｑx,Ｑy)を計算します。
円の入力データは中心点(Ｏ)の座標(Ｘo,Ｙo)と半径(Ｒ)だけですが、直線の入力データは、「一点の座標と方向角」，「二点の座標」の二種類から選択できます。
fx-5800Pのご案内
FX-603P は 2005年に 製造終了 となっております。
現場でお使いになるのであれば、fx-5800P をお勧めします。
fx-5800P は、 FX-603P の後継機種に当たります。処理能力が高いだけでなく、電池が切れてもプログラムが消えない優れた機能を持ち、現場での使い勝手も良い、手帳型のプログラム電卓です。
Excel 測量計算 のご案内
Excel 測量計算（Ver.2）は、様々な測量計算（30種）ができるように作られたソフトウェアです。
1,000点 の座標登録ができ、測点名で検索できます。また、CSV や SIMAデータの作成、簡易図形表示も備えています。
Excel 測量計算
Excel 測量計算：交点（単曲線）
Excel 測量計算：円と直線の交点
Web 測量計算2 のご案内
Web 測量計算2は、座標登録ができ、CSV・SIMAデータの読み込み・書き出しなど、Excel測量計算（Ver.2）と同等の機能を追加した Web 測量計算 の進化版です。
ただいま Excel測量計算 が 半額 で入手できる 特典 が付いています。
プログラムのソース表示
プログラムご利用の前に、
下記 「ご利用の前に」 の各項目をお読みください。
ご利用の前に
- 本プログラムは著作権法によって保護されている著作物です。本内容の全部、または一部を複製し、転売（オークションに出品）するような行為はお止め下さい。
- プログラムの入力を始める前に FX-603P 取扱説明書を熟読されることをお勧めします。
- 本プログラムをご使用になる前に、「実行マニュアル」「操作手順書」「例題集」を良くお読みになり、操作方法を練習してください。
マニュアル類ダウンロード（PDF）
- 本プログラムはお客様の責任でお使いください。本プログラムに起因するトラブルにより損害を受けても、弊社は一切の責任を負いません。
- プログラムを手動で間違いなく入力するのは至難の業です。また、入力ミスは、必ずと言っていいほど発生します。どうか根気よく入力し、チェックを入念に行ってください。
- プログラムの入力方法がわからない、エラーが出る、答えが合わない、といった内容のお問い合わせはご容赦願います。
プログラム ソース
交点計算(円−直線) 【プログラム番号：P6】
AC 999 MinF 1 Min71
LBL0 0 Min50 Min9F MR51 "Xo ?" HLT
Min51 MR52 "Yo ?" HLT
Min52
LBL9 MR53 "R ?" HLT
Min53 +/- X>=0 GOTO9
LBL2 1 +/- Min50 MR71 "(1P1A[RTA]1 2P[RTA]2) ?" HLT
M+50 MR50 X=0 GOTO1
MR50 - 1 = X=0 GOTO1
GOTO2
LBL1 MR54 "Ax ?" HLT
Min54 Min91 MR55 "Ay ?" HLT
Min55 Min92 MR50 X=0 GOTO3
MR56 "Bx ?" HLT
Min56 Min93 MR57 "By ?" HLT
Min57 Min94 GSBP19
MR9F X=F GOTO0
MR96 Min58 GOTO4
LBL3 MR58 SDMS "Hoko ?" HLT
Min58
LBL4 MR54 - MR51 = Min59 MR55 - MR52 = Min60 MR58 - 90
= X=0 GOTO6
MR58 - 270 = X=0 GOTO6
MR58 TAN Min61 * MR59 - MR60 = Min62 * MR61 = Min63
MR53 X^2 * ( MR61 X^2 + 1 ) - MR62 X^2 = X>=0 GOTO5
GSBP18
MR9F X=F GOTO0
LBL5 SQR Min64 MR61 X^2 + 1 = Min65 ( MR63 + MR64 ) / MR65 =
Min66 + MR51 = Min67 MR66 * MR61 - MR62 + MR52 = Min68
( MR63 - MR64 ) / MR65 = Min66 + MR51 = Min69 MR66 * MR61
- MR62 + MR52 = Min70 GOTO8
LBL6 MR53 - MR59 ABS = X>=0 GOTO7
GSBP18
MR9F X=F GOTO0
LBL7 MR54 Min67 Min69 MR53 X^2 - MR59 X^2 = SQR Min66
+ MR52 = Min68 MR52 - MR66 = Min70
LBL8 "Px=" MR67 HLT
"Py=" MR68 HLT
"Qx=" MR69 HLT
"Qy=" MR70 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コードで書かれていますので、実際の表現とは違う部分があります。表現の違いは下表の通りです。
