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

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