Re: [問題] 雙變數極值問題
看板Mathematica作者chungyuandye (養花種魚數月亮賞星星)時間12年前 (2012/11/01 22:46)推噓0(0推 0噓 4→)留言4則, 1人參與討論串2/2 (看更多)
※ 引述《abbybao (小寶)》之銘言：
: 我想要找 3 x^3 + y^2 - 9 x + 4 y 的極小值 (Ans:(1,-2))
: 我輸入
: Minimize[{3 x^3 + y^2 - 9 x + 4 y}, {x, y}]
: 結果跑出
: {-\[Infinity], {x -> -\[Infinity], y -> 33/10}}
: 沒限制式她好像會找無窮大的範圍
: 不知道有沒有函數是可以解決這問題的
: 感恩:)
f[x_,y_]=3x^3+y^2-9x+4y;
(* 光從函數看就可以發現global minimum不存在 *)
Plot3D[f[x,y],{x,-100,100},{y,-100,100}]
(* 若存在臨界點，則臨界點圍區域極值的充分條件為18 x^3 + 2 y^2>0 *)
{x,y}.D[f[x,y],{{x,y},2}].{x,y}
Show[ContourPlot[f[x,y],{x,-20,20},{y,-100,100},
Contours->25,ContourLabels->True],
ContourPlot[18x^3+2y^2==0,{x,-20,20},{y,-100,100},
ContourStyle->{Red,Thickness[0.01]}]]
Minimize[{f[x,y],18x^3+2y^2>0},{x,y}]
(* 7.0 或 8.0 後才有的功能 *)
ArgMin[{f[x, y], 18 x^3 + 2 y^2 > 0}, {x, y}]
MinValue[{f[x, y], 18 x^3 + 2 y^2 > 0}, {x, y}]
Show[ContourPlot[f[x,y],{x,-20,20},{y,-100,100},
Contours->Flatten@{-10,Range[-100000,100000,1000]},
ContourLabels->True],
ContourPlot[18x^3+2y^2==0,{x,-20,20},{y,-100,100},
ContourStyle->{Red,Thickness[0.01]}]]
--
養花種魚數月亮賞星星
http://chungyuandye.twbbs.org
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.233.129.177
→
11/02 00:30, , 1F
11/02 00:30, 1F
→
11/02 00:30, , 2F
11/02 00:30, 2F
→
11/02 00:31, , 3F
11/02 00:31, 3F
→
11/02 00:31, , 4F
11/02 00:31, 4F
※ 編輯: chungyuandye 來自: 218.173.134.247 (11/02 10:21)
討論串 (同標題文章)
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
