(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     32746,        755]
NotebookOptionsPosition[     31740,        717]
NotebookOutlinePosition[     32125,        734]
CellTagsIndexPosition[     32082,        731]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Complex functions in color!", "Title",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.44528505637213*^9, 3.445285087562587*^9}, {
  3.445285529093707*^9, 3.4452855643177156`*^9}}],

Cell[BoxData[
 RowBox[{"ShowIt", ":=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", "=", "0.5`"}], "}"}], ",", 
     RowBox[{"Panel", "[", 
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Column", "[", 
          RowBox[{"{", 
           RowBox[{"\"\<Lighter\>\"", ",", 
            RowBox[{"VerticalSlider", "[", 
             RowBox[{
              RowBox[{"Dynamic", "[", "b", "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}], ",", 
              RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}], ",", 
            "\"\<Darker\>\""}], "}"}], "]"}], ",", 
         RowBox[{"Column", "[", 
          RowBox[{"{", 
           RowBox[{"\"\<Domain complex plane\>\"", ",", 
            RowBox[{"Graphics", "[", 
             RowBox[{
              RowBox[{"Raster", "[", 
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"w", "=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"NumberQ", "[", 
                    RowBox[{"f", "[", 
                    RowBox[{"s", " ", "+", " ", 
                    RowBox[{"I", " ", "h"}]}], "]"}], "]"}], ",", 
                    RowBox[{"f", "[", 
                    RowBox[{"s", " ", "+", " ", 
                    RowBox[{"I", " ", "h"}]}], "]"}], ",", "50000"}], "]"}]}],
                    ";", 
                   RowBox[{"r", "=", 
                    RowBox[{"Abs", "[", "w", "]"}]}], ";", 
                   RowBox[{"theta", "=", 
                    RowBox[{"Arg", "[", "w", "]"}]}], ";", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"Rescale", "[", 
                    RowBox[{"theta", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}], 
                    ",", 
                    FractionBox["1", "colorsteps"]}], "]"}], ",", "r", ",", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    SqrtBox["r"], 
                    RowBox[{"12", " ", 
                    SuperscriptBox[
                    RowBox[{"Dynamic", "[", "b", "]"}], "2"]}]]}]}], "}"}]}], 
                  ",", 
                  RowBox[{"{", 
                   RowBox[{"h", ",", "ymin", ",", "ymax", ",", "stepsize"}], 
                   "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"s", ",", "xmin", ",", "xmax", ",", "stepsize"}], 
                   "}"}]}], "]"}], ",", 
                RowBox[{"ColorFunction", "\[Rule]", "Hue"}]}], "]"}], ",", 
              RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
              RowBox[{"Axes", "\[Rule]", "True"}], ",", 
              RowBox[{"AxesLabel", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"Real", ",", "Imaginary"}], "}"}]}], ",", 
              RowBox[{"AxesOrigin", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox["xmin", "stepsize"]}], ",", 
                 RowBox[{"-", 
                  FractionBox["ymin", "stepsize"]}]}], "}"}]}], ",", 
              RowBox[{"AxesStyle", "\[Rule]", 
               RowBox[{"Directive", "[", 
                RowBox[{"Orange", ",", "12"}], "]"}]}], ",", 
              RowBox[{"Ticks", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"1", "-", "xmin"}], "stepsize"], ",", "1"}], 
                   "}"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"1", "-", "ymin"}], "stepsize"], ",", "i"}], 
                   "}"}], "}"}]}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", 
         RowBox[{"Column", "[", 
          RowBox[{"{", 
           RowBox[{"\"\<Image Complex Plane\>\"", ",", 
            RowBox[{"Graphics", "[", 
             RowBox[{
              RowBox[{"Raster", "[", 
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"z", "=", 
                    RowBox[{"s", " ", "+", " ", 
                    RowBox[{"I", " ", "h"}]}]}], ";", 
                   RowBox[{"r", "=", 
                    RowBox[{"Abs", "[", "z", "]"}]}], ";", 
                   RowBox[{"theta", "=", 
                    RowBox[{"Arg", "[", "z", "]"}]}], ";", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"Rescale", "[", 
                    RowBox[{"theta", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}], 
                    ",", 
                    FractionBox["1", "colorsteps"]}], "]"}], ",", "r", ",", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    SqrtBox["r"], 
                    RowBox[{"12", " ", 
                    SuperscriptBox[
                    RowBox[{"Dynamic", "[", "b", "]"}], "2"]}]]}]}], "}"}]}], 
                  ",", 
                  RowBox[{"{", 
                   RowBox[{"h", ",", "ymin", ",", "ymax", ",", "stepsize"}], 
                   "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"s", ",", "xmin", ",", "xmax", ",", "stepsize"}], 
                   "}"}]}], "]"}], ",", 
                RowBox[{"ColorFunction", "\[Rule]", "Hue"}]}], "]"}], ",", 
              RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
              RowBox[{"Axes", "\[Rule]", "True"}], ",", 
              RowBox[{"AxesLabel", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"Real", ",", "Imaginary"}], "}"}]}], ",", 
              RowBox[{"AxesOrigin", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox["xmin", "stepsize"]}], ",", 
                 RowBox[{"-", 
                  FractionBox["ymin", "stepsize"]}]}], "}"}]}], ",", 
              RowBox[{"AxesStyle", "\[Rule]", 
               RowBox[{"Directive", "[", 
                RowBox[{"Orange", ",", "12"}], "]"}]}], ",", 
              RowBox[{"Ticks", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"1", "-", "xmin"}], "stepsize"], ",", "1"}], 
                   "}"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"1", "-", "ymin"}], "stepsize"], ",", "i"}], 
                   "}"}], "}"}]}], "}"}]}]}], "]"}]}], "}"}], "]"}]}], "}"}], 
       "]"}], "]"}]}], "]"}], "]"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.445289222115*^9, 3.4452892266723843`*^9}, 
   3.445289273907611*^9, {3.4452900789326077`*^9, 3.445290079807605*^9}, {
   3.445290404877157*^9, 3.445290413363974*^9}, {3.445362617828993*^9, 
   3.445362647089973*^9}, {3.4453720217166224`*^9, 3.445372068545549*^9}, 
   3.445372151774911*^9, {3.445372348470337*^9, 3.445372442787665*^9}, {
   3.44537247341395*^9, 3.445372513964716*^9}, {3.445372617038615*^9, 
   3.445372647665797*^9}, 3.4453726881403847`*^9, {3.445372738066421*^9, 
   3.445372774546336*^9}, {3.445372841265544*^9, 3.445372845908812*^9}, {
   3.4456188044066267`*^9, 3.445618819048251*^9}, {3.514061367281845*^9, 
   3.51406140854631*^9}, {3.5140615126847067`*^9, 3.514061521715748*^9}}]
}, Closed]],

