计算方位角和距离的卡西欧5800计算器程序源.doc

计算方位角和距离的卡西欧5800计算器程序源 (FWJJL)：
？P:？Z
LblA
？X:？Y
Pol（（X-P），（Y-Z））:Cls
IfJ＜0:ThenJ+360→J:ElseJ→J:Ifend:I◢J►DMS◢ GotoA
P、Z—架站点X、Y坐标
X、Y—后视点X、Y坐标
直线段坐标计算卡西欧5800计算器程序源 (ZXD)：
？G:？H:？K:？N
LblA
？M:？S
G+（M－N）cosK+Scos（K－90）→X◢
H+（M－N）sinK+Ssin（K－90）→Y◢
GotoA
G、H—直线起点X、Y坐标 K—直线起点到终点方位角 N—直线起点里程桩号 M—待测点里程桩号
S—待测点左、右桩距离（左+，中桩输0，右-）
直线段极坐标放样卡西欧5800计算器程序源 (ZXD-FY)：
？P：？Z：？G：？H：？K：？N
LblA
？M：？S
G+（M－N）cosK+Scos（K－90）→X◢
H+（M－N）sinK+Ssin（K－90）→Y◢
Pol（（X-P），（Y-Z））：Cls
IfJ＜0：ThenJ+360 →J：ElseJ→J：Ifend：I◢J ►DMS◢
GotoA
P、Z—架站点X、Y坐标 N—直线起点里程桩号
G、H—直线起点X、Y坐标 M—待测点里程桩号
K—直线起点到终点方位角 S—待测点左右桩距离
圆曲线圆心法坐标计算卡西欧5800计算器程序源 (YQX-YX)：
？E:？F:？C:？D:？N:？L:？R:？B
LblA
？M:？S
Pol（（C-E），（D-F））:Cls
IfJ＜0：ThenJ+360 →J:ElseJ→J :Ifend
180*L/(πR)→O（这是字母O，不是数字0）
(180-O)/2→Q
E+Rcos(J-BQ)→G
F+Rsin(J-BQ)→H
Pol（（E-G），（F-H））:Cls
IfJ＜0:ThenJ+360 →K:ElseJ→K:Ifend
K-B*Abs(M-N)*180/(πR) →V（Abs是绝对值）
G+（R－BS）cosV→X◢
H+（R－BS）sinV→Y◢
GotoA
E、F—ZY点X、Y坐标 N—ZY点里程桩号
C、D—YZ点X、Y坐标 M—待测点里程桩号
G、H—圆心点X、Y坐标 L—圆曲线长
K—圆心点到ZY点方位角 R—圆曲线半径
J—ZY点到YZ点方位角 B—圆曲线转弯方向（左+1，右-1）
V—圆心点到待求点方位角 Q—夹角
S—待测点左右桩距离（左+，中桩0，右-）
曲线坐标计算卡西欧5800计算器程序源 (QXZB)：

？G:？H:？R:？T:？K:？N:？L:？E:？F:？V:？Q:？B
LblA
？M:？S
IfM＜N:ThenM＝＞GotoA:Ifend
IfM＞（N+T+L+V）: ThenM＝＞GotoA:Ifend
IfM＞（N+T+L）: ThenM＝＞GotoD:Ifend
IfM＞（N+T）: ThenM＝＞GotoC:Ifend
LblB(第一缓和曲线)
Abs（M-N）→W
W－W5÷（40R2T2）+W9÷（3456R4T4）→C ------------支距X坐标
W3÷（6RT）－W7÷（336R3T3）+W11÷（42240R5T5）→D--支距Y坐标
90W2÷（πRT）→O(字母)--------------------------缓和曲线角
G＋CcosK＋BDsinK＋Scos（K－BO－90）→X◢
H＋CsinK－BDcosK＋Ssin（K－BO－90）→Y◢
GotoA
LblC(圆曲线)
T－T3÷（40R2）+T5÷（3456R4）→C-------------ZH点到HY点支距X坐标
T2÷（6R）－T4÷（336R3）+T6÷（42240R5）→D---ZH点到HY点支距Y坐标
K-90BT÷（πR）→U---------------------------HY点到JD点方位角
Abs(M-(N+T))×180÷（πR）→O----------------待求点圆心角
G＋CcosK＋BDsinK +2Rsin(0.5O)Cos(U-0.5BO)+SCos(U-BO-90) →X ◢
H＋CsinK－BDcosK +2Rsin(0.5O)Sin(U-0.5BO)+SSin(U-BO-90) →Y ◢
GotoA
LblD(第二缓和曲线)
Abs（M-(N+T+L+V)）→W
W－W5÷（40R2V2）+W9÷（3456R4V4）→C--------------支距X坐标
W3÷（6RV）－W7÷（336R3V3）+W11÷（42240R5V5）→D-----支距Y坐标
90W2÷（πRV）→O-----------------------------------缓和曲线角
E＋CcosQ-BDsinQ＋Scos（Q+BO+90）→X◢
F＋CsinQ+BDcosQ＋Ssin（Q+BO+90）→Y◢
GotoA

G、H—ZH点X、Y坐标 R—圆曲线半径
T—第一缓和曲线长 K—ZH至JD方位角
N—ZH点里程桩号 L—圆曲线长
E、F—HZ点X、Y坐标 V—第二缓和曲线长
Q—HZ至JD方位角 B—左转弯为+1，右转弯为-1
M—待测点里程桩号 S—待测点左右桩距离（左+，中0，右-）

？G:？H:？R:？T:？K:？N:？L:？E:？F:？V:？Q:？B
可以编辑以下内容：
″ZH(X) ″？G:″ZH(Y) ″？H:？R:″Ls1″？T:″ZH-JD″？K:″ZH″？N:″Ly″？L:″HZ(X) ″？E:″HZ(Y) ″？F:″Ls2″？V:″HZ-JD″？Q:″Z+1,Y-1″？B

备注：此程序适用于对称、不对称缓和曲线和圆曲线，当为单圆曲线时， T、V、E、F、Q输零即可.（不适用于卵形曲线）