fx-4800P：垂線計算（曲線）
fx-4800P は、既に 製造が終了 しており、fx-4800Pに関連した サービスも終了 しております。
また、fx-4800Pに関する掲載情報も今後更新する予定はありません。
垂線計算（曲線）プログラムの概要は次の通りです。
任意の点（Ｃ点）と直交する曲線上の交点（Ｐ点）座標と、垂線長を計算します。
fx-4800P は 2006年に 製造終了 となっております。
現場でお使いになるのであれば、fx-5800P をお勧めします。
fx-5800P は、 fx-4800P の後継機種です。制御系のコマンドが充実したのに加え、電池が切れてもプログラムが消えない優れた機能を持ち、現場での使い勝手も良い、手帳型のプログラム電卓です。
Excel 測量計算（Ver.2）は、様々な測量計算（30種）ができるように作られたソフトウェアです。
1,000点 の座標登録ができ、測点名で検索できます。また、CSV や SIMAデータの作成、簡易図形表示も備えています。
Web 測量計算2は、座標登録ができ、CSV・SIMAデータの読み込み・書き出しなど、Excel測量計算（Ver.2）と同等の機能を追加した Web 測量計算 の進化版です。
ただいま Excel測量計算 が 半額 で入手できる 特典 が付いています。
プログラムご利用の前に、
下記 「ご利用の前に」 の各項目をお読みください。
マニュアル類ダウンロード（PDF）
Fixm:Deg:K=0:P=0
Lbl 0:{K}
"<SUISEN-CURVE>"
"LEFT_CURVE_⇒1"
K"RIGHT_CURVE⇒2_"
K＝1⇒Goto 1△
K≠2⇒Goto 0△
Lbl 1:{L}:L"R_"
L≦0⇒Goto 1△
Lbl 2:{ABP}
A"BCX_":B"BCY_"
"IP_INPUT"
"ZAHYO___⇒0"
P"HOKOKAKU⇒1_"
P≠0⇒{Q}:Q"IP_HOKO_"
T=Q:Prog "60.SUB":R=W
Goto 3△
{CD}
C"IPX_":D"IPY_"
T=A:U=B:V=C:W=D
Prog "ZA.SUB"
Z＝999⇒Goto 2△
N=X:R=Y
T=R:Prog "60.SUB":Q=V
I=Atan(N÷L)×2
M=L×I×π÷180
N"IP_KYORI="▲
Q"IP_HOKO="▲
Goto 4
Lbl 3:{M}
M"CL_"
M≦0⇒Goto 3△
I=M÷L÷π×180
N=L×tan(I÷2)
C=cos R×N＋A
D=sin R×N＋B
Lbl 4:K＝1⇒J=R−90:≠⇒J=R＋90△
E=cos J×L＋A
F=sin J×L＋B
Lbl 5:{GH}:S=0
G"CX_":H"CY_"
T=E:U=F:V=G:W=H
Prog "ZA.SUB"
J=Y
T=cos J×L＋E
U=sin J×L＋F
I=√((T−C)^2＋(U−D)^2)
I≦N⇒Goto 6△
J=J＋180
J≧360⇒J=J−360△
T=cos J×L＋E
U=sin J×L＋F
I=√((T−C)^2＋(U−D)^2)
I≦N⇒Goto 6△
S"NO_INTERSECTION"▲
Goto 5
Lbl 6:V=√((T−A)^2＋(U−B)^2)
W=√((G−T)^2＋(H−U)^2)
J=J＋180
J≧360⇒J=J−360△
S=Asin (V÷2÷L)
X=2×L×S×π÷180
T"PX="▲
U"PY="▲
X"KOTYO(BC-P)="▲
V"GENTYO(BC-P)="▲
W"LC="▲
V=G:W=H
Prog "ZA.SUB"
T=Y:Prog "60.SUB"
V"HC="▲
T=S:Prog "60.SUB"
V"HENKAKU="▲
Goto 5
I＝27⇒Prog "P27":Goto 0△
Z=999
"DATA_ERROR"
Pause 1
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
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
