用变换群的方法绘制公路曲线

ashleytgg

程序简介：
  1 输入交点参数txt文件格式:  当交点是完整缓和曲线时，既起始半径无穷大，终点半径 R,  此时输入结构为:
    ( 转点号I  nil )   U_转点  ( Ls1 R Ls2 ) ,  nil表示该转点为正常转点，U_转点 为转点坐标， Ls1入口缓和曲线长度，R为圆曲线半      径 ， Ls2出口缓和曲线长度

2   当交点是非完整缓和曲线时，既起始是从上一个交点的圆曲线，渐变到当前交点半径 R,  此时输入结构为:
    ( 转点号I  t)  U_转点   ( R_start  R  R_end  Ls1   Ls2)

3 当交点较多时，计算要有一段时间，电脑似死机一般， 还望见谅 ，不妥之处请指教

4 相信对从事测量的朋友会有所帮助。 写这个程序，也花了好大劲， 希望对从事测量的朋友能有所帮助
5 命令提示为: use_dcl

Atsai

由已知的公路曲线设计资料，绘制出平面布置图。
以前是将相关设计值利用excel计算所需放样的座标，赞！

ashleytgg

原程序中有一段是错误的，(关于转点角度的处理)，y因此加了一小节程序，其它未变.进行的程序为：
;; 对转角Δ 使其控制在(-pi pi) 之间
              (cond
                ((and (>= Δ (* -1 pi))
                      (< Δ pi)
                 )
                 (setq Δ Δ)
                )
                ((< Δ (* -1 pi))
                 (setq Δ (+ Δ (* 2 pi)))
                )
                ((> Δ pi)
                 (setq Δ (- Δ (* 2 pi)))
                )
              )