4800平曲线坐标反算桩号程序(对称与非对称缓和曲线).docVIP

4800-对称与非对称缓和曲线坐标计算程序 主程序：XY NH X0：Y0： LbI 1：Prog JD-X ： B∧2/24/A：B/2-B∧3/240/A∧2：K-：C+B：D+π/A πA /180→E：W 0 : Then S -1：1→S:IfEnd LbI 6：L≤C: Then K-L→O： G-Ocos V： H-Osin V： V：Goto 3L≥F: Then L-F→O: V+W→Z： G+Ocos Z： H+Osin Z：Goto 3L D:Then L-C→O：ProgZHHY： V+SR： G+（I-）cos V-SJsin V：H+（I-）sin V+JScos V：Goto 3L E:Then F-L→O ：ProgZH--HY ：V+W：O-SR： G+（-I）cos O-SJsin O：H+（-I）sin O+JScos O：Goto 3180（L-D+B/2）/ π/A： Asin O+Q： P+A（1-cos O）： V+SO：G-（-I）cos V-SJsin V：H-（-I）sin V+SJcos V LbI 3： 1:Then Goto 5 ：O : Ifend X0:R◢ Y0:U◢ I:Z◢ LbI 4：SO：O 0 : Then Goto 1：IFEnd If O -1:Then Goto 5 : Ifend R-O