Activate
Activate
例題
すべて開く すべて閉じる例 (2)
Inactiveな式をアクティブにする：
Activate[Inactive[Length][{a, b, c}]]expr = Inactivate[2 + 2 + 3 ^ 2]Activate[expr, Plus]Activate[expr, Power]Activate[expr]スコープ (7)
expr = Inactive[Sin][π / 2]Activateを使って式を評価する：
Activate[expr]Inactivateを使って非アクティブな式を作る：
expr = Inactivate[Sin[Pi / 2], Sin]Activate[expr]Inactivate[f[g[h[x]], y, g[z]], g]Activate[%]Inactivate[f[g[h[x]], y, g[z]], g | h]Activate[%, h]expr = Inactive[Cos][π] + Inactive[Integrate][x, x];Activate[expr]Integrate以外のすべての記号をアクティブにする：
Activate[expr, Except[Integrate]]Activate[expr, Except[_ ? (MemberQ[Attributes[#], NumericFunction]&)]]Inactive[LaplaceTransform][a t ^ 2, t, s]D[%, s]Activate[%]D[LaplaceTransform[a t ^ 2, t, s], s]D[Inactive[LaplaceTransform][a t ^ 2, t, s], t]D[Inactive[LaplaceTransform][a t ^ 2, t, s], a]expr = Inactivate[Hypergeometric2F1[3, 1, 2, x], Hypergeometric2F1]Activate[expr]Hypergeometric2F1[3, 1, 2, x]オプション (1)
Heads (1)
非アクティブなDerivative式：
inactive = Inactivate[Derivative[1][Cos][x]]Activate[inactive]オプション設定Heads->Falseを使ってDerivativeをアクティブにすることを避ける：
Activate[inactive, Heads -> False]アプリケーション (5)
expr = Inactivate[Sin[π / 3] + Cos[π / 3] + Tan[π / 3], Sin | Cos]Activate[expr, Sin]Activate[expr, Cos]Activate[expr]
inactive = Inactivate[D[Integrate[(t + x) ^ 2, {t, 0, x}], x], D | Integrate]Activate[inactive, D]di = Activate[%]Activate[inactive, Integrate]id = Activate[%]Simplify[di - id]V[x_, y_, z_] = Inactivate[Integrate[f[z + I x Cos[u] + I y Sin[u], u], {u, -Pi, Pi}],
Integrate]f[a_, b_] := 3a ^ 5 + 7b ^ 4V[x, y, z]sol = Activate[%]//SimplifyRow[Table[Plot3D[sol /. {z -> j}, {x, -3, 3}, {y, -3, 3}, Ticks -> {Automatic, Automatic, None}], {j, -2, 2}]]Laplacian[sol, {x, y, z}]//Simplifysumparts = Inactivate[Sum[f[k]g[k], k] == g[k]Sum[f[k], k] -
Sum[DifferenceDelta[g[k], k]DiscreteShift[Sum[f[k], k], k], k],
Sum | DifferenceDelta | DiscreteShift]f[k_] := kg[k_] := HarmonicNumber[k]Activate[sumparts]Inactive[Sum][k HarmonicNumber[k], k] == Sum[k HarmonicNumber[k], k]divcurl = Inactivate[Div[Curl[{f[x, y, z], g[x, y, z], h[x, y, z]}, {x, y, z}],
{x, y, z}], Div | Curl]Curlをアクティブにしてもあまり面白くない：
Activate[divcurl, Curl]Divをアクティブにすると，![TemplateBox[{{(, TemplateBox[{v, }, Curl], )}, }, Div]=0](Files/Activate.ja/1.png "TemplateBox[{{(, TemplateBox[{v, }, Curl], )}, }, Div]=0"){kind=small}
の関係が示される：
Activate[divcurl, Div]特性と関係 (4)
Inactiveの式はActivateを使って評価することができる：
f[x_] := x ^ 2expr = Inactive[f][3]Activate[expr]ActivateはInactivateの逆関数である：
Inactivate[f[x], f]Activate[%]Activateは式中の非アクティブなすべての記号を置換する：
Inactivate[f[x] + g[x] + h[x], f | g]Activate[%]Activateは非アクティブな式を評価し，また式の一部が非アクティブのままであることを許容する：
isin = Inactivate[Sin[ArcTan[1]]]Activate[isin, Sin]Activate[%]ReleaseHoldは未評価でホールドされた式を評価し，すべての部分が評価される：
esin = Hold[Sin[ArcTan[1]]]ReleaseHold[%]おもしろい例題 (1)
infiniteproducts = Inactivate[{Underoverscript[∏, k = 1, n]((k + 1)^3 (k + 5)/k^2), Underoverscript[∏, k = 0, n]k!, Underoverscript[∏, k = 1, ∞](1 + (1/k^2)), Underoverscript[∏, k, ∞](1 - (4/3) Sin[(x/3^k)]^2), Underoverscript[∏, k, ∞](1 + (1/Prime[k]^s)), Underoverscript[∏, k = 1, n]((k + 3/k + 1))^k, Underoverscript[∏, k = 1, n](Sin[3 k + 5]/Cos[3 k + 1])}, Product];FormulaGallery[forms_List] := Grid[ParallelMap[{# == Simplify@Activate[#]}&, forms], Dividers -> All, Alignment -> {"=", Baseline}, Background -> {{}, {{LightDarkSwitched[RGBColor[0.87, 0.94, 1]], None}}}, Spacings -> {4, 1}];FormulaGallery[infiniteproducts]//TraditionalForm
Wolfram Research (2014), Activate, Wolfram言語関数， https://reference.wolfram.com/language/ref/Activate.html.
テキスト
Wolfram Research (2014), Activate, Wolfram言語関数， https://reference.wolfram.com/language/ref/Activate.html.
CMS
Wolfram Language. 2014. "Activate." Wolfram Language & System Documentation Center. Wolfram Research. https://reference.wolfram.com/language/ref/Activate.html.
APA
Wolfram Language. (2014). Activate. Wolfram Language & System Documentation Center. Retrieved from https://reference.wolfram.com/language/ref/Activate.html