高等级公路匝道放样计算程序

匝道计算程序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：¹>Q=Q+ cosR：S=S+ sinRD 　　L3 N=M=>Goto3：¹>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ù WW=W+360ù¹>WùDGoto1