• <noscript id="ecgc0"><kbd id="ecgc0"></kbd></noscript>
    <menu id="ecgc0"></menu>
  • <tt id="ecgc0"></tt>

    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
    • 閱讀 ( 2602 )
    • 分類:其他類型

    你可能感興趣的文章

    相關問題

    0 條評論

    請先 登錄 后評論
    聯系我們:uytrv@hotmail.com 問答工具
  • <noscript id="ecgc0"><kbd id="ecgc0"></kbd></noscript>
    <menu id="ecgc0"></menu>
  • <tt id="ecgc0"></tt>
    久久久久精品国产麻豆