抛物线的画法

51082481

y＝x ^{1.8  如何画抛物线？、}

^{急求 大虾帮助}

kematy

用(expt  x   1.8)

xyp1964

抛物线标准方程：y = axx + bx + c
楼主的只能是半个“抛物线”

2. (load "xyp_lib.vlx") ;版本 V.20051230 (1873)
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
12. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
13. |;
14. ;;;抛物线 : y = (expt x 1.8)
15. (defun c:pwx (/ x y pt)
16.   (CMDLA0)
17.   (setvar"osmode"0)
18.   (setq no1 (ureal 7 "" "\nX区域" no1)
19. x 0.0
20.   )
21.   (mkla "抛物线" 3)
22.   (command "pline")
23.   (while (<= x (+ (abs no1) 0.1))
24.     (setq y  (expt x 1.8)
25.    pt (list x y)
26.     )
27.     (command pt)
28.     (setq x (+ x 0.1))
29.   )
30.   (command "")
31.   (CMDLA1)
32. )

(load "xyp_lib.vlx") ;版本 V.20051230 (1873) ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; ;;;抛物线 : y = (expt x 1.8) (defun c:pwx (/ x y pt)   (CMDLA0)   (setvar"osmode"0)   (setq no1 (ureal 7 "" "\nX区域" no1) x 0.0   )   (mkla "抛物线" 3)   (command "pline")   (while (<= x (+ (abs no1) 0.1))     (setq y  (expt x 1.8)    pt (list x y)     )     (command pt)     (setq x (+ x 0.1))   )   (command "")   (CMDLA1) )

51082481

非常感谢楼主的共享 我先试试 ！