2010年6月19日 星期六

Re: [微積] mathmatica

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Math
標題: Re: [微積] mathmatica
時間: Wed Mar 18 15:17:34 2009

※ 引述《greg60711 (elephant)》之銘言:
: 我想要找一個方程的極值和圖
: ex f(x)= x*((1-p)^2)*(p^(x-1))
: p分別為 0.9 0.95 0.98 0.99
: 這樣要怎樣在一張圖上畫上四個數值帶入的圖形
: 然後我本來是自己在另外打四個畫
: 應該還有其他方法吧?
: 而且發現到 有一條因為Y軸的SCALE太小 沒法顯示到全部
: Y的SCALE要怎要改?

Show[Graphics[Plot[x*((1-#)^2)*(#^(x-1)),{x,0,100}]]&/@{0.9,0.95,0.98,0.99},
PlotRange->{All,All}]

: 再來找這個四個P分別帶入的maximum
: 我是用微分的方法找解 可是算出的解是 xcos#1 啥的
: 有辦法不要用三角函數表示嗎?
: 有辦法一次找四個的嗎?
: 有高人可以指點一下嗎

用你的範例

{#1[[1]],x/.#1[[2]]}&/@(FindMaximum[x*((1-#)^2)*(#^(x-1)),
{x,0}]&/@{0.9,0.95,0.98,0.99})

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

http://chungyuandye.blogspot.com

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

沒有留言:

張貼留言