〓 Mathematica 七 〓at MATH〓 Mathematica 七 〓 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト50:１３２人目の素数さん 15/10/03 19:59:13.61 1Xvcyzxf.net >>48 言ってみたものの結構むずい、再帰終端があまいですが単純なサンプル例。 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 *) 51:１３２人目の素数さん 15/10/04 21:14:20.33 VsqVNwlb.net >>49 ご回答有難う御座います。 自分でやって、直ぐに諦めました。 ご回答を見て、「やっぱ難しい。」ことが確認出来ました。 副作用に注意の上、応用して、使用させて頂きます。 助かりました。 52:１３２人目の素数さん 15/10/04 22:27:45.86 i+FfBeQa.net -1=(√(-1))^2=√((-1)^2)=1みたいな計算をするってオチが待ってるような 53:１３２人目の素数さん 15/10/07 05:00:12.36 CGHSLu1P.net マセマティカのグラフィック最初に見た時衝撃的だったなー。 コンピューターとか数学の真の姿を見た気分だったw。当時は。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch