计算方位角与距离卡西欧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÷（3456