[LISP函数]：请高手帮助指正一下问题在哪？

dzc1559

(defun c:ss( / Amin Amax Aset A B n x y)
(setq Amin -270.0
      Amax 180.0
      Aset 10
      A 5.0
      B 6
)
;;函数y = A sinx°+ B
;;定义域-270°～+180°
;;步长等于10°，决定点的密集程度
;;x=n/180*π


(Pxy A B Amin Amax )
(command "color" 1)
(setq n Amin)
(while (<= n Amax)
(setq x (* (/ n 180.0) pi)
       y (+ (* A (sin x)) B)
       n (+ n Aset)
       v (+ x (* (/ Aset  180.0) pi))
       w (+ (* A (sin (+ x Aset)) B))
  (command "pline" (list x y)(list v w) "")
  )

)

;;绘制坐标轴
(defun Pxy(a b c d / x1 x2 y1 y2 p1 p2 Lext)
(command "color" 4)
  (setq Lext 1.5
        y1 (+ (+ a b) Lext)
        y2 (- (- b a) Lext)
        x1 (- (* (/ c 180.0) pi) Lext)
        x2 (+ (* (/ d 180.0) pi) Lext)
        p1 (list (- x1 lext)(- y2 lext))
        p2 (list (+ x2 lext)(+ y1 lext))
  )
  
  (command "line" (list 0 y1) (list 0 y2) "")
  (command "line" (list x1 b) (list x2 b) "")
  (command "zoom" "w" p1 p2 "regenall")

)


请查看一下上述绘制Y=5sinX°+6这一函数的多段线图象的程序，问题在哪里？