ashleytgg 发表于 2015-11-14 22:53:11

用变换群绘制公路曲线

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

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

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

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

yoyoho 发表于 2015-11-14 23:19:39

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

xyccf 发表于 2015-11-18 17:01:24

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

ashleytgg 发表于 2015-11-18 23:48:45

发个GIF 图 ，

ashleytgg 发表于 2015-11-19 22:59:51

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

ashleytgg 发表于 2015-11-24 20:46:41

再发一个程序演示用参数文件，我觉得该程序的绘图效率还是可以的，70来个转点也只要一分来钟
页: [1]
查看完整版本: 用变换群绘制公路曲线