用变换群的方法绘制公路曲线
程序简介：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
由已知的公路曲线设计资料，绘制出平面布置图。
以前是将相关设计值利用excel计算所需放样的座标，赞！ 原程序中有一段是错误的，(关于转点角度的处理)，y因此加了一小节程序，其它未变.进行的程序为：
;; 对转角Δ 使其控制在(-pi pi) 之间
(cond
((and (>= Δ (* -1 pi))
(< Δ pi)
)
(setq Δ Δ)
)
((< Δ (* -1 pi))
(setq Δ (+ Δ (* 2 pi)))
)
((> Δ pi)
(setq Δ (- Δ (* 2 pi)))
)
)
页:
[1]