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

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

1、主程序坐标正反算程序名称：ZBZFSLb1  A↙30→DimZ:"0=ZS,1=FS"?Z↙If  Z=0:Then  GotoB:IfEnd↙    (Z=0进入里程点坐标正算）If  Z=1:Then  Prog"FSLCZ"↙  (Z=1进入反算里程边桩）Lb1B  ↙Prog”ZBZS”↙子程序反算里程桩名称：FSLCZLb1  1↙"XK="?X:"YK="?Y↙（输入任意测点的X、Y坐标）“K=”?K↙（试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）Lb1  2↙Prog"SJK":T-90→W:W<0=>36

2、0+W→W:Abs((Y-Z[19])*Cos(W)-(X-Z[18])*Sin(W))→S↙If  S<0.0001:Then  Goto  4:Else  Goto3:Ifend↙Lb1  3↙K+S→K:Prog"SJK":T-90→W:W<0=>360+W→W:Abs((Y-Z[19])*CosW-(X-Z[18])*Sin(W)→Q↙If  Q<0.0001:ThenQ→S:Goto  4:Elseif  QS  :ThenK-Q→K:Goto  2:Ifend:Ifend:I

3、fend↙Lb1  4↙Pol(X-Z[18],Y-Z[19]:"DP(-Z+Y)=":I◢(偏距）"K=":K+S→K◢（里程）Goto1↙子程序坐标正算  名称：ZBZSLb1  0↙“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◢(后视方位角)Lb1  1↙“K=”?K：（输入所需计算里程）Prog"SJK"↙XI:Z[18]↙  YI:Z[19]↙  Pol(Z[18]-

4、M,Z[19]-N):J<0=>J+360→J↙“PJ=”?P↙     (输入桩与线路夹角)“PD=”?D↙    （输入桩距中线的距离）Z[18]+D*Cos(T+P)→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↙子程序数据库  名称：SJKif  K<本段曲线终点里程  And  K≥上段曲线终点里程：

5、Then  本段曲线终点里程→Z[1]:上段曲线终点里程（第一段曲线输起点的里程）→Z[2]：1→O（注：左偏曲线输入-1→O,右偏曲线输入1→O）:半径→R:曲线偏角→A:第一缓和曲线→Z[6]:第二缓和曲线→Z[7]:交点X→B:交点Y→C:小里程向交点方位角→E:交点向大里程方位角→F:Prog”JSPB”:Return:Ifend↙if…………Prog”JSPB”:Return:Ifend（曲线段分段输入）↙补充直线段输入如下(只需输线路的最后一段直线数据）ifK<本段直线终点里程And  K≥本段直线起点里程:Then本段直线终点里程→Z

6、[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↙子程序计算判别名称：JSPBLb1  2↙（曲线要素计算）Z[6]/2-Z[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]↙  （

7、P1）Z[7]^2/(24*R)-Z[7]^4/(2688*R^3)→Z[11]↙  （P2）