(* 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[     77551,       2324]
NotebookOptionsPosition[     61575,       1925]
NotebookOutlinePosition[     72136,       2166]
CellTagsIndexPosition[     72022,       2160]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["Math 421  \[FilledSmallCircle]  Fall 2010", "Subsubtitle",
 CellChangeTimes->{{3.49777880134375*^9, 3.49777880184375*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell["Complex sine function", "Subtitle",
 TextAlignment->Center,
 TextJustification->0],

Cell["7 November 2010", "Subsubtitle",
 CellChangeTimes->{{3.48893028171875*^9, 3.48893030315625*^9}, {
   3.489583451984375*^9, 3.489583455796875*^9}, 3.49028881771875*^9, {
   3.4905515529375*^9, 3.490551553125*^9}, 3.490875430171875*^9, {
   3.492293113328125*^9, 3.492293120375*^9}, 3.49346163509375*^9, {
   3.49410698178125*^9, 3.494106982265625*^9}, 3.494416320359375*^9, {
   3.49777882415625*^9, 3.49777882675*^9}, 3.498071466125*^9, 
   3.49815800878125*^9},
 TextAlignment->Center,
 TextJustification->0],

Cell["\<\
Copyright \[Copyright] 2004\[Dash]2010 by Murray Eisenberg. All rights \
reserved.\
\>", "SmallText",
 CellChangeTimes->{{3.497778805671875*^9, 3.497778806046875*^9}, 
   3.49777895390625*^9},
 TextAlignment->Center,
 TextJustification->0],

Cell[CellGroupData[{

Cell["Introduction", "Section",
 CellChangeTimes->{{3.4978090355*^9, 3.49780903709375*^9}}],

Cell["\<\
This notebook examines symbolically and, especially, graphically, fundamental \
properties of the complex sine function and the complex inverse sine function.\
\>", "Text",
 CellChangeTimes->{{3.49780903915625*^9, 3.4978091*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Prerequisites", "Section",
 CellChangeTimes->{{3.466616366328125*^9, 3.46661637828125*^9}, {
  3.466616604453125*^9, 3.466616607390625*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Mathematica",
 FontSlant->"Italic"]], "Subsection",
 CellChangeTimes->{{3.466616614109375*^9, 3.466616621015625*^9}}],

Cell[TextData[{
 "Much of this notebook requires David Park's ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " add-on application ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.46661644090625*^9, 3.466616483484375*^9}, {
   3.466616542578125*^9, 3.466616591375*^9}, {3.4666167129375*^9, 
   3.466616714296875*^9}, {3.490983043921875*^9, 3.490983044875*^9}, {
   3.490984276765625*^9, 3.4909843116875*^9}, 3.4910591349375*^9, {
   3.497809121734375*^9, 3.49780912225*^9}}],

Cell[TextData[{
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " should be loaded by evaluating the expression:\n\t",
 StyleBox["<<",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox["Presentations",
  FontFamily->"Courier",
  FontWeight->"Plain"],
 StyleBox["`",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "\nThat initialization is done below, in the ",
 ButtonBox["Initialization section",
  BaseStyle->"Hyperlink",
  ButtonData->"initialization"],
 ", below."
}], "Text",
 CellChangeTimes->{{3.46661644090625*^9, 3.466616483484375*^9}, {
   3.466616542578125*^9, 3.466616591375*^9}, {3.4666167129375*^9, 
   3.46661679353125*^9}, {3.4666168744375*^9, 3.466616901171875*^9}, {
   3.4909830825*^9, 3.4909830910625*^9}, {3.490984498375*^9, 
   3.49098451746875*^9}, {3.491058732328125*^9, 3.491058740734375*^9}, 
   3.491058892734375*^9, {3.491058930921875*^9, 3.491059018609375*^9}, {
   3.491059057390625*^9, 3.491059075953125*^9}, {3.49105918140625*^9, 
   3.49105918140625*^9}, {3.491059247640625*^9, 3.49105924765625*^9}, {
   3.491059412859375*^9, 3.491059447375*^9}, {3.491059659734375*^9, 
   3.491059692453125*^9}, {3.49105976584375*^9, 3.491059767484375*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 "Although the notebook is largely self-contained, it is helpful if you \
already know about using ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " to draw a \"two-panel plot\" of the domain and codomain of a complex \
function and to lift objects in the complex plane to the Riemann sphere. See \
notebooks ",
 StyleBox["VisualizingFunctions.nb",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " and ",
 StyleBox["RiemannSphere.nb",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". For handling the complex exponential function, see notebook ",
 StyleBox["ExponentialLogFunctions.nb",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{{3.4910597709375*^9, 3.4910599115*^9}, {
  3.49247129434375*^9, 3.492471300390625*^9}, {3.49477440659375*^9, 
  3.4947744791875*^9}, {3.497809157328125*^9, 3.49780931040625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Mathematics", "Subsection",
 CellChangeTimes->{{3.46661662978125*^9, 3.466616631109375*^9}}],

Cell[TextData[{
 "You should already know about the complex exponential function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"exp", ":", "\[DoubleStruckCapitalC]"}], "\[Rule]", 
    "\[DoubleStruckCapitalC]"}], TraditionalForm]]],
 ". See notebook ",
 StyleBox["ExponentialLogFunctions.nb",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{{3.466616634859375*^9, 3.46661670978125*^9}, {
  3.49105958428125*^9, 3.4910595870625*^9}, {3.49105962053125*^9, 
  3.491059636984375*^9}, {3.4910599269375*^9, 3.4910599291875*^9}, {
  3.4924712228125*^9, 3.492471275453125*^9}, {3.494774509609375*^9, 
  3.4947745360625*^9}, {3.4978093309375*^9, 3.497809371171875*^9}, {
  3.498072128109375*^9, 3.49807214275*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Initialization", "Section",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.4906339376875*^9, 3.49063394653125*^9}, {
   3.490638317984375*^9, 3.49063833975*^9}, {3.490735161125*^9, 
   3.490735165125*^9}, 3.490984367984375*^9},
 CellTags->"initialization"],

Cell[TextData[{
 "When you opened this notebook, it should have prompted you whether you want \
to evaluate Initialization Cells. You should have answered \
\[OpenCurlyDoubleQuote]yes.\[CloseCurlyDoubleQuote]\nIf you did not, then ",
 StyleBox["evaluate the following Input cell now",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ". (Even if the cell was already evaluated, it won\[CloseCurlyQuote]t hurt \
if you evaluate it again.)"
}], "Text",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.490634229484375*^9, 3.49063436175*^9}, 3.490634682*^9, {
   3.490634737515625*^9, 3.4906347940625*^9}, {3.490700557578125*^9, 
   3.49070056315625*^9}, 3.49073510265625*^9, 3.490735145640625*^9, {
   3.491059504265625*^9, 3.4910595165*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[BoxData[
 RowBox[{"<<", "Presentations`"}]], "Input",
 ShowGroupOpener->True,
 InitializationCell->True,
 CellChangeTimes->{{3.49063458959375*^9, 3.490634598328125*^9}, {
  3.490650191265625*^9, 3.49065019440625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Definition of the complex sine function", "Section",
 CellChangeTimes->{{3.4978097870625*^9, 3.49780979353125*^9}}],

Cell[CellGroupData[{

Cell["Definition of sin as sum of a power series", "Subsection",
 CellChangeTimes->{{3.4978093955625*^9, 3.49780940628125*^9}, {
  3.497809719203125*^9, 3.497809719703125*^9}, {3.49780980109375*^9, 
  3.497809812078125*^9}}],

Cell[TextData[{
 "The basic definition of the exponential function ",
 Cell[BoxData[
  FormBox["exp", TraditionalForm]]],
 " is in terms of a power series:\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"sin", "(", "z", ")"}], "="}], TraditionalForm]]],
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"n", "=", "0"}], "\[Infinity]"], 
    FractionBox[
     SuperscriptBox["z", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}]], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "n"}], "+", "1"}], ")"}], "!"}]]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.497698410796875*^9, 3.4976984881875*^9}, {
   3.49769864375*^9, 3.497698718671875*^9}, 3.497699238328125*^9, {
   3.497809490734375*^9, 3.497809507234375*^9}},
 ParagraphSpacing->{0.5, 0},
 ScriptSizeMultipliers->{0.85},
 SpanMaxSize->Infinity],

Cell[TextData[{
 "To see that this power series converges for all ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "\[Element]", "\[DoubleStruckCapitalC]"}], TraditionalForm]]],
 ", so that ",
 Cell[BoxData[
  FormBox["sin", TraditionalForm]]],
 " is an entire function, apply the Ratio Test:"
}], "Text",
 CellChangeTimes->{{3.497698410796875*^9, 3.4976984881875*^9}, {
   3.49769864375*^9, 3.497698718671875*^9}, {3.497699238328125*^9, 
   3.49769927534375*^9}, 3.49769997578125*^9, {3.497809512640625*^9, 
   3.4978095129375*^9}},
 SpanMaxSize->Infinity],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ratio", "[", "n_", "]"}], "=", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["z", 
      RowBox[{
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], "+", "1"}]], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}], "+", "1"}], ")"}], "!"}]}], 
    RowBox[{
     SuperscriptBox["z", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}]], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "n"}], "+", "1"}], ")"}], "!"}]}]], "//", 
   "FullSimplify"}]}], "\[IndentingNewLine]", 
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"ratio", "[", "n", "]"}], "]"}], ",", 
   RowBox[{"n", "\[Rule]", "\[Infinity]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.49769870946875*^9, 3.49769871065625*^9}, {
  3.497698772234375*^9, 3.49769882371875*^9}, {3.497698993796875*^9, 
  3.4976991210625*^9}, {3.4976992224375*^9, 3.497699228640625*^9}, {
  3.497809518328125*^9, 3.49780955728125*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Write the power series for the complex cosine function cos: take the power \
series for the real cosine function and change the variable from ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " to ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 ". Then use the Ratio Test to show that cos is entire."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.497794939209695*^9, 3.497794962740945*^9}, {3.497795032897195*^9, 
  3.497795045490945*^9}, {3.497809614484375*^9, 3.497809688015625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Converting trig functions to and from the complex exponential function\
\>", "Subsection",
 CellChangeTimes->{{3.497794753490945*^9, 3.49779477410032*^9}, {
  3.49780971075*^9, 3.49780971296875*^9}}],

Cell[TextData[{
 "The key ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " function to use to express trig and hyperbolic functions in terms of the \
complex exponential is the built-in ",
 StyleBox["TrigToExp",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 ":"
}], "Text"],

Cell[BoxData[
 RowBox[{"?", "TrigToExp"}]], "Input"],

Cell["\<\
The complex sine function can be expressed in terms of the complex \
exponential function:\
\>", "Text",
 CellChangeTimes->{{3.49779506560032*^9, 3.497795089897195*^9}}],

Cell[BoxData[
 RowBox[{"TrigToExp", "[", 
  RowBox[{"Sin", "[", "z", "]"}], "]"}]], "Input"],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Express the complex cosine and tangent functions in terms of the complex \
exponential function."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.497794939209695*^9, 3.497794962740945*^9}, {3.497795032897195*^9, 
  3.497795045490945*^9}, {3.4981476463125*^9, 3.49814765490625*^9}}],

