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

一、曲线坐标计算主程序：QXJSProg”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 2Lbl 2:KGoto 3:Goto 4Lbl 3:”K-OVER”:Goto1Lbl 4:KQ+L=Goto 3: Goto 5Lbl 5:KQ+B=Goto 6: Goto 7Lbl 6:S=K-Q:W=B:Prog”2”:O=N+I90S2(RB):OO=O+360O360=O=O-360O”FANGWEI=”X=Ucos N-Vsin N+F+Dcos(O+J) Y=Vcos N+Usin N+G+Dsin (O+J) Goto 1Lbl 7:KQ+L-C=Goto 8:Goto 9Lbl 8:S=K-Q:O=N+I90(2S-B) (R):OO=O+360O360=O=O-360O”FANGWEI=”Prog”3“：X= Ucos N-Vsin N+F+Dcos(O+J) Y=Vcos N+Usin N+G+Dsin (O+J) Goto 1Lbl 9:S=Q+L-K:W=C: Prog”2“:E=N+IA+180:O=E-I90S2(RC)+180:OO=O+360O360=O=O-360O”FANGWEI=”V=-VX=(U-H) cos E-Vsin E+F+TcosN+Dcos(O+J) Y=Vcos E+(U-H)sin E+G+TsinN+Dsin(O+J) Goto 1子程序：（共3个）1、 A:R:B”L01”:C”L02”M”M1”=B2-B3(240R2)J”M2”=C2-C3(240R2)P”P1”=B2(24R)-B4(2688R2)P”P2”=C2(24R)-C4(2688R2)T”T1”=M+(R+P)tan(A2)+(Z-P) sinA H”T2”=J+(R+Z)tan(A2)+(P-Z) sinA L=B2+ C2+AR180 E=(R+(Z+P) 2)cos(A2)-R 2、 U=S-S5(40R2W2)+S9(3456R4W4)-S13(599040R6W6):V=I(S3(6RW)-S7(336R3W3)+S11(42240R5W5)3、 U=Rsin(180(S-B2) R)+M:V=I(R(1-cos(180(S-B2) 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 03、坐标反算程序主程序：(ZBFS)C”X1”:D”Y1”:E”X2”:F”Y2”:Fixm:Pol(E-C,F-D:I”S1-2=”)JJ=J+360:J=JJ”A1-2=”4、坐标正算程序主程序：（ZBZS）C”X1”:D”Y1”:S”S1-2”:R”A1-2”:Fixm:X”X2”=C+Rec(S,R)Y”Y2”=D+J5、竖曲线计算程序主程序：（SQXJS）Prog”4”:S”TU,AO=(T-1,A+1)Lbl 1:Fixm:K:Goto 2Lbl 2:KGoto 3: Goto 4Lbl 3:F=(K-A)22R:G=B+(K-A) Q+SFGoto 1Lbl 4:N=(C-K)22R:G= D+(C-K) H+SNGoto 1子程序：（4）Q”QIANPO+,-“:H”HOUPO+,-“:R:J”K-BP”Z”G-BP”T=(Q-H)