交点法4850程序

《交点法4850程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、精品文档，仅供学习与交流，如有侵权请联系网站删除(主程序)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▲Goto2

2、SJK(平面数据输入，自行切换到J-JSMS)Lb11:Q=1=>A=交点桩号：B=交点X坐标：C=交点Y坐标：F=方位角：◎=转角值（左-右+）：R=半径：E=第一缓和曲线长：K=第二缓和曲线长⊿←┚Q=2=>……….⊿←┚如有多个交点,继续添加(如上)⊿←┚Lb12:ABCF◎REK：E<1=>E=1E-9⊿K<1=>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

3、)+K÷2-KKK÷240RR+X:【精品文档】第3页精品文档，仅供学习与交流，如有侵权请联系网站删除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=

4、-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=Rs

5、inH+（E÷2-EEE÷240RR）:N=R(1-cosH)+（EE÷24R-E∧4÷2688RRR）:◎<0=>H=-H⊿H=J+H+W:Goto5Lb15:P≤A-T+L-K=>◎<0=>N=-N⊿≠=>◎>0=>N=-N⊿⊿Goto6←┚Lb16:X=X+McosJ-NsinJ+DcosH:Y=Y+MsinJ+NcosJ+D【精品文档】第3页精品文档，仅供学习与交流，如有侵权请联系网站删除sinHJF（平曲线反算子程序）Fixm←┚U=X:V=Y:D=0:J=F-W:P=A+(Y-C)cosJ-(X-B)sinJ←┚Lb11:Prog“JP”:J

6、=H-180:I=(V-Y)cosJ-(U-X)sinJ:AbsI<1E-4=>Goto2:≠=>P=P+I:Goto1⊿←┚Lb12:D=(V-Y)÷sinH【精品文档】第3页