交点法4850程序

(主程序)Lb10:“1-ZS，2-FS”：Z“MS”2=Goto1：≠=Goto2⊿←┚Lb11:{PDW}:P“K0+00”D“BZ”W“BJ”←┚P≤第二交点曲线起始点=Q=1:Porg“SJK”:Goto3⊿P≤第三交点曲线起始点=Q=2:Porg“SJK”:Goto3⊿如有多个交点，继续输入Lb13:Prog“JP”:“X=”：X：Pause0:“Y=”：Y▲Goto1⊿←┚Lb12:{XYW}:XYW“BJ”：Prog“JF”：“K0+00”：P：Pause0:“BZ”：D▲Goto2SJK(平面数据输入，自行切换到J-JSMS)Lb11:Q=1=A=交点桩号：B=交点X坐标：C=交点Y坐标：F=方位角：◎=转角值（左-右+）：R=半径：E=第一缓和曲线长：K=第二缓和曲线长⊿←┚Q=2=……….⊿←┚如有多个交点,继续添加(如上)⊿←┚Lb12:ABCF◎REK：E1=E=1E-9⊿K1=K=1E-9⊿X=(EE-KK)÷24R÷sinAbs◎:T=(R+（EE÷24R-E∧4÷2688RRR）)tan(Abs◎÷2)+（E÷2-EEE÷240RR）-XS=(R+KK÷24R-K∧4÷2688RRR)tan(Abs◎÷2)+K÷2-KKK÷240RR+X:L=Abs◎πR÷180+(E+K)÷2:J=tan-1((R+（EE÷24R-E∧4÷2688RRR）)÷(T-（E÷2-EEE÷240RR）)):X=(R+（EE÷24R-E∧4÷2688RRR）)÷sinJ-RJP（平曲线正算子程序）Lb11:J=F:X=B-TcosF:Y=C-TsinF:G=E←┚P≤A-T=I=A-T-P:M=-I:N=0:H=F+W:Goto5←┚≠=P≤A-T+E=I=P-A+T:H=90II÷REπ:◎0=H=-H⊿H=H+W+F:Goto3←┚≠=P≤A-T+L-K=I=P-A+T-E:Goto4:≠=Goto2⊿⊿←┚Lb12:X=B+Scos(F+◎):Y=C+Ssin(F+◎):J=F+◎+180:G=K←┚P≤A-T+L=I=A-T+L-P:H=90II÷RKπ:◎0=H=-H⊿H=H+J+W+180:Goto3←┚≠=I=P-A+T-L:M=-I:N=0:H=J+W+180:Goto5←┚Lb13:M=I-I∧5÷40RRGG:N=III÷6GR-I∧7÷336RRRGGG:Goto5←┚Lb14:H=90(E+2I)÷πR:M=RsinH+（E÷2-EEE÷240RR）:N=R(1-cosH)+（EE÷24R-E∧4÷2688RRR）:◎0=H=-H⊿H=J+H+W:Goto5←┚Lb15:P≤A-T+L-K=◎0=N=-N⊿≠=◎0=N=-N⊿⊿Goto6←┚Lb16:X=X+McosJ-NsinJ+DcosH:Y=Y+MsinJ+NcosJ+DsinHJF（平曲线反算子程序）Fixm←┚U=X:V=Y:D=0:J=F-W:P=A+(Y-C)cosJ-(X-B)sinJ←┚Lb11:Prog“JP”:J=H-180:I=(V-Y)cosJ-(U-X)sinJ:AbsI1E-4=Goto2:≠=P=P+I:Goto1⊿←┚Lb12:D=(V-Y)÷sinH