Cell[TextData[{
 "To convert back from exponential form to trig and hyperbolic form, you may \
use the built-in function ",
 StyleBox["ExpToTrig",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 ". For example:"
}], "Text",
 CellChangeTimes->{3.49777895928125*^9}],

Cell[BoxData[
 RowBox[{"ExpToTrig", "[", 
  RowBox[{"Exp", "[", 
   RowBox[{"\[ImaginaryI]", " ", "z"}], "]"}], "]"}]], "Input"],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " knew the formula ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"sin", "(", "z", ")"}], "=", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "z"}]]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "z"}]]}]}]}], TraditionalForm]]],
 " Prove that the formula is in fact correct."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.497794939209695*^9, 3.49779499103782*^9}, {3.49779512088157*^9, 
  3.497795227522195*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Trig identities", "Section"],

Cell[CellGroupData[{

Cell[TextData[{
 "Proof of the addition formula for the complex ",
 Cell[BoxData[
  FormBox["sin", TraditionalForm]]]
}], "Subsection",
 CellChangeTimes->{{3.49779478491282*^9, 3.497794785397195*^9}, 
   3.4981580308125*^9}],

Cell["\<\
The Addition Formula for the complex sine just extends the corresponding \
formula for the real sine to complex numbers:\
\>", "Text",
 CellChangeTimes->{{3.498072230671875*^9, 3.498072373125*^9}}],

Cell[TextData[{
 "\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"sin", "(", 
     RowBox[{
      SubscriptBox["z", "1"], "+", 
      SubscriptBox["z", 
       RowBox[{"2", " "}]]}], ")"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"sin", "(", 
       SubscriptBox["z", "1"], ")"}], " ", 
      RowBox[{"cos", "(", 
       SubscriptBox["z", "2"], ")"}]}], "+", 
     RowBox[{
      RowBox[{"cos", "(", 
       SubscriptBox["z", "1"], ")"}], " ", 
      RowBox[{"sin", "(", 
       SubscriptBox["z", "2"], ")"}]}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"]
}], "EmphasisText",
 CellChangeTimes->{{3.498072230671875*^9, 3.498072377*^9}}],

Cell[TextData[{
 "It is much easier to prove this identity for complex numbers than the \
version for reals if you just express the complex sine and cosine in terms of \
complex exponentials. Here are the calculations with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to carry out the proof."
}], "Text",
 CellChangeTimes->{{3.498072387984375*^9, 3.498072425140625*^9}, {
  3.4980724678125*^9, 3.498072551765625*^9}}],

Cell[BoxData[
 RowBox[{"sineOfSum", "=", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{
     SubscriptBox["z", "1"], "+", 
     SubscriptBox["z", "2"]}], "]"}], "//", "TrigToExp"}]}]], "Input",
 CellChangeTimes->{{3.497778963515625*^9, 3.497778969*^9}, {
  3.497795246240945*^9, 3.497795249459695*^9}}],

Cell[BoxData[
 RowBox[{"additionExpression", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", 
      SubscriptBox["z", "1"], "]"}], 
     RowBox[{"Cos", "[", 
      SubscriptBox["z", "2"], "]"}]}], "+", 
    RowBox[{
     RowBox[{"Cos", "[", 
      SubscriptBox["z", "1"], "]"}], 
     RowBox[{"Sin", "[", 
      SubscriptBox["z", "2"], "]"}]}]}], "//", "TrigToExp"}]}]], "Input",
 CellChangeTimes->{{3.4977789748125*^9, 3.49777898303125*^9}, {
  3.49779525241282*^9, 3.497795265365945*^9}}],

Cell[BoxData[
 RowBox[{"sineOfSum", "\[Equal]", "additionExpression"}]], "Input",
 CellChangeTimes->{{3.497795274397195*^9, 3.497795282959695*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Cartesian form of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"sin", " ", 
    RowBox[{"(", 
     RowBox[{"x", " ", "+", " ", 
      RowBox[{"\[ImaginaryI]", " ", "y"}]}], ")"}], Cell[""]}], 
   TraditionalForm]]]
}], "Subsection"],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"Sin", "[", 
   RowBox[{"x", "+", 
    RowBox[{"\[ImaginaryI]", " ", "y"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.497778993765625*^9, 3.49777899496875*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Find the Cartesian forms of the complex cosine function and the complex \
tangent function."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.49779534216282*^9, 3.49779535172532*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Find the Cartesian forms of the complex hyperbolic sine and hyperbolic \
cosine functions."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.49779534216282*^9, 3.497795386147195*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Periodicity of ",
 Cell[BoxData[
  FormBox["sin", TraditionalForm]]]
}], "Subsection"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " already knows the basic identities for the trig and hyperbolic functions. \
For example:"
}], "Text",
 CellChangeTimes->{3.49780095116282*^9}],

