4800路基反算.docVIP

张石高速标段路基FS结束语言后括号内的为转4850 I=1=GotoE⊿出口左线 I=1=GotoF⊿出口右线 I=11=GotoM⊿进口左线 I=12=GotoN⊿进口右线 LblE A=3873.225(交点X):C=4171.983(直圆点X):0字母=6225.107(交点Y):P=5998.821(直圆点Y):E=85024.418(交点):F=84649.636(直圆点):M=F:N=85396.339(圆直点):R=3490(半径):S=0(缓和曲线长):G=12·15·31·(转角):Goto9⊿ LblF A=3846.893:C=4141.778:O字母=6192.122:P=5968.949:E=84979.139:F=84609.324:M=F:N=85346.139:R=3450:S=0:G=12·14·12·:Goto9⊿ LblM A=7447.192:C=6604.003:O字母=3518.109:P=2344.231:E=81087.143:F=79641.82:M=F:N=81986.318:G=88·32·54·:S=275:R=1339.082:Goto9⊿ LblN A=7423.58:C=6604.024:O字母=3485.237:P=2344.261:E=81046.666:F=79641.854:M=F:N=81898.426:R=1362.729:S=150:G=88·34·14·:Goto9⊿ Lbl9 {XY}输入测点坐标 POL((A-C),(O字母-P)) K=J POL((E-F), O) L=J POL((X-C),(Y-P)) Z=J+L-K U=F+ICosZ V=ISinZ MN=GotoA⊿ UM=GotoC⊿ LblB T=(R=S^2÷24÷R)tan(AbsG÷2)+S÷2-S^3÷240÷R^2 L=Abs(U-M) G0=V=-V⊿ Z=T+(T-L)cosG-Vsin AbsG:D=(T-L)sin AbsG+VcosG Z0=Goto7⊿ LZ=Goto8⊿ D=V MN=W=-M:≠=W=M:⊿ S=0=Goto2⊿ Lbl3 K=L+L^5÷(40R^2S^2):I=Ltancos-1(L÷K) B= R^2S^2-2RSK(D-I) B0=Goto2⊿ Q=(RS-√B)÷(D-I) Q≥S=Goto2⊿ J=Abs(Q+W) H=√((Q-Q^5÷(40R^2S^2)-L)2+(Q^3÷6RS-D) 2) D-I0=H=-H⊿ V=L Lbs5 Abs(U-M)≤Z=L=Abs(J-M):≠=L=Abs(J-M): ≠=L=Abs(J-N):⊿ K=L-L^5÷(40R^2S^2)+L^7÷(3456R^3S^3) I=L^3÷(6RS)-L^7÷(336R^3S^3)+L^11÷(42240R^5S^5) Q=180L2÷(2ｎRS) K=K-HsinQ:I=I+HcosQ Abs(V-K)≥.01=Goto6⊿ Abs(D-I)≥.01=Goto6⊿ J◢（”J=”:J）桩号 G0=H=H:≠=H=-H: ⊿ H◢（”H=”:H）偏距 Goto9 Lbs2 Q=S÷2-S^3÷(240R2) Z=S2÷(24R) B=90S÷R÷ｎ L=L-Q I=Abs(LD÷(R+Z-D)) K=Abstan-1(I÷D) K+BAbsG=Goto6⊿ J=Abs((K-B)ｎR÷180+S+W) ◢（”J=”:J=Abs((K-B)ｎR÷180+S+W)）桩号 B=R-RcosK+Z H=-(D-B)÷cos(180-K) G0=H=-H: ≠=H=H: ⊿ H ◢（”H=”:H）偏距 GotoO（字母） Lbl6 Q=K-V Abs(U-M)≥Z=Q=-Q⊿ MN=J=J-Q: ≠=J=J+Q: ⊿ H=H-I+D Goto5 Lbl8 L=Z NM=W=-N: ≠=W=N: ⊿ S=0=Goto2: ≠=Goto3: ⊿ Lbs7 MN=J=N+Z: ≠=J=N-Z: ⊿ J◢（”J=”:J）桩号 G0=H=-D: ≠=H=D: ⊿ H◢（”H=”:H）偏距 Goto9 LblA UM=GotoB⊿ LblC J=U◢（”J=”:J=U） H=V◢（”H=”:H=V） GotoO LbsO {W}选择左线或右线 W=1=GotoP⊿左线 W=2=GotoQ⊿右线 LblP J85269.667(变坡加切线)=Q=431.448(变坡高程)-(J-85114.981(变坡桩号))*.016999:GotoT⊿ J85114.981(变坡桩号)=Q=431.448(变坡高程)-(J-85114.981(变坡桩号))*.016999+(85