不等长缓和曲线、竖曲线、直线4850计算器程序.docVIP

一、曲线坐标计算 主程序：QXJS Prog”1“：Q”K-ZH”:F”ZHX=”:G”ZHY=”:N”FANG,WEI,JIAO=”:I”(Y1,Z-1)” Lbl 1:Fixm:｛KDJ｝:K”LICHENG=”:D”WAIYI=(Z-,Y+)”:J”JIAJIAO=”:Goto 2 Lbl 2:KQ=Goto 3:≠Goto 4 Lbl 3:”K-OVER”:Goto1 Lbl 4:KQ+L=Goto 3: ≠Goto 5 Lbl 5:K≤Q+B=Goto 6: ≠Goto 7 Lbl 6:S=K-Q:W=B:Prog”2”:O=N+I×90S2÷(ΠRB):O0=O=O+360⊿O360=O=O-360⊿O”FANGWEI=” X=Ucos N-Vsin N+F+D×cos(O+J) Y=Vcos N+Usin N+G+D×sin (O+J) Goto 1 Lbl 7:K≤Q+L-C=Goto 8:≠Goto 9 Lbl 8:S=K-Q:O=N+I×90(2S-B) ÷(ΠR):O0=O=O+360⊿O360=O=O-360⊿O”FANGWEI=” Prog”3“：X= Ucos N-Vsin N+F+D×cos(O+J) Y=Vcos N+Usin N+G+D×sin (O+J) Goto 1 Lbl 9:S=Q+L-K:W=C: Prog”2“:E=N+IA+180:O=E-I×90S2÷(ΠRC)+180:O0=O=O+360⊿O360=O=O-360⊿O”FANGWEI=” V=-V X=(U-H) cos E-Vsin E+F+T×cosN+D×cos(O+J) Y=Vcos E+(U-H)sin E+G+T×sinN+D×sin(O+J) Goto 1 子程序：（共3个） A:R:B”L01”:C”L02” M”M1”=B÷2-B3÷(240×R2) J”M2”=C÷2-C3÷(240×R2) P”P1”=B2÷(24×R)-B4÷(2688×R2) P”P2”=C2÷(24×R)-C4÷(2688×R2) T”T1”=M+(R+P)tan(A÷2)+(Z-P) ÷sinA H”T2”=J+(R+Z)tan(A÷2)+(P-Z) ÷sinA L=B÷2+ C÷2+ARΠ÷180 E=(R+(Z+P) ÷2)÷cos(A÷2)-R U=S-S5÷(40R2W2)+S9÷(3456R4W4)-S13÷(599040R6W6):V=I×(S3÷(6RW)-S7÷(336R3W3)+S11÷(42240R5W5)) U=Rsin(180(S-B÷2) ÷ΠR)+M:V=I×(R×(1-cos(180(S-B÷2) ÷ΠR))+P) 备注：本程序可计算不等长缓和曲线及一般曲线中桩及边桩坐标。 2、直线坐标计算程序 主程序：(ZHIXIAN) V”X0=”:W”Y0=”:T”T0=”:U”K0=”:Lbl 0:Fixm:{KDJ}:X=V+(K-U)cosT+Dcos(T+J) Y=W+(K-U)sinT+Dsin(T+J) Goto 0 3、坐标反算程序 主程序：(ZBFS) C”X1”:D”Y1”:E”X2”:F”Y2”:Fixm:Pol(E-C,F-D:I”S1-2=”) J0=J=J+360:≠J=J⊿J”A1-2=” 4、坐标正算程序 主程序：（ZBZS） C”X1”:D”Y1”:S”S1-2”:R”A1-2”:Fixm:X”X2”=C+Rec(S,R) Y”Y2”=D+J 5、竖曲线计算程序 主程序：（SQXJS） Prog”4”:S”TU,AO=(T-1,A+1) Lbl 1:Fixm:｛K｝:Goto 2 Lbl 2:KJ=Goto 3:≠ Goto 4 Lbl 3:F=(K-A)2÷2R:G=B+(K-A) ×Q+S×F Goto 1 Lbl 4:N=(C-K)2÷2R:G= D+(C-K) ×H+S×N Goto 1 子程序：（4） Q”QIANPO+,-“:H”HOUPO+,-“:R:J”K-BP”Z”G-BP” T=√((Q-H)2) ×R÷2 L=2 ×T E=T2÷2÷R A”K-ZY”=J-T C”K-YZ”=J+T B”ZYG”=Z-Q×T D”YZG”=Z+H×T 说明：在输入坡度时以小数输入，并且带正负号。