计算器坐标放样程序.docVIP

一般直线，曲线任意桩号放样程序A 7QX(文件名) LbI3:Fixm:{L}:L≤53459.53=Prog”7”:GotoAΔLbIA: Prog”2”:T≤0=Goto7ΔTE=Goto0ΔProg”3”:Prog”4”: LbI1:{SU}:S=0=Goto3ΔRec(S,Z+QF+U):Prog”5”:Goto1: LbI0:TH-P-V=Goto6Δprog”6”:Prog”4”: LbI2:{SU}:S=0= Goto3ΔRec(S,Z+OF+U):Prog”5”:Goto2: LbI7: Rec(-T,Z+180):Prog”4”: LbI4:{SU}:S=0= Goto3ΔRec(S,Z+U:Prog”5”: Goto4: LbI6:I=W:G=Z+180(H-P-(V+E)÷2)÷兀RF:Z=G+180: Rec(I,G:K=I+C:G=J+D:T≥H-P= Goto5ΔT=H-L:F=-F:E=V:Prog”3”:F=-F:N=K+I▲M=G+J▲ LbI8:{SU}:S=0=Goto3ΔRec(S,Z+180-QF+U:Prog”5”: Goto8: LbI5 :Rec(T-H+P,Z+180):N=K+I▲M=G+J▲ LbI9: {SU}:S=0=Goto3ΔRec(S,Z+180+U):Prog”5”:Goto9 2(文件名) T=L-P:Pol(C-A,D-B:Z=J 3(文件名) W=ER:X=T-T^5÷40W^2+T^9÷3456W^4:Y=T^3÷6W-T^7÷336W^3: Pol(X,Y: Rec(I,Z+JF:Q=90T^2÷R÷E÷兀 4(文件名) N=A+I▲ M=B+J▲ 5(文件名) X=N+I▲ Y=M+J▲ 6(文件名) V=E÷2-E^3÷240R^2:G=E^2÷24R-E^4÷2688R^3:O=180(T-0.5E)÷R兀:X=V+RsinO:Y=G+(1-CosO)R: Pol(X,Y:Rec(I,Z+JF 7（文件名） (数据库) L=任意桩号 S=居中距离 U＝左-90，右+90 A＝ZH(ZY)点X坐标 B= ZH(ZY)点Y坐标 C=交点X坐标 D＝交点Y坐标 E＝LS1 V＝LS2 R=半径 H=YH(YZ)点桩号 P=ZH(ZY)点桩号 F=左转-1，右转+1 W=切线长 如果两弯道间没有直线段：L≤ZY(YZ)点桩号 =Prog”数据库文件名” 如果有直线段：L≤下一弯道ZY点桩号 =Prog”数据库文件名” 一般直线，曲线任意桩号放样程序B HYQPXG（文件名） Prog”1”:LbI3:Fixm:{L}: Prog”2”:T≤0=Goto7ΔTE=Goto0ΔProg”3”:Prog”4”: LbI1:{SU}:S=0=Goto3ΔRec(S,Z+QF+U):Prog”5”:Goto1: LbI0:TH-P-E=Goto6Δprog”6”:Prog”4”: LbI2:{SU}:S=0= Goto3ΔRec(S,Z+OF+U:Prog”5”:Goto2: LbI7: Rec(-T,Z+180:Prog”4”: LbI4:{SU}:S=0= Goto3ΔRec(S,Z+U:Prog”5”: Goto4: LbI6: G=Z+180(H-P-E)÷兀RF:Z=G+180: Rec(I,G:K=I+C:G=J+D:T≥H-P= Goto5ΔT=H-L:F=-F: Prog”3”:F=-F:N=K+I▲M=G+J▲ LbI8:{SU}:S=0=Goto3ΔRec(S,Z+180-QF+U:Prog”5”: Goto8: LbI5: Rec(T-H+P,Z+180:N=K+I▲M=G+J▲ LbI9: {SU}:S=0=Goto3ΔRec(S,Z+180+U:Prog”5”:Goto9 1（文件名) A”X1”B”Y1”C”X2”D”Y2”E”LS”H”HZ”RFP: 2(文件名) T=L-P:Pol(C-A,D-B:Z=J 3(文件名) W=ER:X=T-T^5÷40W^2+T^9÷3456W^4:Y=T^3÷6W-T^7÷336W^3: Pol(X,Y: Rec(I,Z+JF:Q=90T^2÷R÷E÷兀 4(文件名) N=A+I▲ M=B+J▲ 5(文件名) X=N+I▲ Y=M+J▲ 6(文件名) V=E÷2-E^3÷240R^2:G=E^2÷24R-E^4÷2688R^3:O=180(T-0.5E)÷R兀:X=V+RsinO:Y=G+(1-CosO)R: Pol(X,Y:Rec(I,Z+JF L=任意桩号