卡西欧计算器隧道上导坑超欠挖程序

卡西欧5800隧道上导坑超欠挖主程序60→DimZ5.375→Z[60]（隧道中线与隧道测量线偏距：左+，右-)Lbl0:31°13°26.4°→A（曲线转角)41021.215→S（直缓点里程)3449757.303→M（直缓点X坐标）550234.261→N（直缓点Y坐标）3450043.591→Z[10]（缓直点X坐标）549502.843→Z[11]（缓直点Y坐标)3450002.637→Z[34]（交点X坐标）549908.551→Z[35]（交点Y坐标)Pol(Z[34]-Z[10],Z[35]-Z[11]):J→Z[12]（Z[12]为交点至缓直点方位角)Pol(Z[34]-M,Z[35]-N):J→G（G为交点至直缓点方位角）1100→R（曲线半径）200→C（第一缓和曲线长）200→Q（第二缓和曲线长）-1→W（曲线转向：左为-1，右为+1）799.458→L（曲线总长）407.770→T（第一切线长）407.770→V（第二切线长）3449872.695→Z[36]:550070.997→Z[37]（Z[36]、Z[37]分别为缓圆点X、Y坐标)3449961.934→Z[30]:549892.619→Z[33]（Z[30]、Z[33]分别为圆曲线中点X、Y坐标)3450017.494→Z[38]:549701.059→Z[39]（Z[38]、Z[39]分别为圆缓点X、Y坐标）Pol(Z[38]-Z[36],Z[39]-Z[37]):J+90×W→Z[40]Z[30]+R×cos(Z[40])→B:Z[33]+R×sin(Z[40])→H(B、H分别为圆心X、Y坐标)〝P-X=〞?X(输入任意点X坐标)〝P-Y=〞?Y(输入任意点Y坐标)〝H=〞?O(输入任意点高程)〝R=〞?P(所设定的隧道上半圆半径)G-90×W→Z[41]:Pol(X-B,Y-H):J→Z[43]:W×(Z[43]-Z[41])×π÷180→U:R×U+C÷2→KIfK＜0:ThenProg〝ZX1〞:〝Dk=〞:Z[1]◢〝Dm=〞:Z[2]◢〝C-Q=〞:Z[44]◢〝SH=〞:Z[55]◢ElseGoto1:IfEnd:Goto0判断是否在第一直线段Lbl1:IfK≥L:ThenProg〝ZX2〞:〝Dk=〞:Z[3]◢〝Dm=〞:Z[4]◢〝C-Q=〞:Z[45]◢〝SH=〞:Z[55]◢ElseGoto2:IfEnd:Goto0判断是否在第二直线段Lbl2:IfK≥L-Q:ThenProg〝HHQX2〞:〝Dk=〞:Z[14]◢〝Dm=〞:Z[13]◢〝C-Q=〞:Z[47]◢〝SH=〞:Z[55]◢ElseGoto3:IfEnd:Goto0判断是否在第二缓和曲线段Lbl3:IfK≥C:ThenProg〝YQX〞:〝Dk=〞:Z[5]◢〝Dm=〞:Z[6]◢〝C-Q=〞:Z[56]◢〝SH=〞:Z[55]◢ElseGoto4:IfEnd:Goto0判断是否在圆曲线段Lbl4:IfK＜C:ThenProg〝HHQX1〞:〝Dk=〞:Z[8]◢〝Dm=〞:Z[7]◢〝C-Q=〞:Z[46]◢〝SH=〞:Z[55]◢IfEnd:Goto0判断是否在第一缓和曲线段注：1、■色区域为曲线中心点坐标计算部分，当中心坐标为已知时可直接将中心坐标X、Y分别赋值予B、H；2、■色区域为条件判别及结果输出部分；3、■色区域为所调用子程序程序名；4、■色区域为曲线要素部分，可在程序编辑时修改；5、Dk显示反算桩号，Dm显示反算偏距（左-、右+），C-Q显示超欠挖情况（欠-、超+），SH显示隧道设计基线标高。卡西欧5800隧道上导坑超欠挖子程序ZX1（第一直线段子程序：应与主程序所调用子程序名对应）Pol(X-M,Y-N):Rec(I,J-G):S+I→Z[1]:J+Z[60]→Z[2]:Z[1]→Z[54]计算桩号Prog〝SQX〞:eq\r(,(Z[2]2+(O-Z[42])2))-P→Z[44]计算偏距ZX2（第二直线段子程序：应与主程序所调用子程序名对应）M+T×cos(G)+V×cos(G+A×W)→Z[31]:N+T×sin(G)+V×sin(G+A×W)→Z[32]Pol(X-Z[31],Y-Z[32]):Rec(I,J-(G+W×A)):S+L+I→Z[3]:J+Z[60]→Z[4]:Z[3]→Z[54]计算桩号Prog〝SQX〞:eq\r(,(Z[4]2+(O-Z[42])2))-P→Z[45]计算偏距YQX（圆曲线段子程序：应与主程序所调用子程序名对应）S+K→Z[5]:Pol(X-B,Y-H):I-R+Z[60]→Z[6]:Z[5]→Z[54]计算桩号Prog〝SQX〞:eq\r(,(Z[6]2+(O-Z[42])2))-P→Z[56]计算偏距HHQX1（第一缓和曲线段子程序：应与主程序所调用子程序名对应）WhileX=MAndY=N:S→Z[8]:0.000+Z[60]→Z[7]:Z[8]→Z[54]:Prog〝SQX〞eq\r(,(Z[7]2+(O-Z[42])2))-P→Z[46]:Return:WhileEnd:Pol(X-M,Y-N):W×(J-G)→Z:I×cos(Z)→E:I×sin(Z)→F:E+E5÷(40×R2×C2)-E9÷(3456×R4×C4)→D:D3÷(6×R×C)-D7÷(336×R3×C3)+D11÷(42240×R5×C5)→Z:(R×C-(F-Z)×D-eq\r(,(R2×C2-2×(F-Z)×D×R×C)))÷(F-Z)→K:(K+D)-(K+D)5÷(40×R2×C2)+(K+D)9÷(3456×R4×C4)→ListX[1]:(K+D)3÷(6×R×C)-(K+D)7÷(336×R3×C3)+(K+D)11÷(42240×R5×C5)→ListY[1]:D3÷(6×R×C)-D7÷(336×R3×C3)+D11÷(42240×R5×C5)→Z[9]:Pol(E-ListX[1],F-ListY[1]):(I×(Z[9]-F)÷Abs(Z[9]-F)+Z[60])→Z[7]:S+D+K→Z[8]:Z[8]→Z[54]:Prog〝SQX〞eq\r(,(Z[7]2+(O-Z[42])2))-P→Z[46]计算偏距HHQX2（第二缓和曲线段子程序：应与主程序所调用子程序名对应）WhileX=Z[10]AndY=Z[11]:S+L→Z[14]:0.00+Z[60]→Z[13]:Z[14]→Z[54]:Prog〝SQX〞eq\r(,(Z[13]2+(O-Z[42])2))-P→Z[47]:Return:WhileEnd:Pol(X-Z[10],Y-Z[11]):W×(Z[12]-J)→Z:I×cos(Z)→E:I×sin(Z)→F:E+E5÷(40×R2×Q2)-E9÷(3456×R4×Q4)→D:D3÷(6×R×Q)-D7÷(336×R3×Q3)+D11÷(42240×R5×Q5)→Z(R×Q-(F-Z)×D-eq\r(,(R2×Q2-2×(F-Z)×D×R×Q)))÷(F-Z)→K:(K+D)-(K+D)5÷(40×R2×Q2)+(K+D)9÷(3456×R4×Q4)→ListX[1]:(K+D)3÷(6×R×Q)-(K+D)7÷(336×R3×Q3)+(K+D)11÷(42240×R5×Q5)→ListY[1]:D3÷(6×R×Q)-D7÷(336×R3×Q3)+D11÷(42240×R5×Q5)→Z[9]:Pol(E-ListX[1],F-ListY[1]:(I×(Z[9]-F)÷Abs(Z[9]-F)+Z[60])→Z[13]:S+L-K-D→Z[14]:Z[14]→Z[54]:Prog〝SQX〞:eq\r(,(Z[13]2+(O-Z[42])2))-P→Z[47]计算偏距R×U+C÷2→K复位K值SQX（竖曲线嵌套子程序）41400→Z[48]:414.800→Z[49]:35000→Z[50]:1.1→Z[51]:-0.3→Z[52]:-1→Z[53]:Z[51]÷100→D:Z[52]÷100→EAbs(tan-1(D))+Abs(tan-1(E))→R:Z[50]×tan(R÷2)→H:WhileZ[54]＜Z[48]-H:-D→I:Z[49]+I×Abs(Z[54]-Z[48])→Z[55]:Z[55]+1.62→Z[42]:Break:WhileEnd:WhileZ[48]-H＜Z[54]AndZ[54]≤Z[48]:-D→I:Z[49]+I×Abs(Z[54]-Z[48])+Z[53]×(H-Abs(Z[54]-Z[48]))2÷(2×Z[50])→Z[55]:Z[55]+1.62→Z[42]:Break:WhileEnd:WhileZ[48]＜Z[54]AndZ[54]＜Z[48]+H:E→I:Z[49]+I×Abs(Z[54]-Z[48])+Z[53]×(H-Abs(Z[54]-Z[48]))2÷(2×Z[50])→Z[55]:Z[55]+1.62→Z[42]:Break:Whi