计算机绘图autolisp程序作业.docxVIP

绘制平摆线 x=r（t-sint） y=r（1-cost） 0≤t≤2Π 编程： (defun asin (x0 y0 r) (setq dt (/ pi 36) tt 0 any (* 2 pi)) (command pline) (while (= tt any) (setq x1 (+ x0 (* r (- tt (sin tt))))) (setq y1 (+ y0 (* r (- 1 (cos tt))))) (command (list x1 y1)) (setq tt (+ tt dt)) ) (command) (command pedit l f ) (command redraw) ) 运行 （asin 300 300 200） 截图 绘制渐开线 x=r（cost+tsint）y=r（sint-tcost） 0≤t≤a*l 编程： (defun jian (x0 y0 a r l) (setq dt (/ pi 36) tt 0 any (* a l)) (setq any (* any (/ pi 180))) (command pline) (while (= tt any) (setq x1 (+ x0 (* r (+ (cos tt) (* tt (sin tt)))))) (setq y1 (+ y0 (* r (- (sin tt) (* tt (cos tt)))))) (command (list x1 y1)) (setq tt (+ tt dt)) ) (command) (command pedit l f ) (command redraw) ) 运行（jian 200 200 100 10 10） 截图 三.绘制正弦曲线y=asin(（2Π/t）*x+Ψ) 编程： (defun xuan (x0 y0 a t1 ph) (setq dt (/ pi 36) tt 0 ph (* ph (/ pi 180))) (setq p0 (list x0 y0)) (command pline) (while (= tt t1) (setq b (+ (* (/ (* 2 pi) t1) tt) ph)) (setq y1 (+ y0 (* a (sin b)))) (command (list (+ x0 tt) y1)) (setq tt (+ tt dt)) ) (command) (command pedit l f ) ) 运行（xuan 500 500 200 300 30） 截图： 四：使用递归方法编程 编程： 截图 五：使用函数嵌套法编写玫瑰线图案 编程： (defun mei (x1 y1 a) (setq dt (/ pi 36) tt 0 any (* 2 pi)) (setq p0 (list x1 y1)) (command pline) (while (= tt any) (setq p1 (polar p0 tt (* a (sin (* 2 tt))))) (command p1) (setq tt (+ dt tt)) ) (command (polar p0 any (* a (sin (* 2 pi))))) (command) (command pedit l f ) ) (defun gui (x0 y0 am d n) (setq x1 x0 y1 y0 a am) (repeat n (shi x1 y1 a) (setq a (+ a d)) ) (command redraw) ) 运行 （mei 200 200 100） 截图 运行 (gui 150 180 60 20 5) 截图 六.用双重循环法编写玫瑰线 编程： (defun han (x0 y0 am d n) (repeat n (setq dt (/ pi 36) tt 0 any (* 2 pi)) (setq p0 (list x0 y0)) (command pline) (while (= tt any) (setq p1 (polar p0 tt (* am (sin (* 2 tt))))) (comm