各位帮忙看一下这段程序

north911

想模拟画平抛物线（方程：y=4kx(l-x)）k和l是常数。用的是最笨的方法，各位有什么好的方法，教一下小弟各位帮忙找下错误

2.   (DEFUN C:tempxlx ()
3.    (SETVAR "CMDECHO" 0)
4.    (SETQ OLDOS (GETVAR "OSMODE"))
5.    (SETVAR "OSMODE" 0)
6.    (SETQ  PTA       (GETPOINT "\nFirst Point : ")
7.   PTB       (GETPOINT PTA "\nSecond Point : ")
8.   VK         (GETDIST "\nParameter K = ")
9.   VD         (GETINT "\nDivide of the line : ")
10.   Dst       (DISTANCE PTA PTB)
11.   Ds         (/ Dst VD)
12.   Beta     (ANGLE PTA PTB)
13.   ;VL         (* Dst (cos Beta))
14.   PTAx     (car PTA)
15.   PTAy     (cadr PTB)
16.   PTBx     (CAR PTB)
17.   PTBy     (CADR PTB)
18.   VL         (- PTBx PTAx)
19.   PTCx     (- PTBx PTAx)
20.   PTCy     (- PTBy PTAy)
21.   DX         (/ (- PTBx PTAx) VD)
22.   Alpha   (angle '(0 0) (list PTCx PTCy))
23.   TMPDST (SQRT (+ (* PTCx PTCx) (* PTCy PTCy)))
24.   Dstx     DX
25.    )
26.    (SETQ PT1 '(0 0))
27.    (COMMAND "SPLINE" PTA)
28.    (REPEAT VD
29.        (SETQ PT1 (polar PT1 Beta Ds))
30.        (SETQ fx (* 4 VK Dstx (- VL Dstx)))
31.        (setq pt2 (polar pt1 (* pi 1.5) fx))
32.        (setq realpt (polar pt2 Alpha TEPDST))
33.        (setq Dstx (+ Dstx DX))
34.        (COMMAND realpt)
35.    )
36.    (COMMAND "" "" "")
37.    (SETVAR "OSMODE" OLDOS)
38.    (SETVAR "CMDECHO" 1)
39.    (PRINC)
40. )

  (DEFUN C:tempxlx ()    (SETVAR "CMDECHO" 0)    (SETQ OLDOS (GETVAR "OSMODE"))    (SETVAR "OSMODE" 0)    (SETQ  PTA       (GETPOINT "\nFirst Point : ")   PTB       (GETPOINT PTA "\nSecond Point : ")   VK         (GETDIST "\nParameter K = ")   VD         (GETINT "\nDivide of the line : ")   Dst       (DISTANCE PTA PTB)   Ds         (/ Dst VD)   Beta     (ANGLE PTA PTB)   ;VL         (* Dst (cos Beta))   PTAx     (car PTA)   PTAy     (cadr PTB)   PTBx     (CAR PTB)   PTBy     (CADR PTB)   VL         (- PTBx PTAx)   PTCx     (- PTBx PTAx)   PTCy     (- PTBy PTAy)   DX         (/ (- PTBx PTAx) VD)   Alpha   (angle '(0 0) (list PTCx PTCy))   TMPDST (SQRT (+ (* PTCx PTCx) (* PTCy PTCy)))   Dstx     DX    )    (SETQ PT1 '(0 0))    (COMMAND "SPLINE" PTA)    (REPEAT VD        (SETQ PT1 (polar PT1 Beta Ds))        (SETQ fx (* 4 VK Dstx (- VL Dstx)))        (setq pt2 (polar pt1 (* pi 1.5) fx))        (setq realpt (polar pt2 Alpha TEPDST))        (setq Dstx (+ Dstx DX))        (COMMAND realpt)    )    (COMMAND "" "" "")    (SETVAR "OSMODE" OLDOS)    (SETVAR "CMDECHO" 1)    (PRINC) )

meflying

(setq realpt (polar pt2 Alpha TEPDST))


拼写错误，自己看看吧

north911

请问怎么往这里面贴图啊？

meflying

上传图片文件就可以了