cad
畫二次拋物線如
y=ax2+bx+c
第一步確認
cad中有
vbamodule
即cad
中「工具」
「巨集」visual
basic
編輯器」
，點thisdrawing
第二步開啟
cadalt+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
pnto(1) = 0
pnto(2) = 0定義a
點pnta(0) = 0
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 a...
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....
as3繪製拋物線 二
二次貝塞爾曲線演示動畫 t in 0,1 於wiki貝塞爾曲線 下面的例子，根據滑鼠的位置，繪製經過指定起始點 結束點和滑鼠位置的曲線。code package 2 23 24 private function initview void 25 30 31 private function onen...