文档介绍：计算方位角和距离的卡西欧5800计算器程序源(FWJJL):?P:?ZLblA?X:?YPol((X-P),(Y-Z)):ClsIfJ<0:ThenJ+360→J:ElseJ→J:Ifend:I◢J►DMS◢GotoAP、Z—架站点X、Y坐标X、Y—后视点X、Y坐标直线段坐标计算卡西欧5800计算器程序源(ZXD):?G:?H:?K:?NLblA?M:?SG+(M-N)cosK+Scos(K-90)→X◢H+(M-N)sinK+Ssin(K-90)→Y◢GotoAG、H—直线起点X、Y坐标K—直线起点到终点方位角N—直线起点里程桩号M—待测点里程桩号S—待测点左、右桩距离(左+,中桩输0,右-)直线段极坐标放样卡西欧5800计算器程序源(ZXD-FY):?P:?Z:?G:?H:?K:?NLblA?M:?SG+(M-N)cosK+Scos(K-90)→X◢H+(M-N)sinK+Ssin(K-90)→Y◢Pol((X-P),(Y-Z)):ClsIfJ<0:ThenJ+360→J:ElseJ→J:Ifend:I◢J►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)):ClsIfJ<0:ThenJ+360→J:ElseJ→J:Ifend180*L/(πR)→O(这是字母O,不是数字0)(180-O)/2→QE+Rcos(J-BQ)→GF+Rsin(J-BQ)→HPol((E-G),(F-H)):ClsIfJ<0:ThenJ+360→K:ElseJ→K:IfendK-B*Abs(M-N)*180/(πR)→V(Abs是绝对值)G+(R-BS)cosV→X◢H+(R-BS)sinV→Y◢GotoAE、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:?BLblA?M:?SIfM<N:ThenM=>GotoA:IfendIfM>(N+T+L+V):ThenM=>GotoA:IfendIfM>(N+T+L):ThenM=>GotoD:IfendIfM>(N+T):ThenM=>GotoC:IfendLblB(第一缓和曲线)Abs(M-N)→WW-W5÷(40R2T2)+W9÷(3456R4T4)→C------------支距X坐标W3÷(6RT)-W7÷(336R3T3)+W11÷(42240R5T5)→D--支距Y坐标90W2÷(πRT)→O(字母)--------------------------osK+BDsinK+Scos(K-BO-90)→X◢H+CsinK-BDcosK+Ssin(K-BO-90)→Y◢ GotoALblC(圆曲线)T-T3÷(