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

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[19] ：L-L^3/40/Z[82]^2+L^5/3456/Z[82]^4→Z[35]: 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]←┘ 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