Cell[BoxData[
 RowBox[{"Sin", "[", 
  RowBox[{"z", "+", 
   RowBox[{"2", "\[Pi]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.497778987671875*^9, 3.49777898840625*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Use the definition of sin as the sum of a power series to prove the \
periodicity of sin. (Hint: Express complex ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " in Cartesian form.)"
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.497794939209695*^9, 3.497794962740945*^9}, {3.497795032897195*^9, 
  3.497795045490945*^9}, {3.49780985428125*^9, 3.497809919375*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Use the expression of sin in terms of the complex exponential function to \
prove the periodicity of sin."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.497794939209695*^9, 3.497794962740945*^9}, {3.497795032897195*^9, 
  3.497795045490945*^9}, {3.49780985428125*^9, 3.497809919375*^9}, {
  3.4978099594375*^9, 3.497809988234375*^9}}],

Cell[TextData[{
 "The result of evaluating the next two input cells illustrates that ",
 Cell[BoxData[
  FormBox["sin", TraditionalForm]]],
 " is periodic of real period ",
 Cell[BoxData[
  FormBox[
   RowBox[{"2", "\[Pi]"}], TraditionalForm]]],
 ":"
}], "Text",
 CellChangeTimes->{{3.49787875671875*^9, 3.49787876665625*^9}},
 TextAlignment->Left,
 TextJustification->1],

Cell[BoxData[{
 RowBox[{
  RowBox[{"grid", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Opacity", "[", 
      RowBox[{"0.5", ",", 
       RowBox[{"HTML", "@", "Linen"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"DrawCartesianMap", "[", 
      RowBox[{"z", ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["\[Pi]", "2"]}], "-", 
          RowBox[{
           FractionBox["\[Pi]", "2"], "\[ImaginaryI]"}]}], ",", 
         RowBox[{
          FractionBox["\[Pi]", "2"], "+", 
          RowBox[{
           FractionBox["\[Pi]", "2"], "\[ImaginaryI]"}]}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"BoundaryStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"Thin", ",", "Black"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"Mesh", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"14", ",", "14"}], "}"}]}], ",", 
       RowBox[{"MeshStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Legacy", "@", "DimGray"}], ",", 
          RowBox[{"Legacy", "@", "DimGray"}]}], "}"}]}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"PointSize", "[", "Large", "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Hue", "[", 
          RowBox[{"0.1677", 
           RowBox[{"j", "/", "20"}]}], "]"}], ",", 
         RowBox[{"ComplexPoint", "[", 
          RowBox[{
           RowBox[{"-", "\[Pi]"}], "+", 
           RowBox[{"j", " ", 
            RowBox[{"\[Pi]", "/", "10"}]}], "+", 
           RowBox[{"0.95", "\[ImaginaryI]"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "0", ",", "20"}], "}"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"positiveIAxis", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Legacy", "@", "MediumSeaGreen"}], ",", "Thick", ",", 
     RowBox[{"ComplexCurve", "[", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "y"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"positiveRAxis", "=", 
   RowBox[{"{", 
    RowBox[{"LegacyThick", ",", 
     RowBox[{"ComplexCurve", "[", 
      RowBox[{"x", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"domainObjects", "=", 
   RowBox[{"{", 
    RowBox[{"grid", ",", "positiveIAxis", ",", "points"}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.497800553709695*^9, 3.49780068153782*^9}, 
   3.497810802125*^9, {3.497878814328125*^9, 3.4978788704375*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", 
   RowBox[{"Draw2D", "[", 
    RowBox[{
     RowBox[{"{", "domainObjects", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"AxesStyle", "\[Rule]", 
      RowBox[{"Legacy", "@", "DimGray"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", "\[Pi]"}], ",", 
     RowBox[{"Ticks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         FractionBox["\[Pi]", "2"], " ", 
         RowBox[{"Range", "[", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "]"}]}], ",", 
        RowBox[{
         FractionBox["\[Pi]", "2"], 
         RowBox[{"Range", "[", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "]"}]}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", "14"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"Scaled", "[", "0.4", "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"image", "=", 
   RowBox[{"Draw2D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"domainObjects", "//", 
       RowBox[{"ComplexMap", "[", "Sin", "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"AxesStyle", "\[Rule]", 
      RowBox[{"Legacy", "@", "DimGray"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", "\[Pi]"}], ",", 
     RowBox[{"Ticks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         FractionBox["\[Pi]", "2"], " ", 
         RowBox[{"Range", "[", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "]"}]}], ",", 
        RowBox[{
         FractionBox["\[Pi]", "2"], 
         RowBox[{"Range", "[", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "]"}]}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", "14"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"Scaled", "[", "0.4", "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{"domain", ",", "image"}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.497800812959695*^9, 3.49780093991282*^9}, {
   3.497801286522195*^9, 3.49780130253782*^9}, 3.497810802125*^9, {
   3.4981546329375*^9, 3.4981546489375*^9}}],

Cell[TextData[{
 "(The setting for the ",
 StyleBox["ImageSize",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " option above was the relative value ",
 StyleBox["Scaled[0.4]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " instead of an actual numerical dimension. That setting means the drawing \
is scaled to 0.4 times the overall width of the cell. Such a relative ",
 StyleBox["ImageSize",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " setting will be more appropriate when, below, we combine the \
two-dimensional domain drawing with a three-dimensional drawing of the image \
lifted to the Riemann sphere.)"
}], "Text",
 CellChangeTimes->{{3.497801532272195*^9, 3.49780165928782*^9}, {
  3.497810009625*^9, 3.49781006484375*^9}}],

Cell[TextData[{
 "The following also illustrates the periodicity, but with the image lifted \
to the Riemann sphere. (This example is a simplified version of one that \
appears in Eisenberg and Park [",
 ButtonBox["1",
  BaseStyle->"Hyperlink",
  ButtonData->"MeAndParkTMJ11#2"],
 "].)"
}], "Text",
 CellChangeTimes->{{3.497808959171875*^9, 3.4978090056875*^9}},
 TextAlignment->Left,
 TextJustification->1],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"liftedImage", "=", 
    RowBox[{"Draw3DItems", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ColoredRiemannSphere", "[", 
         RowBox[{"Opacity", "[", 
          RowBox[{"0.2", ",", 
           RowBox[{"Lighter", "@", 
            RowBox[{"HTML", "@", "DodgerBlue"}]}]}], "]"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"{", "domainObjects", "}"}], "//", 
          RowBox[{"ComplexMap", "[", "Sin", "]"}]}], "//", 
         "StereographicMap"}]}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", "ViewRiemann", ",", "\[IndentingNewLine]", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"Scaled", "[", "0.4", "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Row", "[", 
  RowBox[{"{", 
   RowBox[{"domain", ",", "liftedImage"}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.49780077288157*^9, 3.497800774990945*^9}, {
   3.497801007647195*^9, 3.497801106990945*^9}, {3.49780120338157*^9, 
   3.49780126056907*^9}, {3.497801315522195*^9, 3.497801382178445*^9}, {
   3.497801431553445*^9, 3.497801460397195*^9}, 3.49781009440625*^9}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " (a) With ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", check the periodicity of the complex cosine and illustrate it \
graphically.\n(b) Repeat (a) but for the complex tangent."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
   3.49779534216282*^9, 3.497795386147195*^9}, {3.497801687928445*^9, 
   3.49780173841282*^9}, 3.4981546736875*^9},
 ParagraphSpacing->{0.5, 0}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivative of complex sin", "Section"],

Cell[TextData[{
 "Of course, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " knows the formula for the derivative of ",
 Cell[BoxData[
  FormBox["sin", TraditionalForm]]],
 ":"
}], "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Sin", "'"}], "[", "z", "]"}]], "Input"],

Cell["\<\
You could derive it in the same way as in the real case by taking a limit of \
difference quotients and using the addition formula for sine.\
\>", "Text",
 CellChangeTimes->{{3.49780177347532*^9, 3.497801789709695*^9}, {
  3.49780197785032*^9, 3.497802000803445*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"differenceQuotient", "[", "\[CapitalDelta]z_", "]"}], "=", 
  FractionBox[
   RowBox[{
    RowBox[{"TrigExpand", "[", 
     RowBox[{"Sin", "[", 
      RowBox[{"z", "+", "\[CapitalDelta]z"}], "]"}], "]"}], "-", 
    RowBox[{"Sin", "[", "z", "]"}]}], "\[CapitalDelta]z"]}]], "Input",
 CellChangeTimes->{{3.497801762897195*^9, 3.497801767897195*^9}, {
  3.497801892584695*^9, 3.49780196066282*^9}, {3.497802398678445*^9, 
  3.497802422365945*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"differenceQuotient", "[", "\[CapitalDelta]z", "]"}], "//", 
  "Apart"}]], "Input",
 CellChangeTimes->{{3.497802015990945*^9, 3.49780201897532*^9}, {
  3.49780242622532*^9, 3.497802432240945*^9}}],

Cell["The relevant limits here are:", "Text",
 CellChangeTimes->{{3.497802469615945*^9, 3.49780247594407*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"a", ",", "b"}], "}"}], "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Limit", "[", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"Cos", "[", "\[CapitalDelta]z", "]"}]}], "\[CapitalDelta]z"], 
      ",", 
      RowBox[{"\[CapitalDelta]z", "\[Rule]", "0"}]}], "]"}], ",", 
    RowBox[{"Limit", "[", 
     RowBox[{
      FractionBox[
       RowBox[{" ", 
        RowBox[{"Sin", "[", "\[CapitalDelta]z", "]"}]}], "\[CapitalDelta]z"], 
      ",", 
      RowBox[{"\[CapitalDelta]z", "\[Rule]", "0"}]}], "]"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.497802026334695*^9, 3.497802102553445*^9}}],

Cell[TextData[{
 "By basic properties of derivatives, then, the derivative of ",
 StyleBox["Sin[z]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " is:"
}], "Text",
 CellChangeTimes->{{3.49780248010032*^9, 3.49780250863157*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "  ", 
   RowBox[{"Sin", "[", "z", "]"}]}], "+", 
  RowBox[{"b", " ", 
   RowBox[{"Cos", "[", "z", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.497802113272195*^9, 3.49780212338157*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"a", ",", "b"}], "]"}]], "Input",
 CellChangeTimes->{{3.4981547149375*^9, 3.4981547170625*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Is the preceding derivation legitimate? More specifically, is it still \
true in the complex plane that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["lim", 
      RowBox[{"\[CapitalDelta]z", "\[Rule]", "0"}]], 
     FractionBox[
      RowBox[{"sin", " ", "\[CapitalDelta]z"}], "\[CapitalDelta]z"]}], "=", 
    "1"}], TraditionalForm]]],
 " and that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["lim", 
      RowBox[{"\[CapitalDelta]z", "\[Rule]", "0"}]], 
     FractionBox[
      RowBox[{
       RowBox[{"cos", " ", "\[CapitalDelta]z"}], " ", "-", " ", "1"}], 
      "\[CapitalDelta]z"]}], "=", "0"}], TraditionalForm]]],
 "? Why or why not?"
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.49779534216282*^9, 3.497795386147195*^9}, {3.49780217153782*^9, 
  3.497802381959695*^9}},
 ScriptSizeMultipliers->{0.85}],

Cell[TextData[{
 "But an easier way is to express the complex sine function in terms of the \
complex exponential function and use the fact that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"exp", "'"}], "=", "exp"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Text",
 CellChangeTimes->{{3.49780179260032*^9, 3.49780182728782*^9}}],

Cell[BoxData[
 RowBox[{"TrigToExp", "[", 
  RowBox[{"Sin", "[", "z", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"TrigToExp", "[", 
    RowBox[{"Sin", "[", "z", "]"}], "]"}], ",", "z"}], "]"}]], "Input",
 CellChangeTimes->{{3.49780183075657*^9, 3.49780187053782*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"TrigToExp", "[", 
     RowBox[{"Sin", "[", "z", "]"}], "]"}], ",", "z"}], "]"}], "\[Equal]", 
  RowBox[{"TrigToExp", "[", 
   RowBox[{"Cos", "[", "z", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.497801881397195*^9, 3.49780188685032*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Derive formulas for the derivatives of the complex cosine, tangent, \
cotangent, secant and cosecant."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.49779534216282*^9, 3.497795386147195*^9}, {3.49780217153782*^9, 
  3.497802381959695*^9}, {3.497802537365945*^9, 3.497802560147195*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Zeros of complex ",
 Cell[BoxData[
  FormBox["sin", TraditionalForm]]]
}], "Section"],

Cell[TextData[{
 "The ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " function ",
 StyleBox["Solve",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " does ",
 StyleBox["not",
  FontSlant->"Italic"],
 " find all zeros of the complex sine function."
}], "Text",
 CellChangeTimes->{{3.4978102434375*^9, 3.497810291640625*^9}}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.49777901340625*^9, 3.497779017140625*^9}}],

Cell[TextData[{
 "To find all the zeros, use ",
 StyleBox["Reduce",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " instead of ",
 StyleBox["Solve",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ":"
}], "Text",
 CellChangeTimes->{{3.497810271625*^9, 3.49781028103125*^9}}],

Cell[BoxData[
 RowBox[{"whereZero", "=", 
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4977790203125*^9, 3.49777902196875*^9}, {
  3.49781030825*^9, 3.49781031309375*^9}}],

Cell[BoxData[
 RowBox[{"TraditionalForm", "[", "whereZero", "]"}]], "Input",
 CellChangeTimes->{{3.497810317015625*^9, 3.497810318484375*^9}}],

Cell["Put more simply:", "Text",
 CellChangeTimes->{{3.497810345890625*^9, 3.497810351546875*^9}}],

Cell[TextData[{
 "\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"sin", "(", "z", ")"}], "=", 
    RowBox[{
     RowBox[{"0", " ", "\[DoubleLongLeftRightArrow]", "z"}], "=", 
     RowBox[{
     "n", " ", "\[Pi]", " ", "for", " ", "some", " ", "integer", " ", 
      "n"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"]
}], "EmphasisText",
 CellChangeTimes->{{3.497810356953125*^9, 3.497810411921875*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " ",
 "Derive the preceding result using the expression of sin in terms of complex \
exponentials."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.497794939209695*^9, 3.49779499103782*^9}, {3.49779512088157*^9, 
  3.497795227522195*^9}, {3.497810444703125*^9, 3.497810469765625*^9}}],

Cell[TextData[{
 "In view of the preceding result, the equations\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"tan", " ", "z"}], " ", "=", " ", 
    FractionBox[
     RowBox[{"sin", " ", "z"}], 
     RowBox[{"cos", " ", "z"}]]}], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"sec", " ", "z"}], "=", 
    FractionBox["1", 
     RowBox[{"cos", " ", "z"}]]}], TraditionalForm]]],
 "\ndefine the complex tangent function tan and the complex secant function \
sec for all complex ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " ",
 StyleBox["not",
  FontSlant->"Italic"],
 " of the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", " ", "\[Pi]"}], TraditionalForm]]],
 " for some integer ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.497810489265625*^9, 3.497810600859375*^9}, {
  3.49781069453125*^9, 3.497810721984375*^9}},
 ParagraphSpacing->{0.5, 0},
 ScriptSizeMultipliers->{0.85}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Derive formulas for the derivatives of the complex tangent and the complex \
