求助画抛物线

goople

公式为x(374-x)/3074

谢谢。

循环不会呀。

goople

可用直线画近视的，间隔1单位。

谢谢啦

ZZXXQQ

2. ;MJTD ZZXXQQ 2007.7.6
3. (DEFUN C:PARABOLA ()
4. (SETVAR "CMDECHO" 0)
5. (SETQ OLDOS (GETVAR "OSMODE"))
6. (SETVAR "OSMODE" 0)
7. (SETQ BX (GETREAL "\n输入X起始值 Start X= ")
8.       EX (GETREAL "\n输入X终点值 End   X= ")
9.       STP (GETREAL "\n输入曲线生成步长 S= <0.5>")
10.       STP (IF STP STP 0.5)
11.       PT (GETPOINT "\n输入曲线插入点 <0,0>: ")
12.       PT (IF PT PT (LIST 0 0))
13.       XS (MIN EX BX)
14.       XE (MAX EX BX)
15.       DY (/ (* (- 374 XS) XS) 3074)
16.       X0 (CAR PT) Y0 (CADR PT))
17. (COMMAND "SPLINE" (LIST (+ X0 XS) (+ Y0 DY)))
18. (SETQ XS (+ XS STP))
19. (WHILE (< XS XE)
20. (SETQ DY (/ (* (- 374 XS) XS) 3074))
21. (COMMAND (LIST (+ X0 XS) (+ Y0 DY)))
22. (SETQ XS (+ XS STP))
23. )
24. (SETQ DY (/ (* (- 374 XE) XE) 3074))
25. (COMMAND (LIST (+ X0 XE) (+ Y0 DY)) "" "" "")
26. (SETVAR "OSMODE" OLDOS)
27. (SETVAR "CMDECHO" 1)
28. (PRINC)
29. )

复制代码

goople

谢谢。。