适用5800各种等线公路测量综合曲线放样程序修改后能用的程序

《适用5800各种等线公路测量综合曲线放样程序修改后能用的程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、CISIO5800适用各种等线公路测量综合曲线放样程序文件名“XY”LBL1K:?K:Prog”K48000”:D:?D(此步如用大程序调用要省略):L/2-L^3/240/R^2→Z[1]：L^2/24/R-L^4/2688/R^3→Z[2]:L/2/R*180/π→Z[3]:M/2-M^3/240/R^2→Z[4]:M^2/24/R-M^4/2688/R^3→Z[5]:M/2/R*180/π→Z[6]:AbsZ-Z[3]-Z[6]→Z[7]:Z[5]-Z[2])/SinAbsZ→Z[8]:(Z[2

2、]-Z[5])/SinAbsZ→Z[9]:Z[1]+(R+Z[2])Tan(AbsZ/2)+Z[8]→Z[10]:Z[4]+(R+Z[5])Tan(AbsZ/2)+Z[9]→Z[11]:RZ[7]*π/180+L+M→Z[12]:Z[10]+Z[11]-Z[12]→Z[13]:Z[111]-Z[10]→Z[14]:Z[14]+L→Z[15]:Z[15]+R*Z[7]*π/180→Z[16]:Z[111]+Z[11]-Z[13]→Z[17]←┘IfZ≥0:thenZ[3]+Z[80]→Z[79]:R→Z

3、[82]:elseZ[80]-Z[3]→Z[79]:-R→Z[82]:ifend←┘IfZ[80]>180:thenZ[80]-180→Z[83]:elseZ[80]+180→Z[83]:ifend←┘IfZ[81]>180:thenZ[81]-180→Z[84]:elseZ[81]+180→Z[84]:ifend←┘Z[102]+Z[10]CosZ[83]→Z[18]:Z[105]+Z[10]SinZ[83]→Z[19]：L-L^3/40/Z[82]^2+L^5/3456/Z[82]^4→Z[35]

4、:L^2/6/Z[82]-L^4/336/Z[82]^3+L^6/42240/Z[82]^5→Z[36]:Z[18]+Z[35]CosZ[80]-Z[36]SinZ[80]→Z[20]:Z[19]+Z[35]SinZ[80]+Z[36]CosZ[80]→Z[21]:Z[102]+Z[11]CosZ[81]→Z[22]:Z[105]+Z[11]SinZ[81]→Z[23]←┘ifK≤Z[14]:thenZ[14]-K→V:0→W:0→Q:Z[83]→F:Z[18]→X:Z[19]→Y:-90→Z[86]

5、:ifend←┘IfK≥Z[14]AndK≤Z[15]:thenK-Z[14]→G:G^2/2/Z[82]/L*180/π→Q:G-G^5/40/Z[82]^2/L^2+G^9/3456/Z[82]^4/L^4→V::G^3/6/Z[82]/L-G^7/336/Z[82]^3/L^3+G^11/42240/Z[82]^5/L^5→W:Z[80]→F:Z[18]→X:Z[19]→Y:90→Z[86]:IFEND←┘IFK≥Z[15]ANDK

6、/π→Q:Z[82]SinQ→V:Z[82]*(1-CosQ)→W:Z[20]→X:Z[21]→Y:90→Z[86]:Z[79]→F:IFEND←┘IfK≥Z[16]ANDK

7、84]→F:Z[22]→X:Z[23]→Y:-90→Z[86]:IFEND←┘IFK≥Z[17]:THENK-Z[17]→V:0→W:0→Q:Z[81]→F:Z[22]→X:Z[23]→Y:90→Z[86]:IFEND←┘X+VCosF-WSinF+DCos(F+Q+Z[86])→X:Y+VSinF+WCosF+DSin(F+Q+Z[86])→Y←┘“X=”:X◢“Y=”:Y◢GOTO1本程序说明，字符中有下用双划线做记号的不代表字符，是代表数学函数，或数字。而且本程序只适用CASIO5800计算器，

8、可计算不等长的缓和曲线的曲线坐标。子程序说明及编辑详见图纸示例说明。IFK≤起点桩号:THEN◢IFEND←┘IfK≥起点桩号ANDK≤本交点曲线终点桩号:THEN本交点桩号→Z[111]:本交点X坐标→Z[102]:本交点Y坐标→Z[105]:起点至本交点方位角→Z[80]:本交点至下一个交点方位角→Z[81]:转角(左转为负右转为正)→Z:曲线半径→R:第一缓和曲线长度→L:第二缓和曲线长度→M：IFEND←┘IfK≥前一个交点缓和曲线终点桩号AND