cad怎么画二次抛物线

首先用lisp函数做辅助线,再将辅助线的端头用多段线链接,然后再编辑多段线,把多段线拟合操作,将得到完整的二次抛物线。

东西/原料

  • 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增量调小一点将加倍精准。

注重事项

  • 但愿对您有所帮忙,感谢采纳。
  • 发表于 2020-02-12 20:00
  • 阅读 ( 2600 )
  • 分类:其他类型

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
联系我们:uytrv@hotmail.com 问答工具