Wolfram
Mathematica
8의 신기능: 새롭게 향상된 핵심 알고리즘
◄
이전
|
다음
►
핵심 알고리즘
조건식 표현
Mathematica
함수로 조건식을 입력 및 출력 할 수 있습니다.
In[1]:=
X
inputs = {HoldForm[Solve[x^2 + a x + b == 0, x, Reals]], HoldForm[\!\( \*SubsuperscriptBox[\(\[Integral]\), \(0\), \(1\)]\(Exp[ \*SuperscriptBox[\(x\), \(a\)]] \[DifferentialD]x\)\)], HoldForm[ LaplaceTransform[E^(-a t^2), t, s, GenerateConditions -> True]], HoldForm[Sum[1/n^a, {n, \[Infinity]}, GenerateConditions -> True]], HoldForm[FourierSeries[a^x, x, 1, GenerateConditions -> True]], HoldForm[ InverseFunction[ ConditionalExpression[Sin[#1^2 - 1/2], 0 < #1 < 1] &]], HoldForm[Refine[ConditionalExpression[Sqrt[(x - y)^2], x < y]]]}; FormulaGallery[forms_List] := Module[{vals = ParallelMap[ReleaseHold, forms]}, TraditionalForm@ Grid[Table[{forms[[i]], vals[[i]]}, {i, Length[forms]}], Dividers -> All, Spacings -> {{1, 1}, 5}, Alignment -> {{Left, Left}, Baseline}, BaseStyle -> {FontFamily -> "Verdana"}, Background -> {None, {{Lighter[Blend[{Blue, Green}], .8], White}}}]]; Pane[FormulaGallery[inputs], 550]
Out[1]=
