cad lisp 二次拋物線 cad畫二次拋物線

cad

畫二次拋物線如：

y=ax

+bx+c

第一步：

確認cad

中有vba module

第二步：

開啟cad

alt+f11

開啟vba

視窗，新增模組，複製以下：

sub pwx()

定義幾個點

dim pnto(2) as double

dim pnta(2) as double

dim pntb(2) as double

dim pntc(2) as double

dim pntd(2) as double

dim pnte(2) as double

設拋物線方程為

:y=ax²

+bx+c

dim a as double

dim b as double

dim c as double

設拋物線的寬度為

ldim l as double

dim p as double

dim co as acad3dsolid

dim se asacadregion

dim pa as acad3dface

dim pntasacadpoint

dim sp() as acadobject

a = inputbox("

請輸入y=a*x*x+b*x+c

中對應的

a:", "

拋物線方程引數

if a = 0 then msgbox "a=0,

不是拋物線

": end

b = inputbox("

請輸入y=a*x*x+b*x+c

中對應的

b:", "

拋物線方程引數

c = inputbox("

請輸入y=a*x*x+b*x+c

中對應的

c:", "

拋物線方程引數

l = inputbox("

請輸入所要畫的拋物線寬度

l:", "

拋物線寬度

l = l / 2

計算x²

=2py中的p

p = 1 / abs(a)定義o

點pnto(0) = 0

cad lisp 二次拋物線 用Cad畫二次拋物線

cad 畫二次拋物線如 y ax2 bx c 第一步確認 cad中有 vbamodule 即cad 中 工具 巨集 visual basic 編輯器 點thisdrawing 第二步開啟 cad alt f11 開啟vba 視窗新增模組 複製以下 sub pwx 定義幾個點 dim pnto 2 a...

cad拋物線曲線lisp CAD能畫拋物線嗎？

方法一 1.在excel生成座標x,y列 x為分段值控制曲線精度，y為公式計算的對應值 2.假定excel中x數值在a列，y數值在b列，生成acad的pline繪圖資料，方法如下 1 在新的列單元 如c列 輸入公式 an bn n為資料的行號 按次辦法將an及bn單元格中的資料在cn單元格中形成 x...

python中利用最小二乘擬合二次拋物線函式

import numpy as np import matplotlib.pyplot as plt from scipy.optimize import leastsq 待擬合的資料 x np.array 1,2,3,4,5,6 y np.array 9.1,18.3,32,47,69.5,94....