Cell["Expand the title cell to see the code", "Text",
 CellChangeTimes->{{3.445285581116733*^9, 3.4452855983794107`*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Enter your function below, and then evaluate the \
cell.", "Subsection"]], "Section",
 CellChangeTimes->{{3.445285406787846*^9, 3.4452854211946173`*^9}}],

Cell[TextData[{
 "Use xmin, etc. to change the window.  Enter your function as f[z].\n\
Remember to use \"I\" for the complex ",
 StyleBox["i",
  FontSlant->"Italic"],
 ".\nThe slider controls the distance from the origin at which the colors \
\"fade to black;\" use it to explore what gets mapped to the unit circle, for \
instance. "
}], "Text",
 CellChangeTimes->{{3.445287283891369*^9, 3.445287327344297*^9}, 
   3.4452897110204144`*^9, {3.445618476097043*^9, 3.445618565286997*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "f", ",", "z", ",", "xmin", ",", "xmax", ",", "ymin", ",", "ymax", ",", 
    "stepsize", ",", "colorsteps"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xmin", "=", " ", 
   RowBox[{"-", "3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xmax", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ymin", " ", "=", " ", 
   RowBox[{"-", "3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ymax", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"stepsize", " ", "=", " ", ".02"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Smaller", " ", "for", " ", "smoother", " ", "graphics"}], ";", 
    " ", 
    RowBox[{"can", " ", "slow", " ", "rendering", " ", "significantly"}]}], 
   "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"colorsteps", " ", "=", " ", "12"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "How", " ", "many", " ", "colors", " ", "in", " ", "the", " ", "color", 
    " ", 
    RowBox[{"wheel", "?"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "z_", "]"}], " ", "=", " ", 
   RowBox[{"z", "^", "2"}]}], ";", " ", "ShowIt"}]}], "Input",
 CellChangeTimes->{{3.445114214019497*^9, 3.445114222021253*^9}, {
   3.445114375875545*^9, 3.4451143760283813`*^9}, {3.445114551946825*^9, 
   3.445114552245118*^9}, {3.445115811858365*^9, 3.445115812014761*^9}, {
   3.445116044658996*^9, 3.4451160763893003`*^9}, {3.445116148909554*^9, 
   3.445116150573094*^9}, {3.445116330930066*^9, 3.4451163591161346`*^9}, {
   3.445116571082717*^9, 3.445116603575079*^9}, {3.4451167483584433`*^9, 
   3.445116759752433*^9}, {3.445116793840124*^9, 3.445116795871579*^9}, {
   3.445117146005013*^9, 3.445117155597067*^9}, {3.4451173273478537`*^9, 
   3.445117328853826*^9}, {3.445117401155952*^9, 3.445117414335813*^9}, {
   3.445117486710512*^9, 3.445117509685075*^9}, {3.445117869221387*^9, 
   3.445117874508197*^9}, {3.445170947898031*^9, 3.4451709557958117`*^9}, {
   3.4451716334503183`*^9, 3.445171637380644*^9}, {3.445172222227203*^9, 
   3.445172238816656*^9}, {3.445192157882041*^9, 3.4451921869899397`*^9}, 
   3.4451929257524843`*^9, {3.445196923077545*^9, 3.445196924202387*^9}, {
   3.445196964829814*^9, 3.445196964919339*^9}, {3.4451992571254997`*^9, 
   3.4451992703623877`*^9}, {3.445199300761524*^9, 3.445199301218665*^9}, {
   3.445269354533063*^9, 3.445269358392105*^9}, {3.445269506422964*^9, 
   3.445269507032641*^9}, {3.44526957320004*^9, 3.4452695734096813`*^9}, {
   3.445273197513403*^9, 3.44527320047348*^9}, {3.445273270032083*^9, 
   3.445273285499728*^9}, {3.44527333772437*^9, 3.445273338548938*^9}, {
   3.445284949379674*^9, 3.4452849512606*^9}, {3.445285425662943*^9, 
   3.445285426078951*^9}, {3.4452856661532393`*^9, 3.4452856670836287`*^9}, {
   3.445287179113456*^9, 3.4452871928366756`*^9}, {3.4452872235635977`*^9, 
   3.445287250412756*^9}, {3.4452884827920313`*^9, 3.4452884993436213`*^9}, {
   3.445290094485807*^9, 3.445290095152577*^9}, {3.445345886033209*^9, 
   3.445345889291346*^9}, {3.445351892842882*^9, 3.4453518941247463`*^9}, {
   3.445357515883882*^9, 3.445357521581517*^9}, {3.4453575912277184`*^9, 
   3.44535759206944*^9}, {3.44537282261452*^9, 3.445372828343615*^9}, {
   3.445618440128602*^9, 3.4456184647534122`*^9}, {3.445618575188972*^9, 
   3.445618580981886*^9}, {3.445692540792563*^9, 3.445692547780353*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Evaluate the cell below to see the modulus of f(z) as \
a function of z; you can grab this graph and rotate it.", "Subsection"]], \
"Section",
 CellChangeTimes->{{3.445285448955824*^9, 3.4452854751949368`*^9}, {
  3.445285626313445*^9, 3.445285629843686*^9}}],

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"f", "[", 
     RowBox[{"a", " ", "+", " ", 
      RowBox[{"b", " ", "I"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "xmin", ",", "xmax"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "ymin", ",", "ymax"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.445192259573539*^9, 3.4451923386341476`*^9}, {
  3.445195571488665*^9, 3.4451955742189617`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["RGB ShowIt (Frank Farris's \"mathematical\" color wheel)", "Section",
 CellChangeTimes->{{3.4453465089704447`*^9, 3.4453465266112347`*^9}, 
   3.4453702796420307`*^9, 3.445370408407879*^9, 3.445371820045279*^9, {
   3.445371851145561*^9, 3.4453719033283987`*^9}}],

Cell[BoxData[
 RowBox[{"ShowItRGB", ":=", 
  RowBox[{"DynamicModule", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"b", "=", "0.5`"}], "}"}], ",", 
    RowBox[{"Panel", "[", 
     RowBox[{
      RowBox[{"concpower", " ", "=", " ", 
       RowBox[{"1", "/", "3"}]}], ";", 
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Column", "[", 
          RowBox[{"{", 
           RowBox[{"\"\<Domain Complex Plane\>\"", ",", 
            RowBox[{"Graphics", "[", 
             RowBox[{
              RowBox[{"Raster", "[", 
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"w", " ", "=", " ", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"NumberQ", "[", 
                    RowBox[{"f", "[", 
                    RowBox[{"s", " ", "+", " ", 
                    RowBox[{"I", " ", "h"}]}], "]"}], "]"}], ",", 
                    RowBox[{"f", "[", 
                    RowBox[{"s", "+", " ", 
                    RowBox[{"I", " ", "h"}]}], "]"}], ",", "50000"}], "]"}]}],
                    ";", 
                   RowBox[{"u", "=", 
                    RowBox[{"Re", "[", "w", "]"}]}], ";", 
                   RowBox[{"v", "=", 
                    RowBox[{"Im", "[", "w", "]"}]}], ";", 
                   RowBox[{"alpha", "=", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", " ", "-", " ", 
                    RowBox[{"u", "^", "2"}], " ", "-", " ", 
                    RowBox[{"v", "^", "2"}]}], ")"}], "/", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", "3", "]"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"1", " ", "+", " ", 
                    RowBox[{"u", "^", "2"}], " ", "+", " ", 
                    RowBox[{"v", "^", "2"}]}], ")"}]}], ")"}]}]}], ";", 
                   RowBox[{"beta", " ", "=", " ", 
                    RowBox[{"2", "*", 
                    RowBox[{"u", "/", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", "6", "]"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"1", " ", "+", " ", 
                    RowBox[{"u", "^", "2"}], " ", "+", " ", 
                    RowBox[{"v", "^", "2"}]}], ")"}]}], ")"}]}]}]}], ";", " ", 
                   RowBox[{"gamma", " ", "=", 
                    RowBox[{"2", "*", 
                    RowBox[{"v", "/", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", "2", "]"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"1", " ", "+", " ", 
                    RowBox[{"u", "^", "2"}], " ", "+", " ", 
                    RowBox[{"v", "^", "2"}]}], ")"}]}], ")"}]}]}]}], ";", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{".5", "*", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", " ", 
                    RowBox[{
                    RowBox[{"Sign", "[", 
                    RowBox[{"(", 
                    RowBox[{"alpha", " ", "+", " ", 
                    RowBox[{"2", "*", "beta"}]}], ")"}], "]"}], "*", 
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"alpha", " ", "+", " ", 
                    RowBox[{"2", "*", "beta"}]}], ")"}], "^", 
                    RowBox[{"(", "concpower", ")"}]}], "]"}]}]}], ")"}]}], 
                    ",", 
                    RowBox[{".5", "*", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", " ", 
                    RowBox[{
                    RowBox[{"Sign", "[", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    "alpha", " ", "-", " ", "beta", " ", "+", " ", "gamma"}], 
                    ")"}], "]"}], "*", 
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    "alpha", " ", "-", " ", "beta", " ", "+", " ", "gamma"}], 
                    ")"}], "^", 
                    RowBox[{"(", "concpower", ")"}]}], "]"}]}]}], ")"}]}], 
                    ",", " ", 
                    RowBox[{".5", "*", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", " ", 
                    RowBox[{
                    RowBox[{"Sign", "[", 
                    RowBox[{"(", 
                    RowBox[{
                    "alpha", " ", "-", " ", "beta", " ", "-", " ", "gamma"}], 
                    ")"}], "]"}], "*", 
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    "alpha", " ", "-", " ", "beta", " ", "-", " ", "gamma"}], 
                    ")"}], "^", 
                    RowBox[{"(", "concpower", ")"}]}], "]"}]}]}], ")"}]}]}], 
                    "}"}]}], ",", 
                  RowBox[{"{", 
                   RowBox[{"h", ",", "ymin", ",", "ymax", ",", "stepsize"}], 
                   "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                   "s", ",", "xmin", " ", ",", "xmax", ",", "stepsize"}], 
                   "}"}]}], "]"}], ",", 
                RowBox[{"ColorFunction", "\[Rule]", "RGBColor"}]}], "]"}], 
              ",", 
              RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
              RowBox[{"Axes", "\[Rule]", "True"}], ",", 
              RowBox[{"AxesLabel", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"Real", ",", "Imaginary"}], "}"}]}], ",", 
              RowBox[{"AxesOrigin", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox["xmin", "stepsize"]}], ",", 
                 RowBox[{"-", 
                  FractionBox["ymin", "stepsize"]}]}], "}"}]}], ",", 
              RowBox[{"AxesStyle", "\[Rule]", 
               RowBox[{"Directive", "[", 
                RowBox[{"Orange", ",", "12"}], "]"}]}], ",", 
              RowBox[{"Ticks", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"1", "-", "xmin"}], "stepsize"], ",", "1"}], 
                   "}"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"1", "-", "ymin"}], "stepsize"], ",", "i"}], 
                   "}"}], "}"}]}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", 
         RowBox[{"Column", "[", 
          RowBox[{"{", 
           RowBox[{"\"\<Image Complex Plane\>\"", ",", 
            RowBox[{"Graphics", "[", 
             RowBox[{
              RowBox[{"Raster", "[", 
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"alpha", "=", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", " ", "-", " ", 
                    RowBox[{"s", "^", "2"}], " ", "-", " ", 
                    RowBox[{"h", "^", "2"}]}], ")"}], "/", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", "3", "]"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"1", " ", "+", " ", 
                    RowBox[{"s", "^", "2"}], " ", "+", " ", 
                    RowBox[{"h", "^", "2"}]}], ")"}]}], ")"}]}]}], ";", 
                   RowBox[{"beta", " ", "=", " ", 
                    RowBox[{"2", "*", 
                    RowBox[{"s", "/", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", "6", "]"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"1", " ", "+", " ", 
                    RowBox[{"s", "^", "2"}], " ", "+", " ", 
                    RowBox[{"h", "^", "2"}]}], ")"}]}], ")"}]}]}]}], ";", " ", 
                   RowBox[{"gamma", " ", "=", 
                    RowBox[{"2", "*", 
                    RowBox[{"h", "/", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", "2", "]"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"1", " ", "+", " ", 
                    RowBox[{"s", "^", "2"}], " ", "+", " ", 
                    RowBox[{"h", "^", "2"}]}], ")"}]}], ")"}]}]}]}], ";", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{".5", "*", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", " ", 
                    RowBox[{
                    RowBox[{"Sign", "[", 
                    RowBox[{"(", 
                    RowBox[{"alpha", " ", "+", " ", 
                    RowBox[{"2", "*", "beta"}]}], ")"}], "]"}], "*", 
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"alpha", " ", "+", " ", 
                    RowBox[{"2", "*", "beta"}]}], ")"}], "^", 
                    RowBox[{"(", "concpower", ")"}]}], "]"}]}]}], ")"}]}], 
                    ",", 
                    RowBox[{".5", "*", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", " ", 
                    RowBox[{
                    RowBox[{"Sign", "[", 
                    RowBox[{"(", 
                    RowBox[{
                    "alpha", " ", "-", " ", "beta", " ", "+", " ", "gamma"}], 
                    ")"}], "]"}], "*", 
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    "alpha", " ", "-", " ", "beta", " ", "+", " ", "gamma"}], 
                    ")"}], "^", 
                    RowBox[{"(", "concpower", ")"}]}], "]"}]}]}], ")"}]}], 
                    ",", " ", 
                    RowBox[{".5", "*", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", " ", 
                    RowBox[{
                    RowBox[{"Sign", "[", 
                    RowBox[{"(", 
                    RowBox[{
                    "alpha", " ", "-", " ", "beta", " ", "-", " ", "gamma"}], 
                    ")"}], "]"}], "*", 
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    "alpha", " ", "-", " ", "beta", " ", "-", " ", "gamma"}], 
                    ")"}], "^", 
                    RowBox[{"(", "concpower", ")"}]}], "]"}]}]}], ")"}]}]}], 
                    "}"}]}], ",", 
                  RowBox[{"{", 
                   RowBox[{"h", ",", "ymin", ",", "ymax", ",", "stepsize"}], 
                   "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                   "s", ",", "xmin", " ", ",", "xmax", ",", "stepsize"}], 
                   "}"}]}], "]"}], ",", 
                RowBox[{"ColorFunction", "\[Rule]", "RGBColor"}]}], "]"}], 
              ",", 
              RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
              RowBox[{"Axes", "\[Rule]", "True"}], ",", 
              RowBox[{"AxesLabel", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"Real", ",", "Imaginary"}], "}"}]}], ",", 
              RowBox[{"AxesOrigin", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox["xmin", "stepsize"]}], ",", 
                 RowBox[{"-", 
                  FractionBox["ymin", "stepsize"]}]}], "}"}]}], ",", 
              RowBox[{"AxesStyle", "\[Rule]", 
               RowBox[{"Directive", "[", 
                RowBox[{"Orange", ",", "12"}], "]"}]}], ",", 
              RowBox[{"Ticks", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"1", "-", "xmin"}], "stepsize"], ",", "1"}], 
                   "}"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"1", "-", "ymin"}], "stepsize"], ",", "i"}], 
                   "}"}], "}"}]}], "}"}]}]}], "]"}]}], "}"}], "]"}]}], "}"}], 
       "]"}]}], "]"}]}], "]"}]}]], "Input",
 CellOpen->False,
 InitializationCell->True,
 CellChangeTimes->{{3.445346494237381*^9, 3.445346494701116*^9}, {
   3.445346532333357*^9, 3.44534653560083*^9}, {3.4453466734237413`*^9, 
   3.44534668419865*^9}, {3.445347674545937*^9, 3.4453477722043056`*^9}, {
   3.4453479414762993`*^9, 3.445348017964625*^9}, {3.445348052711578*^9, 
   3.445348144124168*^9}, {3.445348210137678*^9, 3.445348212426325*^9}, {
   3.445348245821948*^9, 3.445348249107893*^9}, {3.4453482921268682`*^9, 
   3.445348323313938*^9}, {3.445348490224328*^9, 3.4453485033056307`*^9}, {
   3.4453485343901367`*^9, 3.445348555647176*^9}, {3.44534864596391*^9, 
   3.445348686636291*^9}, {3.44534883027707*^9, 3.4453488373808403`*^9}, {
   3.4453491266965637`*^9, 3.44534913159564*^9}, {3.44534922765574*^9, 
   3.445349246349667*^9}, {3.445349367259035*^9, 3.445349374755228*^9}, {
   3.445349494860268*^9, 3.4453495353390207`*^9}, {3.445349627828113*^9, 
   3.445349695476063*^9}, 3.445349765348689*^9, {3.445349801490746*^9, 
   3.445349948062715*^9}, {3.445349979822218*^9, 3.445350005511595*^9}, {
   3.445350054792261*^9, 3.4453501972622347`*^9}, {3.4453502897437*^9, 
   3.4453503035990067`*^9}, {3.4453505331820803`*^9, 3.445350579808198*^9}, {
   3.4453506326980886`*^9, 3.445350714664145*^9}, {3.445350764932761*^9, 
   3.4453509007606497`*^9}, {3.44535097206334*^9, 3.445350976753296*^9}, {
   3.445362893019342*^9, 3.445362907679172*^9}, {3.4453629624290943`*^9, 
   3.445362964934905*^9}, {3.4453631392484503`*^9, 3.445363148376494*^9}, {
   3.445363422679164*^9, 3.445363456118053*^9}, {3.445363547580863*^9, 
   3.4453635927945633`*^9}, {3.445367049030127*^9, 3.445367182134735*^9}, {
   3.44536850943927*^9, 3.445368529857587*^9}, {3.445368579364112*^9, 
   3.445368610873662*^9}, {3.4453687011908693`*^9, 3.445368745511694*^9}, {
   3.445368861026504*^9, 3.4453688802702847`*^9}, {3.445368912790444*^9, 
   3.445368914300548*^9}, 3.445368983485422*^9, {3.4453690199030313`*^9, 
   3.445369111009239*^9}, {3.445369211573757*^9, 3.445369212917788*^9}, {
   3.445369334468976*^9, 3.445369380492448*^9}, {3.445369427664235*^9, 
   3.4453694282185793`*^9}, {3.445369474291369*^9, 3.4453694803527813`*^9}, {
   3.445369571473618*^9, 3.445369575147912*^9}, {3.445369638385971*^9, 
   3.44536964239541*^9}, {3.445369675031515*^9, 3.4453697643995934`*^9}, {
   3.445370096375107*^9, 3.445370107992798*^9}, {3.445370139847261*^9, 
   3.445370146080307*^9}, {3.445370226146777*^9, 3.4453702332776117`*^9}, 
   3.445370279642324*^9, 3.445370408408152*^9, {3.445370458304615*^9, 
   3.4453705719113693`*^9}, {3.445370628545753*^9, 3.4453706297255287`*^9}, 
   3.445371820045553*^9, {3.445371851145727*^9, 3.445371903328573*^9}, {
   3.4453733538345213`*^9, 3.445373398879013*^9}, {3.445373476789228*^9, 
   3.445373503207806*^9}, {3.445373587751979*^9, 3.44537358822125*^9}, {
   3.445618420422887*^9, 3.445618423888199*^9}, {3.4456928685793962`*^9, 
   3.445692880245451*^9}, {3.445692913293045*^9, 3.445692983364012*^9}, {
   3.4456930221797047`*^9, 3.445693105301478*^9}, 3.445693140485937*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "f", ",", "z", ",", "xmin", ",", "xmax", ",", "ymin", ",", "ymax", ",", 
    "stepsize", ",", "colorsteps"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xmin", "=", " ", 
   RowBox[{"-", "3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xmax", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ymin", " ", "=", " ", 
   RowBox[{"-", "3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ymax", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"stepsize", " ", "=", " ", ".02"}], ";", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Smaller", " ", "for", " ", "smoother", " ", "graphics"}], ";", 
     " ", 
     RowBox[{"can", " ", "slow", " ", "rendering", " ", "significantly"}]}], 
    "*)"}], " ", "\[IndentingNewLine]", 
   RowBox[{"colorsteps", " ", "=", " ", "12"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "How", " ", "many", " ", "colors", " ", "in", " ", "the", " ", "color", 
    " ", 
    RowBox[{"wheel", "?"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "z_", "]"}], " ", "=", " ", 
   RowBox[{"z", "^", "2"}]}], ";", " ", "ShowItRGB"}]}], "Input",
 CellChangeTimes->{{3.445347782550387*^9, 3.445347785800902*^9}, {
  3.445370204458725*^9, 3.445370213229601*^9}, {3.445370352772503*^9, 
  3.445370366521824*^9}, {3.445372936670772*^9, 3.44537293847773*^9}, {
  3.445373037464258*^9, 3.44537303910979*^9}, {3.44537309010771*^9, 
  3.44537309446343*^9}, {3.445373641816375*^9, 3.44537364374363*^9}, {
  3.445692788463621*^9, 3.445692818343939*^9}}]
}, Open  ]]
},
AutoGeneratedPackage->None,
WindowSize->{1422, 890},
WindowMargins->{{Automatic, 4}, {2, Automatic}},
ShowSelection->True,
FrontEndVersion->"7.0 for Linux x86 (64-bit) (November 11, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 213, 3, 85, "Title",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[783, 27, 8123, 185, 494, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 InitializationCell->True]
}, Closed]],
Cell[8921, 215, 121, 1, 28, "Text"],
Cell[CellGroupData[{
Cell[9067, 220, 177, 2, 66, "Section"],
Cell[9247, 224, 487, 10, 71, "Text"],
Cell[9737, 236, 3487, 66, 209, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13261, 307, 283, 4, 66, "Section"],
Cell[13547, 313, 465, 12, 32, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14049, 330, 269, 3, 73, "Section"],
Cell[14321, 335, 15748, 337, 19, "Input",
 CellOpen->False,
 InitializationCell->True],
Cell[30072, 674, 1652, 40, 209, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)