Re: [問題] mathmatica問題

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] mathmatica問題
時間: Thu Nov 29 22:48:09 2012

※ 引述《abbybao (小寶)》之銘言：
: 1. http://ppt.cc/NGy7
: 想問一下我想要畫這函數但為什麼x<0的部分不會顯示呢?
: 我程式有寫錯嗎@@

n的m次方，若m為分數且n為負數時，Mathematica會設定為複數。
因為是複數，左半邊才會沒畫出來。

Power[-1, 1/3]
Power[1,1/3]

(* (-1)^(1/3)，複數 *)
Power[-1, 1/3] // N

ContourPlot[1-x^(2/3)==y,{x,-5,5},{y,-5,5}]

(* 方法1，自行做調整 *)
ContourPlot[(1-y)^3==x^2,{x,-5,5},{y,-5,5}]

(* 方法2，如果你根本不想要複數，就修改Power這個函數 *)
Unprotect[Power];
Power[x_?Negative,Rational[p_,q_?OddQ]]:=(-(-x)^(1/q))^p;
Protect[Power];

Power[-1, 1/3] // N
ContourPlot[1-x^(2/3)==y,{x,-5,5},{y,-5,5}]

: 2. mathmatica有可以找反函數的功能嗎?我打關鍵字inverse function
: 好像只能
: in: InverseFunction[f][x-7]
: out: f(-1)[x-7]
: 但我希望它是能顯示真值而不是以含數形式表示
: ex: f(x)=x-7 f(-1)(x)=x+7 <----希望顯示的值
: 不知道能不能做的到
: 拜託大家了,謝謝^^

f[x_] = x - 7;
InverseFunction[f][x]


--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org


--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.135.172
推 abbybao:感謝回應,不過有點疑問的地方,就是我算求雙曲線sinhx的  11/30 15:35
→ abbybao:的反函數時,差了一個正負號,不知道是甚麼原因?如圖  11/30 15:36
→ abbybao:http://tinyurl.com/cjepw9e  11/30 15:37
推 jurian0101:第九版多了一個Surd[R,n]函數，求實數n次方實根  11/30 18:04
→ abbybao:可惜還沒有第九版,過一陣子論壇應該就有破解板的了  12/02 12:39