卡西欧5800计算器坐标正反算程序

《卡西欧5800计算器坐标正反算程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、卡西欧5800计算器坐标正反算程序讲你个讲3位粉丝1楼主程序坐标正反算程序名称：ZBZFSLb1A↙30→DimZ:"0=ZS,1=FS"?Z↙IfZ=0:ThenGotoB:IfEnd↙(Z=0进入里程点坐标正算）IfZ=1:ThenProg"FSLCZ"↙(Z=1进入反算里程边桩）Lb1B↙Prog”ZBZS”↙子程序反算里程桩名称：FSLCZLb11↙"XK="?X:"YK="?Y↙（输入任意测点的X、Y坐标）“K=”?K↙（试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）Lb12↙Prog"SJK":T-90→W:W<0=>360+W→W:Abs(

2、(Y-Z[19])*Cos(W)-(X-Z[18])*Sin(W))→S↙IfS<0.0001:ThenGoto4:ElseGoto3:Ifend↙Lb13↙K+S→K:Prog"SJK":T-90→W:W<0=>360+W→W:Abs((Y-Z[19])*CosW-(X-Z[18])*Sin(W)→Q↙IfQ<0.0001:ThenQ→S:Goto4:ElseifQS:ThenK-Q→K:Goto2:Ifend:Ifend:Ifend↙Lb14↙Pol(X-Z[18],Y-Z[19]:"DP(-Z+Y)=":I◢(偏距）"

3、K=":K+S→K◢（里程）Goto1↙子程序坐标正算名称：ZBZSLb10↙“XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y):Pol(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":JDMS◢(后视方位角)Lb11↙“K=”?K：（输入所需计算里程）Prog"SJK"↙XI:Z[18]↙YI:Z[19]↙Pol(Z[18]-M,Z[19]-N):J<0=>J+360→J↙“PJ=”?P↙(输入桩与线路夹角)“PD=”?D↙（输入桩距中线的距离）Z[18]+D*Cos(T+P

4、)→Z[20]↙Z[19]+D*Sin(T+P)→Z[21]↙“X=”:Z[20]◢（放样坐标X）“Y=”:Z[21]◢（放样坐标Y）Pol(Z[20]-M,Z[21]-N):"D=":I◢（放样距）J<0=>J+360→J:"F=":JDMS◢（放样方位角）Goto1↙子程序数据库名称：SJKifK<本段曲线终点里程AndK≥上段曲线终点里程：Then本段曲线终点里程→Z[1]:上段曲线终点里程（第一段曲线输起点的里程）→Z[2]：1→O（注：左偏曲线输入-1→O,右偏曲线输入1→O）:半径→R:曲线偏角→A:第一缓和曲线→Z[6]:第二缓和曲线→Z[7]:交点X→B:交点Y

5、→C:小里程向交点方位角→E:交点向大里程方位角→F:Prog”JSPB”:Return:Ifend↙if…………Prog”JSPB”:Return:Ifend（曲线段分段输入）↙补充直线段输入如下(只需输线路的最后一段直线数据）ifK<本段直线终点里程AndK≥本段直线起点里程:Then本段直线终点里程→Z[3]:终点X→Z[16]:终点Y→Z[17]:方位角→E:Z[16]+(K-Z[3])*Cos(E)→Z[18]:Z[17]+(K-Z[3])*Sin(E)→Z[19]:Return:Ifend↙子程序计算判别名称：JSPBLb12↙（曲线要素计算）Z[6]/2-Z[6]

6、^3/(240*R^2)+Z[6]^5/(34560*R^4)→Z[8]↙（M1）Z[7]/2-Z[7]^3/(240*R^2)+Z[7]^5/(34560*R^4)→Z[9]↙（M2）Z[6]^2/(24*R)-Z[6]^4/(2688*R^3)→Z[10]↙（P1）Z[7]^2/(24*R)-Z[7]^4/(2688*R^3)→Z[11]↙（P2）2009-12-3120:08回复2楼π*A*R/180+0.5*(Z[6]+Z[7])→Z[25]↙（曲线总长）90*Z[6]/(R*π)→Z[14]↙（第一缓和曲线总偏角）90*Z[7]/(R*π)→Z[15]↙（第二缓和曲线

7、总偏角,可以省略）Z[8]＋（R+Z[10])Tan(A/2)-(Z[10]-Z[11])/Sin(A)→Z[12]↙讲你个讲3位粉丝(切线T1)Z[9]＋（R+Z[11])Tan(A/2)+(Z[10]-Z[11])/Sin(A）→Z[13]↙(切线T2)B+Z[12]*Cos(E+180)→Z[16]↙（ZH点X）C+Z[12]*Sin(E+180)→Z[17]↙（ZH点Y）Z[1]-Z[25]→Z[3]↙(ZH点里程)Z[3]+Z[6]→Z[4]↙(HY点里程)Z[1]-Z[7]→Z[