- fx-4800P測量計算
- 垂線計算（直線）プログラム
fx-4800P 測量プログラム垂線計算（直線）
fx-4800P は、既に 製造が終了 しており、fx-4800Pに関連した サービスも終了 しております。
また、fx-4800Pに関する掲載情報も今後更新する予定はありません。
プログラムの概要
垂線計算（直線）プログラムの概要は次の通りです。
任意の点（Ｃ点）と直交する直線上の交点（Ｐ点）座標と、垂線長を計算します。
fx-5800Pのご案内
fx-4800P は 2006年に 製造終了 となっております。
現場でお使いになるのであれば、fx-5800P をお勧めします。
fx-5800P は、 fx-4800P の後継機種です。制御系のコマンドが充実したのに加え、電池が切れてもプログラムが消えない優れた機能を持ち、現場での使い勝手も良い、手帳型のプログラム電卓です。
Excel 測量計算 のご案内
Excel 測量計算（Ver.2）は、様々な測量計算（30種）ができるように作られたソフトウェアです。
1,000点 の座標登録ができ、測点名で検索できます。また、CSV や SIMAデータの作成、簡易図形表示も備えています。
Web 測量計算2 のご案内
Web 測量計算2は、座標登録ができ、CSV・SIMAデータの読み込み・書き出しなど、Excel測量計算（Ver.2）と同等の機能を追加した Web 測量計算 の進化版です。
ただいま Excel測量計算 が 半額 で入手できる 特典 が付いています。
プログラムのソース表示
プログラムご利用の前に、
下記 「ご利用の前に」 の各項目をお読みください。
ご利用の前に
- 本プログラムは著作権法によって保護されている著作物です。本内容の全部、または一部を複製し、転売（オークションに出品）するような行為はお止め下さい。
- プログラムの入力を始める前に fx-4800P 取扱説明書を熟読されることをお勧めします。
- 本プログラムをご使用になる前に、「実行マニュアル」「操作手順書」「例題集」を良くお読みになり、操作方法を練習してください。
マニュアル類ダウンロード（PDF）
- 本プログラムはお客様の責任でお使いください。本プログラムに起因するトラブルにより損害を受けても、弊社は一切の責任を負いません。
- プログラムを手動で間違いなく入力するのは至難の業です。また、入力ミスは、必ずと言っていいほど発生します。どうか根気よく入力し、チェックを入念に行ってください。
- プログラムの入力方法がわからない、エラーが出る、答えが合わない、といった内容のお問い合わせはご容赦願います。
プログラム ソース
垂線計算（直線） 【ファイル名：P5】（594バイト）
Fixm:Deg:K=0
Lbl 0:{ABKE}
"<SUISEN>"
A"AX_":B"AY_"
"ZAHYO___⇒0"
K"HOKOKAKU⇒1_"
K≠0⇒E"HOKOKAKU_"
T=E:Prog "60.SUB"
F=W:Goto 1△
{CD}
C"BX_":D"BY_"
T=A:U=B:V=C:W=D
Prog "ZA.SUB"
Z＝999⇒Goto 0△
F=Y
X"KYORI="▲
T=F:Prog "60.SUB"
E=V
E"HOKOKAKU="▲
Lbl 1:{GH}
G"CX_":H"CY_"
L=F-90
L＜0⇒L=L+360△
F＝90⇒Goto 5△
F＝270⇒Goto 5△
L＝90⇒Goto 6△
L＝270⇒Goto 6△
I=tan F
J=tan L
M=(J×G−I×A＋B−H)÷(J−I)
N=I×(M−A)＋B
P=M−G
Q=N−H
P≠0⇒Goto 2△
Q≠0⇒Goto 2△
R=0:Goto 3
Lbl 2:Pol(Q,P)
R=I
Lbl 3:P=M−A
Q=N−B
P≠0⇒Goto 4△
Q≠0⇒Goto 4△
S=R:Goto 7
Lbl 4:Pol(Q,P)
S=I:Goto 7
Lbl 5:M=A:N=H
R=Abs (A-G)
S=Abs (B-H)
Goto 7
Lbl 6:M=G:N=B
R=Abs (B-H)
S=Abs (A-G)
Lbl 7:T=M:U=N:V=G:W=H
Prog "ZA.SUB"
M"PX="▲
N"PY="▲
S"LP="▲
R"LC="▲
T=Y:Prog "60.SUB"
V"HC="▲
Goto 1
QUICK RUN に書き加える条件文 （14バイト）
I＝5⇒Prog "P5":Goto 0△
エラー表示サブルーチン 【ファイル名：ER.SUB】（38バイト）
Z=999
"DATA_ERROR"
Pause 1
座標変換サブルーチン 【ファイル名：ZA.SUB】（106バイト）
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
角度変換サブルーチン 【ファイル名：60.SUB】（153バイト）
Fixm:V=T:W=T
T＝0⇒Goto 1△
X=T÷Abs T
T=Abs T
V=Int T:W=V
Y=(T-V)×60
I=Int Y
J=(Y-I)×60
V=(V+(J÷100+I)÷100)×X
Y=Frac T×100
I=Int Y
J=(Y-I)×100
W=(W+(I+J÷60)÷60)×X
Lbl 1
ご注意下さい
- 上記プログラムソースは見やすいようにインデントされていますが、fx-4800Pに入力する際には、インデントを無視してください。
- 改行マークは省略しています。
- アンダーバー”＿”，”_”は空白を表します。半角全角の区別はありません。
- ファイル名は変更可能ですが、ソフト起動プログラム（QUICK RUN）を利用する場合には変更しないでください。
- サブルーチンは他のプログラムと共用しますのでファイル名を変更しないでください。
- プログラムの入力やファイル名の変更は、fx-4800Pの取扱説明書をよくお読みになってから行ってください。
- アルファベットの「O」と数字の「0」を区別するため、アルファベットの「 O 」にアンダーラインを入れて表示しています。
- fx-4800Pのプログラムには通常のテキストでは忠実に表現できないものがあります。本プログラムリストでは下表の通り表現していますのでご注意ください。
