[討論] 求新手教學

我想畫出左邊 第2張圖 (F-x圖 剪力圖) 現在只做到一半可是都一直出現問題,這是我目前寫的程式碼,我想先把在L1前的水平線畫出來,
(defun c:yochen(/ W L2 L1 L R1 )
       (setq W (getreal "\n 負載值:"))
       (setq L2 (getreal "\n 負載離b點的距離:"))
       (setq L1 (getreal "\n 負載離a點的距離:"))
       (setq L (+ L1 L2))
       (setq R1 ( * ( / (* W (* L2 L2)) (* L (* L L))) (+ (* 3 L1) L2)))
       (setq il 0) (setq sum 0.1)
        (while (< il L1)
          (setq pt1 (list il -R1 ))
          (setq pt2 (list sum -R1))
          (command "line" pt1 pt2)
          (setq il (+ il 0.1))
          (setq sum (+ sum 0.1))
        )
       (prin1)
)
拜託了拜託了