创建特殊求和与积分的列表

创建多变量求和的列表.

显示完整的 Wolfram 语言输入

In[1]:=

multisums = Inactivate[{\!\(
\*UnderoverscriptBox[\(\[Sum]\), \(m = 2\), \(\[Infinity]\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(n = 1\), \(\[Infinity]\)]
\*FractionBox[\(1\), 
SuperscriptBox[\((2\ n)\), \(m\)]]\)\), \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(m = 1\), \(\[Infinity]\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(n = 1\), \(\[Infinity]\)]
\*FractionBox[\(1\), 
SuperscriptBox[\((4\ n - 1)\), \(2\ m\)]]\)\), \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(\[Infinity]\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(j = 1\), \(\[Infinity]\)]
\*FractionBox[\(Zeta[i + j]\), 
SuperscriptBox[\(2\), \(i + j\)]]\)\),  \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(\[Infinity]\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(j = 1\), \(\[Infinity]\)]
\*FractionBox[\(1\), \(\((i + j)\)!\)]\)\), \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(\[Infinity]\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(j = 1\), \(\[Infinity]\)]
\*FractionBox[\(1\), \(Max[i, j]!\)]\)\), \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(\[Infinity]\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(j = 1\), \(\[Infinity]\)]
\*FractionBox[\(1\), 
SuperscriptBox[\(Max[i, j]\), \(3\)]]\)\), \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(\[Infinity]\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(j = 1\), \(\[Infinity]\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(k = 1\), \(\[Infinity]\)]
\*FractionBox[\(1\), 
SuperscriptBox[\((i\ j + j\ k)\), \(s\)]]\)\)\), \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(m = 1\), \(\[Infinity]\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(n = 1\), \(\[Infinity]\)]
\*FractionBox[\(Zeta[m + 2\ n]\), 
SuperscriptBox[\(4\), \(
\*FractionBox[\(m\), \(2\)] + n\)]]\)\), \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 0\), \(\[Infinity]\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(j = 0\), \(\[Infinity]\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(k = 1\), \(\[Infinity]\)]
\*FractionBox[\(1\), 
SuperscriptBox[\((i + 2\ j + k)\), \(4\)]]\)\)\)}, Sum]; 
FormulaGallery[forms_List] := 
 Module[{vals = ParallelMap[Activate, forms]}, 
  Column[Table[
    Style[forms[[r]] == vals[[r]], ScriptLevel -> 0], {r, 
     Length[forms]}], Dividers -> All, Alignment -> "\[LongEqual]", 
   Background -> LightPurple, Spacings -> 1]]; 
FormulaGallery[multisums] // TraditionalForm

Out[1]//TraditionalForm=

创建定积分的列表.

显示完整的 Wolfram 语言输入

Out[2]//TraditionalForm=

Wolfram Mathematica

创建特殊求和与积分的列表

Mathematica

Wolfram Mathematica

创建特殊求和与积分的列表

Related Examples

Mathematica