Mathematica 9 の探索: ComplexMap : w = tan(z)

目次へ

前回で説明した複素関数をプロットするパッケージ ComplexMap.m を使う例を示す。

関数の定義に Function を使用している。
変数を変化させてグラフを表示できるようにグラフィックを動的に表示する Manipulate 関数を使っている。
ノートブックとパッケージ ComplexMap.m が同じディレクトリにあるものとする。

複素関数 ${w = \tan z}$ のプロット

CartesianMap

mapfRow4[w_, r_] := 
 GraphicsRow[{CartesianMap[ Identity, 
    {Re[w] - r, Re[w] + r}, {Im[w] - r, Im[w] + r}, 
    PlotRange -> 5, Frame -> True, 
    FrameLabel -> Evaluate[Style[#, 13] & /@ {"x", "y"}]], 
   CartesianMap[ 
    Function[z, Tan[z]], {Re[w] - r, Re[w] + r}, {Im[w] - r, Im[w] + r},
    PlotRange -> 5, PlotRangeClipping -> True, 
    FrameLabel -> Evaluate[Style[#, 13] & /@ {"u", "v"}], 
    Frame -> True]},
  PlotLabel -> Style["w = tan z", 18, Italic], ImageSize -> 400]
Manipulate[mapfRow4[x + I y, a],
 {{x, 0}, -Pi/4, Pi/4, Appearance -> "Labeled"},
 {{y, 0}, -Pi, Pi, Appearance -> "Labeled"}, {{a, 1.5}, 0.1, 2, 
  Appearance -> "Labeled"}]

スライダーを動かしてみるには次をクリックする。 CartesianMap : w = tan(z)

PolarMap

mapfPolarRow4[w_, a_] := 
 GraphicsRow[{PolarMap[ Function[z, z + w], {0, a}, {0, 2 Pi} , 
    PlotRange -> 5, Frame -> True, 
    FrameLabel -> Evaluate[Style[#, 13] & /@ {"x", "y"}]],
   PolarMap[ Function[z, Tan[z + w]], {0, a}, {0, 2 Pi}, 
    PlotRange -> 5, PlotRangeClipping -> True,
    Mesh -> False, Frame -> True, 
    FrameLabel -> Evaluate[Style[#, 13] & /@ {"u", "v"}]]},
  PlotLabel -> Style["w = tan z", 18, Italic],
  ImageSize -> 400]
Manipulate[
 mapfPolarRow4[x + I y, a], {{x, 0}, -Pi, Pi, 
  Appearance -> "Labeled"}, {{y, 0}, -Pi, Pi, 
  Appearance -> "Labeled"}, {{a, 1.5}, 0.1, 2, 
  Appearance -> "Labeled"}]