(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 60232, 1487] NotebookOptionsPosition[ 58791, 1439] NotebookOutlinePosition[ 59135, 1454] CellTagsIndexPosition[ 59092, 1451] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6882439902032213`*^9, 3.688244039675051*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"General", "::", "obspkg"}], "MessageName"], RowBox[{ ":", " "}], "\<\"\[NoBreak]\\!\\(\\\"PlotLegends`\\\"\\)\[NoBreak] is now \ obsolete. The legacy version being loaded may conflict with current \ functionality. See the Compatibility Guide for updating information.\"\>"}]], \ "Message", "MSG", CellChangeTimes->{{3.6882439980736713`*^9, 3.6882440423952065`*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ZL", "[", RowBox[{"f_", ",", "L1_"}], "]"}], " ", "=", " ", RowBox[{"\[ImaginaryI]", "*", "2", "*", "Pi", "*", "f", "*", "L1"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ZC", "[", RowBox[{"f_", ",", "C1_"}], "]"}], " ", "=", " ", RowBox[{"1", "/", RowBox[{"(", RowBox[{"\[ImaginaryI]", "*", "2", "*", "Pi", "*", "f", "*", "C1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ZR", "[", "R_", "]"}], " ", "=", " ", "R"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ZinPara", "[", RowBox[{"L1_", ",", "C1_", ",", "f_"}], "]"}], " ", "=", " ", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"ZL", "[", RowBox[{"f", ",", "L1"}], "]"}]}], "+", RowBox[{"1", "/", RowBox[{"ZC", "[", RowBox[{"f", ",", "C1"}], "]"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ZinSer", "[", RowBox[{"L1_", ",", "C1_", ",", "f_"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"ZL", "[", RowBox[{"f", ",", "L1"}], "]"}], " ", "+", " ", RowBox[{"ZC", "[", RowBox[{"f", ",", "C1"}], "]"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.687804444840513*^9, 3.6878044570082088`*^9}, { 3.687808146120214*^9, 3.6878081538316555`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"GammaLH", "[", RowBox[{"Rs_", ",", "Rl_", ",", "Z1_", ",", "Z2_"}], "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"Rs", " ", "-", " ", "Z1", " ", "-", " ", RowBox[{"Rl", "*", RowBox[{"Z2", "/", RowBox[{"(", RowBox[{"Z2", "+", "Rl"}], ")"}], " "}]}]}], RowBox[{"Rs", " ", "+", " ", "Z1", " ", "+", " ", RowBox[{"Rl", "*", RowBox[{"Z2", "/", RowBox[{"(", RowBox[{"Z2", "+", "Rl"}], ")"}]}]}]}]], ",", FractionBox[ RowBox[{"Rl", " ", "-", " ", RowBox[{"Z2", "*", RowBox[{ RowBox[{"(", RowBox[{"Z1", "+", "Rs"}], ")"}], "/", RowBox[{"(", RowBox[{"Z1", "+", "Z2", "+", "Rs"}], ")"}]}]}]}], RowBox[{"Rl", " ", "+", " ", RowBox[{"Z2", "*", RowBox[{ RowBox[{"(", RowBox[{"Z1", "+", "Rs"}], ")"}], "/", RowBox[{"(", RowBox[{"Z1", "+", "Z2", "+", "Rs"}], ")"}]}]}]}]]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GammaHL", "[", RowBox[{"Rs_", ",", "Rl_", ",", "Z1_", ",", "Z2_"}], "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"Rs", " ", "-", RowBox[{"Z1", "*", RowBox[{ RowBox[{"(", RowBox[{"Z2", "+", "Rl"}], ")"}], "/", RowBox[{"(", RowBox[{"Z1", "+", "Z2", "+", "Rl"}], ")"}], " "}]}]}], RowBox[{"Rs", " ", "+", RowBox[{"Z1", "*", RowBox[{ RowBox[{"(", RowBox[{"Z2", "+", "Rl"}], ")"}], "/", RowBox[{"(", RowBox[{"Z1", "+", "Z2", "+", "Rl"}], ")"}]}]}]}]], ",", FractionBox[ RowBox[{"Rl", "-", " ", "Z2", " ", "-", " ", RowBox[{"Rs", "*", RowBox[{"Z1", "/", RowBox[{"(", RowBox[{"Z1", "+", "Rs"}], ")"}], " "}]}]}], RowBox[{"Rl", " ", "+", " ", "Z2", " ", "+", " ", RowBox[{"Rs", "*", RowBox[{"Z1", "/", RowBox[{"(", RowBox[{"Z1", "+", "Rs"}], ")"}]}]}]}]]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GammaMatch", "[", RowBox[{"Rs_", ",", "Rl_"}], "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Rs", "-", "Rl"}], ")"}], "/", RowBox[{"(", RowBox[{"Rs", "+", "Rl"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"Rl", "-", "Rs"}], ")"}], "/", RowBox[{"(", RowBox[{"Rs", "+", "Rl"}], ")"}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6878035673333225`*^9, 3.6878036036554003`*^9}, { 3.6878038845514665`*^9, 3.687803940415662*^9}, 3.687804479624502*^9, { 3.687807446955224*^9, 3.6878074549546814`*^9}, {3.687807541834651*^9, 3.6878075839240584`*^9}, {3.6878878639068108`*^9, 3.6878879684247885`*^9}, {3.6878881686562414`*^9, 3.6878882032892222`*^9}, {3.6878892214404573`*^9, 3.68788922447163*^9}, { 3.688142387171176*^9, 3.6881423912984123`*^9}, {3.688166098000119*^9, 3.6881661013385253`*^9}, {3.6882542789576335`*^9, 3.6882543267173653`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"GammaNetwork", "[", RowBox[{ "Rs_", ",", "Rl_", ",", "L1_", ",", "C2_", ",", "f_", ",", " ", "Rsmatch_"}], "]"}], " ", "=", " ", RowBox[{"Piecewise", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GammaLH", "[", RowBox[{"Rs", ",", "Rl", ",", RowBox[{"ZL", "[", RowBox[{"f", ",", "L1"}], "]"}], ",", RowBox[{"ZC", "[", RowBox[{"f", ",", "C2"}], "]"}]}], "]"}], ",", RowBox[{"GammaLH", "[", RowBox[{"Rs", ",", "Rl", ",", RowBox[{"ZC", "[", RowBox[{"f", ",", "C2"}], "]"}], ",", RowBox[{"ZL", "[", RowBox[{"f", ",", "L1"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"Rsmatch", "<", "Rl"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GammaHL", "[", RowBox[{"Rs", ",", "Rl", ",", RowBox[{"ZC", "[", RowBox[{"f", ",", "C2"}], "]"}], ",", RowBox[{"ZL", "[", RowBox[{"f", ",", "L1"}], "]"}]}], "]"}], ",", RowBox[{"GammaHL", "[", RowBox[{"Rs", ",", "Rl", ",", RowBox[{"ZL", "[", RowBox[{"f", ",", "L1"}], "]"}], ",", RowBox[{"ZC", "[", RowBox[{"f", ",", "C2"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"Rsmatch", ">", "Rl"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GammaMatch", "[", RowBox[{"Rs", ",", "Rl"}], "]"}], ",", RowBox[{"GammaMatch", "[", RowBox[{"Rs", ",", "Rl"}], "]"}]}], "}"}], ",", RowBox[{"Rsmatch", "\[Equal]", "Rl"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6878044886330175`*^9, 3.687804527401235*^9}, { 3.687804717664118*^9, 3.687804780000683*^9}, 3.687804818480884*^9, { 3.6878058141638336`*^9, 3.6878058311148033`*^9}, {3.6878063469803095`*^9, 3.687806347923363*^9}, {3.687807594114641*^9, 3.687807608311453*^9}, { 3.6881617443705506`*^9, 3.6881618406679277`*^9}, {3.6881661065901346`*^9, 3.6881661253414683`*^9}, {3.688166200865405*^9, 3.6881662732075357`*^9}, { 3.688166685041178*^9, 3.6881666860489807`*^9}, {3.68816695282136*^9, 3.688166976373802*^9}, {3.6882410017712927`*^9, 3.688241024059568*^9}, { 3.6882421960115995`*^9, 3.688242231786646*^9}, {3.688242485077133*^9, 3.6882425204301558`*^9}, {3.688254332936721*^9, 3.688254350547728*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"Rs_", ",", "Rl_"}], "]"}], " ", "=", " ", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ SqrtBox[ RowBox[{"Rl", "/", "Rs"}]], "*", SqrtBox[ RowBox[{"Rl", "*", RowBox[{"(", RowBox[{"Rl", "-", "Rs"}], ")"}]}]]}], RowBox[{"Rl", "^", "2"}]], ",", RowBox[{"Rs", "<", "Rl"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", "Rs"}], ")"}], "*", SqrtBox[ RowBox[{ RowBox[{"(", RowBox[{"Rs", "-", "Rl"}], ")"}], "/", "Rl"}]]}], ",", RowBox[{"Rs", ">", "Rl"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Rs", "\[Equal]", "Rl"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.688165480647008*^9, 3.6881655414481173`*^9}, { 3.6881655778156824`*^9, 3.6881655867769985`*^9}, 3.688165619712558*^9, { 3.688165744238282*^9, 3.6881657760706396`*^9}, {3.688207993659157*^9, 3.6882080091559844`*^9}, {3.6882415293794703`*^9, 3.68824153199362*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"X", "[", RowBox[{"Rs_", ",", "Rl_"}], "]"}], " ", "=", " ", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"B", "[", RowBox[{"Rs", ",", "Rl"}], "]"}]}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Rs", "/", "Rl"}]}], ")"}]}], ",", RowBox[{"Rs", "<", "Rl"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox[ RowBox[{"Rl", "*", RowBox[{"(", RowBox[{"Rs", "-", "Rl"}], ")"}]}]], ",", RowBox[{"Rs", ">", "Rl"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Rs", "\[Equal]", "Rl"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6881656270433707`*^9, 3.6881656513202143`*^9}, { 3.6881656866900787`*^9, 3.688165749757592*^9}, {3.6882080172689986`*^9, 3.6882080236032133`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"soln", "[", RowBox[{"Rs_", ",", "Rl_", ",", "f_"}], "]"}], " ", "=", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"X", "[", RowBox[{"Rs", ",", "Rl"}], "]"}], "/", RowBox[{"(", RowBox[{"2", "*", "Pi", "*", "f"}], ")"}]}], ",", RowBox[{ RowBox[{"B", "[", RowBox[{"Rs", ",", "Rl"}], "]"}], "/", RowBox[{"(", RowBox[{"2", "*", "Pi", "*", "f"}], ")"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "*", "Pi", "*", "f", "*", RowBox[{"B", "[", RowBox[{"Rs", ",", "Rl"}], "]"}]}], ")"}]}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "*", "Pi", "*", "f", "*", RowBox[{"X", "[", RowBox[{"Rs", ",", "Rl"}], "]"}]}], ")"}]}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.6881402183801284`*^9, 3.688140251137002*^9}, { 3.6881403143126154`*^9, 3.68814035565798*^9}, {3.6881405302369657`*^9, 3.688140561853774*^9}, {3.6881424468185873`*^9, 3.688142454779043*^9}, { 3.688142485882822*^9, 3.6881425140914354`*^9}, {3.688144214007665*^9, 3.6881442436083584`*^9}, {3.688160829316394*^9, 3.688160835494005*^9}, { 3.688160890991806*^9, 3.688160994441893*^9}, {3.688161124229928*^9, 3.688161249365354*^9}, {3.6881613551489434`*^9, 3.688161509449823*^9}, { 3.688161640594163*^9, 3.6881616657877083`*^9}, {3.688164010713067*^9, 3.6881640151278744`*^9}, {3.6881641483745136`*^9, 3.688164152667021*^9}, { 3.688165790702367*^9, 3.6881658038544903`*^9}, {3.6881658577845864`*^9, 3.688165999778143*^9}, {3.6882411288745627`*^9, 3.68824135226134*^9}, 3.6882443108645625`*^9, {3.6882544223588357`*^9, 3.6882544355195885`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"dispAll", "[", RowBox[{ "Rs_", ",", "Rl_", ",", "L1_", ",", "C1_", ",", "fmin_", ",", "fmax_", ",", "fmatch_"}], "]"}], " ", ":=", " ", RowBox[{"Show", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Inset", "[", RowBox[{ RowBox[{"\"\<\!\(\*SubscriptBox[\(R\), \(S\)]\) = \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", "Rs", "]"}], "]"}], "<>", "\"\\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"fmin", "+", RowBox[{"0.8", "*", RowBox[{"(", RowBox[{"fmax", "-", "fmin"}], ")"}]}]}], ",", RowBox[{"-", "10"}]}], "}"}]}], "]"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Inset", "[", RowBox[{ RowBox[{"\"\<\!\(\*SubscriptBox[\(R\), \(L\)]\) = \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", "Rl", "]"}], "]"}], "<>", "\"\\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"fmin", "+", RowBox[{"0.8", "*", RowBox[{"(", RowBox[{"fmax", "-", "fmin"}], ")"}]}]}], ",", RowBox[{"-", "15"}]}], "}"}]}], "]"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Inset", "[", RowBox[{ RowBox[{"\"\<\!\(\*SubscriptBox[\(F\), \(Match\)]\) = \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", "fmatch", "]"}], "]"}], "<>", "\"\\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"fmin", "+", RowBox[{"0.8", "*", RowBox[{"(", RowBox[{"fmax", "-", "fmin"}], ")"}]}]}], ",", RowBox[{"-", "20"}]}], "}"}]}], "]"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Inset", "[", RowBox[{ RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"10", "^", "9"}], "*", "L1"}], "]"}], "]"}], "<>", "\"\\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"fmin", "+", RowBox[{"0.8", "*", RowBox[{"(", RowBox[{"fmax", "-", "fmin"}], ")"}]}]}], ",", RowBox[{"-", "25"}]}], "}"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Inset", "[", RowBox[{ RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"10", "^", "12"}], "*", "C1"}], "]"}], "]"}], "<>", "\"\\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"fmin", "+", RowBox[{"0.8", "*", RowBox[{"(", RowBox[{"fmax", "-", "fmin"}], ")"}]}]}], ",", RowBox[{"-", "30"}]}], "}"}]}], "]"}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.687808887911642*^9, 3.6878089622628946`*^9}, { 3.6878089996800346`*^9, 3.68780901166372*^9}, {3.6878090752813587`*^9, 3.687809105705099*^9}, {3.6878093586675677`*^9, 3.687809359387609*^9}, { 3.687809715093954*^9, 3.687809755782282*^9}, {3.6881635240848885`*^9, 3.688163529965499*^9}, {3.6881710198226953`*^9, 3.688171045471741*^9}, { 3.6881711875506973`*^9, 3.6881712026628246`*^9}, {3.688206581797121*^9, 3.688206637233028*^9}, {3.6882074477225375`*^9, 3.6882074548411503`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"plotGammaVsF", " ", "=", " ", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"20", "*", RowBox[{"Log10", "[", "\[IndentingNewLine]", RowBox[{"Abs", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GammaNetwork", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"50", "*", RowBox[{"10", "^", "Rs"}]}], ",", "\[IndentingNewLine]", "Rl", ",", RowBox[{ RowBox[{ RowBox[{"soln", "[", RowBox[{ RowBox[{"50", "*", RowBox[{"10", "^", "Rs"}]}], ",", "Rl", ",", RowBox[{ RowBox[{"10", "^", "6"}], "*", "fmatch"}]}], "]"}], "[", RowBox[{"[", "shuntindex", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"soln", "[", RowBox[{ RowBox[{"50", "*", RowBox[{"10", "^", "Rs"}]}], ",", "Rl", ",", RowBox[{ RowBox[{"10", "^", "6"}], "*", "fmatch"}]}], "]"}], "[", RowBox[{"[", "shuntindex", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"f", "*", RowBox[{"10", "^", "6"}]}], ",", "\[IndentingNewLine]", RowBox[{"50", "*", RowBox[{"10", "^", "Rs"}]}]}], "]"}], "[", RowBox[{"[", "shuntindex", "]"}], "]"}], "[", RowBox[{"[", "refindex", "]"}], "]"}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"f", ",", RowBox[{"0.5", "*", "fmin"}], ",", RowBox[{"1.1", "*", "fmax"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fmin", ",", "fmax"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "40"}], ",", "0"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\[CapitalGamma] (dB)\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"fmin", ",", "0"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"dispAll", "[", RowBox[{ RowBox[{"50", "*", RowBox[{"10", "^", "Rs"}]}], ",", "Rl", ",", RowBox[{ RowBox[{"soln", "[", RowBox[{ RowBox[{"50", "*", RowBox[{"10", "^", "Rs"}]}], ",", "Rl", ",", RowBox[{ RowBox[{"10", "^", "6"}], "*", "fmatch"}]}], "]"}], "[", RowBox[{"[", RowBox[{"shuntindex", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"soln", "[", RowBox[{ RowBox[{"50", "*", RowBox[{"10", "^", "Rs"}]}], ",", "Rl", ",", RowBox[{ RowBox[{"10", "^", "6"}], "*", "fmatch"}]}], "]"}], "[", RowBox[{"[", RowBox[{"shuntindex", ",", "2"}], "]"}], "]"}], ",", "fmin", ",", "fmax", ",", "fmatch"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"shuntindex", ",", "1", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "\"\\""}], ",", RowBox[{"2", "\[Rule]", "\"\\""}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"refindex", ",", "1", ",", "\"\<\[CapitalGamma]\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "\"\\""}], ",", RowBox[{"2", "\[Rule]", "\"\\""}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Rs", ",", RowBox[{"Log10", "[", RowBox[{"200", "/", "50"}], "]"}], ",", "\"\<\!\(\*SubscriptBox[\(R\), \(S\)]\) (Ohms)\>\""}], "}"}], ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ "Rl", ",", "50", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(L\)]\) (Ohms)\>\""}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "fmatch", ",", "250", ",", "\"\<\!\(\*SubscriptBox[\(F\), \(Match\)]\) (MHz)\>\""}], "}"}], ",", RowBox[{"fmin", "*", "1.1"}], ",", RowBox[{"fmax", "*", "0.9"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ "fmin", ",", "10", ",", "\"\<\!\(\*SubscriptBox[\(F\), \(Min\)]\) (MHz)\>\""}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ "fmax", ",", "500", ",", "\"\<\!\(\*SubscriptBox[\(F\), \(Max\)]\) (MHz)\>\""}], "}"}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQA2IQ7dK/h3lu1WtHpd8XuUG0YtF/ORBdl3NVHkT3bJNT A9G1gvpgOoM3yQdEe2Qz+oLo3A2si0G03vkAMG3wO2g9iG7fsW4ziJ7451TZ PCAd8oGlFUSfk+OfAaJ7PxfNBNG7dm9dCaIDNp0B0xWPFlwE0ZkbCy6B6JQI 49kLQHy1gqUg+vA1g3Ug+vX9nPUg2i1TdAuI3haRegBES747eRJEXwrvvAKi V7zRl9wEpFdPWiILorftKtYF0b/n/9QH0fs8ptmCaLMlXxxBtMzppS1g8Scv OkH0rtoA78OgcMjgDgDRd049jATRX77sigLReosjckH0sQdJYPrf4qYWEL2u iLkVRAMAlrbC8g== "]], Cell[BoxData[ RowBox[{ RowBox[{"dispLogAll", "[", RowBox[{ "Rs_", ",", "Rl_", ",", "L1_", ",", "C1_", ",", "fmin_", ",", "fmax_"}], "]"}], " ", ":=", " ", RowBox[{"Show", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Inset", "[", RowBox[{ RowBox[{"\"\<\!\(\*SubscriptBox[\(R\), \(S, Match\)]\) = \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", "Rs", "]"}], "]"}], "<>", "\"\\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"fmin", "+", RowBox[{"0.8", "*", RowBox[{"(", RowBox[{"fmax", "-", "fmin"}], ")"}]}]}], ",", RowBox[{"-", "20"}]}], "}"}]}], "]"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Inset", "[", RowBox[{ RowBox[{"\"\<\!\(\*SubscriptBox[\(R\), \(L\)]\) = \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", "Rl", "]"}], "]"}], "<>", "\"\\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"fmin", "+", RowBox[{"0.85", "*", RowBox[{"(", RowBox[{"fmax", "-", "fmin"}], ")"}]}]}], ",", RowBox[{"-", "25"}]}], "}"}]}], "]"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Inset", "[", RowBox[{ RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"10", "^", "9"}], "*", "L1"}], "]"}], "]"}], "<>", "\"\\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"fmin", "+", RowBox[{"0.85", "*", RowBox[{"(", RowBox[{"fmax", "-", "fmin"}], ")"}]}]}], ",", RowBox[{"-", "30"}]}], "}"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Inset", "[", RowBox[{ RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"10", "^", "12"}], "*", "C1"}], "]"}], "]"}], "<>", "\"\\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"fmin", "+", RowBox[{"0.85", "*", RowBox[{"(", RowBox[{"fmax", "-", "fmin"}], ")"}]}]}], ",", RowBox[{"-", "35"}]}], "}"}]}], "]"}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.688173817839199*^9, 3.6881738705130987`*^9}, { 3.6881739064277673`*^9, 3.688173927010807*^9}, {3.6881740030239563`*^9, 3.688174003538757*^9}, 3.6881740505890474`*^9, {3.6881741125721674`*^9, 3.68817419044872*^9}, {3.6882014623806067`*^9, 3.688201464270611*^9}, { 3.68820702427754*^9, 3.688207046916581*^9}, {3.688207206427478*^9, 3.6882072635335875`*^9}, {3.6882099451144705`*^9, 3.6882099560510955`*^9}, {3.68821000106067*^9, 3.6882100148514585`*^9}, { 3.688242048129141*^9, 3.688242075498707*^9}, {3.6882424005382977`*^9, 3.6882424060376124`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"myTicks", "[", RowBox[{"Rsmin_", ",", "Rsmax_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"Superscript", "[", RowBox[{"10", ",", "i"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Floor", "[", RowBox[{"Log10", "[", "Rsmin", "]"}], "]"}], ",", RowBox[{"Ceiling", "[", RowBox[{"Log10", "[", "Rsmax", "]"}], "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.688209673105912*^9, 3.6882097374735937`*^9}, { 3.6882098207593575`*^9, 3.68820982167541*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"plotGammaVsR", " ", "=", " ", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"20", "*", RowBox[{"Log10", "[", RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"GammaNetwork", "[", RowBox[{ RowBox[{"10", "^", "Rs"}], ",", "Rl", ",", RowBox[{ RowBox[{ RowBox[{"soln", "[", RowBox[{ RowBox[{"50", "*", RowBox[{"10", "^", "Rsmatch"}]}], ",", "Rl", ",", RowBox[{ RowBox[{"10", "^", "6"}], "*", "fmatch"}]}], "]"}], "[", RowBox[{"[", "shuntindex", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"soln", "[", RowBox[{ RowBox[{"50", "*", RowBox[{"10", "^", "Rsmatch"}]}], ",", "Rl", ",", RowBox[{ RowBox[{"10", "^", "6"}], "*", "fmatch"}]}], "]"}], "[", RowBox[{"[", "shuntindex", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"fmatch", "*", RowBox[{"10", "^", "6"}]}], ",", RowBox[{"50", "*", RowBox[{"10", "^", "Rsmatch"}]}]}], "]"}], "[", RowBox[{"[", "shuntindex", "]"}], "]"}], "[", RowBox[{"[", "refindex", "]"}], "]"}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Rs", ",", RowBox[{"Log10", "[", "Rsmin", "]"}], ",", RowBox[{"Log10", "[", "Rsmax", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log10", "[", "Rsmin", "]"}], ",", RowBox[{"Log10", "[", "Rsmax", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "40"}], ",", "0"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(R\), \(S\)]\) (Ohms)\>\"", ",", "\"\<\[CapitalGamma] (dB)\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Log10", "[", "Rsmin", "]"}], ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"myTicks", "[", RowBox[{"Rsmin", ",", "Rsmax"}], "]"}], ",", "Automatic"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"dispLogAll", "[", RowBox[{ RowBox[{"50", "*", RowBox[{"10", "^", "Rsmatch"}]}], ",", "Rl", ",", RowBox[{ RowBox[{ RowBox[{"soln", "[", RowBox[{ RowBox[{"50", "*", RowBox[{"10", "^", "Rsmatch"}]}], ",", "Rl", ",", RowBox[{ RowBox[{"10", "^", "6"}], "*", "fmatch"}]}], "]"}], "[", RowBox[{"[", "shuntindex", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"soln", "[", RowBox[{ RowBox[{"50", "*", RowBox[{"10", "^", "Rsmatch"}]}], ",", "Rl", ",", RowBox[{ RowBox[{"10", "^", "6"}], "*", "fmatch"}]}], "]"}], "[", RowBox[{"[", "shuntindex", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"Log10", "[", "Rsmin", "]"}], ",", RowBox[{"Log10", "[", "Rsmax", "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"shuntindex", ",", "2", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "\"\\""}], ",", RowBox[{"2", "\[Rule]", "\"\\""}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"refindex", ",", "1", ",", "\"\<\[CapitalGamma]\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "\"\\""}], ",", RowBox[{"2", "\[Rule]", "\"\\""}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Rsmatch", ",", RowBox[{"Log10", "[", RowBox[{"200", "/", "50"}], "]"}], ",", "\"\<\!\(\*SubscriptBox[\(R\), \(S, Match\)]\)\>\""}], "}"}], ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ "Rl", ",", "50", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(L\)]\) (Ohms)\>\""}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ "fmatch", ",", "250", ",", "\"\<\!\(\*SubscriptBox[\(F\), \(Match\)]\) (MHz)\>\""}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ "Rsmin", ",", "0.05", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(Min\)]\) (Ohms)\>\""}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ "Rsmax", ",", "50000", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(Max\)]\) (Ohms)\>\""}], "}"}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQA2IQ/eGsvs7CqteODGXH3EH0u4MiwSB68dzCEBDtcMY4 EUQvUmxJAtEv+E6ngdVzXQfTRT17pBcB6U+PYmVAtI0l8+z1QFr69Ie5IDqV 1WYTiFboygHT88+zTdoEpBfe+jEFRH9bl3sfRE+b6P8cRBtNb5PfDKRfBtUq gGi2Ra/NQbS81HwLEH3u0is7EM334YgziL6jKBAMog9ueBMKopksdtaB6ITS zokgWilaex2IDjOW2wCi7c6u3Aqi2bdN2gaiXSqCDoDogOZOMO1fkX8cbM9t nxMgetK790qHgfSvpCPqIFqziNkERJ+Y/skMRIvYXQsH0Z/eKEeC6F1H+LpB 9PTH7r0gGgAJPb7m "]], Cell[BoxData[{ RowBox[{ RowBox[{"compnorm", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"10", "^", "9"}], ",", RowBox[{"10", "^", "12"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"complabel", " ", "=", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6882431165562515`*^9, 3.688243132930188*^9}, { 3.6882432221212897`*^9, 3.6882433368588524`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"plotComponentsVsR", " ", "=", " ", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log10", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"soln", "[", RowBox[{ RowBox[{"10", "^", "Rsmatch"}], ",", "Rl", ",", RowBox[{ RowBox[{"10", "^", "6"}], "*", "fmatch"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "compindex", "]"}], "]"}], "*", RowBox[{"compnorm", "[", RowBox[{"[", "compindex", "]"}], "]"}]}], "]"}], ",", RowBox[{"Log10", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"soln", "[", RowBox[{ RowBox[{"10", "^", "Rsmatch"}], ",", "Rl", ",", RowBox[{ RowBox[{"10", "^", "6"}], "*", "fmatch"}]}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "compindex", "]"}], "]"}], "*", RowBox[{"compnorm", "[", RowBox[{"[", "compindex", "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Rsmatch", ",", RowBox[{"Log10", "[", "Rsmin", "]"}], ",", RowBox[{"Log10", "[", "Rsmax", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log10", "[", "Rsmin", "]"}], ",", RowBox[{"Log10", "[", "Rsmax", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Red"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\*SubscriptBox[\(R\), \(S\)]\) (Ohms)\>\"", ",", RowBox[{"complabel", "[", RowBox[{"[", "compindex", "]"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Log10", "[", "Rsmin", "]"}], ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"myTicks", "[", RowBox[{"Rsmin", ",", "Rsmax"}], "]"}], ",", RowBox[{"myTicks", "[", RowBox[{"0.001", ",", "1000"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"LineLegend", "[", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"compindex", ",", "1", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "\"\\""}], ",", RowBox[{"2", "\[Rule]", "\"\\""}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ "Rl", ",", "50", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(L\)]\) (Ohms)\>\""}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ "fmatch", ",", "250", ",", "\"\<\!\(\*SubscriptBox[\(F\), \(Match\)]\) (MHz)\>\""}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ "Rsmin", ",", "0.05", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(Min\)]\) (Ohms)\>\""}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ "Rsmax", ",", "50000", ",", "\"\<\!\(\*SubscriptBox[\(R\), \(Max\)]\) (Ohms)\>\""}], "}"}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.688242658181034*^9, 3.6882428202443037`*^9}, { 3.6882428522021313`*^9, 3.688242881163788*^9}, {3.6882429168398285`*^9, 3.6882429476945934`*^9}, {3.6882430897557187`*^9, 3.6882431066676865`*^9}, {3.6882431372864375`*^9, 3.688243188367359*^9}, { 3.688243294174411*^9, 3.6882433073151627`*^9}, {3.6882433542358465`*^9, 3.6882433545058618`*^9}, {3.6882434939538374`*^9, 3.6882435167771435`*^9}, {3.6882435764715576`*^9, 3.688243642565338*^9}, { 3.6882436733740997`*^9, 3.6882436770413094`*^9}, {3.6882437484023914`*^9, 3.68824376376227*^9}, {3.688243815637237*^9, 3.6882438412597027`*^9}, 3.688243873784563*^9, {3.6882439709501204`*^9, 3.6882439791045866`*^9}, { 3.6882440535558453`*^9, 3.6882440635734177`*^9}, {3.6882441290481634`*^9, 3.688244134994503*^9}, {3.688244178286979*^9, 3.6882441908917007`*^9}, 3.6882443979195414`*^9, {3.6882444398499403`*^9, 3.688244443830168*^9}, { 3.688244652556106*^9, 3.688244656017304*^9}, {3.68825418605832*^9, 3.6882542002501316`*^9}, 3.6882545405945983`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Log10", "[", RowBox[{ RowBox[{ RowBox[{"soln", "[", RowBox[{ RowBox[{"10", "^", "2"}], ",", "50", ",", RowBox[{ RowBox[{"10", "^", "6"}], "*", "250"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6882444852835383`*^9, 3.6882444985952997`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"Log", "[", FractionBox["1", RowBox[{"10000000", " ", "\[Pi]"}]], "]"}], RowBox[{"Log", "[", "10", "]"}]]], "Output", CellChangeTimes->{3.6882444990363255`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["plotGammaVsF"], "Input", CellChangeTimes->{{3.688242006305749*^9, 3.6882420317392035`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`fmatch$$ = 250, $CellContext`fmax$$ = 500, $CellContext`fmin$$ = 10, $CellContext`refindex$$ = 1, $CellContext`Rl$$ = 50, $CellContext`Rs$$ = Log[4]/Log[ 10], $CellContext`shuntindex$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`shuntindex$$], 1, "Topology"}, { 1 -> "LP", 2 -> "HP"}}, {{ Hold[$CellContext`refindex$$], 1, "\[CapitalGamma]"}, { 1 -> "in", 2 -> "out"}}, {{ Hold[$CellContext`Rs$$], Log[4]/Log[10], "\!\(\*SubscriptBox[\(R\), \(S\)]\) (Ohms)"}, -3, 3}, {{ Hold[$CellContext`Rl$$], 50, "\!\(\*SubscriptBox[\(R\), \(L\)]\) (Ohms)"}}, {{ Hold[$CellContext`fmatch$$], 250, "\!\(\*SubscriptBox[\(F\), \(Match\)]\) (MHz)"}, Dynamic[$CellContext`fmin$$ 1.1], Dynamic[$CellContext`fmax$$ 0.9]}, {{ Hold[$CellContext`fmin$$], 10, "\!\(\*SubscriptBox[\(F\), \(Min\)]\) (MHz)"}}, {{ Hold[$CellContext`fmax$$], 500, "\!\(\*SubscriptBox[\(F\), \(Max\)]\) (MHz)"}}}, Typeset`size$$ = { 742.5, {51., 23.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`shuntindex$77613$$ = False, $CellContext`refindex$77614$$ = False, $CellContext`Rs$77615$$ = 0, $CellContext`fmatch$77616$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`fmatch$$ = 250, $CellContext`fmax$$ = 500, $CellContext`fmin$$ = 10, $CellContext`refindex$$ = 1, $CellContext`Rl$$ = 50, $CellContext`Rs$$ = Log[4]/Log[10], $CellContext`shuntindex$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`shuntindex$$, $CellContext`shuntindex$77613$$, False], Hold[$CellContext`refindex$$, $CellContext`refindex$77614$$, False], Hold[$CellContext`Rs$$, $CellContext`Rs$77615$$, 0], Hold[$CellContext`fmatch$$, $CellContext`fmatch$77616$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ Plot[20 Log10[ Abs[ Part[ Part[ $CellContext`GammaNetwork[ 50 10^$CellContext`Rs$$, $CellContext`Rl$$, Part[ Part[ $CellContext`soln[ 50 10^$CellContext`Rs$$, $CellContext`Rl$$, 10^6 $CellContext`fmatch$$], $CellContext`shuntindex$$], 1], Part[ Part[ $CellContext`soln[ 50 10^$CellContext`Rs$$, $CellContext`Rl$$, 10^6 $CellContext`fmatch$$], $CellContext`shuntindex$$], 2], $CellContext`f 10^6, 50 10^$CellContext`Rs$$], $CellContext`shuntindex$$], \ $CellContext`refindex$$]]], {$CellContext`f, 0.5 $CellContext`fmin$$, 1.1 $CellContext`fmax$$}, PlotRange -> {{$CellContext`fmin$$, $CellContext`fmax$$}, {-40, 0}}, AxesLabel -> {"f (MHz)", "\[CapitalGamma] (dB)"}, AxesOrigin -> {$CellContext`fmin$$, 0}], $CellContext`dispAll[50 10^$CellContext`Rs$$, $CellContext`Rl$$, Part[ $CellContext`soln[ 50 10^$CellContext`Rs$$, $CellContext`Rl$$, 10^6 $CellContext`fmatch$$], $CellContext`shuntindex$$, 1], Part[ $CellContext`soln[ 50 10^$CellContext`Rs$$, $CellContext`Rl$$, 10^6 $CellContext`fmatch$$], $CellContext`shuntindex$$, 2], $CellContext`fmin$$, $CellContext`fmax$$, \ $CellContext`fmatch$$]], "Specifications" :> {{{$CellContext`shuntindex$$, 1, "Topology"}, { 1 -> "LP", 2 -> "HP"}}, {{$CellContext`refindex$$, 1, "\[CapitalGamma]"}, { 1 -> "in", 2 -> "out"}}, {{$CellContext`Rs$$, Log[4]/Log[10], "\!\(\*SubscriptBox[\(R\), \(S\)]\) (Ohms)"}, -3, 3}, {{$CellContext`Rl$$, 50, "\!\(\*SubscriptBox[\(R\), \(L\)]\) (Ohms)"}}, \ {{$CellContext`fmatch$$, 250, "\!\(\*SubscriptBox[\(F\), \(Match\)]\) (MHz)"}, Dynamic[$CellContext`fmin$$ 1.1], Dynamic[$CellContext`fmax$$ 0.9]}, {{$CellContext`fmin$$, 10, "\!\(\*SubscriptBox[\(F\), \(Min\)]\) (MHz)"}}, \ {{$CellContext`fmax$$, 500, "\!\(\*SubscriptBox[\(F\), \(Max\)]\) (MHz)"}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{794., {148., 155.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.6882420084438715`*^9, 3.6882420783128676`*^9}, 3.6882422422462444`*^9, 3.688242533842922*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Show", "::", "gcomb"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Could not combine the graphics objects in \ \[NoBreak]\\!\\(Show[\\(\\(\\*GraphicsBox[List[], List[Rule[DisplayFunction, \ Identity], Rule[AspectRatio, NCache[Power[GoldenRatio, -1], \ 0.6180339887498948`]], Rule[Axes, List[True, True]], Rule[AxesLabel, \ List[FormBox[\\\"\\\\\\\"f (MHz)\\\\\\\"\\\", TraditionalForm], \ FormBox[\\\"\\\\\\\"\\\\[CapitalGamma] (dB)\\\\\\\"\\\", TraditionalForm]]], \ Rule[AxesOrigin, List[10.`, 0.`]], RuleDelayed[DisplayFunction, Identity], \ Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ List[List[None, None], List[None, None]]], Rule[FrameTicks, \ List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], Rule[\\\"ScalingFunctions\ \\\", None]]], Rule[PlotRange, List[List[10, 500], List[-40, 0]]], \ Rule[PlotRangeClipping, True], Rule[PlotRangePadding, List[List[0, 0], \ List[0, 0]]], Rule[Ticks, List[Automatic, Automatic]]]], \ \\(\\(dispAll[\\(\\(200, 50, \\(\\(\\(\\(soln[\\(\\(200, 50, 250000000\\)\\)]\ \\)\\) \[LeftDoubleBracket] \\(\\(1, 1\\)\\) \[RightDoubleBracket]\\)\\), \\(\ \\(\\(\\(soln[\\(\\(200, 50, 250000000\\)\\)]\\)\\) \[LeftDoubleBracket] \ \\(\\(1, 2\\)\\) \[RightDoubleBracket]\\)\\), 10, 500, \ 250\\)\\)]\\)\\)\\)\\)]\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\ \\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/Show/gcomb\\\", ButtonNote -> \ \\\"Show::gcomb\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.6888284236363397`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["plotGammaVsR"], "Input", CellChangeTimes->{{3.6882420107710047`*^9, 3.6882420150992517`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`fmatch$$ = 250, $CellContext`refindex$$ = 1, $CellContext`Rl$$ = 500, $CellContext`Rsmatch$$ = -0.1200000000000001, $CellContext`Rsmax$$ = 50000, $CellContext`Rsmin$$ = 0.05, $CellContext`shuntindex$$ = 2, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`shuntindex$$], 2, "Topology"}, { 1 -> "LP", 2 -> "HP"}}, {{ Hold[$CellContext`refindex$$], 1, "\[CapitalGamma]"}, { 1 -> "in", 2 -> "out"}}, {{ Hold[$CellContext`Rsmatch$$], Log[4]/Log[10], "\!\(\*SubscriptBox[\(R\), \(S, Match\)]\)"}, -3, 3}, {{ Hold[$CellContext`Rl$$], 50, "\!\(\*SubscriptBox[\(R\), \(L\)]\) (Ohms)"}}, {{ Hold[$CellContext`fmatch$$], 250, "\!\(\*SubscriptBox[\(F\), \(Match\)]\) (MHz)"}}, {{ Hold[$CellContext`Rsmin$$], 0.05, "\!\(\*SubscriptBox[\(R\), \(Min\)]\) (Ohms)"}}, {{ Hold[$CellContext`Rsmax$$], 50000, "\!\(\*SubscriptBox[\(R\), \(Max\)]\) (Ohms)"}}}, Typeset`size$$ = { 639.8, {14., 18.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`shuntindex$77695$$ = False, $CellContext`refindex$77696$$ = False, $CellContext`Rsmatch$77697$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`fmatch$$ = 250, $CellContext`refindex$$ = 1, $CellContext`Rl$$ = 50, $CellContext`Rsmatch$$ = Log[4]/Log[10], $CellContext`Rsmax$$ = 50000, $CellContext`Rsmin$$ = 0.05, $CellContext`shuntindex$$ = 2}, "ControllerVariables" :> { Hold[$CellContext`shuntindex$$, $CellContext`shuntindex$77695$$, False], Hold[$CellContext`refindex$$, $CellContext`refindex$77696$$, False], Hold[$CellContext`Rsmatch$$, $CellContext`Rsmatch$77697$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ Plot[20 Log10[ Abs[ Part[ Part[ $CellContext`GammaNetwork[10^$CellContext`Rs, $CellContext`Rl$$, Part[ Part[ $CellContext`soln[ 50 10^$CellContext`Rsmatch$$, $CellContext`Rl$$, 10^6 $CellContext`fmatch$$], $CellContext`shuntindex$$], 1], Part[ Part[ $CellContext`soln[ 50 10^$CellContext`Rsmatch$$, $CellContext`Rl$$, 10^6 $CellContext`fmatch$$], $CellContext`shuntindex$$], 2], $CellContext`fmatch$$ 10^6, 50 10^$CellContext`Rsmatch$$], $CellContext`shuntindex$$], \ $CellContext`refindex$$]]], {$CellContext`Rs, Log10[$CellContext`Rsmin$$], Log10[$CellContext`Rsmax$$]}, PlotRange -> {{ Log10[$CellContext`Rsmin$$], Log10[$CellContext`Rsmax$$]}, {-40, 0}}, AxesLabel -> { "\!\(\*SubscriptBox[\(R\), \(S\)]\) (Ohms)", "\[CapitalGamma] (dB)"}, AxesOrigin -> { Log10[$CellContext`Rsmin$$], 0}, Ticks -> { $CellContext`myTicks[$CellContext`Rsmin$$, $CellContext`Rsmax$$], Automatic}], $CellContext`dispLogAll[ 50 10^$CellContext`Rsmatch$$, $CellContext`Rl$$, Part[ Part[ $CellContext`soln[ 50 10^$CellContext`Rsmatch$$, $CellContext`Rl$$, 10^6 $CellContext`fmatch$$], $CellContext`shuntindex$$], 1], Part[ Part[ $CellContext`soln[ 50 10^$CellContext`Rsmatch$$, $CellContext`Rl$$, 10^6 $CellContext`fmatch$$], $CellContext`shuntindex$$], 2], Log10[$CellContext`Rsmin$$], Log10[$CellContext`Rsmax$$]]], "Specifications" :> {{{$CellContext`shuntindex$$, 2, "Topology"}, { 1 -> "LP", 2 -> "HP"}}, {{$CellContext`refindex$$, 1, "\[CapitalGamma]"}, { 1 -> "in", 2 -> "out"}}, {{$CellContext`Rsmatch$$, Log[4]/Log[10], "\!\(\*SubscriptBox[\(R\), \(S, Match\)]\)"}, -3, 3}, {{$CellContext`Rl$$, 50, "\!\(\*SubscriptBox[\(R\), \(L\)]\) (Ohms)"}}, \ {{$CellContext`fmatch$$, 250, "\!\(\*SubscriptBox[\(F\), \(Match\)]\) (MHz)"}}, \ {{$CellContext`Rsmin$$, 0.05, "\!\(\*SubscriptBox[\(R\), \(Min\)]\) (Ohms)"}}, \ {{$CellContext`Rsmax$$, 50000, "\!\(\*SubscriptBox[\(R\), \(Max\)]\) (Ohms)"}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{691., {124., 131.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.688242016334323*^9, {3.6882420612078896`*^9, 3.6882420792319202`*^9}, 3.688242291089038*^9, 3.688242412160963*^9, 3.6882425350499916`*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Show", "::", "gcomb"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Could not combine the graphics objects in \ \[NoBreak]\\!\\(Show[\\(\\(\\*GraphicsBox[List[], List[Rule[DisplayFunction, \ Identity], Rule[AspectRatio, NCache[Power[GoldenRatio, -1], \ 0.6180339887498948`]], Rule[Axes, List[True, True]], Rule[AxesLabel, \ List[FormBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(R\\\ \\\\\\), \\\\\\\\(S\\\\\\\\)]\\\\\\\\) (Ohms)\\\\\\\"\\\", TraditionalForm], \ FormBox[\\\"\\\\\\\"\\\\[CapitalGamma] (dB)\\\\\\\"\\\", TraditionalForm]]], \ Rule[AxesOrigin, List[-1.3010299956639813`, 0.`]], \ RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], Rule[\\\"ScalingFunctions\ \\\", None]]], Rule[PlotRange, List[List[-1.3010299956639813`, \ Times[Power[Skeleton[2]], Log[Skeleton[1]]]], List[-40, 0]]], \ Rule[PlotRangeClipping, True], Rule[PlotRangePadding, List[List[0, 0], \ List[0, 0]]], Rule[Ticks, List[myTicks[0.05`, 50000], Automatic]]]], \ \\(\\(dispLogAll[\\(\\(37.92887875145918`, 500, \\(\\(500 \ \[LeftDoubleBracket] 1 \[RightDoubleBracket]\\)\\), \\(\\(500 \ \[LeftDoubleBracket] 2 \[RightDoubleBracket]\\)\\), \ \\(\\(-1.3010299956639813`\\)\\), \ \\(Log[50000]\\)\\/\\(Log[10]\\)\\)\\)]\\)\\)\\)\\)]\\)\[NoBreak]. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Show/gcomb\\\", \ ButtonNote -> \\\"Show::gcomb\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.6888284237923393`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Off", "[", RowBox[{"Power", "::", "infy"}], "]"}]], "Input", CellChangeTimes->{{3.688254604193236*^9, 3.6882546124557085`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quiet", "[", "plotComponentsVsR", "]"}]], "Input", CellChangeTimes->{{3.6882438802149305`*^9, 3.68824388562724*^9}, { 3.688254550614171*^9, 3.6882545546374016`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`compindex$$ = 1, $CellContext`fmatch$$ = 250, $CellContext`Rl$$ = 50, $CellContext`Rsmax$$ = 50000, $CellContext`Rsmin$$ = 0.05, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`compindex$$], 1, "Component"}, { 1 -> "L", 2 -> "C"}}, {{ Hold[$CellContext`Rl$$], 50, "\!\(\*SubscriptBox[\(R\), \(L\)]\) (Ohms)"}}, {{ Hold[$CellContext`fmatch$$], 250, "\!\(\*SubscriptBox[\(F\), \(Match\)]\) (MHz)"}}, {{ Hold[$CellContext`Rsmin$$], 0.05, "\!\(\*SubscriptBox[\(R\), \(Min\)]\) (Ohms)"}}, {{ Hold[$CellContext`Rsmax$$], 50000, "\!\(\*SubscriptBox[\(R\), \(Max\)]\) (Ohms)"}}}, Typeset`size$$ = { 424., {94., 98.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`compindex$136225$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`compindex$$ = 1, $CellContext`fmatch$$ = 250, $CellContext`Rl$$ = 50, $CellContext`Rsmax$$ = 50000, $CellContext`Rsmin$$ = 0.05}, "ControllerVariables" :> { Hold[$CellContext`compindex$$, $CellContext`compindex$136225$$, 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" :> Plot[{ Log10[Part[ Part[ $CellContext`soln[ 10^$CellContext`Rsmatch, $CellContext`Rl$$, 10^6 $CellContext`fmatch$$], 1], $CellContext`compindex$$] Part[$CellContext`compnorm, $CellContext`compindex$$]], Log10[Part[ Part[ $CellContext`soln[ 10^$CellContext`Rsmatch, $CellContext`Rl$$, 10^6 $CellContext`fmatch$$], 2], $CellContext`compindex$$] Part[$CellContext`compnorm, $CellContext`compindex$$]]}, \ {$CellContext`Rsmatch, Log10[$CellContext`Rsmin$$], Log10[$CellContext`Rsmax$$]}, PlotRange -> {{ Log10[$CellContext`Rsmin$$], Log10[$CellContext`Rsmax$$]}, {0, 3}}, PlotStyle -> {Blue, Red}, AxesLabel -> {"\!\(\*SubscriptBox[\(R\), \(S\)]\) (Ohms)", Part[$CellContext`complabel, $CellContext`compindex$$]}, AxesOrigin -> { Log10[$CellContext`Rsmin$$], 0}, Ticks -> { $CellContext`myTicks[$CellContext`Rsmin$$, $CellContext`Rsmax$$], $CellContext`myTicks[0.001, 1000]}, PlotLegends -> LineLegend[Automatic, {"LP", "HP"}]], "Specifications" :> {{{$CellContext`compindex$$, 1, "Component"}, { 1 -> "L", 2 -> "C"}}, {{$CellContext`Rl$$, 50, "\!\(\*SubscriptBox[\(R\), \(L\)]\) (Ohms)"}}, \ {{$CellContext`fmatch$$, 250, "\!\(\*SubscriptBox[\(F\), \(Match\)]\) (MHz)"}}, \ {{$CellContext`Rsmin$$, 0.05, "\!\(\*SubscriptBox[\(R\), \(Min\)]\) (Ohms)"}}, \ {{$CellContext`Rsmax$$, 50000, "\!\(\*SubscriptBox[\(R\), \(Max\)]\) (Ohms)"}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{475., {179., 186.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.688243886270277*^9, 3.688244068766715*^9, 3.688244140655827*^9, 3.6882441967910376`*^9, 3.688254555096428*^9, 3.6882546149028482`*^9}] }, Open ]] }, WindowSize->{959, 660}, WindowMargins->{{Automatic, 21}, {1, Automatic}}, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (December 4, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 145, 2, 31, "Input"], Cell[728, 26, 419, 9, 39, "Message"] }, Open ]], Cell[1162, 38, 1421, 43, 112, "Input"], Cell[2586, 83, 3220, 90, 108, "Input"], Cell[5809, 175, 2748, 63, 112, "Input"], Cell[8560, 240, 1269, 37, 51, "Input"], Cell[9832, 279, 1046, 32, 39, "Input"], Cell[10881, 313, 1940, 45, 72, "Input"], Cell[12824, 360, 3785, 96, 152, "Input"], Cell[16612, 458, 6213, 152, 592, "Input"], Cell[22828, 612, 3266, 82, 132, "Input"], Cell[26097, 696, 635, 18, 31, "Input"], Cell[26735, 716, 6532, 164, 552, "Input"], Cell[33270, 882, 475, 13, 52, "Input"], Cell[33748, 897, 5246, 125, 352, "Input"], Cell[CellGroupData[{ Cell[39019, 1026, 390, 11, 31, "Input"], Cell[39412, 1039, 211, 6, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39660, 1050, 106, 1, 31, "Input"], Cell[39769, 1053, 5311, 105, 320, "Output"], Cell[45083, 1160, 1774, 29, 71, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[46894, 1194, 108, 1, 31, "Input"], Cell[47005, 1197, 5478, 112, 272, "Output"], Cell[52486, 1311, 1907, 31, 42, "Message"] }, Open ]], Cell[54408, 1345, 155, 3, 31, "Input"], Cell[CellGroupData[{ Cell[54588, 1352, 192, 3, 31, "Input"], Cell[54783, 1357, 3992, 79, 382, "Output"] }, Open ]] } ] *) (* End of internal cache information *)