secant functions. Check that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " gives the results you obtain."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.497794939209695*^9, 3.49779499103782*^9}, {3.49779512088157*^9, 
  3.497795227522195*^9}, {3.497810444703125*^9, 3.497810469765625*^9}, {
  3.49781073634375*^9, 3.4978107725*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Mapping properties of complex ",
 Cell[BoxData[
  FormBox["sin", TraditionalForm]]]
}], "Section"],

Cell["\<\
For several drawings below, we'll use the same Cartesian grid:\
\>", "Text",
 CellChangeTimes->{{3.498155459703125*^9, 3.498155479*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"grid", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Opacity", "[", 
      RowBox[{"0.5", ",", 
       RowBox[{"HTML", "@", "Linen"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"DrawCartesianMap", "[", 
      RowBox[{"z", ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", 
         RowBox[{
          RowBox[{"-", "\[Pi]"}], "-", " ", 
          RowBox[{"1.5", "\[ImaginaryI]"}]}], ",", 
         RowBox[{"\[Pi]", "+", 
          RowBox[{"1.5", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"BoundaryStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"Thin", ",", "Black"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"Mesh", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"12", ",", "12"}], "}"}]}], ",", 
       RowBox[{"MeshStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"HTML", "@", "SeaGreen"}], ",", 
          RowBox[{"Legacy", "@", "Sepia"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotPoints", "\[Rule]", "50"}]}], "]"}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.497800553709695*^9, 3.49780068153782*^9}, 
   3.497810802125*^9, {3.497810839765625*^9, 3.49781089365625*^9}, {
   3.497811008921875*^9, 3.497811011203125*^9}, 3.49781106446875*^9, {
   3.49815505675*^9, 3.498155058796875*^9}, {3.49815514384375*^9, 
   3.498155163328125*^9}}],

Cell["Here is how the complex sine maps that grid.", "Text",
 CellChangeTimes->{{3.49815548421875*^9, 3.49815549321875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", 
   RowBox[{"Draw2D", "[", 
    RowBox[{
     RowBox[{"{", "grid", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"AxesStyle", "\[Rule]", 
      RowBox[{"Legacy", "@", "DimGray"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Ticks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         FractionBox["\[Pi]", "2"], " ", 
         RowBox[{"Range", "[", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "]"}]}], ",", "Automatic"}], 
       "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", "14"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"Scaled", "[", "0.4", "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"image", "=", 
   RowBox[{"Draw2D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"grid", "//", 
       RowBox[{"ComplexMap", "[", "Sin", "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"AxesStyle", "\[Rule]", 
      RowBox[{"Legacy", "@", "DimGray"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", "14"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"Scaled", "[", "0.4", "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{"domain", ",", "image"}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.497800812959695*^9, 3.49780093991282*^9}, {
   3.497801286522195*^9, 3.49780130253782*^9}, 3.497810802125*^9, {
   3.497810900984375*^9, 3.49781091103125*^9}, {3.497810972515625*^9, 
   3.4978109994375*^9}, {3.49815500340625*^9, 3.4981550315*^9}, {
   3.498155079734375*^9, 3.49815509440625*^9}, {3.498155183640625*^9, 
   3.498155183984375*^9}, {3.498155506125*^9, 3.4981555168125*^9}}],

Cell["\<\
It looks like horizontal lines and vertical lines, respectively, map to \
ellipses and arcs of hyperbolas centered at the origin.\
\>", "Text",
 CellChangeTimes->{{3.497811147703125*^9, 3.497811164140625*^9}}],

Cell["\<\
Examine more closely the way a horizontal line maps to an ellipse centered at \
the origin:\
\>", "Text",
 CellChangeTimes->{{3.49815565053125*^9, 3.498155657703125*^9}}],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"b", "=", "0.8"}], "}"}], ",", 
   RowBox[{
    RowBox[{"horizontal", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Legacy", "@", "BurntUmber"}], ",", 
       RowBox[{"ComplexCurve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "s"}], ")"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "+", 
             RowBox[{"b", " ", "\[ImaginaryI]"}]}], ")"}]}], "+", 
          RowBox[{"s", 
           RowBox[{"(", 
            RowBox[{"\[Pi]", "+", 
             RowBox[{"b", " ", "\[ImaginaryI]"}]}], ")"}]}]}], ",", 
         RowBox[{"{", 
          RowBox[{"s", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "}"}]}], ";", 
    "\n", "\[IndentingNewLine]", 
    RowBox[{"pts", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "0.025", "]"}], ",", 
       RowBox[{"Legacy", "@", "Sepia"}], ",", 
       RowBox[{"ComplexPoint", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "3"}], 
          RowBox[{"\[Pi]", "/", "4"}]}], "+", 
         RowBox[{"b", " ", "\[ImaginaryI]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Legacy", "@", "GeraniumLake"}], ",", 
       RowBox[{"ComplexPoint", "[", 
        RowBox[{"b", " ", "\[ImaginaryI]"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Legacy", "@", "CadmiumOrange"}], ",", 
       RowBox[{"ComplexPoint", "[", 
        RowBox[{
         RowBox[{"3", 
          RowBox[{"\[Pi]", "/", "4"}]}], "+", 
         RowBox[{"b", " ", "\[ImaginaryI]"}]}], "]"}]}], "}"}]}], ";", "\n", 
    "\[IndentingNewLine]", 
    RowBox[{"domainObjects", "=", 
     RowBox[{"{", 
      RowBox[{"grid", ",", "horizontal", ",", "pts"}], "}"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"domain", "=", 
     RowBox[{"Draw2D", "[", 
      RowBox[{
       RowBox[{"{", "domainObjects", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Axes", "\[Rule]", "True"}], ",", 
       RowBox[{"AxesStyle", "\[Rule]", 
        RowBox[{"Legacy", "@", "DimGray"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           FractionBox["\[Pi]", "2"], " ", 
           RowBox[{"Range", "[", 
            RowBox[{
             RowBox[{"-", "2"}], ",", "2"}], "]"}]}], ",", "Automatic"}], 
         "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"BaseStyle", "\[Rule]", "14"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", 
        RowBox[{"Scaled", "[", "0.4", "]"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"image", "=", 
     RowBox[{"Draw2D", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"domainObjects", "//", 
         RowBox[{"ComplexMap", "[", "Sin", "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Axes", "\[Rule]", "True"}], ",", 
       RowBox[{"AxesStyle", "\[Rule]", 
        RowBox[{"Legacy", "@", "DimGray"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"BaseStyle", "\[Rule]", "14"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", 
        RowBox[{"Scaled", "[", "0.4", "]"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\n", 
    RowBox[{"GraphicsRow", "[", 
     RowBox[{"{", 
      RowBox[{"domain", ",", "image"}], "}"}], "]"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.497830696015625*^9, 3.497830892984375*^9}, {
  3.497830934875*^9, 3.497831091828125*^9}, {3.497870789421875*^9, 
  3.497870797203125*^9}, {3.497870843984375*^9, 3.4978708803125*^9}, {
  3.4978709284375*^9, 3.497870975765625*^9}, {3.497871016484375*^9, 
  3.497871050140625*^9}, {3.4981548925625*^9, 3.498154912421875*^9}, {
  3.49815495003125*^9, 3.498154972046875*^9}, {3.498155225265625*^9, 
  3.4981553188125*^9}, {3.498155355515625*^9, 3.498155445734375*^9}, {
  3.498155563125*^9, 3.4981555656875*^9}, {3.498155708109375*^9, 
  3.4981558695*^9}, {3.49815597059375*^9, 3.498155997484375*^9}, {
  3.4981561535625*^9, 3.498156171578125*^9}}],

Cell[TextData[{
 "(The ",
 StyleBox["With",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " expression ",
 StyleBox["With[{b=0.8},",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 StyleBox["\[Ellipsis]",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox["]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " above is used to localize the value of the variable ",
 StyleBox["b",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". This means that evaluating the entire expression will not cause a value \
to be assigned to b globally, nor will any previously assigned value of b be \
overwritten.) "
}], "Text",
 CellChangeTimes->{{3.49815617578125*^9, 3.498156220734375*^9}, {
  3.49815625265625*^9, 3.4981563105*^9}, {3.49815636553125*^9, 
  3.498156369296875*^9}}],

Cell[TextData[{
 "To verify that ",
 Cell[BoxData[
  FormBox["sin", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " does indeed map a horizontal line to an ellipse, begin by obtaining the \
Cartesian form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"u", "(", 
     RowBox[{"x", ",", "b"}], "}"}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"v", "(", 
      RowBox[{"x", ",", "b"}], ")"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"sin", "(", 
    RowBox[{"x", "+", 
     RowBox[{"b", " ", "\[ImaginaryI]"}]}], ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " for a fixed imaginary part ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]],
  FormatType->"TraditionalForm"],
 ":"
}], "Text",
 CellChangeTimes->{{3.49815775359375*^9, 3.498157834234375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"u", ",", "v"}], "}"}], "=", 
  RowBox[{
   RowBox[{"Through", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Re", ",", "Im"}], "}"}], "[", 
     RowBox[{"Sin", "[", 
      RowBox[{"x", "+", 
       RowBox[{"b", " ", "\[ImaginaryI]"}]}], "]"}], "]"}], "]"}], "//", 
   "ComplexExpand"}]}]], "Input",
 CellChangeTimes->{{3.498157623125*^9, 3.4981577330625*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " By using ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " or otherwise, prove that ",
 Cell[BoxData[
  FormBox["sin", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " maps a horizontal line onto an ellipse centered at the origin."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.49779534216282*^9, 3.497795386147195*^9}, {3.49780217153782*^9, 
  3.497802381959695*^9}, {3.497802537365945*^9, 3.497802560147195*^9}, {
  3.498157877421875*^9, 3.498157907546875*^9}}],

Cell["\<\
And examine more closely the way a vertical line maps to an arc of a \
hyperbola with center at the origin:\
\>", "Text",
 CellChangeTimes->{{3.498155628765625*^9, 3.498155643390625*^9}}],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", "=", "0.5"}], "}"}], ",", 
   RowBox[{
    RowBox[{"vertical", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Legacy", "@", "CobaltGreen"}], ",", 
       RowBox[{"ComplexCurve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "s"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"a", "-", 
             RowBox[{"1.5", " ", "\[ImaginaryI]"}]}], ")"}]}], "+", 
          RowBox[{"s", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"1.5", " ", "\[ImaginaryI]"}]}], ")"}]}]}], ",", 
         RowBox[{"{", 
          RowBox[{"s", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "}"}]}], ";", 
    "\n", "\[IndentingNewLine]", 
    RowBox[{"pts", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "0.025", "]"}], ",", 
       RowBox[{"Legacy", "@", "Sepia"}], ",", 
       RowBox[{"ComplexPoint", "[", 
        RowBox[{"a", "-", 
         RowBox[{"1.5", "\[ImaginaryI]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Legacy", "@", "GeraniumLake"}], ",", 
       RowBox[{"ComplexPoint", "[", "a", "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Legacy", "@", "CadmiumOrange"}], ",", 
       RowBox[{"ComplexPoint", "[", 
        RowBox[{"a", "+", 
         RowBox[{"1.5", " ", "\[ImaginaryI]"}]}], "]"}]}], "}"}]}], ";", 
    "\[IndentingNewLine]", "\n", 
    RowBox[{"domainObjects", "=", 
     RowBox[{"{", 
      RowBox[{"grid", ",", "vertical", ",", "pts"}], "}"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"domain", "=", 
     RowBox[{"Draw2D", "[", 
      RowBox[{
       RowBox[{"{", "domainObjects", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Axes", "\[Rule]", "True"}], ",", 
       RowBox[{"AxesStyle", "\[Rule]", 
        RowBox[{"Legacy", "@", "DimGray"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"Ticks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Pi]", "/", "2"}], " ", 
           RowBox[{"Range", "[", 
            RowBox[{
             RowBox[{"-", "2"}], ",", "2"}], "]"}]}], ",", "Automatic"}], 
         "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"BaseStyle", "\[Rule]", "14"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", 
        RowBox[{"Scaled", "[", "0.4", "]"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"image", "=", 
     RowBox[{"Draw2D", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"domainObjects", "//", 
         RowBox[{"ComplexMap", "[", "Sin", "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Axes", "\[Rule]", "True"}], ",", 
       RowBox[{"AxesStyle", "\[Rule]", 
        RowBox[{"Legacy", "@", "DimGray"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"BaseStyle", "\[Rule]", "14"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", 
        RowBox[{"Scaled", "[", "0.4", "]"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\n", 
    RowBox[{"GraphicsRow", "[", 
     RowBox[{"{", 
      RowBox[{"domain", ",", "image"}], "}"}], "]"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.497830696015625*^9, 3.497830892984375*^9}, {
   3.497830934875*^9, 3.497831091828125*^9}, {3.497870789421875*^9, 
   3.497870797203125*^9}, {3.497870843984375*^9, 3.4978708803125*^9}, {
   3.4978709284375*^9, 3.497870975765625*^9}, {3.497871016484375*^9, 
   3.497871050140625*^9}, {3.4981548925625*^9, 3.498154912421875*^9}, {
   3.49815495003125*^9, 3.498154972046875*^9}, {3.498155225265625*^9, 
   3.4981553188125*^9}, {3.498155355515625*^9, 3.49815541696875*^9}, 
   3.498155450125*^9, {3.498155537328125*^9, 3.4981555496875*^9}, 
   3.498155951109375*^9, {3.498156014875*^9, 3.49815601940625*^9}, {
   3.498156320125*^9, 3.498156329125*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " By using ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " or otherwise, prove that ",
 Cell[BoxData[
  FormBox["sin", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " maps a vertical line onto an arc of a hyperbola centered at the origin."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.49779534216282*^9, 3.497795386147195*^9}, {3.49780217153782*^9, 
  3.497802381959695*^9}, {3.497802537365945*^9, 3.497802560147195*^9}, {
  3.498157877421875*^9, 3.49815793415625*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Make the preceding figures dynamic by using controls that move the \
horizontal and vertical lines."
}], "Exercise",
 CellChangeTimes->{{3.49797612496875*^9, 3.49797618815625*^9}, {
  3.49815604115625*^9, 3.49815606265625*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Make the preceding figure dynamic by using locator control to show how an \
individual point maps."
}], "Exercise",
 CellChangeTimes->{{3.49797612496875*^9, 3.49797623528125*^9}, {
  3.498156067296875*^9, 3.49815608528125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Principal value of inverse sine function", "Section",
 CellChangeTimes->{{3.49787177953125*^9, 3.497871827640625*^9}}],

Cell[CellGroupData[{

Cell["Principal value of arcsin", "Subsection",
 CellChangeTimes->{{3.497871517609375*^9, 3.497871524*^9}}],

Cell[TextData[{
 "For the principal value ",
 Cell[BoxData[
  FormBox["Arcsin", TraditionalForm]]],
 " of the complex arcsin function, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " uses ",
 StyleBox["ArcSin",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{{3.4978715338125*^9, 3.49787156*^9}}],

Cell[TextData[{
 "Try to find the exact value of the principal inverse sine of a real number, \
namely, ",
 Cell[BoxData[
  FormBox[
   RowBox[{"5", "/", "4"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", that is outside the domain of the real ",
 Cell[BoxData[
  FormBox["arcsin", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " function (which is the closed interval ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1"}], "]"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", of course). So you should expect a non-real result."
}], "Text",
 CellChangeTimes->{{3.497871197796875*^9, 3.49787134*^9}, {
  3.497871371390625*^9, 3.49787137259375*^9}}],

Cell[BoxData[
 RowBox[{"ArcSin", "[", 
  RowBox[{"5", "/", "4"}], "]"}]], "Input"],

Cell[TextData[{
 "Force ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to provide a value:"
}], "Text",
 CellChangeTimes->{{3.497871343734375*^9, 3.497871352125*^9}}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"ArcSin", "[", 
   RowBox[{"5", "/", "4"}], "]"}], "]"}]], "Input"],

Cell["\<\
Express the principal value of the complex inverse sine in terms of more \
basic complex functions:\
\>", "Text",
 CellChangeTimes->{{3.49787135621875*^9, 3.49787143534375*^9}}],

Cell[BoxData[
 RowBox[{"TrigToExp", "[", 
  RowBox[{"ArcSin", "[", "z", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.497871087796875*^9, 3.497871099359375*^9}}],

Cell[TextData[{
 "Note that the square-root in the preceding expression will be complex if ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " is not in the closed interval ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1"}], "]"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", for example, if ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"5", "/", "4"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ":"
}], "Text",
 CellChangeTimes->{{3.4978714705625*^9, 3.497871508875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "\[ImaginaryI]"}], " ", 
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "z"}], "+", 
     SqrtBox[
      RowBox[{"1", "-", 
       SuperscriptBox["z", "2"]}]]}], "]"}]}], "/.", 
  RowBox[{"z", "\[Rule]", 
   RowBox[{"5", "/", "4"}]}]}]], "Input",
 CellChangeTimes->{{3.497871445625*^9, 3.497871466484375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Mapping properties of complex ",
 Cell[BoxData[
  FormBox["Arcsin", TraditionalForm]]]
}], "Subsection"],

Cell[TextData[{
 "Try to visualize the image of the open upper half-plane ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{"z", ":", 
     RowBox[{
      RowBox[{"Im", " ", "z"}], ">", "0"}]}], "}"}], TraditionalForm]]],
 ". To do so, start the vertical lines in the grid at a small positive value \
rather than at 0:"
}], "Text",
 CellChangeTimes->{{3.4978781644375*^9, 3.4978781764375*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"grid", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Opacity", "[", 
       RowBox[{"0.5", ",", 
        RowBox[{"HTML", "@", "Linen"}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"DrawCartesianMap", "[", 
       RowBox[{"z", ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", 
          RowBox[{
           RowBox[{"-", "20"}], "+", 
           RowBox[{"0.01", "\[ImaginaryI]"}]}], ",", 
          RowBox[{"20", "+", 
           RowBox[{"40", "\[ImaginaryI]"}]}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Mesh", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"24", ",", "24"}], "}"}]}], ",", 
        RowBox[{"MeshStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"HTML", "@", "SeaGreen"}], ",", 
           RowBox[{"Legacy", "@", "Sepia"}]}], "}"}]}], ",", 
        RowBox[{"PlotPoints", "\[Rule]", "150"}]}], "]"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"domain", "=", 
    RowBox[{"Draw2D", "[", 
     RowBox[{
      RowBox[{"{", "grid", "}"}], ",", 
      RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"Scaled", "[", "0.4", "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"image", "=", 
    RowBox[{"Draw2D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"grid", "//", 
        RowBox[{"ComplexMap", "[", "ArcSin", "]"}]}], "}"}], ",", 
      RowBox[{"Axes", "\[Rule]", "True"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"Scaled", "[", "0.4", "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{"domain", ",", "image"}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.4978715845625*^9, 3.49787175384375*^9}, {
  3.497878143828125*^9, 3.4978781540625*^9}, {3.497878214296875*^9, 
  3.4978783596875*^9}, {3.497878509546875*^9, 3.49787851303125*^9}, {
  3.497878543953125*^9, 3.49787859503125*^9}, {3.49787867234375*^9, 
  3.49787871309375*^9}, {3.498157977375*^9, 3.49815798153125*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " What does the image of the upper half-plane under Arcsin seem to be?"
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.49779534216282*^9, 3.497795386147195*^9}, {3.497801687928445*^9, 
  3.49780173841282*^9}, {3.497878399*^9, 3.4978784948125*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Investigate what the images of vertical open rays starting on the real \
axis are and what the images of horizontal lines are under Arcsin."
}], "Exercise",
 CellChangeTimes->{{3.497794830459695*^9, 3.49779486300657*^9}, {
  3.49779534216282*^9, 3.497795386147195*^9}, {3.497801687928445*^9, 
  3.49780173841282*^9}, {3.497878399*^9, 3.497878470015625*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Reference", "Section",
 CellChangeTimes->{{3.49609349796875*^9, 3.49609349940625*^9}}],

Cell[TextData[{
 "[1] Murray Eisenberg and David J. M. Park, Jr., Visualizing Complex \
Functions with the ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " Application, ",
 StyleBox["The Mathematica Journal",
  FontSlant->"Italic"],
 " ",
 StyleBox["11",
  FontWeight->"Bold"],
 ", no. 2 (2009), 226\[Dash]252."
}], "Text",
 CellChangeTimes->{{3.496093508640625*^9, 3.496093582328125*^9}, {
  3.496093626765625*^9, 3.4960936443125*^9}},
 CellTags->"MeAndParkTMJ11#2"]
}, Closed]]
}, Open  ]]
},
AutoGeneratedPackage->None,
InitializationCellEvaluation->True,
WindowSize->{616, 575},
WindowMargins->{{84, Automatic}, {Automatic, 23}},
ShowSelection->True,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    CellGroupData[{
      Cell["Style Environment Names", "Section"], 
      Cell[
       StyleData[All, "Working"], Background -> 
       RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], 
      Cell[
       StyleData[All, "Presentation"], Background -> 
       RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], 
      Cell[
       StyleData[All, "SlideShow"], Background -> 
       RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], 
      Cell[
       StyleData[All, "Condensed"], Background -> 
       RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], 
      Cell[
       StyleData[All, "Printout"], Background -> None]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Notebook Options Settings", "Section"], 
      Cell[
       StyleData["Notebook"], ShowCellBracket -> Automatic, 
       InputAliases -> {"intt" -> RowBox[{"\[Integral]", 
            RowBox[{"\[SelectionPlaceholder]", 
              RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "dintt" -> 
         RowBox[{
            SubsuperscriptBox[
            "\[Integral]", "\[SelectionPlaceholder]", "\[Placeholder]"], 
            RowBox[{"\[Placeholder]", 
              RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "sumt" -> 
         RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], 
             "\[Placeholder]"], "\[Placeholder]"}], "prodt" -> RowBox[{
            UnderoverscriptBox["\[Product]", 
             RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], 
             "\[Placeholder]"], "\[Placeholder]"}], "dt" -> RowBox[{
            SubscriptBox["\[PartialD]", "\[Placeholder]"], " ", 
            "\[SelectionPlaceholder]"}], "prime" -> "\:02b9", "dprime" -> 
         "\:02ba"}, Magnification -> 1.04]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Title and Section Cells", "Section"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Title"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 5}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold", 
          FontColor -> GrayLevel[0], Background -> 
          RGBColor[0.737255, 0.894118, 0.807843]], 
         Cell[
          StyleData["Title", "Printout"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 5}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontFamily -> "Helvetica", FontSize -> 26, FontWeight -> "Bold", 
          FontColor -> GrayLevel[0], Background -> None]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subtitle"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 0}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontFamily -> "Helvetica", FontSize -> 24, Background -> 
          RGBColor[0.815686, 0.901961, 0.92549]], 
         Cell[
          StyleData["Subtitle", "Printout"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 0}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontFamily -> "Helvetica", FontSize -> 18, Background -> None]}, 
        Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Chaptertitle"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 0}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1170, FontFamily -> "Helvetica", FontSize -> 24, 
          Background -> RGBColor[0.941176, 0.87451, 0.784314]], 
         Cell[
          StyleData["Chaptertitle", "Printout"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 0}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1170, FontFamily -> "Helvetica", FontSize -> 18, 
          Background -> None]}, Open]], 
      Cell[
       StyleData["Subsubtitle"], ShowCellBracket -> False, 
       CellMargins -> {{12, Inherited}, {20, 5}}, FontFamily -> "Helvetica", 
       FontSize -> 14, FontWeight -> "Bold", FontSlant -> "Plain"], 
      Cell[
       StyleData["Section"], CellFrame -> False, ShowGroupOpener -> True, 
       AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}], 
      Cell[
       StyleData["Subsection"], CellDingbat -> "", ShowGroupOpener -> True, 
       AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}], 
      Cell[
       StyleData["Subsubsection"], CellDingbat -> "", ShowGroupOpener -> True,
        AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}], 
      Cell[
       StyleData["Subsubsubsection"], CellDingbat -> "", ShowGroupOpener -> 
       True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"},
        MenuPosition -> 1360], 
      Cell[
       StyleData["Subsubsubsubsection"], ShowGroupOpener -> True, 
       AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
       MenuPosition -> 1370]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Body Text", "Section"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Text"], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontSize -> 14], 
         Cell[
          StyleData["Text", "Printout"], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontSize -> 10]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EvaluatableText", StyleDefinitions -> StyleData["Text"]],
           Evaluator -> None, Evaluatable -> True, MenuPosition -> 1405], 
         Cell[
          StyleData["EvaluatableText", "Printout"], Evaluator -> None, 
          Evaluatable -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1405, FontSize -> 10]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EmphasisText", StyleDefinitions -> StyleData["Text"]], 
          CellFrame -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1410, FontFamily -> "Helvetica", FontSize -> 14], 
         Cell[
          StyleData["EmphasisText", "Printout"], CellFrame -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1410, FontFamily -> "Helvetica", FontSize -> 10]}, 
        Open]], 
      Cell[
       StyleData["BlueComments", StyleDefinitions -> StyleData["Text"]], 
       AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
       MenuPosition -> 1420, FontSize -> 14, Background -> 
       RGBColor[0.941207, 0.972503, 1]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "Exercise", StyleDefinitions -> StyleData["BlueComments"]], 
          CellFrame -> True, TextJustification -> 0.5, Hyphenation -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          CounterIncrements -> "Exercise", MenuPosition -> 1425, FontSize -> 
          14, Background -> RGBColor[0.941207, 0.972503, 1]], 
         Cell[
          StyleData[
          "Exercise", "Printout", StyleDefinitions -> StyleData["Text"]], 
          CellFrame -> True, TextJustification -> 0.5, Hyphenation -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          CounterIncrements -> "Exercise", MenuPosition -> 1425, FontSize -> 
          10], 
         Cell[
          StyleData[
          "BlueComments", "Printout", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, 
          Hyphenation -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1420, FontSize -> 10]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["PinkComments", StyleDefinitions -> StyleData["Text"]], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1430, FontSize -> 14, Background -> 
          RGBColor[1, 0.894102, 0.882399]], 
         Cell[
          StyleData[
          "PinkComments", "Printout", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, 
          Hyphenation -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1430, FontSize -> 10]}, Open]]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Input and Output Cells", "Section"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Input"], FontSize -> 13, FontWeight -> "Bold", 
          Background -> RGBColor[0.976471, 0.909804, 0.815686]], 
         Cell[
          StyleData["Input", "Printout"], FontSize -> 10, FontWeight -> 
          "Bold", Background -> None]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Output"], FontSize -> 14, FontWeight -> "Bold"], 
         Cell[
          StyleData["Output", "Printout"], FontSize -> 10, FontWeight -> 
          "Bold"]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MSG"], FontSize -> 14], 
         Cell[
          StyleData["MSG", "Printout"], FontSize -> 10]}, Open]]}, Closed]]}, 
  Visible -> False, FrontEndVersion -> 
  "7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "initialization"->{
  Cell[5989, 181, 261, 5, 36, "Section",
   CellTags->"initialization"]},
 "MeAndParkTMJ11#2"->{
  Cell[61072, 1906, 475, 15, 53, "Text",
   CellTags->"MeAndParkTMJ11#2"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"initialization", 71826, 2151},
 {"MeAndParkTMJ11#2", 71923, 2154}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 152, 2, 44, "Subsubtitle"],
Cell[CellGroupData[{
Cell[722, 26, 88, 2, 44, "Subtitle"],
Cell[813, 30, 515, 9, 44, "Subsubtitle"],
Cell[1331, 41, 249, 7, 24, "SmallText"],
Cell[CellGroupData[{
Cell[1605, 52, 91, 1, 67, "Section"],
Cell[1699, 55, 239, 4, 54, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[1975, 64, 146, 2, 36, "Section"],
Cell[CellGroupData[{
Cell[2146, 70, 141, 2, 38, "Subsection"],
Cell[2290, 74, 523, 13, 31, "Text"],
Cell[2816, 89, 1266, 31, 90, "Text"],
Cell[4085, 122, 946, 26, 92, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[5068, 153, 98, 1, 38, "Subsection"],
Cell[5169, 156, 771, 19, 52, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[5989, 181, 261, 5, 36, "Section",
 CellTags->"initialization"],
Cell[6253, 188, 774, 15, 100, "Text"],
Cell[7030, 205, 222, 5, 48, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[7289, 215, 121, 1, 36, "Section"],
Cell[CellGroupData[{
Cell[7435, 220, 224, 3, 38, "Subsection"],
Cell[7662, 225, 885, 28, 69, "Text"],
Cell[8550, 255, 553, 14, 31, "Text"],
Cell[9106, 271, 1107, 34, 99, "Input"],
Cell[10216, 307, 697, 19, 73, "Exercise"]
}, Closed]],
Cell[CellGroupData[{
Cell[10950, 331, 209, 4, 38, "Subsection"],
Cell[11162, 337, 304, 11, 32, "Text"],
Cell[11469, 350, 52, 1, 48, "Input"],
Cell[11524, 353, 179, 4, 31, "Text"],
Cell[11706, 359, 92, 2, 48, "Input"],
Cell[11801, 363, 481, 13, 52, "Exercise"],
Cell[12285, 378, 287, 9, 32, "Text"],
Cell[12575, 389, 128, 3, 48, "Input"],
Cell[12706, 394, 925, 30, 57, "Exercise"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[13680, 430, 34, 0, 36, "Section"],
Cell[CellGroupData[{
Cell[13739, 434, 224, 6, 38, "Subsection"],
Cell[13966, 442, 207, 4, 32, "Text"],
Cell[14176, 448, 662, 23, 52, "EmphasisText"],
Cell[14841, 473, 427, 9, 54, "Text"],
Cell[15271, 484, 304, 8, 49, "Input"],
Cell[15578, 494, 509, 15, 49, "Input"],
Cell[16090, 511, 147, 2, 49, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[16274, 518, 245, 9, 30, "Subsection"],
Cell[16522, 529, 222, 5, 48, "Input"],
Cell[16747, 536, 382, 12, 52, "Exercise"],
Cell[17132, 550, 382, 12, 52, "Exercise"]
}, Closed]],
Cell[CellGroupData[{
Cell[17551, 567, 104, 4, 30, "Subsection"],
Cell[17658, 573, 210, 6, 31, "Text"],
Cell[17871, 581, 167, 4, 48, "Input"],
Cell[18041, 587, 605, 17, 73, "Exercise"],
Cell[18649, 606, 536, 14, 52, "Exercise"],
Cell[19188, 622, 371, 12, 31, "Text"],
Cell[19562, 636, 2809, 81, 244, "Input"],
Cell[22374, 719, 2338, 63, 279, "Input"],
Cell[24715, 784, 817, 22, 92, "Text"],
Cell[25535, 808, 407, 11, 52, "Text"],
Cell[25945, 821, 1257, 29, 189, "Input"],
Cell[27205, 852, 577, 17, 81, "Exercise"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[27831, 875, 44, 0, 36, "Section"],
Cell[27878, 877, 195, 8, 31, "Text"],
Cell[28076, 887, 74, 2, 48, "Input"],
Cell[28153, 891, 277, 5, 31, "Text"],
Cell[28433, 898, 479, 11, 64, "Input"],
Cell[28915, 911, 230, 5, 48, "Input"],
Cell[29148, 918, 110, 1, 31, "Text"],
Cell[29261, 921, 700, 22, 64, "Input"],
Cell[29964, 945, 255, 8, 31, "Text"],
Cell[30222, 955, 223, 6, 48, "Input"],
Cell[30448, 963, 143, 3, 48, "Input"],
Cell[30594, 968, 1067, 35, 91, "Exercise"],
Cell[31664, 1005, 359, 10, 52, "Text"],
Cell[32026, 1017, 92, 2, 48, "Input"],
Cell[32121, 1021, 210, 5, 48, "Input"],
Cell[32334, 1028, 311, 8, 48, "Input"],
Cell[32648, 1038, 487, 13, 52, "Exercise"]
}, Closed]],
Cell[CellGroupData[{
Cell[33172, 1056, 103, 4, 36, "Section"],
Cell[33278, 1062, 355, 14, 31, "Text"],
Cell[33636, 1078, 212, 6, 48, "Input"],
Cell[33851, 1086, 324, 13, 31, "Text"],
Cell[34178, 1101, 290, 8, 48, "Input"],
Cell[34471, 1111, 142, 2, 48, "Input"],
Cell[34616, 1115, 98, 1, 31, "Text"],
Cell[34717, 1118, 422, 13, 48, "EmphasisText"],
Cell[35142, 1133, 482, 14, 52, "Exercise"],
Cell[35627, 1149, 978, 35, 97, "Text"],
Cell[36608, 1186, 619, 17, 73, "Exercise"]
}, Closed]],
Cell[CellGroupData[{
Cell[37264, 1208, 116, 4, 36, "Section"],
Cell[37383, 1214, 146, 3, 31, "Text"],
Cell[37532, 1219, 1443, 36, 129, "Input"],
Cell[38978, 1257, 124, 1, 31, "Text"],
Cell[39105, 1260, 1859, 45, 224, "Input"],
Cell[40967, 1307, 219, 4, 31, "Text"],
Cell[41189, 1313, 180, 4, 31, "Text"],
Cell[41372, 1319, 4147, 101, 483, "Input"],
Cell[45522, 1422, 894, 30, 53, "Text"],
Cell[46419, 1454, 857, 29, 52, "Text"],
Cell[47279, 1485, 417, 13, 48, "Input"],
Cell[47699, 1500, 677, 20, 52, "Exercise"],
Cell[48379, 1522, 197, 4, 31, "Text"],
Cell[48579, 1528, 3921, 93, 449, "Input"],
Cell[52503, 1623, 685, 20, 73, "Exercise"],
Cell[53191, 1645, 389, 12, 52, "Exercise"],
Cell[53583, 1659, 389, 12, 52, "Exercise"]
}, Closed]],
Cell[CellGroupData[{
Cell[54009, 1676, 124, 1, 36, "Section"],
Cell[CellGroupData[{
Cell[54158, 1681, 107, 1, 38, "Subsection"],
Cell[54268, 1684, 362, 14, 31, "Text"],
Cell[54633, 1700, 721, 21, 52, "Text"],
Cell[55357, 1723, 82, 2, 48, "Input"],
Cell[55442, 1727, 174, 6, 31, "Text"],
Cell[55619, 1735, 123, 3, 48, "Input"],
Cell[55745, 1740, 187, 4, 31, "Text"],
Cell[55935, 1746, 161, 3, 48, "Input"],
Cell[56099, 1751, 598, 20, 52, "Text"],
Cell[56700, 1773, 385, 12, 63, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[57122, 1790, 122, 4, 38, "Subsection"],
Cell[57247, 1796, 401, 11, 52, "Text"],
Cell[57651, 1809, 2306, 59, 249, "Input"],
Cell[59960, 1870, 446, 12, 52, "Exercise"],
Cell[60409, 1884, 519, 13, 73, "Exercise"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[60977, 1903, 92, 1, 36, "Section"],
Cell[61072, 1906, 475, 15, 53, "Text",
 CellTags->"MeAndParkTMJ11#2"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)