逆計算

CASIO FX-603P版 測量計算ソフト プログラムソース




fx-4850P版はこちらです→fx-4850P 逆計算

マニュアル、操作手順書のサンプルはこちらです→逆計算

逆計算

 A点の座標(Ax,Ay)とB点の座標(Bx,By)間の逆計算をします。A点とB点の座標を入力すると、A点からB点までの方向角(H)と、距離(L)が求まります。
 計算を続ける場合には、「放射計算」をします。


逆計算 【プログラム番号:P14】
   AC 999 MinF
LBL0 MR51 "Ax ?" HLT
   Min51 Min91 MR52 "Ay ?" HLT
   Min52 Min92
LBL1 MR53 "Bx ?" HLT
   Min53 Min93 MR54 "By ?" HLT
   Min54 Min94
LBL2 GSBP19
   MR9F X=F GOTO0
   MR95 Min55 MR96 Min56 SDMS "Hoko=" HLT
   "L=" MR55 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コードで書かれていますので、実際の表現とは違う部分があります。表現の違いは下表の通りです。