5800 道路坐标程序.docVIP

作者：张层 联系方式：QQ271876698 主程序LU XIAN ”KI”？K：”DR”？S IF K≤曲线终点桩号:THEN曲线起点X坐标→A：曲线起点Y坐标→B：C=曲线起点方位角→C：曲线起点半径→D：曲线终点半径→E：曲线起点桩号→F：曲线终点桩号→G:Prog”N2” ELSE接K “FWJ=”:z DMS▲ “X=”:X▲ “Y=”:Y▲ 子程序N2 （E-D）/Abs（G-F）→Z[1] Abs（K-F）→Z[2] Z[1]* Z[2] →Z[3] C+（Z[3]+2D）*Z[2]*90/π+360→Z IF Z360:THEN Z-360→Z ELSE Z→Z IFEND IF Z360:THEN Z-360→Z ELSE Z→Z IFEND C+(Z[3]/4+2D)*Z[2]*45/(2π) →Z[4] C+(3Z[3]/4+2D)*Z[2]*135/(2π) →Z[5] C+(Z[3]/2+2D)*Z[2]*45/π→Z[6] A+(Z[2]/12)(cosC+4(cos Z[4]+cos Z[5])+2cos Z[6]+cosZ)+Scos（Z+90）→X B+(Z[2]/12)(sinC+4(sin Z[4]+sin Z[5])+2sin Z[6]+sinZ)+Ssin（Z+90）→Y RETURN 子程序不动！ 主