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

《计算方位角和距离的卡西欧5800计算器程序源》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、计算方位角和距离的卡西欧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

2、—待测点左、右桩距离（左+，中桩输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计算器

3、程序源(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、

4、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+

5、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(字母)--------------------------缓和曲线角G＋CcosK＋BDsinK＋Scos（K－BO－90）→X◢H＋CsinK－BDcosK＋Ssin（K－BO－90）→Y◢GotoALb

6、lC(圆曲线)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.5

7、O)Sin(U-0.5BO)+SSin(U-BO-90)→Y◢GotoALblD(第二缓和曲线)Abs（M-(N+T+L+V)）→WW－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

8、◢GotoAG、H—ZH点X、Y坐标R—圆曲线半径T—第一缓和曲线长K—ZH至JD方位角N—Z