交点計算(直線−直線)プログラム(FX-603P測量計算)

  1. あさかぜネット TOP
  2. FX-603P測量計算
  3. 交点計算(直線−直線)プログラム

交点計算(直線−直線)プログラム(FX-603P用)

FX-603P は、既に 製造が終了 しており、FX-603Pに関連した サービスも終了 しております。
また、FX-603Pに関する掲載情報も今後更新する予定はありません。

プログラムの概要

 交点計算(直線−直線)プログラムの概要は次の通りです。

交点計算(直線−直線)

 二直線の交点(P)の座標(Px,Py)を計算します。
 直線の入力方法は、「一点の座標と方向角」,「二点の座標」の二種類を選択できます。

fx-5800Pのご案内

CASIO fx-5800P 測量計算ソフト

FX-603P は 2005年に 製造終了 となっております。

現場でお使いになるのであれば、fx-5800P をお勧めします。

fx-5800P は、 FX-603P の後継機種に当たります。処理能力が高いだけでなく、電池が切れてもプログラムが消えない優れた機能を持ち、現場での使い勝手も良い、手帳型のプログラム電卓です。

fx-5800P:交点計算(直−直)

プログラムのソース表示

 プログラムご利用の前に、
 下記 「ご利用の前に」 の各項目をお読みください。

ご利用の前に

  • 本プログラムは著作権法によって保護されている著作物です。本内容の全部、または一部を複製し、転売(オークションに出品)するような行為はお止め下さい。
  • プログラムの入力を始める前に 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コードで書かれていますので、実際の表現とは違う部分があります。表現の違いは下表の通りです。

このページの先頭へ