垂線計算プログラム(fx-4850P測量計算)

  1. あさかぜネット TOP
  2. fx-4850P測量計算
  3. 垂線計算プログラム

垂線計算プログラム(fx-4850P用)

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

プログラムの概要

 垂線計算プログラムの概要は次の通りです。

垂線計算

 任意の点(C点)と直交する直線上の交点(P点)座標と、垂線長を計算します。

垂線計算画面

fx-5800Pのご案内

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

fx-4850P は 2006年に 製造終了 となっております。

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

fx-5800P は、 fx-4850P の後継機種です。制御系のコマンドが充実したのに加え、電池が切れてもプログラムが消えない優れた機能を持ち、現場での使い勝手も良い、手帳型のプログラム電卓です。

fx-5800P:垂線計算(直線)
fx-5800P:垂線計算(曲線)

プログラムのソース表示

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

ご利用の前に

  • 本プログラムは著作権法によって保護されている著作物です。本内容の全部、または一部を複製し、転売(オークションに出品)するような行為はお止め下さい。
  • プログラムの入力を始める前に fx-4850P 取扱説明書を熟読されることをお勧めします。
  • 本プログラムをご使用になる前に、「実行マニュアル」「操作手順書」「例題集」を良くお読みになり、操作方法を練習してください。

    マニュアル類ダウンロード(PDF)

  • 本プログラムはお客様の責任でお使いください。本プログラムに起因するトラブルにより損害を受けても、弊社は一切の責任を負いません。
  • プログラムを手動で間違いなく入力するのは至難の業です。また、入力ミスは、必ずと言っていいほど発生します。どうか根気よく入力し、チェックを入念に行ってください。
  • プログラムの入力方法がわからない、エラーが出る、答えが合わない、といった内容のお問い合わせはご容赦願います。

プログラム ソース

垂線計算 【ファイル名:P4】

   Fixm:Defm 10:K=0
Lbl 0:Cls
   {A,B,K,F}
   "<SUISEN>"
   A"AX_":B"AY_"
   Cls
   "ZAHYO___⇒0"
   K"HOKOKAKU⇒1_"
   K=0⇒Goto 1△
   Cls
   F"HOKOKAKU_":Goto 2
Lbl 1:Cls:{C,D}
   C"BX_":D"BY_"
   T=A:U=B:V=C:W=D
   Prog "ZA.SUB"
   Z=999⇒Goto 0△
   F=Y:F≧360⇒F=F-360△
   "KYORI=":X:Pause 0
   "HOKOKAKU=":F→DMS▲
Lbl 2:Cls:{G,H}
   G"CX_":H"CY_"
   L=F-90
   L<0⇒L=L+360△
   F=90⇒Goto 3△
   F=270⇒Goto 3△
   L=90⇒Goto 4△
   L=270⇒Goto 4△
   Z[1]=tan F
   Z[2]=tan L
   M=(Z[2]×G−Z[1]×A+B−H)÷(Z[2]−Z[1])
   N=Z[1]×(M−A)+B
   Z[3]=M−G
   Z[4]=N−H
   Z[3]≠0⇒Goto 7△
   Z[4]≠0⇒Goto 7△
   O=0:Goto 9
Lbl 7:Deg:Pol(Z[4],Z[3])
   O=I
Lbl 9:Z[3]=M−A
   Z[4]=N−B
   Z[3]≠0⇒Goto 8△
   Z[4]≠0⇒Goto 8△
   P=O:Goto 5
Lbl 8:Pol(Z[4],Z[3])
   P=I:Goto 5
Lbl 3:M=A:N=H
   O=Abs (A-G)
   P=Abs (B-H)
   Goto 5
Lbl 4:M=G:N=B
   O=Abs (B-H)
   P=Abs (A-G)
Lbl 5:"PX=":M:Pause 0
   "PY=":N▲
   "LP=":P:Pause 0
   "LC=":O
Lbl 6:I=0:Cls
   {I}
   "CONTINUE__⇒0"
   I"TOP⇒2__END⇒9_"
   I=0⇒Goto 2△
   I=2⇒Goto 0△
   I≠9⇒Goto 6△

エラー表示サブルーチン 【ファイル名:ER.SUB】

   Z=999
   "DATA_ERROR"
   Pause 3
   Cls

座標変換サブルーチン 【ファイル名:ZA.SUB】

   Fixm:Z=0
   (T-V)≠0⇒Goto 1△
   (U-W)≠0⇒Goto 1△
   Prog "ER.SUB":Goto 2
Lbl 1:X=W-U:Y=V-T
   Deg:Pol(Y,X):J≦0⇒J=J+360△
   X=I:Y=J
Lbl 2

ご注意下さい

  • 上記プログラムソースは見やすいようにインデントされていますが、
    fx-4850Pに入力する際には、インデントを無視してください。
  • 改行マークは省略しています。
  • アンダーバー”_”,”_”は空白を表します。半角全角の区別はありません。
  • ファイル名は変更可能ですが、ソフト起動プログラム(QUICK RUN)を利用する場合には変更しないでください。
  • サブルーチンは他のプログラムと共用しますのでファイル名を変更しないでください。
  • プログラムの入力やファイル名の変更は、fx-4850Pの取扱説明書をよくお読みになってから行ってください。
  • アルファベットの「O」と数字の「0」を区別するため、アルファベットの「 O 」にアンダーラインを入れて表示しています。
  • fx-4850Pのプログラムには通常のテキストでは忠実に表現できないものがあります。本プログラムリストでは下表の通り表現していますのでご注意ください。

このページの先頭へ