2010年6月14日 星期一

Re: [問題] 有關軟體(mathmatica 或 matlab)

作者: chungyuandye (養花種魚數月亮賞星星) 站內: Statistics
標題: Re: [問題] 有關軟體(mathmatica 或 matlab)
時間: Fri Jul 17 02:51:02 2009

※ 引述《rainnight (rainnight)》之銘言:
: 困住很久的問題............
: 希望有瞭解的先進能不吝提供 建議
: 感謝
: 假設現在一條式子 obj = ax - by
: 目標是 Min 正值 obj 並求出 (x, y) 值為多少
: 其中 a 為 (1, 1.5, 2) 的實數
: b 為 (1, 1.25, 1.5, 1.75, 2) 的實數
: x變數範圍 1 <= x <= 2
: y變數範圍 1 <= y <= 3
: 希望能得到一個表 矩陣之類的答案 (不要 a 和 b 用一個一個代的方式) ,
: 能夠表示出 當 (a, b) = (1, 1) 時 最佳obj x y
: = (1, 1.2) 時 最佳obj x y
: = (1, 1.4) 時 最佳obj x y
: ... ...
: 這樣的方式顯示答案,
: 有點類似 雙回圈的感覺....,
: 希望能用 mathematica 或 matlab 來求,
: 請板上有概念的先進,不吝提供各項建議.......
: 當真感激不盡

TableForm[Flatten[Table[{a,b,#1,x/.#2,y/.#2}&@@FindMinimum[{a*x-b*y,
1<=x<=2,1<=y<=3},{x,y}],{a,{1,1.5,2}},{b,{1,1.25,1.5,1.75,2}}],1],
TableHeadings->{None,{"a","b","obj","x","y"}}]


我想應該很少人會利用Mathematica作以下這種事

TableForm[
Flatten[Table[{"當(a,b)=("<>ToString[a]<>","<>ToString[b]<>")時",
"最佳解obj="<>ToString[#1],
"x="<>ToString[x/.#2],
"y="<>ToString[y/.#2]}&@@FindMinimum[{a*x-b*y,
1<=x<=2,1<=y<=3},{x,y}],{a,{1,1.5,2}},{b,{1,
1.25,1.5,1.75,2}}],1]]

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

http://chungyuandye.blogspot.com

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.143.95
※ 編輯: chungyuandye 來自: 218.173.143.95 (07/17 02:51)

沒有留言:

張貼留言