(* 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[ 47398, 969] NotebookOptionsPosition[ 29474, 656] NotebookOutlinePosition[ 47317, 964] CellTagsIndexPosition[ 47274, 961] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "H = ", Cell[BoxData[ FormBox[ FractionBox["1", RowBox[{"1", " ", "+", " ", "\[Alpha]"}]], TraditionalForm]]], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"1", " ", "+", " ", RowBox[{"\[Alpha]", " ", RowBox[{ RowBox[{"th", "[", SqrtBox[ RowBox[{"\[ImaginaryI]", " ", "u"}]], "]"}], "/", SqrtBox[ RowBox[{"\[ImaginaryI]", " ", "u"}]]}]}]}], RowBox[{"1", "+", " ", RowBox[{"\[Beta]", " ", "\[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.437219582391576*^9, 3.437219592251067*^9}, { 3.437456640463217*^9, 3.437456640729665*^9}}, TextAlignment->Center], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"a", "=", RowBox[{"10", "^", "loga"}]}], ";", RowBox[{"b", "=", RowBox[{"10", "^", "logb"}]}], ";", 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"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"H", "[", RowBox[{"a", ",", "b", ",", RowBox[{"I", " ", RowBox[{"10", "^", "logu"}]}]}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{"H", "[", RowBox[{"a", ",", "b", ",", 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]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "1.02"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.65"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<- 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", ",", RowBox[{"I", " ", "wc1"}]}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{"H", "[", RowBox[{"a", ",", "b", ",", RowBox[{"I", " ", "wc1"}]}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"w2", ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"H", "[", RowBox[{"a", ",", "b", ",", RowBox[{"I", " ", "wc2"}]}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{"H", "[", RowBox[{"a", ",", "b", ",", RowBox[{"I", " ", "wc2"}]}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{"H", "[", RowBox[{"a", ",", "b", ",", 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[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", 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", ",", RowBox[{"I", " ", RowBox[{"10", "^", RowBox[{"(", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", "wmax"}], "]"}], "+", "dlogw"}], ")"}]}]}]}], "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", "wc1"}], "]"}], ",", "0.1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 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", ",", RowBox[{"I", " ", RowBox[{"10", "^", RowBox[{"(", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", "wmax"}], "]"}], "+", "dlogw"}], ")"}]}]}]}], "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", "wc2"}], "]"}], ",", "0.1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "->", StyleBox["mySt", FontWeight->"Plain"]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Arg", "[", RowBox[{"H", "[", RowBox[{"a", ",", "b", ",", 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[{ "\"\\"", ",", "\"\<\\\"\\!\\(\\*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"}], "]"}], ",", "0.1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 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"}], "]"}], ",", "0.1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "->", StyleBox["mySt", FontWeight->"Plain"]}]}], "]"}]}], "}"}]}], "}"}], "]"}]}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< H(u) = \\!\\(\\*FractionBox[\\(1\\), \\(1 + \[Alpha]\\)]\\) \ \\!\\(\\*FractionBox[\\(\\(\\\\ \\)\\(1 + \\\\ \[Alpha]\\\\ \ th[\\*SqrtBox[\\(iu\\)]]/\\*SqrtBox[\\(iu\\)]\\)\\), \\(1 + \[Beta]\\\\ \ iu\\)]\\)\\\"\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"loga", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "3"}], ",", "3", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logb", ",", RowBox[{"-", "3"}], ",", "\"\\""}], "}"}], ",", RowBox[{"-", "3"}], ",", "3", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "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[{ "\"\\"", ",", "Medium"}], "]"}], "}"}]}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"H", "[", RowBox[{"a_", ",", "b_", ",", "p_"}], "]"}], ":=", RowBox[{ FractionBox["1", RowBox[{"1", "+", "a"}]], FractionBox[ RowBox[{"1", "+", RowBox[{"a", " ", FractionBox[ RowBox[{"Tanh", "[", SqrtBox["p"], "]"}], SqrtBox["p"]]}]}], RowBox[{"1", "+", " ", RowBox[{"b", " ", "p"}]}]]}]}], ";", RowBox[{"mySt", "=", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}]}], ")"}]}]}], "]"}], "\[IndentingNewLine]"}]], "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.4373656350127153`*^9, 3.437365642206689*^9}, { 3.437456653842266*^9, 3.437456654294717*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`loga$$ = 0, $CellContext`logb$$ = -3, $CellContext`w1$$ = False, $CellContext`w2$$ = False, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style[ " H(u) = \!\(\*FractionBox[\(1\), \(1 + \[Alpha]\)]\) \ \!\(\*FractionBox[\(\(\\ \)\(1 + \\ \[Alpha]\\ \ th[\*SqrtBox[\(iu\)]]/\*SqrtBox[\(iu\)]\)\), \(1 + \[Beta]\\ iu\)]\)\"", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`loga$$], 0, "log \[Alpha]"}, -3, 3}, {{ Hold[$CellContext`logb$$], -3, "log \[Beta]"}, -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., {178.375, 183.625}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`loga$66$$ = 0, $CellContext`logb$71$$ = 0, $CellContext`w1$72$$ = False, $CellContext`w2$73$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`loga$$ = 0, $CellContext`logb$$ = -3, $CellContext`w1$$ = False, $CellContext`w2$$ = False}, "ControllerVariables" :> { Hold[$CellContext`loga$$, $CellContext`loga$66$$, 0], Hold[$CellContext`logb$$, $CellContext`logb$71$$, 0], Hold[$CellContext`w1$$, $CellContext`w1$72$$, False], Hold[$CellContext`w2$$, $CellContext`w2$73$$, 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`a = 10^$CellContext`loga$$; $CellContext`b = 10^$CellContext`logb$$; $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; Grid[{{ ParametricPlot[{{ Re[ $CellContext`H[$CellContext`a, $CellContext`b, I 10^$CellContext`logu]], -Im[ $CellContext`H[$CellContext`a, $CellContext`b, I 10^$CellContext`logu]]}}, {$CellContext`logu, Log[10, $CellContext`wmin] - $CellContext`dlogw, Log[10, $CellContext`wmax] + $CellContext`dlogw}, Frame -> True, PlotRange -> {{-0.1, 1.02}, {0, 0.65}}, 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, I $CellContext`wc1]], -Im[ $CellContext`H[$CellContext`a, $CellContext`b, I $CellContext`wc1]]}]}, {}], If[$CellContext`w2$$, {Black, Point[{ Re[ $CellContext`H[$CellContext`a, $CellContext`b, I $CellContext`wc2]], -Im[ $CellContext`H[$CellContext`a, $CellContext`b, I $CellContext`wc2]]}]}, {}]}, ImageSize -> 300, BaseStyle -> {FontFamily -> "Helvetica", FontSize -> 10}], Plot[ Log[10, Abs[ $CellContext`H[$CellContext`a, $CellContext`b, 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, I 10^(Log[ 10, $CellContext`wmax] + $CellContext`dlogw)]]]}, { Log[10, $CellContext`wc1], 0.1}}]}, {}], If[$CellContext`w2$$, {Black, Line[{{ Log[10, $CellContext`wc2], Log[10, Abs[ $CellContext`H[$CellContext`a, $CellContext`b, I 10^(Log[ 10, $CellContext`wmax] + $CellContext`dlogw)]]]}, { Log[10, $CellContext`wc2], 0.1}}]}, {}]}, BaseStyle -> $CellContext`mySt]}, {Null, Plot[Arg[ $CellContext`H[$CellContext`a, $CellContext`b, 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], 0.1}}]}, {}], If[$CellContext`w2$$, {Black, Line[{{ Log[10, $CellContext`wc2], -150}, { Log[10, $CellContext`wc2], 0.1}}]}, {}]}, BaseStyle -> $CellContext`mySt]}}]), "Specifications" :> { Style[ " H(u) = \!\(\*FractionBox[\(1\), \(1 + \[Alpha]\)]\) \ \!\(\*FractionBox[\(\(\\ \)\(1 + \\ \[Alpha]\\ \ th[\*SqrtBox[\(iu\)]]/\*SqrtBox[\(iu\)]\)\), \(1 + \[Beta]\\ iu\)]\)\"", Bold, Medium], Delimiter, {{$CellContext`loga$$, 0, "log \[Alpha]"}, -3, 3, Appearance -> "Labeled"}, {{$CellContext`logb$$, -3, "log \[Beta]"}, -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, J.-P. Diard, B. Le Gorrec, C. Montella, 2008. Hosted \ by Bio-Logic@www.bio-logic.info", Medium]}}, "DefaultOptions" :> {}], ImageSizeCache->{610., {301.875, 307.125}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>(($CellContext`H[ Pattern[$CellContext`a, Blank[]], Pattern[$CellContext`b, Blank[]], Pattern[$CellContext`p, Blank[]]] := (1/( 1 + $CellContext`a)) (( 1 + $CellContext`a ( Tanh[$CellContext`p^Rational[1, 2]]/$CellContext`p^ Rational[1, 2]))/( 1 + $CellContext`b $CellContext`p)); $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.437219470246048*^9, 3.4373655743975487`*^9, 3.437365612003456*^9, 3.437365642964952*^9, 3.437456659419773*^9, 3.437457712030265*^9}] }, Open ]] }, Open ]] }, WindowSize->{827, 778}, WindowMargins->{{16, Automatic}, {Automatic, 43}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJy9XGdcVUfevkuzu0mMXcOq9GYHUaqxgImiia6xxI3JakzUmDVl35Rd3Y3G\n\ tWGMigKKgtJFKdIEBCnSpPeuYP0l77vv5/fDPu/MOTPnzrn3XMCy+wHuvXPm\n\ zL/MzPP8/zNzzsqtX+7Ytnvrl598tPV3y/du/XzHJx998btle/aSIvPf6HRm\n\ FjqdzvF3Ovod5Cv79zq6urp0FqjJL8CVgLdREBmFjrY2S6l4GBrrG3DXLxB9\n\ U1xR7uSGFl8v9P4hCPc/24Dqzetx9/JlnblUdwi6OjtRc/0aCnbvQuH8hSgZ\n\ Z4/E2R6ovHJFB1qnSaqoG8tEZv1wAFcn2yF2205Ul5RYSMVj0EmaaXhnI3rt\n\ 5qDbdh5aV/ihY0sgHu58F/ffD0LzB2tRH3EOdanXUBUehvxdn6JooRfqZrqg\n\ 2NkZ4RNm4Nrqd9DR1KQh1gr11dVIcJmP+OFTcXG2J0pOnkZDTp6ZdPk1dLS0\n\ oH3tGvR6eKJ99gLULnRH88aluPfFOjz+YRMebCLqrHwTrUH+aFm3BJXec1Ax\n\ 1xWVs2chxtoBoVT8mnckyc2y5HHSx0SkEIPTx0xHzhgbJJPPDPuZuL37c5Sf\n\ OYvSTRvxyMMd9/180OTlhTabWWj0nod7P6zFo7+9i64vg9C+LQDNy+ehZceb\n\ uOM3D4X+bkhwc8EFa1tcdHDCzc//pDOWOxm1JcVIsnNF7LgZ5M8GuZNtkD7F\n\ FnG2dii2c8Ajl3l44OuDrmV+6Jm7EJ2uLujesxQPwjej99RGdHwVgPKtvijb\n\ 5Im8dQuQ/OZ8hNo54tjEKQhxckFVYiKVRAeAbqgk0xz1WVloyMuTfkk6lYs6\n\ TUJnezsy1vweV155A4lenrjztw9R+Y8dKD28A1VHd6Dx+Kdo+mk3Gk/vQePP\n\ n6H+2A7Uh+xCU+xXaLzyNZqiv0bthT+h+swuVIXsRsWpz1B29FNk7lqL07Pc\n\ cPPb71B05Kgl6/TO9jZUXr6MsrBQZG3ciIx31+FufLykWYWs2XjpYwbukN5I\n\ cHFC9YWv0XLtOOpiT6I54RQepIfhXnoo7qWdQ09aKLozLqAn8zy6rv6MrpgT\n\ 6CLXOnLC0ZYbjibyvS7pDOriT6E+6Wc0p55B7pcf44qdCzI/24NyokoF/YuM\n\ ROm5c7i+aTMSg1YjiYzjHNL7N4mKTQUFsucqRf2mo/BYMOICvdF49SDuRoai\n\ 6kokHqXFoic9Gv9Tm4P/vZuDXwpS8aggE48L0/E0NRq/3IjF45QYPEyLQV9q\n\ HNqT49ARHYXW6EuoDif6XoxEB9ElzM0JP063RrCDA445u+D8HDKo3ecgztEN\n\ d2Z6oHiBD7K3f4z2+gZ5jFmi7Xoaqp28UPWKE2qDNtPfuilsEJSUlMgDg/yy\n\ ZbM+PT0dO3fuxKFDh9DU1BQnG/dbdgfFEH6HBTO4vaUNiWtWI2bFItTH/0i6\n\ /zz6rkbh18IUXPD2QUpgINrSI/HfjbfQV5COB7eS8bQkGU+yY9GXRJyTeAkP\n\ oyPQfekCus6fx/1LEWg5F4rG6Gh03UjFEY+ZODxrOoJdZyDM1RHZZOaXvumP\n\ Wl9/5Hr6ko77ihrcwgzurKpBtftyVL0xVzKaGE/mmKx+VVUVQkJCpF92zAjq\n\ hKSkJHzzzTeIiIhQGWyPouPByP7wQ+LV7bi5+zMUHDqM6tQbqLmZjcJPtiOf\n\ zO3Ut33QEH8ID1Iv4nFmNJ7WZCFpkS/KdVNxY6oTcvfuQHvBVTypysYjYvjD\n\ vDj0plwmxl9CLzG+mxjfdvE8miLPE8Q8i7b4WPRmpyF5mRcKAhehaeUStPkv\n\ Q4tPACr8/ZHu64fbB3/UdTAL2vNvS5bSv5afQydpGOvAyqKJT6mh9FesbOlw\n\ 6YOgRHExqiMvoik8FDWXo1AWHYOiyMso3LUL9TNno+e1aeh+dTo6Rk1Du4Mj\n\ Hs52wWMbZ9x6yxfV8QfJ3LuIexlX0Hc3HXE+/qgYZoe60Y64pZuGRJc5uPXj\n\ t+gpT8XDoiT0pEaiKzECnVcvoi0uAjWXwlAWegZ3z51CdxLpgps3UP7OW2hd\n\ uxId5LN7QxDqli1BhvtC3NhMBnFtbSezqHbxasnw+s0f6/qznHYzHdfkU225\n\ M+orK1BEgOfmO2tw18EFZeOnI3aMNWImzUC+rT0yJ1ijdsQ03H/dBl0uzujw\n\ no97s2Yhd7U/yqL+RmZrODozL6O7PAXRZFAWjLRDyXgXlE5wQcloOySPJu35\n\ LUbJmYPouBmD1oTzaIy/QJDhPMounEXhz8G4cyqYTJJEtN1MQ+XH63Hvuy3o\n\ 3bGGUN1S5Ph6I3PzFjrIdSNZn7dExip9Tka6NBfN6S9iKr3GJ6kZI386K+o/\n\ +UKBAvpJf5NyOUAwYzc3/nmfcDMtsxDL6Hep2IIhNx18FFeYIlKjpEyqY6Zv\n\ WLsRM9Y59BqzhgYq/CYr0RSlEulpQeMRSh1uIp/4VCuqnQQGdGpExrJYyBJN\n\ B47pXUGuD2StOYu3KJoS+Wo3kt+0nNXX6W8w7dMRStlgtDbjLEnqir6mVihi\n\ xqgUp39UKVpdNJTWGYxIq/575tn0N+dzlelOIdlSGJi0LV5f8KjOzJQTh2hM\n\ dF5GJzklMT1FmSukxkhMcia9l5IcLad/+/fvR15enplw+cSJE9i7d690mdED\n\ n0+CFOmPVqdlBGDlGEtShAij99N2SGWmjqWoDhVJRRNbaf0RkkoCL0t1uQ6U\n\ pmgZE85MGa5ShlMZa1c0jScC4iVelX6SW9lQG2MkloQCkqfpb24SvY/+ptcE\n\ taRrvB5xmeJxLZ8Rc82Yp5iWzEfGnclHERXHVFOaph4TO5N5kVus5UQmnTl+\n\ uCh+YCcOINFSIVruYzouzPsZO1Q7qs1vZGoaybirjdhaRsL3uzt3o89+Fvps\n\ HVBs44R8e0LYc2aidZoTup3d0L7AE91LfJHzfgAKL+xDfUIYCXIvobUoAeE+\n\ vrj2ig0yJjojfaIT+XNG9gRnXBs9A6Ek5bgctBJFIUdRGUeC3UuhKDp9AkUn\n\ jqAq9hwab6WiKTcNjfu24NefPsDDr9ag+i1/pHh5k1g9bBSzVkAJ6Y+yipkQ\n\ gIrXKERyLymxGrtGyFyBYVpOrzMvPS8/cfCj+ERjBRYa/hv4SUAwFfrzOjRC\n\ Ya1SOy0UyGQwyZFHdBjVnvHTwHoOp9GfGBXoDZb9bkxppr2qLxus3gozyR3J\n\ 79fSm+hpzoolFVkwQiT1J2gAThq8xuZitMSpW4yWDMak6MPnJyUGPAop0d+c\n\ lMyEeykUyIxAAXm4BKcUTqgcjn0MUqQ26CepLzITxziOZQygWPY/VPpNVaTX\n\ 6B9HbPpJRPCpK2goARa5hWk1QoJDqgkHf6oRxUB6D+cvpgqb7q+rVONt0za4\n\ JVwNfj+3lrdL6wkwLqs5wkg0tUxsll7jhCF6ifOY2DTlKz6gDdmCdYwZs0no\n\ FxVf8X7mfEXrMJYw6meZgOT2uJrkmqKmoWnG4+O3qvExGK8ayx4hypbqcJ2J\n\ O6Q26CcPb7QGGu0pOiKovuQ7pzE5i34VzbeL0BJ8GD1LFqDD0RVtnvNQu9wT\n\ rcsX4t6cBehd6I+M9QHIC/8rymLOoTwuDLW5cQj28kLwb61xdoIdcVDIeDvS\n\ FvmOc+NscWzkFPwwxQYRmzYi/9wJZAUfQd7pI6hICkfd7RTUF6Si9fAf8Hjf\n\ WnRt8MXtxZ64/hbJKe9W6ThviZClDrblFEG8RkGFk7/Idxw/yOdg0HQg3jJn\n\ GCGygNR0lyqEpg28KH2Zi6mTThsPaZmlUo/jqIKDTLARG6iLpXxwkLpyEYq7\n\ zejtMmiKjQ5AX5ZK2WB15srR5IMrpxQPUeksZn9UOd4sDVcEcSakDUBjz645\n\ 7SCR+FVBlnALaU7fE+o+eflMRu/jaMDRkaIIL7MSqEikK4pEPHAm9bTEchE0\n\ OmcYrpSJqvAQkIKTGHOztsxNNm2lyVTKLVYS1DHHKMkccRZXghfpEyorIzsZ\n\ QvMWeSrBLzPG5hkepyfxMm9N8PRwkyZZKGTK8hnDftIzlpX0m5snSOuvawUn\n\ KdG96CV2j5ICiyKYK3SDMZan5Iq3CSPQj1fQlZZMUqCluBfoge7VnmjbGoC2\n\ zcvRt8IPmZsCkBX6FxRdOIHiiJ9x90YUDnoswBejJuH7sdb4dpy1Bb4ba60b\n\ je/HTcO3r07FnpHj8a29E85/+AHuXAtFRUo4akuuozbnGlqPbMWv/3gPbR8u\n\ R46fN64HBY1mdolrLeq5q8+SlETBfbl+aYQtY9J4VavM5Fx9Vi4hGMX7UQCN\n\ F+aSIQpHcN7knjCImY3JhKihRlBDeFMLNR9IU3lMqiCR8psW7D4ziQykq5Ze\n\ GiLkOINxMNFTL1ZNgv2Ie2YWGdDNlhL1Me41GqB80JI8TTvpelnEwRbamEpy\n\ GUUSXqZFHCLCs08tsRzfuFhxuYf85puRfF2LX35OviBKcSTkxCdcVtjJkBgM\n\ wJaCnaE0MS8zUnCYshZpkIZJ35l3Schvmik4/jIxWh3DPSkapqG8Vl8K7tFp\n\ +YdraGFwjW/g0PRoIEvpPdQCutkj19W9Jn2MRmfJHbRvXo0ev3l4sJPQw963\n\ cG/zYmSu8kM+ST+qI0+iJjUCDfmJOLxwEb7/7RQcnGBjhQPjZ5DbD0yYQb/h\n\ LyMnY/9rUxAVFIjCmJ/QWpmGBpJxdJzZjn+e3YJ7nyxH0VJvJK8gGUd19Ujm\n\ L3Hi8ZlLQnolumeIr7WNYGkIKvpaz0UOygIZm9hsc5jj00tZIBsiLn6pjKbQ\n\ IrSuX0mT9hIYSRLIUmlgsBtk6CETdGCUOkj52zNnFFb65SWTKhruvQ2KDJRu\n\ JGXCgqcyHQcrzqL/vhiM/uoFTc4cQmar1k8u42t9cs7B855/Fz0IS1dyDXZm\n\ gU9/cs2SLZzxxQwR/zhDUMagMTeJJ01rYCmBCA9TOXDzqIqCjrBwZqbRjOky\n\ SyPKIKIUsSLAPxNfDFEWv6ihfG2ONyGqw3daZGuGaiVIok8tmMOFfQum0TAj\n\ jXimwRegDEWbomMTJNJfjzPHafmNZyMWTFchQ9GT/RAjW3kipt+v042RPkah\n\ PS8XPR8EonfLInR84I/eA79Hzq41KA77K5riQtCaEYn2kiSEePng/KszED3J\n\ mVh3ZZIT4Y3L4+wRM8EeN+Z5IHvbJqT94yuSUpxFT1ky2ooz0Hl2G/73/Cb0\n\ bVuM5rWLkOnvixub3ue8oWz3kynJo3kyfXlAwGNt6RKP91Qh6b+HPcylrV6G\n\ 7UTGS6CMYUb5gbibTL/rVbMUF7DkBt+YK6vx3GxhLtICUUyTQQadNxjr9WIU\n\ wYOogdrV4gIzllzS7mJ1dZojxLhxfacoWRXpHPqbRywk65MbG9rvkHphBhii\n\ h2BlUd2S7eCK01hcL6BTWgCL/vCeVqXJhjFqWijb3/R6v+nAfwTvuXge6spu\n\ EcJ1Y5C3MgI79l1yqpUJNBdXY14UzcXe688Hg8JuQzfLTQvrVjz0l89Qj0Tb\n\ yQPoWOeD1t0B6Pz7OuR88S7KzpPAJeoMWpIi0HnrKs57+yJ1tC1uTnSxoLvk\n\ JG/IHueEm2McUOQwGyXvrcb1b/YgNy4MrWWp6CxKRM+da+i4lYLOM9vwz6Or\n\ 8fTL5bi/KxAVfp5I9fJGyYlgtNXVDWe2KGE/mTnKLBmqTDyeHYiTSx1TvWwo\n\ 5/OBkged5lqtvQCUC3SlglF2eEm/DmJ0ak1mF1quXy95sSRA2NPhqae4Oq7y\n\ 5aD3x/tX+MXwfugg29XCewtWj4b7z6f7MKOsjCaJYieS38r9Rgt+oj6ESp6b\n\ FHjwZ8YwgWf7DA04EvI9cRF0k9hBni62sECXmS0YHGgs8UjfeehKv/MFBlLP\n\ StBITRvDFGoQtJK+85Ukqrc2aA2eL/Sc8FzrSZZMYeo8qhbb0TWtwTDReCMn\n\ qc80mYuO1vGHUwxX6ETHGjLJcy4u9dff/Tlt8ItMQzUXmXjeR7IECzXJtCQl\n\ ot1vPmrXLULVzmXI/Gw1qqP+jtZLZ9ARcwFdOQmI9vZD8XBbVI51MUP5WGfd\n\ WJSPcUL5aAfUTnVF3YplKNj3Oa6dOILrR4+iMTMeHXnX0Z6VgJ7CNHTfJkD9\n\ zSo8/moper9+G73v+aNz+QIUeXgg2X0hUtf9Hm01NaQHZD/yPWMOBIxWzNhB\n\ T4GM+luTeqk7Ewbr3nxumdyREDdlhTb4coSCl0bsww3itnM2YkDWD5g++2aE\n\ ppLyZoR4RF852SqsuAv+V1RiuY5KzYGwvD/VX3BvYoh201asA8WN6S4Wy/Dz\n\ XMRQbgyvQg21YlPGoEWpnkAmXCtOJLwfhN0KBUYUnjIcmDz66JdvLFk6YbDi\n\ QwFQta/NMgSlF8Ukg2908iVqccFJBFFODXSJur/lcmO6GWqSbpgsLaYScZ6q\n\ qy/T3rwgTYnbuOyWZ0tOrBSj+R/LJURlmN8U0uEnjwz9xX1LTz5xGBL8zvyl\n\ pk0mzuS+Cesrbswgtr3VPW9llF7247rB74APM7kDLuxvqZMbW7RejUPzGg9U\n\ rfVA4TYfpG0PQP2VA7gXE477KdHou5WMBC9/VFnZom6MM2pfc0bNKEc0jnVC\n\ +yJvlP/pj8i5eAolaQmoTUnArdNn0Jgehwfl6biffx0PirPIZxZq3vVF45rZ\n\ qF+zCK1LPdH5thda3d1RMmse0twXIHnVapT89BPJeGrZRNMvT7GQn89SM4YC\n\ bBLL85wxALmF+1hElpd82Iqu77DnKIStD6mq/gizSbqzUJbjpHPMVGMZ7Lgx\n\ wmEAMS+ScxjhAQnDbV+92paqdIc9W2EcXXMmMs1OVoa6qr08XMw1Ffzm+vB+\n\ E5iXmygSFpcgrwUx9fUMMrD6/TKUiSNY8ilxZZGG8wyTZTJDNVobkyelyNPq\n\ BFWddatNsTRiP5njZcOMD9QN1y+nCeu6PJgRqE9qnh/MozJpffEww+DW0V7n\n\ iy3KfgZlH+EcqHSdswoP94WzptJ1DkrKXoeFIophm7gmpU4GtNMmftbLkMeE\n\ c78s6ZssSeePagpJoSoq56dleZKhRWz9nYxVs5t+b0BDLtGLMreVqj3uIVKH\n\ wYQcT5g+ZDxcpWM/PWJlQG9CPqUcyDWkN+ODvlNVB31NuXOggTEYV76cQ8Ym\n\ YxMzkfzs0fTdf6FixUJUvk+I7CMv3PjjcjTG/oju2Ag8TIrGo4I0xC7yR9kw\n\ W2lqVb7qgEa3+aj5aAOyju5DXkwk2gtvoqsgk2Rb13En6hKqoy/iaWkKHhVd\n\ wy+VWei7Tchvy2K0LHZEzVw71Ds5onnOTNTYz0KZ/UxUuM5CgcscZM5dgIx3\n\ 1qE05Bxd9lMGk1aUy7cZzKQg1kIFwArFWSjIwB6X4YDEIdsIB0UapFyrf6xm\n\ hIQu9EaKSsJmvP75PZaJ6NMAS+UZDQEZjaNrPZRWKdvChmUiL1uKDYiJH0cR\n\ Ht/LB5eM0zS2BCk4REzAmM68lvwcSJeQgUhPzdL7RqmQXdxCo2YZEI0R6Rmb\n\ bqXqGAHd9S4TtNanjZRvyJ28mHeU6iFPSy1dlRBHkktkNQpP3giizEUHKcBs\n\ goWFA2RCyqZpgt7xPP2iShmuFdCDYxyphAdBVQ9+GoxgC5UnhUNvg6O9Ecpy\n\ EH/Ckcfb4sN77KSTsuokPhfK6VJ5JkZPeaw5biVP5+jCkWnKs1QoqkufrilY\n\ ZyiZPdghydS9KsElP+hGxXHI5Uwn7onzOgYPLyqhl/EDsfpnLeU1UipzqMKk\n\ 4uOMRk6x4qht+OQnT2cMs0Qt9w8xIDjOlfSYmNbhbrlsqKnnMLnWsiFDFEO0\n\ RBvyp5bjXtJjn4YbazyZY8/LyCcNSAhZV4eyNxej1MMVhW8tQFaQJ5I3LENz\n\ zI/ouRiOBwnReJCXivOLfJE8bBqK7WajfN1KZO/7AukhJ1EaFYmq6MuoSYhF\n\ S1Yy2nJSUHM1FnejIvAgNwGPcuLwtPgG+vIz0LDBB/eXu6LehSSGdjaod7BF\n\ 82RbVEyyQamrGyrtZ6PKbhaq7d1QOs8DBe9tQNXFS2i5U6ocJNa/jEAZzLyM\n\ zmA+i9UrUcNVuY3yHLjwbAXLw4x2Ylh7bIfDUrXQx7hNJ0I+b1tBVxm29QG+\n\ 0r78XLv4dgAKbfR+ylAGZepzsMpSXtBmZUrx/SblgUQDoxnki+8q4UZLSlnp\n\ UVlwsJyGSRCrXg+UPS899s9xk76RQdZWvjxKlaqILxSgsqmRbOFOLFPWJfrR\n\ VyFGy37oQ25ntHJqRHkxDWmTZ4r9yOgvczM8WalECEScyJkDmSAchzRMqeVw\n\ QnayidceqNJYZViSOs9AXpM0ykZqlBlSD4UyrXr8oRARPV/pp55YprWUOEpg\n\ Qo7SypMsajFap4yHadSboFHPUoREGzR8/SXq7VyQP8cNqY6uuOLoiMQgXzRJ\n\ kBiGThLCNyXF44z7QiTOd0f2lzuQevxHlMVeQsO1GNy9chEl4aG4FXIGBaHn\n\ UBUfhcrYSOSFnEZT3AV0JFzAg5vX0JtzA+UrfdC1wh21bs4onjsXOb5+KPhw\n\ K/I/+QS1sXGoS0gwI//iafCWEIeGK1GoiyF9fSvPcL1BOUEvQZVhSESnxEhD\n\ cNNPZ+MyW7GyuN/KW+azQIl8DWLm4Qb6GQR9amkOpi5M0WhFayWErXxomsLf\n\ y/OyZgP3PCVo/oTsqP/wbBCeif43zQb5FPs0NPz9B9yd7YYMG2fETLFH9BRb\n\ RFhPR0ygN2ou/4Dms6dQeuY0Ss+F4HLQKqTu/wqlVyPQU3gNDxty8KgxG/cq\n\ MqQtxYbkaJRGnEXWiWCkBx9D5vGjKDx1gpD8WbQnx6Iz+waKlvqh3HsBchcv\n\ RvE/DqNGwBpOIHris1A9QE++Kymd/hjBwANf5DZbZQ4ZbYzJ3hEFslBDUfBZ\n\ B/uAW2S0/jiN8c5eFaBPgdlpieedA+qDD+rDt2NNzgvTj/fT8alE7ebiNpJ8\n\ AMmMajKUGcYb6RIWxl5VammNZZPTg5/N4kG4OF+NJojUvNYs7WdavMKnRckd\n\ 1Gz8AKWT7XBhvDWiRlsj6XVrXJxqjeOTpiLUyx0VFw8g79BhFJ84jrLTJ1AR\n\ eRbNuYnoupOMrspUdNO/0mvoKExAc2o0WjJi0JEZibroEOTTHfkfDiCN3F94\n\ 7jQZiTfRW1mOHB935HrMR9GhQ7rRTE1jeLZQ4qp+AgxhWqjHobK/IPMHS7kJ\n\ M3bpl4ipTO5gowNOGjOD0oUUEPGp298old59ReYkXf0xWXmcJjXoY259aDaA\n\ NBObs+biiRDTk8BcqMyWMZUzUuKwf62fwf7GMzGAuZJS0oxV68VT459tTI/i\n\ 3Utf25qahtwDB5FCAp9cW1dcc/NAQsAKxHstQca6DYheHoATTi649MpUZP/5\n\ MzQmE5i/W44nLXV42tmEJ/da8eRhF3552oOnT3rwS18rnt5rwqP2Rjxqq8fj\n\ DvLXXI0HtZXouVuBltIy3G9twf/961+4G3wcqU6OSPX2RsWlS076jjNejJKP\n\ g+kHKe+nN031tpt8QZ4jYqDyu2cZHzaCF/nbotw0emCqRj2rQd47QaOeqqeG\n\ oKO5GfE+/ri+4i0Uf/8d6pKT0VxdRd+lyuBuMhrKypCwJABXRk/EERsbJHz8\n\ ARpOHkbDmWA0Rp5B+/UIdKZfQXtqJNpToqQXZ7ZdD0PrpZNoDP0JjeeOounM\n\ ETSePk6+n0B18FFU0deLbf8Y52bYI9baBlc9F6Ei4qLuXxquqhdVJgDQ0YFK\n\ gsqdbS3ME5NRmZmNrAM/4vzqVdhnPQln585AwxIP1G5Ygo796/H44Ab8emkn\n\ fo3fi18jtuOXxI/x5ML76Nu2EJ1B89H6tita/BzQ4D8bjW/OQelcV2SSaD2e\n\ qBZubY/wqfTVti4oOXlSpSI/lsBUlB0+EVFrVuPg5InI8ZyJJq+FaN+6Ck8O\n\ bcWjr9bi0Q8b8OSv6/Fr8Cb8+vN6PNm/Cvd3+aNniTP6Ns1Hd+As1Pi5o2nh\n\ bNR7zcGdma7Id3BBPAmbTr9hh8iJ1kjfuEl+j2ujLHc8c0NLYxNO+vri9NiJ\n\ qJ/ngdZ3AtC7YzUe7X4XT/+yDj3bA/FgbxAefuiPp38OwMPvV6FrTyBal7ig\n\ eb4tOjwI+vl5osp1Nmrf9Ea5+zyUOrqg2G0mkmc4Iub16UhYtkIaHZL8BrX8\n\ 0sREhFlPQ661A5rm+aJv3Sr0blmBe+8Hou2PK1AX6IvG1f5oD3THw93L8ODL\n\ lehY44023zlodLVDtb0NKny8Ubr/b6iOikL+F18gY81a3CI+vOPiipRJ9gh+\n\ dSpu7tuvIf81lF2OQuIMG1QtWoCuZUtx390HTUErUbxlE25/81+4c/wYcrZs\n\ Rr6fNxoCFuH+uoXofs8X7QtmoWmWI8odnVEVdo6vfrXV1aI8LAx5dP7MIvA1\n\ wQah8xfRlxDL4utF8UMQt349MkhX9Xj7oG91AFo/24P65CTpJcb8rEhrZSVu\n\ /P495BCTmgM9cW+VLzrmzkKbvT1uvb0C9dnZyrkQOjlLyAhLXuiDmOmOyP7+\n\ Lyq54xgaNNzKkyZxrfN84soVaE9PQ2dTkyWLkqjI9I0bUTh7DprnupOU1A31\n\ r0yTUkOiGj8kVUOmftZH2xDn6UVazJcE1YmCLJCz53NkzpqHSp/laLqZO5TJ\n\ r8vIkN6uVjV/NmocnFE+wwnlISHD2F3UjOxPd+Hm13+WJi8trpUb5u/tll7d\n\ /PZbyF+8FLW3bg1nDig+egy5JDFutnFAddC70glBHsXVEn7pbGuTfklN1ohN\n\ mqP01ClkBAag/k4Zu8eCdFwuUhb5osHaEWXvvS/d1i3f9joPQAh1pW7YiKqU\n\ FOXFpbQs65NPUUJorGj7DvE2Lq2zpUWBex6pVF9PRtrcBfRdvDrxHg79tF+S\n\ V7yN1PXrVddt2fXMP27D9VVr9BbKzet0v/l/ed5zfg=="], ImageSize -> {516, 41}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}]], "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], Cell[ BoxData[ GridBox[{{ Cell[ GraphicsData[ "CompressedBitmap", "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\ ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\ H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\ mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\ E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\ FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\ DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\ a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\ SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\ RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\ Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\ dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\ 4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\ nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\ 3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\ miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\ 6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\ SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\ iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\ 0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\ erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\ 8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\ 02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\ YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], Evaluatable -> False, ImageSize -> {199, 30}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\ xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\ y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\ GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\ WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\ hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\ YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\ +qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\ PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\ gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\ AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\ 6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], Evaluatable -> False, ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\ jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], Evaluatable -> False, ImageSize -> {2, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\ 9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\ WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\ xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\ xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\ yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\ 4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\ lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\ yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\ Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\ UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\ V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\ 2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\ QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], Evaluatable -> False, ImageSize -> {77, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], 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}}, 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], FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (May 21, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 1070, 28, 95, "Section"], Cell[CellGroupData[{ Cell[1685, 55, 19031, 421, 19, "Input", CellOpen->False], Cell[20719, 478, 8727, 174, 627, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature xuT4i7d6QbGBZB1cuNjVjuuA *)