(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 11.1' *) (*************************************************************************) (* *) (* The Mathematica License under which this file was created prohibits *) (* restricting third parties in receipt of this file from republishing *) (* or redistributing it by any means, including but not limited to *) (* rights management or terms of use, without the express consent of *) (* Wolfram Research, Inc. For additional information concerning CDF *) (* licensing and redistribution see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1064, 20] NotebookDataLength[ 41575, 789] NotebookOptionsPosition[ 31417, 560] NotebookOutlinePosition[ 42579, 804] CellTagsIndexPosition[ 42536, 801] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ DynamicModuleBox[{$CellContext`source$$, $CellContext`offsets$$, \ $CellContext`params$$, $CellContext`hue$$ = RGBColor[ 0.7843137254901961, 0., 0.4745098039215686]}, TagBox[GridBox[{ { ColorSetterBox[Dynamic[$CellContext`hue$$], "Swatch"]}, { TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`cht$$ = 10.04, $CellContext`cwd$$ = 10.02, $CellContext`head$$ = Line, $CellContext`howmuch$$ = 13.4, $CellContext`mdf$$ = 0.312, $CellContext`relative$$ = "none", $CellContext`sfr$$ = 0.42, $CellContext`stw$$ = 2.27454, $CellContext`whichchar$$ = "F", Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`howmuch$$], 1, Style["trace", Larger]}, 0, 15}, {{ Hold[$CellContext`relative$$], "position", Style["points as \[Ellipsis]", Larger]}, { "position" -> Style["position", Larger], "vector" -> Style["vector", Larger], "none" -> Style["none", Larger]}}, {{ Hold[$CellContext`head$$], Line, Style["rendering", Larger]}, { Line -> Style["Line", Larger], Polygon -> Style["Polygon", Larger]}}, { Hold[ Style["Design parameters", 12, Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`cht$$], 10, Style["character height", Larger]}, 5, 20}, {{ Hold[$CellContext`cwd$$], 8, Style["character width", Larger]}, 5, 20}, {{ Hold[$CellContext`stw$$], 1.5, Style["stem width", Larger]}, 0, Dynamic[$CellContext`cwd$$/2]}, {{ Hold[$CellContext`mdf$$], 0.6000000000000001, Style["middle drop fraction", Larger]}, 0, 1}, {{ Hold[$CellContext`sfr$$], 2, Style["stem drop fraction", Larger]}, 0, 5}, { Hold[ Style["Character selector", 12, Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`whichchar$$], "M", Style["letter:", Larger]}, { "E", "F", "H", "I", "K", "L", "M", "N", "T", "V", "W", "X", "Y", "Z"}}}, Typeset`size$$ = {360., {155., 160.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`howmuch$17850$$ = 0, $CellContext`relative$17851$$ = False, $CellContext`head$17852$$ = False, $CellContext`cht$17853$$ = 0, $CellContext`cwd$17854$$ = 0, $CellContext`stw$17855$$ = 0, $CellContext`mdf$17856$$ = 0, $CellContext`sfr$17857$$ = 0, $CellContext`whichchar$17858$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`cht$$ = 10, $CellContext`cwd$$ = 8, $CellContext`head$$ = Line, $CellContext`howmuch$$ = 1, $CellContext`mdf$$ = 0.6000000000000001, $CellContext`relative$$ = "position", $CellContext`sfr$$ = 2, $CellContext`stw$$ = 1.5, $CellContext`whichchar$$ = "M"}, "ControllerVariables" :> { Hold[$CellContext`howmuch$$, $CellContext`howmuch$17850$$, 0], Hold[$CellContext`relative$$, $CellContext`relative$17851$$, False], Hold[$CellContext`head$$, $CellContext`head$17852$$, False], Hold[$CellContext`cht$$, $CellContext`cht$17853$$, 0], Hold[$CellContext`cwd$$, $CellContext`cwd$17854$$, 0], Hold[$CellContext`stw$$, $CellContext`stw$17855$$, 0], Hold[$CellContext`mdf$$, $CellContext`mdf$17856$$, 0], Hold[$CellContext`sfr$$, $CellContext`sfr$17857$$, 0], Hold[$CellContext`whichchar$$, $CellContext`whichchar$17858$$, 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" :> Module[{$CellContext`coords$, $CellContext`data$, \ $CellContext`charsource$, $CellContext`charoffsets$, $CellContext`cnt$ = 0, $CellContext`pos$ = {0, 0}, $CellContext`letterparams$, $CellContext`charoutline$, \ $CellContext`drawhowmuch$, $CellContext`nextvec$ = {0, 0}, $CellContext`pt$}, $CellContext`params$$[ "E"] = {$CellContext`CWD -> $CellContext`cwd$$, \ $CellContext`CHT -> $CellContext`cht$$, $CellContext`STW -> \ $CellContext`stw$$, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}; $CellContext`params$$[ "F"] = {$CellContext`CWD -> $CellContext`cwd$$, \ $CellContext`CHT -> $CellContext`cht$$, $CellContext`STW -> \ $CellContext`stw$$, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}; $CellContext`params$$[ "H"] = {$CellContext`CWD -> $CellContext`cwd$$, \ $CellContext`CHT -> $CellContext`cht$$, $CellContext`STW -> \ $CellContext`stw$$, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}; $CellContext`params$$[ "I"] = {$CellContext`CWD -> $CellContext`cwd$$, \ $CellContext`CHT -> $CellContext`cht$$, $CellContext`STW -> \ $CellContext`stw$$, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}; $CellContext`params$$[ "K"] = {$CellContext`CWD -> $CellContext`cwd$$, \ $CellContext`CHT -> $CellContext`cht$$, $CellContext`STW -> \ $CellContext`stw$$, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}; $CellContext`params$$[ "L"] = {$CellContext`CWD -> $CellContext`cwd$$, \ $CellContext`CHT -> $CellContext`cht$$, $CellContext`STW -> \ $CellContext`stw$$, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}; $CellContext`params$$[ "M"] = {$CellContext`CWD -> (10/ 8.) $CellContext`cwd$$, $CellContext`CHT -> \ $CellContext`cht$$, $CellContext`STW -> $CellContext`stw$$, $CellContext`MDP -> \ $CellContext`mdf$$ $CellContext`cht$$, $CellContext`SFR -> 2, $CellContext`HWD -> ($CellContext`CWD - 2 $CellContext`STW)/ 2., $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}; $CellContext`params$$[ "N"] = {$CellContext`CWD -> $CellContext`cwd$$, \ $CellContext`CHT -> $CellContext`cht$$, $CellContext`STW -> \ $CellContext`stw$$, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}; $CellContext`params$$[ "T"] = {$CellContext`CWD -> $CellContext`cwd$$, \ $CellContext`CHT -> $CellContext`cht$$, $CellContext`STW -> \ $CellContext`stw$$, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> ($CellContext`CWD - $CellContext`STW)/ 2., $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}; $CellContext`params$$[ "V"] = {$CellContext`CWD -> $CellContext`cwd$$, \ $CellContext`CHT -> $CellContext`cht$$, $CellContext`STW -> \ $CellContext`stw$$, $CellContext`MDP -> 6, $CellContext`SFR -> $CellContext`sfr$$, $CellContext`HWD -> \ ($CellContext`CWD - $CellContext`STW)/ 2., $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}; $CellContext`params$$[ "W"] = {$CellContext`CWD -> (10/ 8.) $CellContext`cwd$$, $CellContext`CHT -> \ $CellContext`cht$$, $CellContext`STW -> $CellContext`stw$$, $CellContext`MDP -> \ ((8/6.) $CellContext`mdf$$) $CellContext`cht$$, $CellContext`SFR -> \ $CellContext`sfr$$, $CellContext`HWD -> ($CellContext`CWD - 2 $CellContext`STW)/ 3., $CellContext`RHT -> $CellContext`CHT - 3 $CellContext`STW}; $CellContext`params$$[ "X"] = {$CellContext`CWD -> $CellContext`cwd$$, \ $CellContext`CHT -> $CellContext`cht$$, $CellContext`STW -> \ $CellContext`stw$$, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> ($CellContext`CWD - $CellContext`STW)/ 2., $CellContext`RHT -> $CellContext`CHT ( 1 - $CellContext`STW/$CellContext`CWD)}; \ $CellContext`params$$[ "Y"] = {$CellContext`CWD -> $CellContext`cwd$$, \ $CellContext`CHT -> $CellContext`cht$$, $CellContext`STW -> \ $CellContext`stw$$, $CellContext`MDP -> $CellContext`mdf$$, $CellContext`SFR -> \ $CellContext`sfr$$, $CellContext`HWD -> ($CellContext`CWD - $CellContext`STW)/ 2., $CellContext`RHT -> $CellContext`CHT ( 1 - $CellContext`SFR (($CellContext`STW/$CellContext`CWD)/ 2.))}; $CellContext`params$$[ "Z"] = {$CellContext`CWD -> $CellContext`cwd$$, \ $CellContext`CHT -> $CellContext`cht$$, $CellContext`STW -> \ $CellContext`stw$$, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> ($CellContext`CWD - $CellContext`STW)/ 2., $CellContext`RHT -> $CellContext`CHT ( 1 - $CellContext`STW/$CellContext`CWD)}; \ $CellContext`letterparams$ = $CellContext`params$$[$CellContext`whichchar$$]; \ $CellContext`charsource$ = N[ $CellContext`source$$[$CellContext`whichchar$$]]; \ $CellContext`charoffsets$ = $CellContext`offsets$$[$CellContext`whichchar$$]; \ $CellContext`charoutline$ = ReplaceRepeated[$CellContext`charsource$, \ $CellContext`letterparams$]; $CellContext`drawhowmuch$ = Min[ Floor[$CellContext`howmuch$$], Length[$CellContext`charoutline$]]; $CellContext`data$ = If[$CellContext`drawhowmuch$ > 0, Take[$CellContext`charoutline$, $CellContext`drawhowmuch$], {{ 0, 0}}]; If[$CellContext`drawhowmuch$ < Length[$CellContext`charoutline$], $CellContext`nextvec$ = First[($CellContext`howmuch$$ - $CellContext`drawhowmuch$) Take[$CellContext`charoutline$, {$CellContext`drawhowmuch$ + 1}]]]; $CellContext`pt$[{ Pattern[$CellContext`a, Blank[]], Pattern[$CellContext`b, Blank[]]}] := StringJoin["(", ToString[ Floor[$CellContext`a] + Chop[$CellContext`a - Floor[$CellContext`a]]], ",", ToString[ Floor[$CellContext`b] + Chop[$CellContext`b - Floor[$CellContext`b]]], ")"]; $CellContext`coords$ = Map[($CellContext`pos$ = $CellContext`pos$ + #)& , \ $CellContext`data$]; $CellContext`cnt$ = 0; Graphics[{ Text[$CellContext`whichchar$$, {-1, -1}], { Dynamic[$CellContext`hue$$], $CellContext`head$$[$CellContext`coords$], Line[{ Last[$CellContext`coords$], Last[$CellContext`coords$] + $CellContext`nextvec$}]}, { Black, If[$CellContext`relative$$ == "position", Map[Text[ $CellContext`pt$[#], #, Increment[$CellContext`cnt$]; 1.2 Part[$CellContext`charoffsets$, $CellContext`cnt$]]& \ , $CellContext`coords$], If[$CellContext`relative$$ == "none", {Black}, Map[Text[ $CellContext`pt$[ Last[#]], First[#], Increment[$CellContext`cnt$]; 1.2 Part[$CellContext`charoffsets$, $CellContext`cnt$]]& , Transpose[{$CellContext`coords$, \ $CellContext`data$}]]]]}}, Frame -> True, GridLines -> {10 Range[0, 3], 10 Range[0, 3]}, PlotRange -> Evaluate[ Map[{-2, 2} + #& , {{0, (10/8) $CellContext`cwd$$}, { 0, $CellContext`cht$$}}]]]], "Specifications" :> {{{$CellContext`howmuch$$, 1, Style["trace", Larger]}, 0, 15, ControlType -> VerticalSlider, ControlPlacement -> Left}, {{$CellContext`relative$$, "position", Style["points as \[Ellipsis]", Larger]}, { "position" -> Style["position", Larger], "vector" -> Style["vector", Larger], "none" -> Style["none", Larger]}, ControlPlacement -> Bottom}, {{$CellContext`head$$, Line, Style["rendering", Larger]}, { Line -> Style["Line", Larger], Polygon -> Style["Polygon", Larger]}, ControlPlacement -> Bottom}, Style["Design parameters", 12, Bold], {{$CellContext`cht$$, 10, Style["character height", Larger]}, 5, 20}, {{$CellContext`cwd$$, 8, Style["character width", Larger]}, 5, 20}, {{$CellContext`stw$$, 1.5, Style["stem width", Larger]}, 0, Dynamic[$CellContext`cwd$$/2]}, {{$CellContext`mdf$$, 0.6000000000000001, Style["middle drop fraction", Larger]}, 0, 1}, {{$CellContext`sfr$$, 2, Style["stem drop fraction", Larger]}, 0, 5}, Style[ "Character selector", 12, Bold], {{$CellContext`whichchar$$, "M", Style["letter:", Larger]}, { "E", "F", "H", "I", "K", "L", "M", "N", "T", "V", "W", "X", "Y", "Z"}, ControlType -> RadioButtonBar}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{560., {324., 330.}}, 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]]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], DynamicModuleValues:>{{DownValues[$CellContext`source$$] = {HoldPattern[ $CellContext`source$$["E"]] :> {{0, 0}, { 0, $CellContext`CHT}, {$CellContext`CWD, 0}, { 0, -$CellContext`STW}, {-$CellContext`CWD + $CellContext`STW, 0}, { 0, 0.5 (-$CellContext`CHT + 3 $CellContext`STW)}, {$CellContext`CWD - 2 $CellContext`STW, 0}, { 0, -$CellContext`STW}, {-$CellContext`CWD + 2 $CellContext`STW, 0}, { 0, 0.5 (-$CellContext`CHT + 3 $CellContext`STW)}, {$CellContext`CWD - $CellContext`STW, 0}, { 0, -$CellContext`STW}, {-$CellContext`CWD, 0}}, HoldPattern[ $CellContext`source$$["F"]] :> {{0, 0}, { 0, $CellContext`CHT}, {$CellContext`CWD, 0}, { 0, -$CellContext`STW}, {-$CellContext`CWD + $CellContext`STW, 0}, { 0, 0.5 (-$CellContext`CHT + 3 $CellContext`STW)}, {$CellContext`CWD - 2 $CellContext`STW, 0}, { 0, -$CellContext`STW}, {-$CellContext`CWD + 2 $CellContext`STW, 0}, { 0, 0.5 (-$CellContext`CHT + $CellContext`STW)}, {-$CellContext`STW, 0}}, HoldPattern[ $CellContext`source$$["H"]] :> {{0, 0}, { 0, $CellContext`CHT}, {$CellContext`STW, 0}, { 0, 0.5 (-$CellContext`CHT + $CellContext`STW)}, {$CellContext`CWD - 2 $CellContext`STW, 0}, { 0, 0.5 ($CellContext`CHT - $CellContext`STW)}, {$CellContext`STW, 0}, {0, -$CellContext`CHT}, {-$CellContext`STW, 0}, { 0, 0.5 ($CellContext`CHT - $CellContext`STW)}, {-$CellContext`CWD + 2 $CellContext`STW, 0}, { 0, 0.5 (-$CellContext`CHT + $CellContext`STW)}, {-$CellContext`STW, 0}}, HoldPattern[ $CellContext`source$$["I"]] :> {{0, 0}, { 0, $CellContext`CHT}, {$CellContext`STW, 0}, { 0, -$CellContext`CHT}, {-$CellContext`STW, 0}}, HoldPattern[ $CellContext`source$$["K"]] :> {{0, 0}, { 0, $CellContext`CHT}, {$CellContext`STW, 0}, { 0, 0.5 (-$CellContext`CHT + $CellContext`STW)}, {$CellContext`CWD - 2.5 $CellContext`STW, 0.5 ($CellContext`CHT - $CellContext`STW)}, { 1.5 $CellContext`STW, 0}, {-$CellContext`CWD + 2 $CellContext`STW, (-0.5) $CellContext`CHT}, {$CellContext`CWD - 2 $CellContext`STW, (-0.5) $CellContext`CHT}, {(-1.5) \ $CellContext`STW, 0}, {-$CellContext`CWD + 2.5 $CellContext`STW, 0.5 ($CellContext`CHT - $CellContext`STW)}, { 0, 0.5 (-$CellContext`CHT + $CellContext`STW)}, {-$CellContext`STW, 0}}, HoldPattern[ $CellContext`source$$["L"]] :> {{0, 0}, { 0, $CellContext`CHT}, {$CellContext`STW, 0}, { 0, -$CellContext`CHT + $CellContext`STW}, {$CellContext`CWD - \ $CellContext`STW, 0}, {0, -$CellContext`STW}, {-$CellContext`CWD, 0}}, HoldPattern[ $CellContext`source$$["M"]] :> {{0, 0}, { 0, $CellContext`CHT}, {$CellContext`STW, 0}, {$CellContext`HWD, -$CellContext`MDP}, {$CellContext`HWD, \ $CellContext`MDP}, {$CellContext`STW, 0}, { 0, -$CellContext`CHT}, {-$CellContext`STW, 0}, { 0, $CellContext`RHT}, {-$CellContext`HWD, -$CellContext`MDP}, \ {-$CellContext`HWD, $CellContext`MDP}, { 0, -$CellContext`RHT}, {-$CellContext`STW, 0}}, HoldPattern[ $CellContext`source$$["N"]] :> {{0, 0}, { 0, $CellContext`CHT}, {$CellContext`STW, 0}, {$CellContext`CWD - 2 $CellContext`STW, -$CellContext`RHT}, { 0, $CellContext`RHT}, {$CellContext`STW, 0}, { 0, -$CellContext`CHT}, {-$CellContext`STW, 0}, {-$CellContext`CWD + 2 $CellContext`STW, $CellContext`RHT}, { 0, -$CellContext`RHT}, {-$CellContext`STW, 0}}, HoldPattern[ $CellContext`source$$["T"]] :> {{$CellContext`HWD, 0}, { 0, $CellContext`CHT - $CellContext`STW}, {-$CellContext`HWD, 0}, { 0, $CellContext`STW}, {$CellContext`CWD, 0}, { 0, -$CellContext`STW}, {-$CellContext`HWD, 0}, { 0, -$CellContext`CHT + $CellContext`STW}, {-$CellContext`STW, 0}}, HoldPattern[ $CellContext`source$$[ "V"]] :> {{$CellContext`HWD, 0}, {-$CellContext`HWD, $CellContext`CHT}, {$CellContext`STW, 0}, { 0.5 ($CellContext`CWD - 2 $CellContext`STW), -$CellContext`CHT + ( 0.5 $CellContext`SFR) $CellContext`STW}, { 0.5 ($CellContext`CWD - 2 $CellContext`STW), $CellContext`CHT - ( 0.5 $CellContext`SFR) $CellContext`STW}, {$CellContext`STW, 0}, {-$CellContext`HWD, -$CellContext`CHT}, {-$CellContext`STW, 0}}, HoldPattern[ $CellContext`source$$[ "W"]] :> {{$CellContext`HWD, 0}, {-$CellContext`HWD, $CellContext`CHT}, {$CellContext`STW, 0}, {($CellContext`CHT^(-1) $CellContext`HWD) $CellContext`MDP, \ -$CellContext`MDP}, {$CellContext`HWD ( 1.5 - $CellContext`CHT^(-1) $CellContext`MDP), (( 2 (1.5 - $CellContext`CHT^(-1) $CellContext`MDP)) \ $CellContext`SFR) $CellContext`STW}, {$CellContext`HWD ( 1.5 - $CellContext`CHT^(-1) $CellContext`MDP), (((-2) ( 1.5 - $CellContext`CHT^(-1) $CellContext`MDP)) $CellContext`SFR) \ $CellContext`STW}, {($CellContext`CHT^(-1) $CellContext`HWD) \ $CellContext`MDP, $CellContext`MDP}, {$CellContext`STW, 0}, {-$CellContext`HWD, -$CellContext`CHT}, {-$CellContext`STW, 0}, {(-0.5) $CellContext`HWD, $CellContext`SFR $CellContext`STW}, \ {(-0.5) $CellContext`HWD, (-$CellContext`SFR) $CellContext`STW}, \ {-$CellContext`STW, 0}}, HoldPattern[ $CellContext`source$$["X"]] :> {{0, 0}, {$CellContext`HWD, 0.5 $CellContext`CHT}, {-$CellContext`HWD, 0.5 $CellContext`CHT}, {$CellContext`STW, 0}, {$CellContext`HWD - 0.5 $CellContext`STW, (-0.5) $CellContext`RHT}, {$CellContext`HWD - 0.5 $CellContext`STW, 0.5 $CellContext`RHT}, {$CellContext`STW, 0}, {-$CellContext`HWD, (-0.5) $CellContext`CHT}, \ {$CellContext`HWD, (-0.5) $CellContext`CHT}, {-$CellContext`STW, 0}, {-$CellContext`HWD + 0.5 $CellContext`STW, 0.5 $CellContext`RHT}, {-$CellContext`HWD + 0.5 $CellContext`STW, (-0.5) $CellContext`RHT}, {-$CellContext`STW, 0}}, HoldPattern[ $CellContext`source$$["Y"]] :> {{$CellContext`HWD, 0}, { 0, 0.5 $CellContext`CHT}, {-$CellContext`HWD, 0.5 $CellContext`CHT}, {$CellContext`STW, 0}, {$CellContext`HWD - 0.5 $CellContext`STW, (-0.5) $CellContext`RHT}, {$CellContext`HWD - 0.5 $CellContext`STW, 0.5 $CellContext`RHT}, {$CellContext`STW, 0}, {-$CellContext`HWD, (-0.5) $CellContext`CHT}, { 0, (-0.5) $CellContext`CHT}, {-$CellContext`STW, 0}}, HoldPattern[ $CellContext`source$$["Z"]] :> {{0, 0}, { 2 $CellContext`HWD - $CellContext`STW, $CellContext`CHT - \ $CellContext`STW}, {(-2) $CellContext`HWD + $CellContext`STW, 0}, { 0, $CellContext`STW}, {$CellContext`CWD, 0}, {(-2) $CellContext`HWD + $CellContext`STW, -$CellContext`CHT + \ $CellContext`STW}, {2 $CellContext`HWD - $CellContext`STW, 0}, { 0, -$CellContext`STW}, {-$CellContext`CWD, 0}}}}, { DownValues[$CellContext`offsets$$] = {HoldPattern[ $CellContext`offsets$$["E"]] :> {{1, -1}, {1, -1}, {-1, -1}, {-1, 1}, {0, -1}, {0, 1}, {-1, -1}, {-1, 1}, {0, -1}, {0, 1}, {-1, -1}, {-1, 1}, {1, 1}}, HoldPattern[ $CellContext`offsets$$["F"]] :> {{1, -1}, {1, -1}, {-1, -1}, {-1, 1}, {0, -1}, {0, 1}, {-1, -1}, {-1, 1}, {0, -1}, {-1, 1}, {1, 1}}, HoldPattern[ $CellContext`offsets$$["H"]] :> {{1, -1}, {1, -1}, {-1, -1}, {0, 1}, {0, 1}, {1, -1}, {-1, -1}, {-1, 1}, {1, 1}, {0, -1}, {0, -1}, {-1, 1}, {1, 1}}, HoldPattern[ $CellContext`offsets$$["I"]] :> {{1, -1}, {1, -1}, {-1, -1}, {-1, 1}, {1, 1}}, HoldPattern[ $CellContext`offsets$$["K"]] :> {{1, -1}, {1, -1}, {-1, -1}, {0, 1}, {0, -1}, {-1, -1}, {1, 0}, {0, 1}, {0, 1}, {0, -1}, {-1, 1}, {1, 1}}, HoldPattern[ $CellContext`offsets$$["L"]] :> {{1, -1}, {1, -1}, {-1, -1}, {0, 1}, {-1, -1}, {-1, 1}, {1, 1}}, HoldPattern[ $CellContext`offsets$$["M"]] :> {{1, -1}, {1, -1}, {-1, -1}, {0, 1}, {1, -1}, {-1, -1}, {-1, 1}, {1, 1}, {0, -1}, {0, 1}, {0, -1}, {-1, 1}, {1, 1}}, HoldPattern[ $CellContext`offsets$$["N"]] :> {{1, -1}, {1, -1}, {-1, -1}, {0, 1}, {1, -1}, {-1, -1}, {-1, 1}, {1, 1}, {0, -1}, {-1, 1}, {1, 1}}, HoldPattern[ $CellContext`offsets$$["T"]] :> {{1, -1}, {1, -1}, {1, 1}, { 1, -1}, {-1, -1}, {-1, 1}, {-1, -1}, {-1, 1}, {1, 1}}, HoldPattern[ $CellContext`offsets$$["V"]] :> {{1, -1}, {1, -1}, {0, -1}, {0, 1}, { 0, -1}, {-1, -1}, {-1, 1}, {1, 1}}, HoldPattern[ $CellContext`offsets$$["W"]] :> {{1, -1}, {1, -1}, {0, -1}, {0, 1}, { 0, -1}, {0, 1}, {0, -1}, {-1, -1}, {-1, 1}, {0, 1}, {0, -1}, {0, 1}, { 1, 1}}, HoldPattern[ $CellContext`offsets$$["X"]] :> {{1, -1}, {1, 0}, { 1, -1}, {-1, -1}, {0, 1}, {1, -1}, {-1, -1}, {-1, 0}, {-1, 1}, {0, 1}, {0, -1}, {0, 1}, {1, 1}}, HoldPattern[ $CellContext`offsets$$["Y"]] :> {{1, -1}, {1, 1}, {1, -1}, {0, -1}, { 0, 1}, {0, -1}, {-1, -1}, {-1, 1}, {-1, 1}, {1, 1}}, HoldPattern[ $CellContext`offsets$$["Z"]] :> {{1, -1}, {-1, -1}, {1, 1}, { 1, -1}, {-1, -1}, {1, 1}, {-1, -1}, {-1, 1}, {1, 1}}}}, { DownValues[$CellContext`params$$] = {HoldPattern[ $CellContext`params$$["E"]] :> {$CellContext`CWD -> 10.02, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}, HoldPattern[ $CellContext`params$$["F"]] :> {$CellContext`CWD -> 10.02, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}, HoldPattern[ $CellContext`params$$["H"]] :> {$CellContext`CWD -> 10.02, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}, HoldPattern[ $CellContext`params$$["I"]] :> {$CellContext`CWD -> 10.02, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}, HoldPattern[ $CellContext`params$$["K"]] :> {$CellContext`CWD -> 10.02, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}, HoldPattern[ $CellContext`params$$["L"]] :> {$CellContext`CWD -> 10.02, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}, HoldPattern[ $CellContext`params$$["M"]] :> {$CellContext`CWD -> 12.524999999999999`, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 3.1324799999999997`, $CellContext`SFR -> 2, $CellContext`HWD -> 0.5 ($CellContext`CWD - 2 $CellContext`STW), $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}, HoldPattern[ $CellContext`params$$["N"]] :> {$CellContext`CWD -> 10.02, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 4, $CellContext`RHT -> $CellContext`CHT - 2 $CellContext`STW}, HoldPattern[ $CellContext`params$$["T"]] :> {$CellContext`CWD -> 10.02, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 0.5 ($CellContext`CWD - $CellContext`STW), $CellContext`RHT -> \ $CellContext`CHT - 2 $CellContext`STW}, HoldPattern[ $CellContext`params$$["V"]] :> {$CellContext`CWD -> 10.02, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 6, $CellContext`SFR -> 0.42, $CellContext`HWD -> 0.5 ($CellContext`CWD - $CellContext`STW), $CellContext`RHT -> \ $CellContext`CHT - 2 $CellContext`STW}, HoldPattern[ $CellContext`params$$["W"]] :> {$CellContext`CWD -> 12.524999999999999`, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 4.176639999999999, $CellContext`SFR -> 0.42, $CellContext`HWD -> 0.3333333333333333 ($CellContext`CWD - 2 $CellContext`STW), $CellContext`RHT -> $CellContext`CHT - 3 $CellContext`STW}, HoldPattern[ $CellContext`params$$["X"]] :> {$CellContext`CWD -> 10.02, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 0.5 ($CellContext`CWD - $CellContext`STW), $CellContext`RHT -> \ $CellContext`CHT (1 - $CellContext`CWD^(-1) $CellContext`STW)}, HoldPattern[ $CellContext`params$$["Y"]] :> {$CellContext`CWD -> 10.02, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 0.312, $CellContext`SFR -> 0.42, $CellContext`HWD -> 0.5 ($CellContext`CWD - $CellContext`STW), $CellContext`RHT -> \ $CellContext`CHT (1 - 0.5 $CellContext`CWD^(-1) $CellContext`SFR $CellContext`STW)}, HoldPattern[ $CellContext`params$$["Z"]] :> {$CellContext`CWD -> 10.02, $CellContext`CHT -> 10.04, $CellContext`STW -> 2.27454, $CellContext`MDP -> 6, $CellContext`SFR -> 2, $CellContext`HWD -> 0.5 ($CellContext`CWD - $CellContext`STW), $CellContext`RHT -> \ $CellContext`CHT (1 - $CellContext`CWD^(-1) $CellContext`STW)}}}}]], "Output",\ "PluginEmbeddedContent",ExpressionUUID->"00000000-0000-0000-0000-\ 000000000000"] }, CellGrouping->Manual, WindowSize->{590, 670}, Visible->True, AuthoredSize->{590, 670}, ScrollingOptions->{"HorizontalScrollRange"->Fit, "VerticalScrollRange"->Fit}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, ShowCellBracket->False, ShowSelection->True, Deployed->True, CellContext->Notebook, TrackCellChangeTimes->False, FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 18, \ 2017)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData["Output"], CellChangeTimes -> {3.6162883463035088`*^9}], Cell[ CellGroupData[{ Cell[ "Headings", "Subsection", CellBracketOptions -> { "Color" -> RGBColor[0.65098, 0.0980392, 0.180392]}, FontSize -> 18], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{5, Inherited}, {2, 0}}, CellBracketOptions -> { "Color" -> RGBColor[0.65098, 0.0980392, 0.180392]}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", Inherited}, LineSpacing -> {1, 13}, CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Times", FontSize -> 36, FontWeight -> "Bold", FontColor -> RGBColor[0.38823529411764707`, 0., 0.26666666666666666`], Background -> RGBColor[ 0.803921568627451, 0.7843137254901961, 0.7215686274509804]], Cell[ StyleData["Title", "Printout"], CellMargins -> {{0, 10}, {2, 0}}, FontSize -> 48, Background -> GrayLevel[0.6]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{12, Inherited}, {2, 2}}, CellBracketOptions -> { "Color" -> RGBColor[0.65098, 0.0980392, 0.180392]}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", Inherited}, CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 48, FontColor -> RGBColor[ 0.6509803921568628, 0.09803921568627451, 0.1803921568627451], Background -> RGBColor[ 0.8392156862745098, 0.8235294117647058, 0.7686274509803922]], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{7, 10}, {2, 4}}, FontSize -> 36]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{12, Inherited}, {2, 12}}, CellBracketOptions -> { "Color" -> RGBColor[0.65098, 0.0980392, 0.180392]}, CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", Inherited}, CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontFamily -> "Helvetica", FontSize -> 18, FontSlant -> "Italic", FontColor -> RGBColor[0.7843137254901961, 0., 0.4745098039215686], Background -> RGBColor[ 0.803921568627451, 0.7843137254901961, 0.7215686274509804]], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{7, 10}, {2, 8}}, FontSize -> 16]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{6, 0.5}, {0.5, 0.5}}, CellMargins -> {{8, 4}, {2, 50}}, CellBracketOptions -> { "Color" -> RGBColor[0.65098, 0.0980392, 0.180392]}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.462745, 0.137255, 0.184314], InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", Inherited}, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold", FontColor -> RGBColor[ 0.6509803921568628, 0.09803921568627451, 0.1803921568627451]], Cell[ StyleData["Section", "Printout"], CellFrame -> {{6, 0.5}, {0.5, 0.5}}, CellMargins -> {{6, 4}, {2, 70}}, CellFrameColor -> GrayLevel[0], FontSize -> 18]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> "\[FilledSquare]", CellMargins -> {{24, 4}, {2, 18}}, CellBracketOptions -> { "Color" -> RGBColor[0.65098, 0.0980392, 0.180392]}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 12}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, CellFrameLabelMargins -> 6, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", Inherited}, LineSpacing -> {1, 5}, CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 24, FontWeight -> "Bold", FontColor -> RGBColor[ 0.6509803921568628, 0.09803921568627451, 0.1803921568627451]], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{19, 4}, {2, 18}}, FontSize -> 18, FontColor -> GrayLevel[0]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellMargins -> {{10, 4}, {2, 24}}, CellBracketOptions -> { "Color" -> RGBColor[0.65098, 0.0980392, 0.180392]}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 12}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", Inherited}, CounterIncrements -> "Subsubsection", FontFamily -> "Helvetica", FontSize -> 21, FontWeight -> "Bold", FontColor -> RGBColor[ 0.6509803921568628, 0.09803921568627451, 0.1803921568627451], Background -> GrayLevel[1]], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{7, 4}, {2, 18}}, FontSize -> 16, FontColor -> GrayLevel[0]]}, Open]], Cell[ StyleData["Input"], MenuSortingValue -> 10000, Background -> GrayLevel[1]], Cell[ StyleData["InitializationCell"], MenuSortingValue -> 10000, Background -> None], Cell[ StyleData["Text"], CellChangeTimes -> {3.683665322240065*^9}]}, Open]]}, WindowSize -> {808, 755}, WindowMargins -> {{140, Automatic}, {-4, Automatic}}, FrontEndVersion -> "11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 18, 2017)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1464, 33, 29949, 525, 694, "Output"] } ] *) (* End of internal cache information *) (* NotebookSignature ox0@ZkyQfj3RdAgB6kZO6Oz2 *)