A. vb 辛普森法求積分 我要具體能運行的代碼
Private Sub Command1_Click()
Dim 下限 As Single, 上限 As Single, 允許誤差 As Single, 實際誤差 As Single, 分條 As Integer
下限 = Val(InputBox("請輸入積分下限"))
上限 = Val(InputBox("請輸入積分上限"))
If 下限 > 上限 Then
MsgBox "下限高於上限。懷疑輸入手誤。程序自動交換"
t = 下限
下限 = 上限
上限 = t
End If
允許誤差 = Val(InputBox("請輸入允許誤差"))
Print "積分下限："; 下限
Print "積分上限："; 上限
Print "允許誤差為："; 允許誤差
Print "積分結果為："; 積分(下限, 上限, 允許誤差, 實際誤差, 分條)
Print "劃分梯形個數："; 分條
Print "截斷誤差為："; 實際誤差
End Sub
Private Function 積分(下限 As Single, 上限 As Single, 誤差要求 As Single, 誤差 As Single, 塊數 As Integer)
Dim p As Single
塊數 = 2
積分值 = 0
步長 = (上限 - 下限) / 塊數
p = 函數(下限) + 函數(上限)
d = 函數(下限 + 步長)
Do
s = (p + 4 * d) * 步長 / 3
誤差 = Abs(s - 積分值)
If 誤差 <= 誤差要求 And 塊數 > 100 Then Exit Do
塊數 = 塊數 * 2
步長 = (上限 - 下限) / 塊數
積分值 = s
p = p + 2 * d
d = 0
For i = 1 To 塊數 - 1 Step 2
d = d + 函數(下限 + i * 步長)
Next i
Loop
積分 = s
End Function
Private Function 函數(自變數 As Single) '這個函數的內容是要你自己修改的
函數 = 自變數 * 自變數
End Function
B. 在MATLAB用辛普森法則計算x^2+3x在區間[1,2]上面的積分值
用辛普森法則計算，可以得到 x≈ 6.8333。實現代碼
function simpson_main()
clc,close all
f=inline('x.^2+3*x','x');
simpson(1,2,10,f)
辛普森公式代碼內容：
h = (b - a) / n;
x = linspace(a,b,2*n+1);
y1 = feval(f,x);
y1(2:2:2*n) = 4 * y1(2:2:2*n);
y1(3:2:2*n-1) = 2 * y1(3:2:2*n-1);
y = h / 6 * sum(y1);
C. matlab中如何用復合辛普森公式求二重積分
代碼如下：
function q=DblSimpson(f,a,A,b,B,m,n)
if(m==1 && n==1) %辛普森公式
q=((B-b)*(A-a)/9)*(subs(sym(f),findsym(sym(f)),{a,b})+...
subs(sym(f),findsym(sym(f)),{a,B})+...
subs(sym(f),findsym(sym(f)),{A,b})+...
subs(sym(f),findsym(sym(f)),{A,B})+...
4*subs(sym(f),findsym(sym(f)),{(A-a)/2,b})+...
4*subs(sym(f),findsym(sym(f)),{(A-a)/2,B})+...
4*subs(sym(f),findsym(sym(f)),{a,(B-b)/2})+...
4*subs(sym(f),findsym(sym(f)),{A,(B-b)/2})+...
16*subs(sym(f),findsym(sym(f)),{(A-a)/2,(B-b)/2}));
else %復合辛普森公式
q=0;
for i=0:n-1
for j=0:m-1
x=a+2*i*(A-a)/2/n;
y=b+2*j*(B-b)/2/m;
x1=a+(2*i+1)*(A-a)/2/n;
y1=b+(2*j+1)*(B-b)/2/m;
x2=a+2*(i+1)*(A-a)/2/n;
y2=b+2*(j+1)*(B-b)/2/m;
q=q+subs(sym(f),findsym(sym(f)),{x,y})+...
subs(sym(f),findsym(sym(f)),{x,y2})+...
subs(sym(f),findsym(sym(f)),{x2,y})+...
subs(sym(f),findsym(sym(f)),{x2,y2})+...
4*subs(sym(f),findsym(sym(f)),{x,y1})+...
4*subs(sym(f),findsym(sym(f)),{x2,y1})+...
4*subs(sym(f),findsym(sym(f)),{x1,y})+...
4*subs(sym(f),findsym(sym(f)),{x1,y2})+...
16*subs(sym(f),findsym(sym(f)),{x1,y1});
end
end
end
q=((B-b)*(A-a)/36/m/n)*q;
叫我雷鋒！
D. 鮑勃·辛普森的公司職位
XTOEnergy Inc.
總部地點：美國
上市地點：紐約證交所股票代碼：XTO美國克洛斯提柏石油公司(XTOEnergy)
克洛斯提柏石油公司（XTOEnergyInc.，NYSE:XTO）是
美國財富500強能源生產企業，公司成立於1986年。
洛斯提柏石油公司參與石油和氣體物產的收購、發展、開發和勘探及石油和天然氣的生產，處理，行銷和運輸。公司增長主要通過被證明的石油和天然氣儲備的收購，及發展和開發活動和戰略收購額外的已獲得物產臨近的權益。美國克洛斯提柏石油公司並沒有真正發現新的石油和天然氣資源。相反，這家位於沃思堡的公司在首席執行官鮑勃·辛普森的領導下，通過所謂的「野貓勘探」（wildcatexploitation）實現了繁榮發展。公司的產量已經連續13年實現增長。
自1993年以每股13美元的價格公開上市後，公司的股價已經拆分了7次，目前已經漲到每股51.38美元。2006年，公司的營業額和凈收入分別比2005年增長了30%和61%。目前，這股增長勢頭還未顯露出任何終止的跡象。XTO已探明的資源儲量主要集中在得克薩斯、新墨西哥、阿肯色以及鄰近各州，這些儲量已經達到有史以來的最高值，而且全部做好了開采准備。
收購
XTOEnergy同意以41.9億美元的價格收購HuntPetroleum
2008年6月10日天然氣生產商XTOEnergyInc.(XTO)已同意以41.9億美元現金加股票的價格收購私人持股的HuntPetroleum。該交易或將幫助平息Hunt家族內部的矛盾。
董事長兼首席執行長BobR·impson稱收購的資產將對該公司業務構成天然的補充，這是決定公司未來和為股東創造價值的關鍵時刻。
