2010年6月20日 星期日

(shihori) Re: [其他]mathematica計算問題

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [其他]mathematica計算問題
時間: Sun Jun 20 23:31:22 2010

※ 引述《shihori (^^)》之銘言:
: 1.題目:Find the minimum of the function
: f(x ; y ; z) = 2xy + 6yz + 8xz
: subject to the constraint xyz = 12000.
: 敘述:我是這樣寫的
: In[58]:=
: Minimize[{2*x*y+6*y*z+8*x*z,x*y*z==12000},{x,y,z}]
: 不知哪邊錯了,謝謝指教
: ans: 7200
: 2. http://img695.imageshack.us/f/99931735.jpg/
: 有什麼指令可以快速求出這題的極值呢?我跑出來答案怪怪的

Minimize[{2*x*y+6*y*z+8*x*z,x*y*z==12000,x>0,y>0,z>0},{x,y,z}]
L[x_,y_,z_,lambda_]:=2*x*y+6*y*z+8*x*z+lambda(x*y*z-12000)
con=D[L[x,y,z,lambda],{{x,y,z,lambda}}];
sol=Solve[con=={0,0,0,0},{x,y,z,lambda}];
L[x,y,z,lambda]/.sol

f[x_,y_]:=x^2-4*x*y+y^3+4*y
ans=Solve[D[f[x,y],{{x,y}}]=={0,0},{x,y}]
Det[D[f[x,y],{{x,y},2}][[Range[#],Range[#]]]]&/@{1,2}/.ans

--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚

http://chungyuandye.twbbs.org

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.47.251.172

沒有留言:

張貼留言