(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     62218,       1314]
NotebookOptionsPosition[     45772,       1014]
NotebookOutlinePosition[     62135,       1309]
CellTagsIndexPosition[     62092,       1306]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "H = ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"1", "+", "\[Gamma]"}], 
    RowBox[{"1", " ", "+", " ", "\[Alpha]"}]], TraditionalForm]]],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"1", " ", "+", " ", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{
       RowBox[{"tanh", "[", 
        SqrtBox[
         RowBox[{"\[ImaginaryI]", " ", "u"}]], "]"}], "/", 
       SqrtBox[
        RowBox[{"\[ImaginaryI]", " ", "u"}]]}]}]}], 
    RowBox[{"1", "+", " ", 
     RowBox[{"\[Beta]", " ", "\[ImaginaryI]", " ", "u"}], " ", "+", 
     RowBox[{"\[Gamma]", " ", 
      RowBox[{
       RowBox[{"tanh", "[", 
        SqrtBox[
         RowBox[{"\[ImaginaryI]", " ", "u"}]], "]"}], "/", 
       SqrtBox[
        RowBox[{"\[ImaginaryI]", " ", "u"}]]}]}], "+", 
     RowBox[{"\[Delta]", " ", "\[ImaginaryI]", " ", "u", " ", 
      RowBox[{
       RowBox[{"tanh", "[", 
        SqrtBox[
         RowBox[{"\[ImaginaryI]", " ", "u"}]], "]"}], "/", 
       SqrtBox[
        RowBox[{"\[ImaginaryI]", " ", "u"}]]}]}]}]], TraditionalForm]]]
}], "Section",
 CellChangeTimes->{{3.403415856707246*^9, 3.4034159010519753`*^9}, {
   3.403842695580738*^9, 3.403842698565597*^9}, {3.406459875106577*^9, 
   3.406459906072886*^9}, 3.406689909722328*^9, {3.4066943349019527`*^9, 
   3.40669433984967*^9}, {3.4067217324958153`*^9, 3.406721754220429*^9}, {
   3.436850291097322*^9, 3.436850304382559*^9}, {3.436854144789102*^9, 
   3.4368542000330563`*^9}, {3.441322796871954*^9, 3.441322854026575*^9}, {
   3.441323991023061*^9, 3.4413239943270884`*^9}, {3.444474600453298*^9, 
   3.444474635296184*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"xmin", "=", 
      RowBox[{"-", "2"}]}], ";", 
     RowBox[{"xmax", "=", 
      RowBox[{"+", "0.5"}]}], ";", 
     RowBox[{"r", "=", "1.75"}], ";", 
     RowBox[{"a", "=", 
      RowBox[{"10", "^", "loga"}]}], ";", 
     RowBox[{"b", "=", 
      RowBox[{"10", "^", "logb"}]}], ";", 
     RowBox[{"c", "=", 
      RowBox[{"10", "^", "logc"}]}], ";", 
     RowBox[{"d", "=", 
      RowBox[{"10", "^", "logd"}]}], ";", 
     RowBox[{"wc1", "=", "2.54"}], ";", 
     RowBox[{"wc2", "=", 
      RowBox[{"1", "/", "b"}]}], ";", 
     RowBox[{"wmin", "=", 
      RowBox[{"Min", "[", 
       RowBox[{"wc1", ",", "wc2"}], "]"}]}], ";", 
     RowBox[{"wmax", "=", 
      RowBox[{"Max", "[", 
       RowBox[{"wc1", ",", "wc2"}], "]"}]}], ";", 
     RowBox[{"dlogw", "=", "4"}], ";", 
     RowBox[{"den", "=", 
      RowBox[{"Denominator", "[", 
       RowBox[{
        RowBox[{"HPr", "[", 
         RowBox[{"5", ",", "a", ",", "b", ",", "c", ",", "d", ",", "p"}], 
         "]"}], "//", "Together"}], "]"}]}], ";", 
     RowBox[{"poles", "=", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"den", "\[Equal]", "0"}], ",", "p"}], "]"}]}], ";", 
     RowBox[{"lCroix", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Croix", "[", 
         RowBox[{"p", "/.", 
          RowBox[{"poles", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"Length", "[", "poles", "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"num", "=", 
      RowBox[{"Numerator", "[", 
       RowBox[{
        RowBox[{"HPr", "[", 
         RowBox[{"5", ",", "a", ",", "b", ",", "c", ",", "d", ",", "p"}], 
         "]"}], "//", "Together"}], "]"}]}], ";", 
     RowBox[{"zeros", "=", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"num", "\[Equal]", "0"}], ",", "p"}], "]"}]}], ";", 
     RowBox[{"lCircles", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Circle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"p", "/.", 
               RowBox[{"zeros", "[", 
                RowBox[{"[", "i", "]"}], "]"}]}], ")"}], "//", "Chop"}], ",", 
            "0"}], "}"}], ",", 
          RowBox[{"3", "r"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"Length", "[", "zeros", "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Grid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Plot", "[", 
           RowBox[{",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"AbsoluteThickness", "[", "1.2", "]"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "200"}], ",", "2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "100"}], ",", "100"}], "}"}]}], "}"}]}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Frame", "\[Rule]", "True"}], ",", 
            RowBox[{"Epilog", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"AbsoluteThickness", "[", "1.5", "]"}], ",", "Red", 
               ",", "lCroix", ",", "Black", ",", "lCircles"}], "}"}]}], ",", 
            RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
            RowBox[{"FrameLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<Re s\>\"", ",", "\"\<Im s\>\""}], "}"}]}], ",", 
            RowBox[{"ImageSize", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"300", ",", "200"}], "}"}]}], ",", 
            RowBox[{"BaseStyle", "->", 
             StyleBox["mySt",
              FontWeight->"Plain"]}]}], "]"}], ",", 
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"Log", "[", 
             RowBox[{"10", ",", 
              RowBox[{"Abs", "[", 
               RowBox[{"H", "[", 
                RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", 
                 RowBox[{"I", " ", 
                  RowBox[{"10", "^", "logu"}]}]}], "]"}], "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"logu", ",", 
              RowBox[{
               RowBox[{"Log", "[", 
                RowBox[{"10", ",", "wmin"}], "]"}], "-", "dlogw"}], ",", 
              RowBox[{
               RowBox[{"Log", "[", 
                RowBox[{"10", ",", "wmax"}], "]"}], "+", "dlogw"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], ",", 
            RowBox[{"Frame", "\[Rule]", "True"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "250"}], ",", 
            RowBox[{"Axes", "\[Rule]", "None"}], ",", 
            RowBox[{"FrameLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<log u\>\"", ",", "\"\<log |H|\>\""}], "}"}]}], ",", 
            RowBox[{"Epilog", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"AbsoluteDashing", "[", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "2"}], "}"}], "]"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{"w1", ",", 
                 RowBox[{"{", 
                  RowBox[{"Red", ",", 
                   RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    RowBox[{"10", ",", "wc1"}], "]"}], ",", 
                    RowBox[{"Log", "[", 
                    RowBox[{"10", ",", 
                    RowBox[{"Abs", "[", 
                    RowBox[{"H", "[", 
                    RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", 
                    RowBox[{"I", " ", 
                    RowBox[{"10", "^", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    RowBox[{"10", ",", "wmax"}], "]"}], "+", "dlogw"}], 
                    ")"}]}]}]}], "]"}], "]"}]}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    RowBox[{"10", ",", "wc1"}], "]"}], ",", "3"}], "}"}]}], 
                    "}"}], "]"}]}], "}"}], ",", 
                 RowBox[{"{", "}"}]}], "]"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{"w2", ",", 
                 RowBox[{"{", 
                  RowBox[{"Black", ",", 
                   RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    RowBox[{"10", ",", "wc2"}], "]"}], ",", 
                    RowBox[{"Log", "[", 
                    RowBox[{"10", ",", 
                    RowBox[{"Abs", "[", 
                    RowBox[{"H", "[", 
                    RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", 
                    RowBox[{"I", " ", 
                    RowBox[{"10", "^", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    RowBox[{"10", ",", "wmax"}], "]"}], "+", "dlogw"}], 
                    ")"}]}]}]}], "]"}], "]"}]}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    RowBox[{"10", ",", "wc2"}], "]"}], ",", "3"}], "}"}]}], 
                    "}"}], "]"}]}], "}"}], ",", 
                 RowBox[{"{", "}"}]}], "]"}]}], "}"}]}], ",", 
            RowBox[{"BaseStyle", "->", 
             StyleBox["mySt",
              FontWeight->"Plain"]}]}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ParametricPlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Re", "[", 
                RowBox[{"H", "[", 
                 RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", 
                  RowBox[{"I", " ", 
                   RowBox[{"10", "^", "logu"}]}]}], "]"}], "]"}], ",", 
               RowBox[{"-", 
                RowBox[{"Im", "[", 
                 RowBox[{"H", "[", 
                  RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", 
                   RowBox[{"I", " ", 
                    RowBox[{"10", "^", "logu"}]}]}], "]"}], "]"}]}]}], "}"}], 
             "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"logu", ",", 
              RowBox[{
               RowBox[{"Log", "[", 
                RowBox[{"10", ",", "wmin"}], "]"}], "-", "dlogw"}], ",", 
              RowBox[{
               RowBox[{"Log", "[", 
                RowBox[{"10", ",", "wmax"}], "]"}], "+", "dlogw"}]}], "}"}], 
            ",", 
            RowBox[{"Frame", "\[Rule]", "True"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
            RowBox[{"FrameLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<Re H\>\"", ",", "\"\<- Im H\>\""}], "}"}]}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
            RowBox[{"Epilog", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{"w1", ",", 
                 RowBox[{"{", 
                  RowBox[{"Red", ",", 
                   RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Re", "[", 
                    RowBox[{"H", "[", 
                    RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", 
                    RowBox[{"I", " ", "wc1"}]}], "]"}], "]"}], ",", 
                    RowBox[{"-", 
                    RowBox[{"Im", "[", 
                    RowBox[{"H", "[", 
                    RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", 
                    RowBox[{"I", " ", "wc1"}]}], "]"}], "]"}]}]}], "}"}], 
                    "]"}]}], "}"}], ",", 
                 RowBox[{"{", "}"}]}], "]"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{"w2", ",", 
                 RowBox[{"{", 
                  RowBox[{"Black", ",", 
                   RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Re", "[", 
                    RowBox[{"H", "[", 
                    RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", 
                    RowBox[{"I", " ", "wc2"}]}], "]"}], "]"}], ",", 
                    RowBox[{"-", 
                    RowBox[{"Im", "[", 
                    RowBox[{"H", "[", 
                    RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", 
                    RowBox[{"I", " ", "wc2"}]}], "]"}], "]"}]}]}], "}"}], 
                    "]"}]}], "}"}], ",", 
                 RowBox[{"{", "}"}]}], "]"}]}], "}"}]}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "250"}], ",", 
            RowBox[{"BaseStyle", "->", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}]}], "]"}], ",", 
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Arg", "[", 
              RowBox[{"H", "[", 
               RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", 
                RowBox[{"I", " ", 
                 RowBox[{"10", "^", "logu"}]}]}], "]"}], "]"}], "/", 
             "Degree"}], ",", 
            RowBox[{"{", 
             RowBox[{"logu", ",", 
              RowBox[{
               RowBox[{"Log", "[", 
                RowBox[{"10", ",", "wmin"}], "]"}], "-", "dlogw"}], ",", 
              RowBox[{
               RowBox[{"Log", "[", 
                RowBox[{"10", ",", "wmax"}], "]"}], "+", "dlogw"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], ",", 
            RowBox[{"Frame", "\[Rule]", "True"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "260"}], ",", 
            RowBox[{"Axes", "\[Rule]", "None"}], ",", 
            RowBox[{"FrameLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
              "\"\<log u\>\"", ",", 
               "\"\<\!\(\*SubscriptBox[\(\[Phi]\), \(\"\<H\>\"\)]\)/\[Degree]\
\>\""}], "}"}]}], ",", 
            RowBox[{"Epilog", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"AbsoluteDashing", "[", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "2"}], "}"}], "]"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{"w1", ",", 
                 RowBox[{"{", 
                  RowBox[{"Red", ",", 
                   RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    RowBox[{"10", ",", "wc1"}], "]"}], ",", 
                    RowBox[{"-", "150"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    RowBox[{"10", ",", "wc1"}], "]"}], ",", "150"}], "}"}]}], 
                    "}"}], "]"}]}], "}"}], ",", 
                 RowBox[{"{", "}"}]}], "]"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{"w2", ",", 
                 RowBox[{"{", 
                  RowBox[{"Black", ",", 
                   RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    RowBox[{"10", ",", "wc2"}], "]"}], ",", 
                    RowBox[{"-", "150"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    RowBox[{"10", ",", "wc2"}], "]"}], ",", "150"}], "}"}]}], 
                    "}"}], "]"}]}], "}"}], ",", 
                 RowBox[{"{", "}"}]}], "]"}]}], "}"}]}], ",", 
            RowBox[{"BaseStyle", "->", 
             StyleBox["mySt",
              FontWeight->"Plain"]}]}], "]"}]}], "}"}]}], "}"}], "]"}]}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<        H(u) = \!\(\*FractionBox[\(1 + \[Gamma]\), \(1 + \
\[Alpha]\)]\) \!\(\*FractionBox[\(\(\\\ \)\(1 + \\\ \[Alpha]\\\ \
tanh[\*SqrtBox[\(iu\)]]/\*SqrtBox[\(iu\)]\)\), \(1 + \[Beta]\\\ iu\\\  + \\\ \
\[Gamma]\\\ tanh[\*SqrtBox[\(iu\)]]/\*SqrtBox[\(iu\)] + \\\ \[Delta]\\\ iu\\\ \
tanh[\*SqrtBox[\(iu\)]]/\*SqrtBox[\(iu\)]\)]\)\>\"", ",", "Bold", ",", 
      "Medium"}], "]"}], ",", "Delimiter", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"loga", ",", "0", ",", "\"\<log \[Alpha]\>\""}], "}"}], ",", 
      RowBox[{"-", "3"}], ",", "3", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"logb", ",", 
        RowBox[{"-", "2"}], ",", "\"\<log \[Beta]\>\""}], "}"}], ",", 
      RowBox[{"-", "3"}], ",", "3", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"logc", ",", "1", ",", "\"\<log \[Gamma]\>\""}], "}"}], ",", 
      RowBox[{"-", "3"}], ",", "3", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"logd", ",", 
        RowBox[{"-", "1"}], ",", "\"\<log \[Delta]\>\""}], "}"}], ",", 
      RowBox[{"-", "3"}], ",", "3", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    "Delimiter", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "w1", ",", "False", ",", 
        "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)= 2.54\>\""}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "w2", ",", "False", ",", 
        "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) =1/\[Beta]\>\""}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<ER@SE/LEPMI, 2009. Hosted by Bio-Logic@www.bio-logic.info\>\"", 
        ",", "Medium"}], "]"}], "}"}]}], ",", 
    RowBox[{"Initialization", "\[RuleDelayed]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"H", "[", 
         RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_", ",", "p_"}], "]"}], ":=", 
        RowBox[{
         FractionBox[
          RowBox[{"1", "+", "c"}], 
          RowBox[{"1", "+", "a"}]], 
         FractionBox[
          RowBox[{"1", "+", 
           RowBox[{"a", " ", 
            FractionBox[
             RowBox[{"Tanh", "[", 
              SqrtBox["p"], "]"}], 
             SqrtBox["p"]]}]}], 
          RowBox[{"1", "+", " ", 
           RowBox[{"b", " ", "p"}], " ", "+", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"c", " ", "+", " ", 
              RowBox[{"d", " ", "p"}]}], ")"}], " ", 
            FractionBox[
             RowBox[{"Tanh", "[", 
              SqrtBox["p"], "]"}], 
             SqrtBox["p"]]}]}]]}]}], ";", 
       RowBox[{
        RowBox[{"M", "[", 
         RowBox[{"n_", ",", "p_"}], "]"}], ":=", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"1", "+", 
           RowBox[{"4", " ", 
            RowBox[{"p", "/", 
             RowBox[{"\[Pi]", "^", "2"}]}]}]}]], 
         RowBox[{
          UnderoverscriptBox["\[Product]", 
           RowBox[{"k", "=", "1"}], "n"], 
          FractionBox[
           RowBox[{"1", "+", " ", 
            RowBox[{"p", "/", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"k", " ", "\[Pi]"}], ")"}], "^", "2"}]}]}], 
           RowBox[{"1", "+", 
            RowBox[{"4", "  ", 
             RowBox[{"p", "/", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", "k"}], "+", "1"}], ")"}], "\[Pi]"}], ")"}], 
               "^", "2"}]}]}]}]]}]}]}], ";", 
       RowBox[{
        RowBox[{"HPr", "[", 
         RowBox[{
         "n_", ",", "a_", ",", "b_", ",", "c_", ",", "d_", ",", "p_"}], "]"}],
         ":=", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"1", "+", "a"}]], 
         FractionBox[
          RowBox[{"1", "+", 
           RowBox[{"a", " ", 
            RowBox[{"M", "[", 
             RowBox[{"n", ",", "p"}], "]"}]}]}], 
          RowBox[{"1", "+", " ", 
           RowBox[{"b", " ", "p"}], "+", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"c", " ", "+", " ", 
              RowBox[{"d", " ", "p"}]}], ")"}], 
            RowBox[{"M", "[", 
             RowBox[{"n", ",", "p"}], "]"}]}]}]]}]}], ";", 
       RowBox[{
        RowBox[{"Croix", "[", "poles_", "]"}], ":=", 
        RowBox[{"Block", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "=", 
             RowBox[{"Re", "[", "poles", "]"}]}], ",", 
            RowBox[{"y", "=", 
             RowBox[{"Im", "[", "poles", "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "1.5", "]"}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"x", "-", 
                  RowBox[{"r", " ", 
                   RowBox[{"(", 
                    RowBox[{"xmax", "-", "xmin"}], ")"}]}]}], ",", 
                 RowBox[{"y", "-", 
                  RowBox[{"r", 
                   RowBox[{"(", 
                    RowBox[{"xmax", "-", "xmin"}], ")"}]}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"x", "+", 
                  RowBox[{"r", " ", 
                   RowBox[{"(", 
                    RowBox[{"xmax", "-", "xmin"}], ")"}]}]}], ",", 
                 RowBox[{"y", "+", 
                  RowBox[{"r", 
                   RowBox[{"(", 
                    RowBox[{"xmax", "-", "xmin"}], ")"}]}]}]}], "}"}]}], 
              "}"}], "]"}], ",", 
            RowBox[{"Line", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"x", "-", 
                  RowBox[{"r", " ", 
                   RowBox[{"(", 
                    RowBox[{"xmax", "-", "xmin"}], ")"}]}]}], ",", 
                 RowBox[{"y", "+", 
                  RowBox[{"r", 
                   RowBox[{"(", 
                    RowBox[{"xmax", "-", "xmin"}], ")"}]}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"x", "+", 
                  RowBox[{"r", " ", 
                   RowBox[{"(", 
                    RowBox[{"xmax", "-", "xmin"}], ")"}]}]}], ",", 
                 RowBox[{"y", "-", 
                  RowBox[{"r", 
                   RowBox[{"(", 
                    RowBox[{"xmax", "-", "xmin"}], ")"}]}]}]}], "}"}]}], 
              "}"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"mySt", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}]}], ")"}]}]}], 
   "]"}]}]], "Input",
 Editable->False,
 CellOpen->False,
 CellChangeTimes->{{3.435490281859927*^9, 3.435490439444666*^9}, 
   3.435490559026203*^9, {3.435490945706243*^9, 3.435490972367701*^9}, {
   3.435491109115049*^9, 3.435491290890357*^9}, {3.435491322694392*^9, 
   3.4354914720340147`*^9}, {3.435491531863347*^9, 3.435491543582199*^9}, {
   3.43549157941805*^9, 3.435491591343273*^9}, {3.435491863586954*^9, 
   3.435491870560107*^9}, {3.4354919567029343`*^9, 3.43549196280352*^9}, {
   3.435492215276247*^9, 3.435492388185133*^9}, {3.435492418939609*^9, 
   3.435492429527989*^9}, {3.4354924632361937`*^9, 3.43549248368196*^9}, {
   3.435492544057253*^9, 3.4354925621762733`*^9}, {3.435492677731456*^9, 
   3.435492693377426*^9}, {3.4360879369424877`*^9, 3.436087986446392*^9}, {
   3.4360880276677847`*^9, 3.4360880723668747`*^9}, {3.436088107139151*^9, 
   3.4360881165121613`*^9}, {3.436088194327334*^9, 3.4360883104639187`*^9}, {
   3.436088361885388*^9, 3.4360883816619377`*^9}, {3.436091485177216*^9, 
   3.4360915017162113`*^9}, {3.436091691552856*^9, 3.436091919246912*^9}, {
   3.436091991604924*^9, 3.436092009946994*^9}, {3.43609208475665*^9, 
   3.4360921210013866`*^9}, {3.436092198431209*^9, 3.436092269346374*^9}, {
   3.4360923234825163`*^9, 3.436092349825293*^9}, {3.436092450142757*^9, 
   3.436092456059947*^9}, {3.436092495120495*^9, 3.4360924991895037`*^9}, {
   3.4360927966609592`*^9, 3.436092814722764*^9}, {3.4360930277798*^9, 
   3.436093035168301*^9}, {3.436093126894952*^9, 3.436093127329143*^9}, {
   3.43609316143157*^9, 3.43609316549121*^9}, {3.4360932053863897`*^9, 
   3.436093207498968*^9}, {3.4360955785003366`*^9, 3.436095580452146*^9}, {
   3.436095639951523*^9, 3.436095685731566*^9}, {3.436095844001115*^9, 
   3.436095855685714*^9}, {3.436096010926147*^9, 3.436096066066186*^9}, {
   3.436096178956455*^9, 3.436096200643682*^9}, {3.436096277883106*^9, 
   3.436096381257739*^9}, {3.436096489751266*^9, 3.436096527848764*^9}, {
   3.4360966271202717`*^9, 3.436096682691025*^9}, {3.436096777414029*^9, 
   3.436096805367663*^9}, {3.4360970754722633`*^9, 3.436097118052897*^9}, {
   3.43609717122456*^9, 3.436097296862893*^9}, {3.436097373720435*^9, 
   3.436097379923806*^9}, {3.436097468047529*^9, 3.436097586677134*^9}, {
   3.436264838666276*^9, 3.436264845316759*^9}, {3.436265871459262*^9, 
   3.436265878234975*^9}, {3.436265929978717*^9, 3.436265944147427*^9}, {
   3.436266010388453*^9, 3.436266122505465*^9}, {3.4362661954616623`*^9, 
   3.4362662040822887`*^9}, {3.4362662781879807`*^9, 3.436266292538733*^9}, {
   3.436266322731865*^9, 3.436266325603345*^9}, {3.436266414491975*^9, 
   3.4362664615385933`*^9}, {3.436266604106379*^9, 3.436266613490656*^9}, {
   3.436266644114171*^9, 3.436266649921419*^9}, {3.436266728013455*^9, 
   3.43626677139615*^9}, {3.436266803252573*^9, 3.4362668668583927`*^9}, {
   3.436266898796632*^9, 3.436266924584366*^9}, {3.436269755074749*^9, 
   3.4362697732639523`*^9}, {3.4362698268995867`*^9, 3.436270101809162*^9}, {
   3.436270179250572*^9, 3.4362702506069117`*^9}, {3.436270316940411*^9, 
   3.436270326083529*^9}, {3.436270531878172*^9, 3.43627053442981*^9}, {
   3.4365799801791763`*^9, 3.4365800509261007`*^9}, {3.436580190254838*^9, 
   3.436580195941324*^9}, {3.436580424664701*^9, 3.436580458565399*^9}, {
   3.436580494549135*^9, 3.4365806754686832`*^9}, {3.4368492308396883`*^9, 
   3.436849233500669*^9}, {3.4368493410073547`*^9, 3.436849418467557*^9}, {
   3.436850068949492*^9, 3.436850161613763*^9}, {3.4368503170069637`*^9, 
   3.436850505498472*^9}, {3.436850540517322*^9, 3.436850540899271*^9}, {
   3.436850607125246*^9, 3.436850623741619*^9}, {3.4368506608536787`*^9, 
   3.4368506611307983`*^9}, {3.436850800533847*^9, 3.436850816036327*^9}, {
   3.436851787287054*^9, 3.436851846845769*^9}, 3.436851910391983*^9, {
   3.436851957535096*^9, 3.43685195919773*^9}, {3.436852019534782*^9, 
   3.4368520240939617`*^9}, {3.436852107493453*^9, 3.436852260062031*^9}, {
   3.436852292343425*^9, 3.436852313474391*^9}, 3.4368523634950323`*^9, {
   3.436852514735592*^9, 3.4368526956562443`*^9}, {3.436852731707036*^9, 
   3.436852741954194*^9}, {3.436852800075136*^9, 3.4368528005210257`*^9}, {
   3.436852832722086*^9, 3.436852979179798*^9}, {3.436853295429017*^9, 
   3.436853309394347*^9}, {3.436853341508774*^9, 3.4368533741290283`*^9}, {
   3.4368534287419987`*^9, 3.436853447548143*^9}, {3.4368535243666763`*^9, 
   3.436853639483858*^9}, {3.4368536776699266`*^9, 3.436853737414068*^9}, {
   3.4368538179986486`*^9, 3.436853842551449*^9}, {3.436853872783678*^9, 
   3.436853878075551*^9}, {3.436853919492828*^9, 3.436853920588152*^9}, 
   3.436853961103902*^9, {3.436854046058731*^9, 3.436854115516918*^9}, {
   3.436854228730463*^9, 3.4368543144020567`*^9}, {3.436854353058242*^9, 
   3.4368543789038486`*^9}, {3.439895869902749*^9, 3.4398959039049788`*^9}, {
   3.439895945702901*^9, 3.439895946110455*^9}, {3.439895990259885*^9, 
   3.4398960521298723`*^9}, {3.439896131525186*^9, 3.439896229193232*^9}, {
   3.439896281360608*^9, 3.4398962836262302`*^9}, {3.4398964214978313`*^9, 
   3.4398964381591454`*^9}, {3.439896472137149*^9, 3.4398964723511333`*^9}, {
   3.439896504397273*^9, 3.439896521948738*^9}, {3.439896562865521*^9, 
   3.439896596640243*^9}, {3.4398966699370127`*^9, 3.4398968043779917`*^9}, {
   3.4398968686572323`*^9, 3.439896914401843*^9}, {3.439896990073948*^9, 
   3.439896996745681*^9}, {3.439897032618153*^9, 3.43989704764144*^9}, {
   3.44132288882939*^9, 3.441323070004695*^9}, {3.44132331652318*^9, 
   3.4413233691935797`*^9}, {3.4413234256272507`*^9, 3.441323487125091*^9}, {
   3.4413236846046257`*^9, 3.441323687667391*^9}, {3.441323726220048*^9, 
   3.441323731974038*^9}, {3.441323908918625*^9, 3.441323949186185*^9}, {
   3.441324000996893*^9, 3.4413240045653067`*^9}, {3.4420336533816957`*^9, 
   3.4420336612423563`*^9}, {3.4420337190932083`*^9, 3.442033723331909*^9}, {
   3.442036470893888*^9, 3.442036601375198*^9}, {3.442036639542556*^9, 
   3.44203664734918*^9}, {3.4420366897650433`*^9, 3.442036690122216*^9}, {
   3.442036755988946*^9, 3.442036758946871*^9}, {3.442036850726397*^9, 
   3.442036859094433*^9}, {3.442036931564687*^9, 3.442036935474276*^9}, {
   3.442037009372348*^9, 3.442037017915489*^9}, {3.442037554023435*^9, 
   3.442037584860655*^9}, {3.444019445756757*^9, 3.4440194664584827`*^9}, {
   3.444019541550003*^9, 3.444019582382264*^9}, {3.4440197862919064`*^9, 
   3.444019788312439*^9}, {3.444019855149561*^9, 3.444019856476596*^9}, 
   3.444474490446862*^9, {3.4444754297882357`*^9, 3.444475437546229*^9}, 
   3.4444754695652227`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`loga$$ = 
    0, $CellContext`logb$$ = -2, $CellContext`logc$$ = 
    1, $CellContext`logd$$ = -1, $CellContext`w1$$ = True, $CellContext`w2$$ =
     True, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style[
       "        H(u) = \!\(\*FractionBox[\(1 + \[Gamma]\), \(1 + \
\[Alpha]\)]\) \!\(\*FractionBox[\(\(\\ \)\(1 + \\ \[Alpha]\\ \
tanh[\*SqrtBox[\(iu\)]]/\*SqrtBox[\(iu\)]\)\), \(1 + \[Beta]\\ iu\\  + \\ \
\[Gamma]\\ tanh[\*SqrtBox[\(iu\)]]/\*SqrtBox[\(iu\)] + \\ \[Delta]\\ iu\\ \
tanh[\*SqrtBox[\(iu\)]]/\*SqrtBox[\(iu\)]\)]\)", Bold, Medium]], 
      Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`loga$$], 0, "log \[Alpha]"}, -3, 3}, {{
       Hold[$CellContext`logb$$], -2, "log \[Beta]"}, -3, 3}, {{
       Hold[$CellContext`logc$$], 1, "log \[Gamma]"}, -3, 3}, {{
       Hold[$CellContext`logd$$], -1, "log \[Delta]"}, -3, 3}, {{
       Hold[$CellContext`w1$$], False, 
       "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)= 2.54"}, {False, True}}, {{
      
       Hold[$CellContext`w2$$], False, 
       "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) =1/\[Beta]"}, {
      False, True}}}, Typeset`size$$ = {568., {194.375, 199.625}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`loga$69$$ = 0, $CellContext`logb$74$$ = 
    0, $CellContext`logc$75$$ = 0, $CellContext`logd$76$$ = 
    0, $CellContext`w1$77$$ = False, $CellContext`w2$78$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`loga$$ = 
        0, $CellContext`logb$$ = -2, $CellContext`logc$$ = 
        1, $CellContext`logd$$ = -1, $CellContext`w1$$ = 
        False, $CellContext`w2$$ = False}, "ControllerVariables" :> {
        Hold[$CellContext`loga$$, $CellContext`loga$69$$, 0], 
        Hold[$CellContext`logb$$, $CellContext`logb$74$$, 0], 
        Hold[$CellContext`logc$$, $CellContext`logc$75$$, 0], 
        Hold[$CellContext`logd$$, $CellContext`logd$76$$, 0], 
        Hold[$CellContext`w1$$, $CellContext`w1$77$$, False], 
        Hold[$CellContext`w2$$, $CellContext`w2$78$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`xmin = -2; $CellContext`xmax = 
        Plus[0.5]; $CellContext`r = 1.75; $CellContext`a = 
        10^$CellContext`loga$$; $CellContext`b = 
        10^$CellContext`logb$$; $CellContext`c = 
        10^$CellContext`logc$$; $CellContext`d = 
        10^$CellContext`logd$$; $CellContext`wc1 = 2.54; $CellContext`wc2 = 
        1/$CellContext`b; $CellContext`wmin = 
        Min[$CellContext`wc1, $CellContext`wc2]; $CellContext`wmax = 
        Max[$CellContext`wc1, $CellContext`wc2]; $CellContext`dlogw = 
        4; $CellContext`den = Denominator[
          Together[
           $CellContext`HPr[
           5, $CellContext`a, $CellContext`b, $CellContext`c, $CellContext`d, \
$CellContext`p]]]; $CellContext`poles = 
        Solve[$CellContext`den == 0, $CellContext`p]; $CellContext`lCroix = 
        Table[
          $CellContext`Croix[
           ReplaceAll[$CellContext`p, 
            Part[$CellContext`poles, $CellContext`i]]], {$CellContext`i, 
           Length[$CellContext`poles]}]; $CellContext`num = Numerator[
          Together[
           $CellContext`HPr[
           5, $CellContext`a, $CellContext`b, $CellContext`c, $CellContext`d, \
$CellContext`p]]]; $CellContext`zeros = 
        Solve[$CellContext`num == 0, $CellContext`p]; $CellContext`lCircles = 
        Table[
          Circle[{
            Chop[
             ReplaceAll[$CellContext`p, 
              Part[$CellContext`zeros, $CellContext`i]]], 0}, 
           3 $CellContext`r], {$CellContext`i, 
           Length[$CellContext`zeros]}]; Grid[{{
           Plot[
           Null, {$CellContext`x, 0, 1}, PlotStyle -> AbsoluteThickness[1.2], 
            PlotRange -> {{-200, 2}, {-100, 100}}, Frame -> True, Epilog -> {
              AbsoluteThickness[1.5], Red, $CellContext`lCroix, 
              Black, $CellContext`lCircles}, AspectRatio -> Automatic, 
            FrameLabel -> {"Re s", "Im s"}, ImageSize -> {300, 200}, 
            BaseStyle -> $CellContext`mySt], 
           Plot[
            Log[10, 
             Abs[
              $CellContext`H[$CellContext`a, $CellContext`b, $CellContext`c, \
$CellContext`d, I 10^$CellContext`logu]]], {$CellContext`logu, 
             Log[10, $CellContext`wmin] - $CellContext`dlogw, 
             Log[10, $CellContext`wmax] + $CellContext`dlogw}, PlotStyle -> 
            AbsoluteThickness[1.5], Frame -> True, ImageSize -> 250, Axes -> 
            None, FrameLabel -> {"log u", "log |H|"}, Epilog -> {
              AbsoluteDashing[{2, 2}], 
              If[$CellContext`w1$$, {Red, 
                Line[{{
                   Log[10, $CellContext`wc1], 
                   Log[10, 
                    Abs[
                    $CellContext`H[$CellContext`a, $CellContext`b, \
$CellContext`c, $CellContext`d, I 
                    10^(Log[10, $CellContext`wmax] + $CellContext`dlogw)]]]}, {
                   Log[10, $CellContext`wc1], 3}}]}, {}], 
              If[$CellContext`w2$$, {Black, 
                Line[{{
                   Log[10, $CellContext`wc2], 
                   Log[10, 
                    Abs[
                    $CellContext`H[$CellContext`a, $CellContext`b, \
$CellContext`c, $CellContext`d, I 
                    10^(Log[10, $CellContext`wmax] + $CellContext`dlogw)]]]}, {
                   Log[10, $CellContext`wc2], 3}}]}, {}]}, 
            BaseStyle -> $CellContext`mySt]}, {
           ParametricPlot[{{
              Re[
               $CellContext`H[$CellContext`a, $CellContext`b, $CellContext`c, \
$CellContext`d, I 10^$CellContext`logu]], -Im[
                $CellContext`H[$CellContext`a, $CellContext`b, \
$CellContext`c, $CellContext`d, I 
                 10^$CellContext`logu]]}}, {$CellContext`logu, 
             Log[10, $CellContext`wmin] - $CellContext`dlogw, 
             Log[10, $CellContext`wmax] + $CellContext`dlogw}, Frame -> True, 
            PlotRange -> All, FrameLabel -> {"Re H", "- Im H"}, PlotStyle -> 
            AbsoluteThickness[1.5], PlotRange -> All, Epilog -> {
              AbsolutePointSize[6], 
              If[$CellContext`w1$$, {Red, 
                Point[{
                  Re[
                   $CellContext`H[$CellContext`a, $CellContext`b, \
$CellContext`c, $CellContext`d, I $CellContext`wc1]], -Im[
                    $CellContext`H[$CellContext`a, $CellContext`b, \
$CellContext`c, $CellContext`d, I $CellContext`wc1]]}]}, {}], 
              If[$CellContext`w2$$, {Black, 
                Point[{
                  Re[
                   $CellContext`H[$CellContext`a, $CellContext`b, \
$CellContext`c, $CellContext`d, I $CellContext`wc2]], -Im[
                    $CellContext`H[$CellContext`a, $CellContext`b, \
$CellContext`c, $CellContext`d, I $CellContext`wc2]]}]}, {}]}, ImageSize -> 
            250, BaseStyle -> {FontFamily -> "Helvetica", FontSize -> 10}], 
           Plot[Arg[
              $CellContext`H[$CellContext`a, $CellContext`b, $CellContext`c, \
$CellContext`d, I 10^$CellContext`logu]]/
            Degree, {$CellContext`logu, 
             Log[10, $CellContext`wmin] - $CellContext`dlogw, 
             Log[10, $CellContext`wmax] + $CellContext`dlogw}, PlotStyle -> 
            AbsoluteThickness[1.5], Frame -> True, ImageSize -> 260, Axes -> 
            None, FrameLabel -> {
             "log u", 
              "\!\(\*SubscriptBox[\(\[Phi]\), \(\"H\"\)]\)/\[Degree]"}, 
            Epilog -> {
              AbsoluteDashing[{2, 2}], 
              If[$CellContext`w1$$, {Red, 
                Line[{{
                   Log[10, $CellContext`wc1], -150}, {
                   Log[10, $CellContext`wc1], 150}}]}, {}], 
              If[$CellContext`w2$$, {Black, 
                Line[{{
                   Log[10, $CellContext`wc2], -150}, {
                   Log[10, $CellContext`wc2], 150}}]}, {}]}, 
            BaseStyle -> $CellContext`mySt]}}]), "Specifications" :> {
        Style[
        "        H(u) = \!\(\*FractionBox[\(1 + \[Gamma]\), \(1 + \[Alpha]\)]\
\) \!\(\*FractionBox[\(\(\\ \)\(1 + \\ \[Alpha]\\ \
tanh[\*SqrtBox[\(iu\)]]/\*SqrtBox[\(iu\)]\)\), \(1 + \[Beta]\\ iu\\  + \\ \
\[Gamma]\\ tanh[\*SqrtBox[\(iu\)]]/\*SqrtBox[\(iu\)] + \\ \[Delta]\\ iu\\ \
tanh[\*SqrtBox[\(iu\)]]/\*SqrtBox[\(iu\)]\)]\)", Bold, Medium], 
        Delimiter, {{$CellContext`loga$$, 0, "log \[Alpha]"}, -3, 3, 
         Appearance -> 
         "Labeled"}, {{$CellContext`logb$$, -2, "log \[Beta]"}, -3, 3, 
         Appearance -> 
         "Labeled"}, {{$CellContext`logc$$, 1, "log \[Gamma]"}, -3, 3, 
         Appearance -> 
         "Labeled"}, {{$CellContext`logd$$, -1, "log \[Delta]"}, -3, 3, 
         Appearance -> "Labeled"}, 
        Delimiter, {{$CellContext`w1$$, False, 
          "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)= 2.54"}, {
         False, True}}, {{$CellContext`w2$$, False, 
          "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) =1/\[Beta]"}, {
         False, True}}}, "Options" :> {FrameLabel -> {
          Style[
          "ER@SE/LEPMI, 2009. Hosted by Bio-Logic@www.bio-logic.info", 
           Medium]}}, "DefaultOptions" :> {}],
     ImageSizeCache->{610., {348.875, 354.125}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>(($CellContext`H[
         Pattern[$CellContext`a, 
          Blank[]], 
         Pattern[$CellContext`b, 
          Blank[]], 
         Pattern[$CellContext`c, 
          Blank[]], 
         Pattern[$CellContext`d, 
          Blank[]], 
         Pattern[$CellContext`p, 
          Blank[]]] := ((1 + $CellContext`c)/(
         1 + $CellContext`a)) ((
          1 + $CellContext`a (
            Tanh[$CellContext`p^Rational[1, 2]]/$CellContext`p^
            Rational[1, 2]))/(
         1 + $CellContext`b $CellContext`p + ($CellContext`c + $CellContext`d \
$CellContext`p) (Tanh[$CellContext`p^Rational[1, 2]]/$CellContext`p^
           Rational[1, 2]))); $CellContext`M[
         Pattern[$CellContext`n, 
          Blank[]], 
         Pattern[$CellContext`p, 
          Blank[]]] := (1/(1 + 4 ($CellContext`p/Pi^2))) 
        Product[(1 + $CellContext`p/($CellContext`k Pi)^2)/(1 + 
          4 ($CellContext`p/((2 $CellContext`k + 1) Pi)^2)), {$CellContext`k, 
           1, $CellContext`n}]; $CellContext`HPr[
         Pattern[$CellContext`n, 
          Blank[]], 
         Pattern[$CellContext`a, 
          Blank[]], 
         Pattern[$CellContext`b, 
          Blank[]], 
         Pattern[$CellContext`c, 
          Blank[]], 
         Pattern[$CellContext`d, 
          Blank[]], 
         Pattern[$CellContext`p, 
          Blank[]]] := (1/(
         1 + $CellContext`a)) ((
          1 + $CellContext`a $CellContext`M[$CellContext`n, $CellContext`p])/(
         1 + $CellContext`b $CellContext`p + ($CellContext`c + $CellContext`d \
$CellContext`p) $CellContext`M[$CellContext`n, $CellContext`p])); \
$CellContext`Croix[
         Pattern[$CellContext`poles, 
          Blank[]]] := 
       Block[{$CellContext`x = Re[$CellContext`poles], $CellContext`y = 
          Im[$CellContext`poles]}, {
          AbsoluteThickness[1.5], 
          
          Line[{{$CellContext`x - $CellContext`r ($CellContext`xmax - \
$CellContext`xmin), $CellContext`y - $CellContext`r ($CellContext`xmax - \
$CellContext`xmin)}, {$CellContext`x + $CellContext`r ($CellContext`xmax - \
$CellContext`xmin), $CellContext`y + $CellContext`r ($CellContext`xmax - \
$CellContext`xmin)}}], 
          
          Line[{{$CellContext`x - $CellContext`r ($CellContext`xmax - \
$CellContext`xmin), $CellContext`y + $CellContext`r ($CellContext`xmax - \
$CellContext`xmin)}, {$CellContext`x + $CellContext`r ($CellContext`xmax - \
$CellContext`xmin), $CellContext`y - $CellContext`r ($CellContext`xmax - \
$CellContext`xmin)}}]}]; $CellContext`mySt = {
        FontFamily -> "Helvetica", FontSize -> 10}); 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.43685280154637*^9, {3.436852835310837*^9, 3.436852848695169*^9}, 
   3.436852891020933*^9, 3.436852946048646*^9, 3.436852979930365*^9, 
   3.4368533104216347`*^9, 3.4368533446014013`*^9, 3.436853375092061*^9, {
   3.436853433693264*^9, 3.436853448947073*^9}, {3.43685358947252*^9, 
   3.436853640405217*^9}, {3.436853710961528*^9, 3.436853738489985*^9}, 
   3.4368538185793858`*^9, 3.4368539220427103`*^9, 3.4368539625688457`*^9, {
   3.4368540937366333`*^9, 3.436854116201313*^9}, 3.4368542094114637`*^9, {
   3.436854249369277*^9, 3.4368543152037067`*^9}, 3.4368543793837852`*^9, 
   3.437297906288817*^9, 3.439895872954447*^9, 3.439895947195589*^9, 
   3.439896056400609*^9, {3.4398962194800034`*^9, 3.43989623010605*^9}, 
   3.439896284505435*^9, 3.439896439246193*^9, 3.439896472802956*^9, 
   3.439896522680994*^9, {3.439896567422616*^9, 3.439896596911881*^9}, {
   3.439896785194066*^9, 3.4398968055071363`*^9}, {3.439896872072419*^9, 
   3.4398969166794643`*^9}, 3.4398969978997917`*^9, {3.4398970335216293`*^9, 
   3.4398970480318117`*^9}, 3.441323370456828*^9, {3.4413234443276777`*^9, 
   3.4413234874497023`*^9}, 3.441323688395903*^9, 3.441323737328766*^9, 
   3.441323950533306*^9, 3.44132400585365*^9, {3.4420335809437447`*^9, 
   3.442033604878817*^9}, 3.442033663434916*^9, 3.4420337236878643`*^9, {
   3.442036501547217*^9, 3.442036549135675*^9}, {3.442036593317037*^9, 
   3.442036602005991*^9}, 3.4420366481294937`*^9, 3.44203669045922*^9, 
   3.442036759265836*^9, {3.442036851044196*^9, 3.4420368594467583`*^9}, 
   3.442036936046536*^9, 3.442037018272059*^9, {3.442037557243867*^9, 
   3.442037585160351*^9}, 3.444019466850958*^9, {3.444019556887767*^9, 
   3.444019582888742*^9}, 3.444019856832986*^9, {3.444474481719297*^9, 
   3.444474491463366*^9}, 3.444474654074605*^9, 3.44447540281057*^9, {
   3.44447544183997*^9, 3.4444754705196257`*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{934, 715},
WindowMargins->{{77, Automatic}, {Automatic, 113}},
DockedCells->FEPrivate`If[
  FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], 
  FEPrivate`Join[{
    Cell[
     BoxData[
      GraphicsBox[
       RasterBox[CompressedData["
1:eJztXXlYU9e27/fe++Pe9757be9tax1AkUGQAMokiLMWB9Q60Dreaq2tA1Zb
LaJ1wjrVjg44KyKCAzIj8zwFSBjCkDCEBAjIKELRKhqSvJ3ssNmckxNGxX7d
v+/od7LPPmuvtWJ+a++19jnqbdy5fON/v/XWWybgz//811tvKc9FA4RQmDVv
AVdnbMpy5+KEBNgm7kT6t3uleuMbxxrVsqbI7T6WTVsrn7paNvPTRs87VUUC
cNREx7e67HlpOVNhYt0x3qJ11LiaS1cGqhIBAQEBwWtHzg0vro5eps5Yjv74
/E9WC27fEeXmivLzM8+eZxtYKsYayMaMe2Y+U+a0S7b8oMz5kHzpfrnjVy+W
7nzh9EWHzbIO8w87TB1emDk817doHG1QFRM71AYREBAQEPQBcPIvSE8vMDQW
6Ojl6+oV6Izj6RrwLOx5do6RJrP4rKkKvTGKMWM7DFjta09Jt17r2HpV+qWH
7LOzslUnpEu+kzp+JbVb9XLS/OesqfW6E+qMLcuzOENtFgEBAQFBHwBjQXlp
abb91OLRY4vG6BeNHc83sMgzss+fuCTefnXTBGtlLNA36NAf92TGCrHbrao9
ng/3eDV/6/lsx+WOLz2kq49L5++UOqxsmzBDomsumTRFxOMNtVkEBAQEBL0F
KgqA87yNm0Sjxlbqm/KMJ2bOcWQvWpa6Ym2881q+48ziD2cK5s8VLFrIn+WQ
vv6LxO2uydt2sbd/m73dNX/rbv7nXwvWbSlyXpuz4COuiW2x9YzygoKhtoyA
gICAoFcQY1B+PORerWPEs5hceuFoTcDl6oBrVUFekkDPOr+Ldfcv1gVcrgu8
Wud/ufb+JUnYrapwH8kDn+oHPjXhPg/DbtWGeD8MvFETdE3sezZ2ynRBarr2
octLSrL9A4TpPXQjICAgIHilAPxf0Ql1MPjukGScde5XX9QG3mgIDquLSJTE
pLeFR/4REvokLKItMrYtJq4tNq4tLKwlKrohh9eQV9CYndfIyW1iZz9OZIP+
1YHhkrDwIo+LkSs3Zoc+KBcK8RFLBQJuYmLU6dMRn2/irFojuXCpoqhoiKwn
+OtCGBIi9PYeai0ICIYYaCEAo0ClCspwIBKVLFsrMZ+Xf9i1NiywKTGnNjWv
IT6Nf/Fic0zis6z8p5m8p5m5Tzh5T9I5TxKS29LYLUWlzcWipkJhU1ZBXSK3
Ijq9PCKlIiGjPDQueJzdzeFjr1ja+i1c4rXc+ecFC/c4TNltPP63d98LGz6i
Zt16SWrqUHuC4K8IEAj4b70FDoGODjh/RaOkD9GCNzw83MXF5eTJk3w+f0gU
IPgTAY8FIApUqSAuLc0/fKzUdK5w5voc971VUQ+q0/IakjJaElNCJk9JsZ/O
v+7VnFPQmlvYkp3fks1rYXPApZa4+OaU1EcpqfVxiVVRCeWhMSWh0WUxifyQ
8O8/GLln2Du/Dnv/0N//8fXf/vf0P4dFvvd+wwjdjgkT6695DrUPCP7SKN28
uWTVKmU4GDasPClp0OXn5ORcuHBh0MX2BiAGBQQE7Nu3z9OT/MoIqBCks1Nu
3ky+dSs3MbEkPx/M/8uFwjI+v4TDKYqN5QcE8c56ZC1emWU4NdPOOWOhC9fd
reJBYH1M0u+xSY/SOckLFj3UMc4bZZC0co0gKLQuO7+Ry6tncxpSMhrjkxoj
ImtDgiVBASJ/v5K7t/N9bhUEB2beu/PV8A/OjxzvM1zHb/jIsrF6ckMjhZ5e
h4VVddiDofYHAYESICKAcFDs4DDokocwFkD4+vqCcDCEChC8mRALBNX3Ajkr
Pz2vb3hk5Ae/WVl62NoGWtukWdlmTrLhWNvzJ08rsbARmjlUWs5usJ7J27e9
+r53U0RMU2Law/Ss2PlO5QbmFaY2pXqmKfoTEnd8LQiPrmJzq5LYkrgkSWS0
JChY7O9fcvdOka9Pzs0bOf5+/Lv3ci1mSEwdpJNmyFl2cpOJCv3xHRYTq6Oj
X6mlQm/vwcoDl+fmKqW9shwCwZADrAhgsmjQawdDHgvA6sDFxWWo8lQEbz4k
Sanir77JMbVINxgfbTSeYz6xzX66YrKDwmKSwshQoT9GYTBOMX5CjpuL+N6t
h5HxkvhUUUp6xDynIiOLIpYNn2VbYmqTO9YkYpJt8vEfBFHx5XEpwvCoMv+g
0jv3Cn198ry9Mjyv8e/fb4xKlq8/IluyQzZtldxmvtzERmZq9TA4uPeqAiqG
v1NwgHPUDhb1Gn+/cI6HDvARXQITP3z6R/kIoL5lzx7UUnb8OBoI9ASX0C3w
nN/50g+gBkUfujRcrFIOi4UPrUxTdBoIExdIeWQUaAfEBRQABwpP4ESgo4Py
3vBeJBwRXdm5c8iloA+0C9xSsnAh1BlqhfxMvxGOArUCfaADgRxgI5AAtaK7
DmpC0QqqDYZW+5bFgo7qugsY6O0NxgInoJHuQ1wZCiia4/4BosCh/Cq734i+
4m5yGBxF9wwTtMcCwNLh4eGURpjnpwg5efKkiwru7u7x8fGo/bffftu1axdo
x3NBuFjQB3wEqwMtOkAAOUAaRR+kDBgUDA17AmVQcAEdoAIBAQF0i9BHmK1C
QnArcOGwD/gbSqPI5/P5wJlIVdATnMNqCBwINMKreFqM4g2NntT+pYAhoA6o
BZiP5ODeoDtE44javaFFOFzlQUfh3ynFRqAAuJFumhaIU9PEn216PMmm1ca+
berMduspcj0DxVgdhZGR3GySgmWb5ba95M4tcUScMCaxJCHZ33F+qqF5Bsua
rToyzGwyTCzDdQzuz56bcsajKCS8ODCI7+PD8/LiXL/Gvnq5LDpRkpT5cs8F
2WcnZU7bZVOWKVjTms5c7JOSiGNxmsUDBE62iDPBCX4Or/YjFiA2A41dxDXg
WICqloj8KZ3VQUfFnIiiwUcwND0IIsUgLaP+XVZA2uwUDg2HhkCBQIJI0/SY
cqOaz1Xmw3O1EBYLaUVxHdRKyerd3QXG6gqyKrvAgRQA40LFYB+NPoRWMyV2
cM3VgWDYMKVMHR0Ua+hfB2VqweQoumeY0GMsQKSHAFpw2oE/bUAXASoAuoMk
AAkKcgJoB3+DPnSxUJoWZgBXgYZIOPgI/kblZqQMoBrUDQwEhoZ9gAJAOGiE
lEWxCH2EcsBdUFs4ELwFGgKFgKs4kVLkAwWQBNCI8zMKEEgIHhkRLWv0ZI9f
CugGmRn/RqBWSBPQSFeYaUQt3tAiHKoB7ALt4G88xCOdgTPBcECHfmwYEIvF
VWc8nk+bLbObLrWdJTWbIRunr9DTlZvbyCd/yHZ1KfLxKg2L4ofHFEbFes2Z
e0fP2N/Y4j52BJhY3NMzvjJqzO3lzhmXrxT4+OZd90y5dDHH905hbHJpXGrL
gcuy7WdlKw/Kp69tX7ZJ1H1zaY9AHIL/9PAAgX6eKEBQGBVRbl9jARoFMTZg
rUGJBegq7Ny1oaWzgomkoYEA+agH6uxM4XYYOJQZrc4OlGAB1aZfhcPBEwr3
UvgWNxkOCiIC5RLV/M5FBGVc1B+NBXNxaoernABaIOVqJHyK/ynANVfP4TsX
Fyh04uZD5+NjaXeU9kiEMPBYAG7X+NMGbMD0k8fFAjKBM0kmcqDoACaokFQ1
KgMBRKGJKBP5Uz5COfglQFnQM3DpgbgUfkQ98XNInkgCnDyjbni8g+GAIoHJ
k9odAkMVnMDDFigHvwV8RN8yfjvTiFq8oUU4xXyNNsJ1InJmX1FZWVkTFS39
cJHCbGqHnbN03jappb1cV0duYZfqui3P+3pR4ANecHheWMT5mbN+Ga13Tt/4
bPcDtHjoG/8yQveUrt7djRsTzpzJuno1OzQqLzK+KDrxofuVl67nZRuOy2du
qL/Xh+wQhPpHpyJhCvOocxSdJAkW7DiTiGhr+T7HAtrsfbByRGh0eBXnImQj
kkZXA87JURBUB4thw5gMwTvgUYZJKybJXTaGhOArFwiNqw8kiqIVE5NDJ6Dc
C1zj4KYh0B2OA9cc/hNCy8Ou5U9nkk2dslNN/rsCtFZH0X2uEQOPBUwbgQB7
MG0QwmeJkLQ1JqOYdIAKoGwGPRbA5Azs0KdYgLMijGUah9ASC3Dh+I2UcWFm
jLJU6eWWKoooSLn4WHQ5yBbK7UwjavEGk3BY98FJnm4j6AlUHUhtqKKioqqq
qjY5tWP6Yrntx7IV3z3acrpt2gLFOEO267aiOzdLH0QXRUQXRsZemj3nrK7B
RcMJGo9LRqYX9E1+fW/UVXOLhGNH86LiBIlpJXGpVe6Xn7iel288Lpu/tTqp
z3pChqEk2NXpdDTtV5G/RnrB+acfOSJ1DFq4EPLGIMYCmMKCVAnvRVwEzYFD
w9tRsl2d2FdFPURE9CBI4WGcw9E5kEw5RPQ1SPeJOm6Usl7QGaDVzsEsQh+R
KFH3pQRTLEDkD4wCQ6C1nsbavRYPdzM5JAStd+i+RcoAzaEn1QsorY7C5Wv8
fiEGHgvwHA4EmpBT2gEgVyCxMAoAzgFzZjTV740OgFKg2hRlAM+gPJLG27XE
AjSJpZjZ+1gAc0TAKMiilFhASf7TVy5MntTiELgogJkcprhD1wRXXuOIWrzB
JFxjUMZNg6skpojfS8BYAFYH9UGhcqslsmX7WlzOFu4+1zxlTrabi9DftyIm
sSw2qSQ+6bbj/FBDswiWlYbD1CrceGKUuWXmcqe0vS7xly6UxCWJ2dyKtCyJ
+6XHbuc6tvykmLez4YZfn3RDVIBOYDv8LSvrlaoTOI18FbEAVg/5WDF6sGKB
ms9VVAkJUEmqKiGQLdWTf2wpBMMifqBcCr97KZPOw3wsT0IR0iUNz9LA8jFN
Mr5Aw0ur6NCwTEOrKkwrevzCPQNHwQ+N5WOUsoMUDcMH+uLwG/E6NTq6fKtS
DC8uwC9Ri6Mo8pkwKLGADqZ2xAwoYwAzJ3Ty0a4DuAtWH3BlYN0WZr+Zbn+l
sUCkmiTDMgHuChFDLKB4g8mTWhyC8jD9jgUaR3wVsQDGHbo5vYdYLK7sBDh/
tn6XfOHOZy6nha4X8r/5Ofu7r8QBvtVxyeLEtLLk9MD5C9INzTlmNlks1dF5
kmlixZlgWeg4u8BtS8KFX3kRUVXZ+ZVpmVVsjoTNrfn+8iPXM9LNp+RLvpU6
bqrK6kMuS508UbEHvn5HJIwWCKLByxEhiuimiWpGjRdPBxgLkG7gBIrCAxZo
VM+QMT4XoQ2u3t7q5RJlh0/nWBpWCnAmrMqTUDYpdc29vb2ZyJ+yowlPDUFb
wL0U8qdXovF9SspaAHNdGLlU6fPuGR4c9DCtXFB0kjNFc7VM1fdISXDh+TqU
L9LuKFH34hETeowF+LwRru7pOSI8Sxyg2oJCbxdhfIgoAmWYYT6BadsMPRZA
2seVgXkhes/exwIKlfUjR4QAHAX0gfVTjd1we9ElJk8yWYQWBRQl+5Qj0jii
Fm/0O0cE12sDWRegh45hLGg9cEo+98uXX/xUu9uDd+Ay96hbdeDtuoTU6pQM
UWpG5DynYgOLElObElNr1d82JSZWJcaTKqY6iF3WZXicSvb1zfa7X8fNrc/m
1Wdw67Jy6tjZdQc9Wveel244IlvqqrBb2b5sS2VOXi/V65aT6Zy8qTMqqh8y
3mGwasdw3wtsAYSGT1whL1GyHJB8ENGp58woDDHPG1FuHI8FaGlAKRMoNcG3
1FJ2+HQvZaLRUcYGJy54FW1hpVCculzLYqmdprpR6RMsEdQVAbEMiYZtSN3Z
XmP5GEnGgbfg8ZcC/CtAkRoFMsqNuEzKVis8FiC1lZFRq6PQcFrCWY+xAAee
lkG8DRrRBiERNtWnFBlROkjUSUeQvVH2mCl33ctYQN/pqvF2Fyx9JKLFApyp
gFGwZ59iAZ5jpxRPKbVjijdEzJ5ksgiXT1kf9b52rHFELd4YSO1Ye2FIO/AX
UCjfRFQmbP9og2z2RtmG4627z5fsu5B98kBt6L3mhJSGtKxqdlbcfKcKffOK
CdbKw8Sqwmhi9SSb2nVL8391z/T3KwoNLwh9UBQU3MDJfZSd35yR08LNa8nI
btlxom3Hz9L17rIF2+TT1ynMHF8sWCNJSu6NhvQJG/gBohMRVnWF/Xu5pxTu
MFfvG1dtNcSTJygVA+elkFHxPaWwMyIi9WbFTmnKjywWEqLlzQbIOjwWiLCl
Ac48cBMmRROU5Ee7H1FCu0sfHR2UckGhAdVfkDTkQ/QRv1FtV+coXaWK48eV
G+9XrVLq0NkZsC5c7KBd/XCnq4hhn5LSLihBta1UpIpH6swPerACq0EjoLUY
WsWoBaoWU5SFGxhCaS/4hwEU63QOvKRxCgGDiBZHodoKfZMqQv9yRLtUADcC
Psc3GUKKhmEC368IaYGSw6ewCj537VEHuPtIhHEgvvMTjgjfcYGWNmiCCjdV
QtaixAKNuyiZYgFdPgCSAE3GGRiGoYCe9pTSPanRIfiigKIk07ZPusJMI2rx
xgD3lNKjTC9BeTddXVCYzGxmx/RVspWH2refqXHzyPvxUENEwO/xiY/Tsuqz
suMXqGOB2GhSJcuybum80qO7Mm57C+KTHqamP4yNKwwJyw8KauTkNXF5j9jZ
LTkFTzLznn5+4I/Ve+Qf75PN+Uxut1xuvURhvVDqML/c06tHDfFdJXBWCX/O
+C+XQrngKr6zXeOzZvg+VZwHELGgeoTywa7uueuubAk2KUUjwkeZ0Eft+88R
50DFEKGhpQFlvkrJeCuZE5u64wfwFSofIzrF1zsiVR4JdxRav6D8STe7zp3r
Zhe2J0ejf/AHQPDwQd9cRKmDoDiLlyG0vDuOog/KU+FVclRwxwfCTaYEFMr8
n8lRaB6CatN09foXC9AjV/Be9PARZSMNeo4JsiKaM0Ox+GRV1Jnkoe821KgD
5HNR9+UAPhzcKo8vasBHuG0JDATJTdT9WTN4if50FX3FAe+iyxdhD1vRTQaX
mJ41QwYyeZLuEBhQ6M9ZUOS4YI+DaVRY44havMEkHELLs2Z4jaMf4QCPBVV8
wfN5S2WsqVK7RS8Xbm1fd+SRyy/5PxxsjPB/EhvXmpL+KJMbscCpYByLb2Ip
mjND6PoF58bFvLAIcXxyfWp6fXJyXUxM2YOwvMDA+rSshoycxjROMze/NTPv
0X/2PV228/msTR32q6VWS2Rmc+TmMxQWs+QTpzVv/bqSncGkHn3vH+JAPp6I
6NxohN+r8R0UPeaIKBK6NOnM0jOqquqAFy5hHGHqD4G2A1EsEmGcSZ8SQ5bD
hXfbHbR5M9QE3/QI8/l4igk3s2e78LEY7IJy8CHw58tgDgdpojEpRNeQqTMO
ypdI4X96RKZ/lailm/J0J9MchYui/ANA6EcsGDj6JJbemak0MJCxNJY+B1G+
lm59dTKkcUpCpvf692a4fntjIIP2CBQOWj//smOC5Qsz+w6ruVIH5xeLdzSu
OZh7dF9d6N3WqKjHcQlNySl+cx2TzCcWfrmae/7HnKAgUUx8dUKiKCauIjqm
Njq66sGDsuBg7n2/h7GJDxPZkti0OnZOMzuvddOxp8572ud8/txmkdT8Q5mZ
o3zCNIWxrcJ4svKJBoupTZ9uqggIFJWWUnRDczzUgnIUeKOW2iIFfYoFrwFd
j9l2JqjRJWQ7npTQDsojGPTtoK8f9M02Gol3IKDUL1AOX13e7f5A3OvHny4W
wDwMnuUelLH+XLEAf7Aa4q8QCyBKN2+VjjOWmlg+NTRvGm9TbzZbYr+Kt3Br
1hG3Kv+bDcGBDaGhteERwYvmp363I8v3ZnFQqCgiUhgeWRwWXhQaxgsOLggM
LLp/n3f3Tuqtm+XBEcKY1LLI5MqkrMZk7vP1x54v2tFuvVxq+uFzm3mt67Y9
3n+08bRHw5Xr9ddvNnpcbtn//eNde+vOUn8yeNq2U0/1Dx/fx0LvxgSNsYCy
Uec1A89aUKad+KXe8DksntKfwu7xnTmvFCAKwBoHRSvt2bM+yacko/B/Hhp3
Pb1O9Gkf0QA3h+Ni+xQLKO+gAEyIaBAVkZmQo4J24aIBsJ92+fhAgxgLXGhv
cOq9/r1R+M2MBWI+v9Flp3S0XvtovWYd/VpdA/E408oJU/iWC7jzN7MPfyv0
vVJx20d8927F3bvsX37i3fIpuOdX6Ocn9A8QBgQU3L2bdutW0s2b4Ei/cSPj
+vWYy5cKfe4JQuMFgTFVCRlNqdkvlu6S2q9qc97SePZKZRaXURVhOaUB/MxR
zVHdRZV2oDTCMmVvuIUSC1AGA3DFUE0d4bvX1G/j6T5VVpYtOi/17y2pvXxn
zmsG1GqwHA4rI/gBn4ODVylv23v96NM+osF6uXRfYwEaHZYs8as9xoIehQ8w
FvR+oEGMBZRFgYh5G1X/8AbGgjqfuy8dZreN1qscz6qcZFNmaSOynsw3NM3V
Mc4yskudtSZu6xf8O54lt31L/O6V3vcT+N8vDwoSx8RWZXCqc/Ml3LyatIyq
6LiywED2bd+YG54xntcjr1/NuOldFhYnikx6XF4lCY95OWXNHyu2iAXFg2V4
vwGJF88moULzEE4dXx3o9r4JgKn41/MOcBQphuqV40Pyzup+lA5fNQaXS+nQ
YvJfwRsDsVFcUCD0uBS2YWPAvn25AYFlXK6wsFBUVCQqKChLSuKdv5D00epQ
qwVBk6eyf/lRxMmqKytrEoubJNVNdfWPGpqaG1VHfcPj2vqW2rpHNbWNVTX1
5aLK0tIygaC8WNAkrnjyuLW5srJg9vJnJrNqb98fRMMJCP4sGPL/v4CAQDvK
i4ryORx6Oyoll2Rnh9rM9dU3uG1sFD53Lm/95kK3E5n7T7L3Hc84cDz7yClw
cA6dyHU7LNj1XdZ2t+RN38R/4Rqzcfcdp6UHpzlEzV+Yu3RNkdWcJvMZTwys
qkPJf2FG8FcE/C8GhloLAoL+AIUD/9mOv777rzMjxwpt5sk2n355wKvu2C3h
cW/hiZuiH33EP90S/ehddeTKHztPijYfzV13IH3992mrD+ev2ONtbLv5nbfL
jFgS44l1hmaPdA0qfe8MtVkEBAQEBH1GcWrqiVEj3N9+98Jw/fYpzrLl+2Vb
zj1zvfJ4v2fDYa8ad6+qIzcq3a/XHLjSvPlEw/rvK1YeKll7VLB8j8Dxy/Ip
n0TomcWN1i0bZ1iuZ1Sto1d67MRQG0RAQEBA0EcIhYk//XT83Q8O/t/bybrj
ZfYfyeZuki3fK/vsZ9n2Cy++vfJ07/W2vdceuV19vPvi75+ffLrm2O/Lv2te
sf/h3M2Vk53LTGcUG1lmjtFLGT2mYIxe8Sjd4sXLROXUbUIEBAQEBG8yyoXC
7ISEI6N03P/x9gsTK/mkWbLJS2TT1ypmb1UsOSBf+4Ns028dm890bDn9cv0P
L1cdaV+877mjS9usjU8sltRPW1ppO1swxpA7YnTsiFFxo3TYI3W5hsalmsoT
BAQEBARvMtJDQjb+7e/JI0bJTSbKJ9gqTKfLbJ3anbf9sfXwi09c5bO2yRbv
lS12kznt7nDc8Xzqhj+sVzw3mdN44ldxfoEIHIFBhavWJI8dF/De8Ij3R8Z+
MCrbq+e3DxEQEBAQvFG4fvDA4X/+U6GvrzAYL2dZtbl8I0lRvyJJXFLa6n5G
YbtSPvU/8qmfdtiueG7u1G44/ffPvqII4cfExC9zvv7Ov/3+/X6E02KSJiIg
ICD4E6FcKNxuZSkcMUqhp9f+oWNNVDS9T9s37grrJfJJ82TWTs+Mp7cbO1TH
JWqUxr569byO7uVh71RpkkNAQEBA8GYiMynpxL/+pdDRa/n6G3H3Z7ERKvIL
pbOXKV83ajb9hZHdkyWrRUIhk8CCpKRTxkaxM2aQpQEBAQHBnwW/bNvaNHJM
ncdF7d3q7/grJtgpWA5SQ8um33p4ARqfw/nFwlx89drgqUlAQEBA8KrAZbOv
vj+i6ezl3nT+Y8knCqOJcmOryti4HjsLcnKiXbZXcLMHrCMBAQEBwavF1W93
N+4/2svODVc9FcbWbVYOpTxeb/qX8HilJBYQEBAQvNnITE8XnPq19/3FZWUd
9rMfLVz66lQiICAgIHjNKC0o6Gt599mqTZyPh+z/jSIgICAg0Ij/B4IFulc=

        "], {{0, 0}, {516, 41}}, {0, 255}, ColorFunction -> RGBColor], 
       ImageSize -> {516, 41}, PlotRange -> {{0, 516}, {0, 41}}]], 
     "DockedCell", Background -> GrayLevel[0.866682], 
     CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> 
     RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, 
     CellFrameMargins -> 0, ContextMenu -> None, 
     ComponentwiseContextMenu -> {}], 
    Cell[
     BoxData[
      GridBox[{{
         GraphicsBox[
          RasterBox[CompressedData["
1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w
aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0
vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI
xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml
O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd
oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L
pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt
1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n
IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E
SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K
miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1
EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk
JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt
VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA
9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ
GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1
xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa
aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9
Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1
ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw
zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c
POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+
trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm
p4X4X/wDFcRtOg==
           "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> 
           RGBColor], ImageSize -> {199, 30}, 
          PlotRange -> {{0, 199}, {0, 30}}], 
         ButtonBox[
          GraphicsBox[
           RasterBox[CompressedData["
1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh
UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs
73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB
Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS
cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp
K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon
fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT
JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY=

            "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], 
           ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], 
          ButtonData -> {
            URL["http://store.wolfram.com/view/app/playerpro/"], None}, 
          ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], 
         GraphicsBox[
          
          RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, {
           171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 
           137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 
           137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{
           138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 
           169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 
           169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {
           171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 
           14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, 
          PlotRange -> {{0, 2}, {0, 14}}], 
         ButtonBox[
          GraphicsBox[
           RasterBox[CompressedData["
1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq
zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O
KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe
ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB
GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi
GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6
SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4
tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO
MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt
0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e
Xf4ArlmHrg==
            "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> 
            RGBColor], ImageSize -> {77, 14}, 
           PlotRange -> {{0, 77}, {0, 14}}], ButtonData -> {
            URL[
            "http://www.wolfram.com/solutions/interactivedeployment/\
licensingterms.html"], None}, ButtonNote -> 
          "http://www.wolfram.com/solutions/interactivedeployment/\
licensingterms.html"]}}, ColumnsEqual -> False, 
       GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], 
     "DockedCell", Background -> GrayLevel[0.494118], 
     CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> 
     RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, 
     CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, 
     ComponentwiseContextMenu -> {}, 
     ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
          NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, 
       Evaluator -> None, Method -> "Queued"}]}, 
   FEPrivate`If[
    FEPrivate`SameQ[
     FrontEnd`CurrentValue[
      FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], {
    Inherited}, {}]], Inherited],
ShowSelection->True,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 1637, 43, 105, "Section"],
Cell[CellGroupData[{
Cell[2229, 69, 28946, 656, 19, "Input",
 CellOpen->False],
Cell[31178, 727, 14566, 283, 721, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature MvDyw4gVK6jFrBKFMzbHgXt0 *)