[請益] 關於化簡

看板Mathematica作者 (bonus)時間8年前 (2015/12/09 14:14), 8年前編輯推噓2(206)
留言8則, 5人參與, 最新討論串1/1
不好意思,最近嘗試要把所有用到的方程式打進電腦裡裡,方便管理也順便驗算, 但目前碰到一個很小的問題跨越不了 QQ 就是該如何化簡方程式。 舉例來說: Clear["Global`*"] d11 = (p11)^(-\[Sigma]) (P1)^(\[Sigma] - 1) Y1 d12 = (p12)^(-\[Sigma]) (P2)^(\[Sigma] - 1) Y2 p12 = (\[Tau])*(p11) d11 d12 h = ((\[Sigma] - 1)/\[Sigma]) (d11 + \[Tau] (d12)) Factor[h] Expand[h] ---------------------------------------------------- h 裡面會出現 (\[Tau])((\[Tau])p11)^(-\[Sigma]) 有沒有辦法使得 (\[Tau]) 項合併次方呢,就是(\[Tau])的次方變成(1-\[Sigma])? 試了一個小時突然覺得我自己合併次方再輸入好像快一點Q Q -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.109.122.248 ※ 文章網址: https://www.ptt.cc/bbs/Mathematica/M.1449641641.A.B11.html ※ 編輯: bonus1123 (140.109.122.248), 12/09/2015 14:15:03

12/09 15:38, , 1F
ExpandAll 再 Simplify 看看?
12/09 15:38, 1F

12/09 15:40, , 2F
回到原樣,大哭QQ
12/09 15:40, 2F

12/09 21:52, , 3F
ComplexExpand?
12/09 21:52, 3F

12/10 10:28, , 4F
謝謝樓上各位,我只是肖想漂亮的結果,可以省下人工
12/10 10:28, 4F

12/10 10:30, , 5F
化簡的時間拉QQ
12/10 10:30, 5F
※ 編輯: bonus1123 (140.109.122.248), 12/10/2015 10:30:19

12/11 03:26, , 6F
可以使用PowerExpand[h] ^_^
12/11 03:26, 6F

03/11 00:45, , 7F
Mathematica is being agnosgic about branch cuts
03/11 00:45, 7F

03/11 00:46, , 8F
If you are sure, "/. {(a_ b_)^c_ -> a^c b^c}" will do
03/11 00:46, 8F
文章代碼(AID): #1MPyQfiH (Mathematica)
文章代碼(AID): #1MPyQfiH (Mathematica)