ソフトウェア/Mathematica のバックアップの現在との差分(No.15)

更新


  • 追加された行はこの色です。
  • 削除された行はこの色です。
[[公開メモ]]

* すぐ忘れてしまうので、よく使うコマンドを書いておく [#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
**UcdaATMBdafMPdO [#sa08974c]
>[dntyyfyz] (2012-07-18 (水) 02:15:16)~
~
yLwgh8 , [url=http://xznidheknqme.com/]xznidheknqme[/url], [link=http://xrfkxzaswste.com/]xrfkxzaswste[/link], http://gumnhevnrrhs.com/~

//

#comment_kcaptcha


Counter: 6902 (from 2010/06/03), today: 4, yesterday: 0