有多个周期的函数 

有多个变量的函数可以有多个周期.

In[1]:=

X FunctionPeriod[Sin[x] Sin[y], {x, y}]

Out[1]=

镶嵌矩形将平面分割成相同函数的区域.

显示完整的 Wolfram 语言输入隐藏输入

In[2]:=

X Plot3D[Sin[x] Sin[y], {x, 0, 4 Pi}, {y, 0, 4 Pi}, MeshFunctions -> {#1 & , #2 & }, Mesh -> {{0, 2 Pi, 4 Pi}}, PlotTheme -> "HeightGrid", Lighting -> "Neutral", MeshShading -> Map[Directive[Specularity[.5], Darker[#]] &, {{Red, Green}, {Blue, Yellow}}, {2}], ImageSize -> Medium, ViewPoint -> {5/4, -3/2, 3}]

Out[2]=

单个复变量函数可以在两个周期，它们在两个不同的复方向上.

In[3]:=

X periods = FunctionPeriod[JacobiSD[z, 1 + I], z, Complexes]

Out[3]=

In[4]:=

X periods // N

Out[4]=

对输入变量加入其中一个周期将不会改变函数.

In[5]:=

X {JacobiSD[1., 1 + I], JacobiSD[1. + periods[[1]], 1 + I], JacobiSD[1. + periods[[2]], 1 + I]}

Out[5]=

但是，在这个范例中两个复方向不垂直.

In[6]:=

X VectorAngle @@ ({Re[#], Im[#]} & /@ periods) // N

Out[6]=

这意味着在复平面中的重复块不是长方形而是平行四边形.

显示完整的 Wolfram 语言输入隐藏输入

In[7]:=

X GraphicsRow[ Function[f, Plot3D[f, {x, 0, 15}, {y, 0, 17}, ImageSize -> Medium, PlotPoints -> 50, PlotRange -> {-4, 4}, PlotTheme -> "Business", MeshFunctions -> {0.18125 #1 - 0.0376687 #2 &, -0.0797226 #1 + 0.192467 #2 &}, Mesh -> {{0, 1, 2}}, MeshShading -> Map[Directive[Specularity[.5], Darker[#]] &, {{Red, Green}, {Blue, Yellow}}, {2}], PlotLabel -> Style[f, Black, Larger], ViewPoint -> {5/4, -3/2, 3}]] /@ {Re@JacobiSD[x + I y, 1 + I], Im@JacobiSD[x + I y, 1 + I]}, ImageSize -> Large]

Out[7]=