公路匝道计算程序

yeusamo

公路匝道计算程序
公路匝道坐标计算源程序

　　L1 Lbl0：T“X1”U“Y1”C“AT”D“PA”E“PB”A“CH0”B“CHN”G“X0”I“Y0”：M：Lbl1：N=0：P=0：O=0：Q=0：S=0：{J}：J“CHI”

　　L2 Lbl2：N=N+1：H=2（J-A）/M：F=NH/2+A：R=C+180/p′（D+（E-D）/2（B-A）′（F-A））（F-A）：Int（N/2）=N/2=>O=O+cosR：P=P+sinR：1>Q=Q+cosR：S=S+ sinRD

　　L3 N=M=>Goto3：1>Goto2DLbl3：X=G+H/6′（cosC+4Q+2O-cosR：Y=I+H/6′（sinC+4S+2P-sinR）：X：“X=”?Y：“Y=”? Pol（X-T，Y-U： V? W<0=>W=W+360?1>W?DGoto1

　　 X1