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

计算方位角和距离的卡西欧5800计算器程序源 (FWJJL)：？P:？ZLblA？X:？YPol（X-P），（Y-Z）:ClsIfJ0:ThenJ+360J:ElseJJ:Ifend:IJDMS GotoAP、Z架站点X、Y坐标X、Y后视点X、Y坐标直线段坐标计算卡西欧5800计算器程序源 (ZXD)：？G:？H:？K:？NLblA？M:？SG+（MN）cosK+Scos（K90）XH+（MN）sinK+Ssin（K90）YGotoAG、H直线起点X、Y坐标 K直线起点到终点方位角 N直线起点里程桩号 M待测点里程桩号S待测点左、右桩距离（左+，中桩输0，右-）直线段极坐标放样卡西欧5800计算器程序源 (ZXD-FY)：？P：？Z：？G：？H：？K：？NLblA？M：？SG+（MN）cosK+Scos（K90）XH+（MN）sinK+Ssin（K90）YPol（X-P），（Y-Z）：Cls IfJ0：ThenJ+360 J：ElseJJ：Ifend：IJ DMS GotoAP、Z架站点X、Y坐标 N直线起点里程桩号G、H直线起点X、Y坐标 M待测点里程桩号K直线起点到终点方位角 S待测点左右桩距离圆曲线圆心法坐标计算卡西欧5800计算器程序源 (YQX-YX)：？E:？F:？C:？D:？N:？L:？R:？BLblA？M:？SPol（C-E），（D-F）:Cls IfJ0：ThenJ+360 J:ElseJJ :Ifend180*L/(R)O（这是字母O，不是数字0）(180-O)/2QE+Rcos(J-BQ)GF+Rsin(J-BQ)HPol（E-G），（F-H）:Cls IfJ0:ThenJ+360 K:ElseJK:IfendK-B*Abs(M-N)*180/(R) V（Abs是绝对值）G+（RBS）cosVXH+（RBS）sinVYGotoAE、FZY点X、Y坐标 NZY点里程桩号C、DYZ点X、Y坐标 M待测点里程桩号G、H圆心点X、Y坐标 L圆曲线长K圆心点到ZY点方位角 R圆曲线半径JZY点到YZ点方位角 B圆曲线转弯方向（左+1，右-1） V圆心点到待求点方位角 Q夹角S待测点左右桩距离（左+，中桩0，右-）曲线坐标计算卡西欧5800计算器程序源 (QXZB)：？G:？H:？R:？T:？K:？N:？L:？E:？F:？V:？Q:？BLblA？M:？SIfMN:ThenMGotoA:IfendIfM（N+T+L+V）: ThenMGotoA:IfendIfM（N+T+L）: ThenMGotoD:IfendIfM（N+T）: ThenMGotoC:IfendLblB(第一缓和曲线)Abs（M-N）WWW5（40R2T2）+W9（3456R4T4）C -支距X坐标W3（6RT）W7（336R3T3）+W11（42240R5T5）D-支距Y坐标90W2（RT）O(字母)-缓和曲线角GCcosKBDsinKScos（KBO90）XHCsinKBDcosKSsin（KBO90）Y GotoALblC(圆曲线)TT3（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-待求点圆心角GCcosKBDsinK +2Rsin(0.5O)Cos(U-0.5BO)+SCos(U-BO-90) X HCsinKBDcosK +2Rsin(0.5O)Sin(U-0.5BO)+SSin(U-BO-90) Y GotoALblD(第二缓和曲线)Abs（M-(N+T+L+V)）WWW5（40R2V2）+W9（3456R4V4）C-支距X坐标W3（6RV）W7（336R3V3）+W11（42240R5V5）D-支距Y坐标90W2（RV）O-缓和曲线角ECcosQ-BDsinQScos（Q+BO+90）XFCsinQ+BDcosQSsin（Q+BO+90）YGotoAG、HZH点X、Y坐标 R圆曲线半径T第一缓和曲线长 KZH至JD方位角NZH点里程桩号 L圆曲线长E、FHZ点X、Y坐标 V第二缓和曲线长QHZ至JD方位角 B左转弯为+1，右转弯为-1M待测点里程桩号 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: