CISIO5800适用各类等线公路测量综合曲线放样程
序
文件名“XY” LBL 1
K:?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]-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]←┘ If Z≥0:then Z[3]+Z[80] →Z[79]: R→Z[82]: else Z[80]-Z[3] →Z[79]: -R→Z[82]: ifend←┘
If Z[80]>180:then Z[80]-180→Z[83]:else Z[80]+180→Z[83]:ifend←┘ If Z[81]>180:then Z[81]-180→Z[84]: else Z[81]+180→Z[84]:ifend←┘ Z[102]+Z[10]CosZ[83]
→
Z[18]:
Z[105]+Z[10]SinZ[83] →→
Z[36]:
→
Z[19]
:
L-L^3/40/Z[82]^2+L^5/3456/Z[82]^4
L^2/6/Z[82]-L^4/336/Z[82]^3+L^6/42240/Z[82]^5
Z[35]: 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]←┘
if K≤Z[14] :then Z[14]-K→V: 0→W: 0→ Q: Z[83] →F: Z[18] →X: Z[19] →Y: -90→Z[86]:ifend←┘
If K≥Z[14]And K≤ Z[15]:then K-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←┘
IF K≥Z[15]AND K< Z[16]:THEN K-Z[15] →G: G/Z[82]*180/π→Q: Z[82]SinQ→V: Z[82]*(1-CosQ) →W: Z[20] →X: Z[21] →Y: 90→Z[86]: Z[79] →F:IFEND←┘ If K≥Z[16]AND K< Z[17]:THEN Z[17]-K→G: G^2/2/(-Z[82])/M*180/π→Q:
G-G^5/40/(-Z[82])^2/M^2+G^9/3456/(-Z[82])^4/M^4→V:
G^3/6/(-Z[82])/M-G^7/336/(-Z[82])^3/M^3+G^11/42240/(-Z[82])^5/M^5→W: Z[84] →F: Z[22] →X: Z[23] →Y: -90→Z[86]:IFEND←┘
IF K≥Z[17]:THEN K-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◢ GOTO 1
本程序说明,字符中有下用双划线做记号的不代表字符,是代表数学函数,或数字。而且本程序只适用CASIO5800计算器,可计算不等长的缓和曲线的曲线坐标。
子程序说明及编辑
详见图纸例如说明。IF K≤起点桩号:THEN ◢IFEND←┘
If K≥起点桩号 AND K≤本交点曲线终点桩号 :THEN本交点桩号→Z[111]:本交点X坐标→Z[102]:本交点Y坐标→Z[105]:起点至本交点方位角→Z[80]:本交点至下一个交点方位角→Z[81]:转角(左转为负右转为正) →Z:曲线半径→R:第一缓和曲线长度→L:第二缓和曲线长度→M :IFEND←┘
If K≥前一个交点缓和曲线终点桩号 AND K≤本交点曲线终点桩号 :THEN本交点桩号→Z[111]:本交点X坐标→Z[102]: 本交点Y坐标→Z[105]:前一个交点至本交点方位角→Z[80]:本交点至下一个交点方位角→Z[81]:转角(左转为负右转为正) →Z:曲线半径→R:第一缓和曲线长度→L:第二缓和曲线长度→M: IFEND←┘ IF K≥终点桩号:THEN ◢IFEND←┘←┘
Z[111]代表交点桩号: Z[102]代表交点X坐标: Z[105]代表交点的Y坐标Z[80]代表起点与交点的方位角: Z[81]代表交点与另一个交点的方位角或与终点的方位角: Z代表转角,左转为负值,右转为正值,L代表前缓和曲线的长度,M代表后缓和曲线的长度,R代表曲线半径
当曲线的缓和曲线长度为0时,L、M各用10 ^-10代替。 竖曲线中桩标高计算程序文件名为KH
LBL 2:K:?K:Prog“文件名”: R/2*Abs(Z{2}-Z[1]) →Z[3]: Z[6]-Z[3] →Z[4]:
Z[6]+Z[3] →Z[5]←┘
IF K≤Z[4] :THEN 0→Z[8]: K-Z[6] →Z[9]: Z[1] →Z[10]:IFEND←┘ IF K≥Z[4]AND K< Z[6]:THEN K-Z[4] →Z[8]: K-Z[6] →Z[9]: Z[1] →Z[10]:IFEND←┘ IF K≥Z[6]AND K< Z[5] :THEN K-Z[5] →Z[8]: K-Z[6] →Z[9]: Z[2] →Z[10]:IFEND←┘ IF K≥Z[5] :THEN 0→Z[8]: K-Z[6] →Z[9]: Z[2] →Z[10]:IFEND←┘ IF Z[2]-Z[1]>0 :THEN R→Z[11]: ELSE -R →Z[11]:IFEND←┘ Z[7]+Z[9]Z[10]+Z[8] ^2/2/Z[11] →H ←┘ “H=”:H◢
GOTO 2
程序说明:Z[6]代表交点桩号,z[7]代表交点高程,z[1]代表起点与交点的纵坡,z[2]代表交点与终点的纵坡,R代表竖曲线半径。 标高计算子程序说明
IF K>0 AND K<第一变坡点竖曲线终点桩号:then 起点至 本变坡点坡 度→Z[1] : 本变坡点至下一个变坡点坡度→Z[2]: 本变坡点桩号 →Z[6] :本变坡点高程 →Z[7] : 竖曲线半径→R:IFEND 依此类推 竖曲线改编后能计算中边桩高程程序: LBL 3 : 路面宽=A” 中间分隔带宽=F B=土路肩
:C=土路肩与行车道边缘高差:Prog”KH”
IF D>0:THEN Prog”YHP48000”: ELSE Prog”ZHP48000”:IFEND←┘ IF Z[12]≥-4:THEN 4→J: ELSE -Z[12] →J:IFEND←┘此步要依照设计图纸的情形要说明如土路肩不与超高同坡的话就设J=-4,可缺省此步. IF D=0:THEN H→G:IFEND←┘
IF AbsD>0 AND AbsD
适用5800各类等线公路测量综合曲线放样程序修改后能用的程序
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)