cad怎么画二次抛物线

工具/原料

• cad
• autolisp

方式/步骤

1. 1

   (defun c:ecpwx()

     (setq i 0)

     (setq a 2.0)

     (setq b 3.0)

     (setq c 4.0)

     (setq x (* (/ b (* a 2.0)) -1.0))

     (setq y (+ (* a x x) (* b x) c))

     (setq pt0 (list x y))

     (while (< i 15)

         (setq x (+ x 0.5))

         (setq y (+ (* a x x) (* b x) c))

         (setq ptn (list x y))

         (setq i (1+ i))

         (command"pline" pt0 ptn"")

     )

     (princ)

   )

   假设二次抛物线函数为y=ax^2+bx+c，示例函数取值a=2,b=3,c=4，每一个点x增量为0.5，i值暗示轮回次数，i取值为小于15的0-14之间的次数，暗示辅助线总共画了15条，按照需要可自行更改，然后将函数加载到cad。

   
2. 2

   在cad号令窗口输入ecpwx快捷号令，将会画出右半边辅助线，如图所示。

   
3. 3

   然后再用镜像号令建造左半边辅助线，结果如图所示。

   
4. 4

   接下来把辅助线的端点依次用多段线毗连，而且删除辅助线，结果如图。

   
5. 5

   然后再用edit号令编纂多段线，号令行输入edit回车，选择多段线，输入f回车，即获得二次函数的抛物线cad图，如图所示。

   弥补申明：若是要求比力高，可将x增量调小一点将加倍精准。

   

注重事项

• 但愿对您有所帮忙，感谢采纳。