ソフトウェア/Mathematica のバックアップ差分(No.20)
更新- バックアップ一覧
- 現在との差分 を表示
- ソース を表示
- バックアップ を表示
- ソフトウェア/Mathematica へ行く。
- 追加された行はこの色です。
- 削除された行はこの色です。
[[公開メモ]] * すぐ忘れてしまうので、よく使うコマンドを書いておく [#a92357b3] ** n が整数であることや、偶数であることを仮定して変形 [#dcadc045] % // FullSimplify[#, n \[Element] Integers] & % // FullSimplify[#, Mod[n,2]==0] & - ~# と & で純関数を作っている ** y を x+1 や x-1 に置き換えて展開 [#de166b45] % /. y -> {x+1, x-1} // Expand ** 複素積分 [#dffffa86] Curve[t] に沿って F[z] を t = 0 から 1 まで積分: Assuming[z = Curve[t], Integrate[F[z] D[z, t], {t, 0, 1}]] ** 数列リストを作成 [#vdeebd46] 1から10まで Array[ F[#] &, 10 ] ** リストに関数を適用 [#sa0aeac5] Array で作った数列の各要素に Expand を適用 Map[ Expand, Array[ (x+y)^# &, 10 ] ] ** x に関する整式として式を整理 [#p2b34c9f] Collect[ expr, {x}] ** 不必要な ConditionalExpression を消す [#y15a7883] ConditionalExpression[2, C[1] \[Element] Integers] // Normal Normal を通せばいい ** 式を強制的に評価する [#s0ca500c] f = x^2 + y^2 + z^2 == 1 ContourPlot3D[Evaluate[f], {x, 0, 1}, {y, 0, 1}, {z, 0, 1}] ** 変数の値を指定して評価 [#r2d0e46c] With[{x=1}, expression] * コメント [#ca7e4a15] #article_kcaptcha
Counter: 8295 (from 2010/06/03),
today: 1,
yesterday: 1