[過去ﾛｸﾞ] 〓 Mathematica 七 〓 [転載禁止]©2ch.net (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

46(1): 2015/10/03(土) 12:09:38.46 ID:i3GiK4WT(1)調 AAS
>>44
ご回答有難う御座います。
＞PowerExpandを強行作用させる。
解りました。

>>41
やってみます。

---

47(1): 2015/10/03(土) 19:59:13.61 ID:1Xvcyzxf(1)調 AAS
>>46
言ってみたものの結構むずい、再帰終端があまいですが単純なサンプル例。

Unprotect[Power, Log];
Power[a_/;a=!=E, b_ /;b=!=-1]:=(b Log[a])//HoldForm[Power[E, #]] &
Log[Power[a_,-1]]:=-Log[a]
Protect[Power, Log];
組込関数をいじっているので、副作用に注意が必要です。

(*Test*)
(1/a)^(k/2) (* -> Exp[-1/2 k Log[a] *)
% - Exp[k/2 Log[1/a]](* -> 0 *)
Exp[-Log[a]] - Exp[Log[1/a]](* -> 0 *)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.028s