用变换群绘制公路曲线

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

yoyoho

感谢 ashleytgg 分享程序,非常专业的程序!

xyccf

支持源码，最好加点动图啦

ashleytgg

发个GIF 图 ，

ashleytgg

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

ashleytgg

再发一个程序演示用参数文件，我觉得该程序的绘图效率还是可以的，70来个转点也只要一分来钟