(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 9.0' *) (*************************************************************************) (* *) (* 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[ 1063, 20] NotebookDataLength[ 99016, 2316] NotebookOptionsPosition[ 99442, 2308] NotebookOutlinePosition[ 100018, 2331] CellTagsIndexPosition[ 99975, 2328] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`angle$$ = "Radiating", $CellContext`choice$$ = "Both", $CellContext`d$$ = 1, $CellContext`Delta$$ = 0.1, $CellContext`DOutline$$ = True, $CellContext`flat$$ = 20, $CellContext`Maxbr$$ = 50, $CellContext`Outline$$ = True, $CellContext`surface$$ = True, $CellContext`t$$ = 10.1, $CellContext`x$$ = 1, $CellContext`X$$ = 0, $CellContext`\[Beta]$$ = 0.35, $CellContext`\[Gamma]0$$ = 0.4, $CellContext`\[Gamma]1$$ = 1, $CellContext`\[Gamma]2$$ = 0.4, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style["Growth Model for Iterative Growth", 20, Bold]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style["Displaying:", 16, Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`choice$$], "Both", "Model Type: "}, { "AD-generation", "D-generation", "Both"}}, {{ Hold[$CellContext`surface$$], True, "Growth surface"}, {True, False}}, { Hold[ Style["Parameter Values", 16, Bold]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[" Determining growth surface:", 12, Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`\[Gamma]0$$], 0.4, "Growth rate generative zone: \[Gamma]0"}, 0, 2, 0.05, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{ Hold[$CellContext`\[Gamma]1$$], 1, "Growth rate first phase: \[Gamma]1"}, 0, 2, 0.05, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{ Hold[$CellContext`\[Gamma]2$$], 0.4, "Growth rate second phase: \[Gamma]2"}, 0, 2, 0.05, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{ Hold[$CellContext`\[Beta]$$], 0.35, "Position longest unit rel. to B-end: \[Beta]"}, 0, 1, 0.01, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{ Hold[$CellContext`Maxbr$$], 50, "Unit count of insertion switch: Maxbr"}, 0, 200, 1, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{ Hold[$CellContext`flat$$], 20, "Unit count of flattening growth surface: flat"}, 0, 200, 1, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, { Hold[ Style[" Other input:", 12, Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`d$$], 1, "Unit width: d"}, 0, 5, 0.05, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{ Hold[$CellContext`Delta$$], 0.1, "Angle deltoidal region as ratio of 2\[Pi]: \[CapitalDelta]"}, 0, 1, 0.05, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{ Hold[$CellContext`angle$$], "Radiating", "Unit angle variation: "}, { "Radiating", "Stabilizing"}}, { Hold[ Style["Appearance", 16, Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`t$$], 10.1, "Model time: t"}, 0.1, 200.1, 0.2, Animator[ SlotSequence[1], AnimationRate -> 2, AnimationRunning -> False, AppearanceElements -> { "ProgressSlider", "StepLeftButton", "StepRightButton", "PlayPauseButton", "FasterSlowerButtons", "ResetButton"}]& }, {{ Hold[$CellContext`x$$], 1, "zoom"}, 0.1, 10, 0.1, Slider[ SlotSequence[1]]& }, {{ Hold[$CellContext`X$$], 0, "x-position"}, -40, 40, 1, Slider[ SlotSequence[1]]& }, { Hold[$CellContext`Outline$$], {True, False}}, { Hold[$CellContext`DOutline$$], {True, False}}}, Typeset`size$$ = { 369., {180., 185.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`choice$1887$$ = 0, $CellContext`surface$1888$$ = False, $CellContext`angle$1889$$ = False, $CellContext`Outline$1890$$ = False, $CellContext`DOutline$1891$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`angle$$ = "Radiating", $CellContext`choice$$ = "Both", $CellContext`d$$ = 1, $CellContext`Delta$$ = 0.1, $CellContext`DOutline$$ = True, $CellContext`flat$$ = 20, $CellContext`Maxbr$$ = 50, $CellContext`Outline$$ = True, $CellContext`surface$$ = True, $CellContext`t$$ = 10.1, $CellContext`x$$ = 1, $CellContext`X$$ = 0, $CellContext`\[Beta]$$ = 0.35, $CellContext`\[Gamma]0$$ = 0.4, $CellContext`\[Gamma]1$$ = 1, $CellContext`\[Gamma]2$$ = 0.4}, "ControllerVariables" :> { Hold[$CellContext`choice$$, $CellContext`choice$1887$$, 0], Hold[$CellContext`surface$$, $CellContext`surface$1888$$, False], Hold[$CellContext`angle$$, $CellContext`angle$1889$$, False], Hold[$CellContext`Outline$$, $CellContext`Outline$1890$$, False], Hold[$CellContext`DOutline$$, $CellContext`DOutline$1891$$, 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" :> Which[$CellContext`choice$$ == "AD-generation", If[$CellContext`surface$$, Grid[{{ Show[ Plot3D[ $CellContext`length[$CellContext`kk, $CellContext`tt, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$], \ {$CellContext`kk, 0, 100}, {$CellContext`tt, 0, 100}, Mesh -> None, ViewPoint -> {2, -3, 3}, Boxed -> False], Graphics3D[{ Opacity[0.5], Blue, Cuboid[{0, $CellContext`t$$, 0}, { 100, $CellContext`t$$ + 0.1, 100}]}]], Graphics[{ Line[ $CellContext`ADickinsonia[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$]], If[$CellContext`Outline$$, Line[ Union[ $CellContext`Outlineup[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$], $CellContext`Outlinedown[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$]]], Point[{0, 0}]], If[$CellContext`DOutline$$, Line[ $CellContext`OutlineB[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$]], Point[{0, 0}]]}, PlotRange -> {{(-20) $CellContext`x$$ + $CellContext`X$$, 100 $CellContext`x$$ + $CellContext`X$$}, {(-60) \ $CellContext`x$$, 60 $CellContext`x$$}}]}}], Graphics[{ Line[ $CellContext`ADickinsonia[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$]], If[$CellContext`Outline$$, Line[ Union[ $CellContext`Outlineup[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$], $CellContext`Outlinedown[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$]]], Point[{0, 0}]], If[$CellContext`DOutline$$, Line[ $CellContext`OutlineB[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$]], Point[{0, 0}]]}, PlotRange -> {{(-20) $CellContext`x$$ + $CellContext`X$$, 100 $CellContext`x$$ + $CellContext`X$$}, {(-60) \ $CellContext`x$$, 60 $CellContext`x$$}}]], $CellContext`choice$$ == "D-generation", If[$CellContext`surface$$, Grid[{{ Show[ Plot3D[ $CellContext`length[$CellContext`kk, $CellContext`tt, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$], {$CellContext`kk, 0, 100}, {$CellContext`tt, 0, 100}, Mesh -> None, ViewPoint -> {2, -3, 3}, Boxed -> False], Graphics3D[{ Opacity[0.5], Blue, Cuboid[{0, $CellContext`t$$, 0}, { 100, $CellContext`t$$ + 0.1, 100}]}]], Graphics[{ Line[ $CellContext`BDickinsonia[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$]], If[$CellContext`Outline$$, Line[ Union[ $CellContext`BOutlineup[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$], $CellContext`BOutlinedown[$CellContext`t$$, \ $CellContext`d$$, $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, \ $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$]]], Point[{0, 0}]], If[$CellContext`DOutline$$, Line[ $CellContext`BOutlineB[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$]], Point[{0, 0}]]}, PlotRange -> {{(-20) $CellContext`x$$ + $CellContext`X$$, 100 $CellContext`x$$ + $CellContext`X$$}, {(-60) \ $CellContext`x$$, 60 $CellContext`x$$}}]}}], Graphics[{ Line[ $CellContext`BDickinsonia[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$]], If[$CellContext`Outline$$, Line[ Union[ $CellContext`BOutlineup[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$], $CellContext`BOutlinedown[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$]]], Point[{0, 0}]], If[$CellContext`DOutline$$, Line[ $CellContext`BOutlineB[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$]], Point[{0, 0}]]}, PlotRange -> {{(-20) $CellContext`x$$ + $CellContext`X$$, 100 $CellContext`x$$ + $CellContext`X$$}, {(-60) \ $CellContext`x$$, 60 $CellContext`x$$}}]], $CellContext`choice$$ == "Both", If[$CellContext`surface$$, Grid[{{ Show[ Plot3D[ $CellContext`length[$CellContext`kk, $CellContext`tt, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$], \ {$CellContext`kk, 0, 100}, {$CellContext`tt, 0, 100}, Mesh -> None, ViewPoint -> {2, -3, 3}, Boxed -> False], Graphics3D[{ Opacity[0.5], Blue, Cuboid[{0, $CellContext`t$$, 0}, { 100, $CellContext`t$$ + 0.1, 100}]}]], Graphics[{ Line[ $CellContext`ADickinsonia[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$]], If[$CellContext`Outline$$, Line[ Union[ $CellContext`Outlineup[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$], $CellContext`Outlinedown[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$]]], Point[{0, 0}]], If[$CellContext`DOutline$$, Line[ $CellContext`OutlineB[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$]], Point[{0, 0}]]}, PlotRange -> {{(-20) $CellContext`x$$ + $CellContext`X$$, 100 $CellContext`x$$ + $CellContext`X$$}, {(-60) \ $CellContext`x$$, 60 $CellContext`x$$}}]}, { Show[ Plot3D[ $CellContext`length[$CellContext`kk, $CellContext`tt, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$], {$CellContext`kk, 0, 100}, {$CellContext`tt, 0, 100}, Mesh -> None, ViewPoint -> {2, -3, 3}, Boxed -> False], Graphics3D[{ Opacity[0.5], Blue, Cuboid[{0, $CellContext`t$$, 0}, { 100, $CellContext`t$$ + 0.1, 100}]}]], Graphics[{ Line[ $CellContext`BDickinsonia[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$]], If[$CellContext`Outline$$, Line[ Union[ $CellContext`BOutlineup[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$], $CellContext`BOutlinedown[$CellContext`t$$, \ $CellContext`d$$, $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, \ $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$]]], Point[{0, 0}]], If[$CellContext`DOutline$$, Line[ $CellContext`BOutlineB[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$]], Point[{0, 0}]]}, PlotRange -> {{(-20) $CellContext`x$$ + $CellContext`X$$, 100 $CellContext`x$$ + $CellContext`X$$}, {(-60) \ $CellContext`x$$, 60 $CellContext`x$$}}]}}], Grid[{{ Graphics[{ Line[ $CellContext`ADickinsonia[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$]], If[$CellContext`Outline$$, Line[ Union[ $CellContext`Outlineup[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$], $CellContext`Outlinedown[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$]]], Point[{0, 0}]], If[$CellContext`DOutline$$, Line[ $CellContext`OutlineB[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, \ $CellContext`\[Beta]$$, $CellContext`Maxbr$$, $CellContext`flat$$, \ $CellContext`Delta$$, $CellContext`angle$$]], Point[{0, 0}]]}, PlotRange -> {{(-20) $CellContext`x$$ + $CellContext`X$$, 100 $CellContext`x$$ + $CellContext`X$$}, {(-60) \ $CellContext`x$$, 60 $CellContext`x$$}}]}, { Graphics[{ Line[ $CellContext`BDickinsonia[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$]], If[$CellContext`Outline$$, Line[ Union[ $CellContext`BOutlineup[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$], $CellContext`BOutlinedown[$CellContext`t$$, \ $CellContext`d$$, $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, \ $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$]]], Point[{0, 0}]], If[$CellContext`DOutline$$, Line[ $CellContext`BOutlineB[$CellContext`t$$, $CellContext`d$$, \ $CellContext`\[Gamma]0$$, $CellContext`\[Gamma]1$$, $CellContext`\[Gamma]2$$, 1 - $CellContext`\[Beta]$$, $CellContext`Maxbr$$, \ $CellContext`flat$$, $CellContext`Delta$$, $CellContext`angle$$]], Point[{0, 0}]]}, PlotRange -> {{(-20) $CellContext`x$$ + $CellContext`X$$, 100 $CellContext`x$$ + $CellContext`X$$}, {(-60) \ $CellContext`x$$, 60 $CellContext`x$$}}]}}]]], "Specifications" :> { Style["Growth Model for Iterative Growth", 20, Bold], Delimiter, Style[ "Displaying:", 16, Bold], {{$CellContext`choice$$, "Both", "Model Type: "}, { "AD-generation", "D-generation", "Both"}, ControlType -> RadioButtonBar}, {{$CellContext`surface$$, True, "Growth surface"}, { True, False}}, Delimiter, Style["Parameter Values", 16, Bold], Style[ " Determining growth surface:", 12, Bold], {{$CellContext`\[Gamma]0$$, 0.4, "Growth rate generative zone: \[Gamma]0"}, 0, 2, 0.05, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{$CellContext`\[Gamma]1$$, 1, "Growth rate first phase: \[Gamma]1"}, 0, 2, 0.05, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{$CellContext`\[Gamma]2$$, 0.4, "Growth rate second phase: \[Gamma]2"}, 0, 2, 0.05, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{$CellContext`\[Beta]$$, 0.35, "Position longest unit rel. to B-end: \[Beta]"}, 0, 1, 0.01, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{$CellContext`Maxbr$$, 50, "Unit count of insertion switch: Maxbr"}, 0, 200, 1, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{$CellContext`flat$$, 20, "Unit count of flattening growth surface: flat"}, 0, 200, 1, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, Style[ " Other input:", 12, Bold], {{$CellContext`d$$, 1, "Unit width: d"}, 0, 5, 0.05, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{$CellContext`Delta$$, 0.1, "Angle deltoidal region as ratio of 2\[Pi]: \[CapitalDelta]"}, 0, 1, 0.05, Slider[ SlotSequence[1], Appearance -> "Labeled"]& }, {{$CellContext`angle$$, "Radiating", "Unit angle variation: "}, {"Radiating", "Stabilizing"}, ControlType -> RadioButtonBar}, Delimiter, Style[ "Appearance", 16, Bold], {{$CellContext`t$$, 10.1, "Model time: t"}, 0.1, 200.1, 0.2, Animator[ SlotSequence[1], AnimationRate -> 2, AnimationRunning -> False, AppearanceElements -> { "ProgressSlider", "StepLeftButton", "StepRightButton", "PlayPauseButton", "FasterSlowerButtons", "ResetButton"}]& }, {{$CellContext`x$$, 1, "zoom"}, 0.1, 10, 0.1, Slider[ SlotSequence[1]]& }, {{$CellContext`X$$, 0, "x-position"}, -40, 40, 1, Slider[ SlotSequence[1]]& }, {$CellContext`Outline$$, { True, False}}, {$CellContext`DOutline$$, {True, False}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{977., {290., 295.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`length[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]]] := If[$CellContext`flat < $CellContext`Maxbr, Piecewise[{{ Piecewise[{{ 0, $CellContext`t <= $CellContext`k}, {$CellContext`\[Gamma]0 \ $CellContext`k + $CellContext`\[Gamma]1 ($CellContext`t - $CellContext`k), \ $CellContext`k < $CellContext`t < Min[(1/$CellContext`\[Beta]) $CellContext`k, $CellContext`flat \ (1 - $CellContext`\[Beta]) + $CellContext`k]}, {$CellContext`\[Gamma]0 \ $CellContext`k + $CellContext`\[Gamma]1 ( Min[(1/$CellContext`\[Beta]) $CellContext`k, ( 1 - $CellContext`\[Beta]) $CellContext`flat + \ $CellContext`k] - $CellContext`k) + $CellContext`\[Gamma]2 ($CellContext`t - Min[(1/$CellContext`\[Beta]) $CellContext`k, \ $CellContext`flat ( 1 - $CellContext`\[Beta]) + $CellContext`k]), \ $CellContext`t >= Min[(1/$CellContext`\[Beta]) $CellContext`k, $CellContext`flat \ (1 - $CellContext`\[Beta]) + $CellContext`k]}}], $CellContext`t <= \ $CellContext`Maxbr}, { Piecewise[{{ 0, $CellContext`Maxbr <= $CellContext`k}, \ {$CellContext`\[Gamma]0 $CellContext`k + $CellContext`\[Gamma]1 \ ($CellContext`Maxbr - $CellContext`k) + $CellContext`\[Gamma]2 \ ($CellContext`t - $CellContext`Maxbr), $CellContext`Maxbr - $CellContext`flat \ (1 - $CellContext`\[Beta]) < $CellContext`k < $CellContext`Maxbr}, \ {$CellContext`\[Gamma]0 $CellContext`k + $CellContext`\[Gamma]1 ( Min[(1/$CellContext`\[Beta]) $CellContext`k, \ $CellContext`flat ( 1 - $CellContext`\[Beta]) + $CellContext`k] - \ $CellContext`k) + $CellContext`\[Gamma]2 ($CellContext`Maxbr - Min[(1/$CellContext`\[Beta]) $CellContext`k, \ $CellContext`flat ( 1 - $CellContext`\[Beta]) + $CellContext`k]) + \ $CellContext`\[Gamma]2 ($CellContext`t - $CellContext`Maxbr), $CellContext`k <= \ $CellContext`Maxbr - $CellContext`flat ( 1 - $CellContext`\[Beta])}}], $CellContext`t > \ $CellContext`Maxbr}}], Piecewise[{{ Piecewise[{{ 0, $CellContext`t <= $CellContext`k}, {$CellContext`\[Gamma]0 \ $CellContext`k + $CellContext`\[Gamma]1 ($CellContext`t - $CellContext`k), \ $CellContext`k < $CellContext`t < ( 1/$CellContext`\[Beta]) $CellContext`k}, {$CellContext`\ \[Gamma]0 $CellContext`k + $CellContext`\[Gamma]1 ((1/$CellContext`\[Beta] - 1) $CellContext`k) + $CellContext`\[Gamma]2 ($CellContext`t - \ (1/$CellContext`\[Beta]) $CellContext`k), $CellContext`t >= ( 1/$CellContext`\[Beta]) $CellContext`k}}], $CellContext`t <= \ $CellContext`Maxbr}, { Piecewise[{{ 0, $CellContext`k >= $CellContext`Maxbr}, \ {$CellContext`\[Gamma]0 $CellContext`k + $CellContext`\[Gamma]1 \ ($CellContext`Maxbr - $CellContext`k) + $CellContext`\[Gamma]2 \ ($CellContext`t - $CellContext`Maxbr), Inequality[$CellContext`Maxbr $CellContext`\[Beta], LessEqual, $CellContext`k, Less, $CellContext`Maxbr]}, {$CellContext`\[Gamma]0 \ $CellContext`k + $CellContext`\[Gamma]1 ((1/$CellContext`\[Beta] - 1) $CellContext`k) + $CellContext`\[Gamma]2 ($CellContext`t - \ (1/$CellContext`\[Beta]) $CellContext`k), $CellContext`k < $CellContext`Maxbr \ $CellContext`\[Beta]}}], $CellContext`t > $CellContext`Maxbr}}]], \ $CellContext`length[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := Piecewise[{{ Piecewise[{{ 0, $CellContext`t <= $CellContext`k}, {$CellContext`\[Gamma]0 \ $CellContext`k + $CellContext`\[Gamma]1 ($CellContext`t - $CellContext`k), \ $CellContext`k < $CellContext`t < $CellContext`\[Beta] $CellContext`k}, \ {$CellContext`\[Gamma]0 $CellContext`k + $CellContext`\[Gamma]1 \ (($CellContext`\[Beta] - 1) $CellContext`k) + $CellContext`\[Gamma]2 ($CellContext`t - \ $CellContext`\[Beta] $CellContext`k), $CellContext`t >= $CellContext`\[Beta] \ $CellContext`k}}], $CellContext`t <= $CellContext`Maxbr}, { Piecewise[{{ 0, $CellContext`k >= $CellContext`Maxbr}, \ {$CellContext`\[Gamma]0 $CellContext`k + $CellContext`\[Gamma]1 \ ($CellContext`Maxbr - $CellContext`k) + $CellContext`\[Gamma]2 \ ($CellContext`t - $CellContext`Maxbr), Inequality[$CellContext`Maxbr/$CellContext`\[Beta], LessEqual, $CellContext`k, Less, $CellContext`Maxbr]}, {$CellContext`\[Gamma]0 \ $CellContext`k + $CellContext`\[Gamma]1 (($CellContext`\[Beta] - 1) $CellContext`k) + $CellContext`\[Gamma]2 ($CellContext`t - \ $CellContext`\[Beta] $CellContext`k), $CellContext`k < \ $CellContext`Maxbr/$CellContext`\[Beta]}}], $CellContext`t > \ $CellContext`Maxbr}}], $CellContext`ADickinsonia[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := Union[ $CellContext`ZeroOrder[$CellContext`t, $CellContext`d, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, $CellContext`flat], $CellContext`FirstOrder[$CellContext`t, $CellContext`d, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta, $CellContext`angle]], $CellContext`ADickinsonia[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ $CellContext`ZeroOrder[$CellContext`t, $CellContext`d, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, $CellContext`flat], $CellContext`FirstOrder[$CellContext`t, $CellContext`d, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta]], $CellContext`ZeroOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]]] := {{$CellContext`a0, $CellContext`b0[$CellContext`t, $CellContext`d, \ $CellContext`Maxbr]}}, $CellContext`ZeroOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := {{$CellContext`a0, $CellContext`b0[$CellContext`t, $CellContext`Maxbr]}}, \ $CellContext`ZeroOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[Flat, Blank[]]] := {{$CellContext`a0, $CellContext`b0[$CellContext`t, $CellContext`Maxbr]}}, \ $CellContext`a0 = {0, 0}, $CellContext`b0[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := { $CellContext`l0[$CellContext`t, $CellContext`d, $CellContext`Maxbr], 0}, $CellContext`b0[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := { $CellContext`l0[$CellContext`t, $CellContext`Maxbr], 0}, $CellContext`l0[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := $CellContext`d Min[$CellContext`t - 1, $CellContext`Maxbr - 1], $CellContext`l0[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := Min[$CellContext`t - 1, $CellContext`Maxbr - 1], $CellContext`FirstOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := Union[ Table[{ $CellContext`a1[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`Maxbr], $CellContext`b1up[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta, $CellContext`angle]}, {$CellContext`k1, 0, $CellContext`t, 1}], Table[{ $CellContext`a1[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`Maxbr], $CellContext`b1down[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta, $CellContext`angle]}, {$CellContext`k1, 0, $CellContext`t, 1}]], $CellContext`FirstOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ Table[{ $CellContext`a1[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`Maxbr], $CellContext`b1up[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t, 1}], Table[{ $CellContext`a1[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`Maxbr], $CellContext`b1down[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t, 1}]], $CellContext`FirstOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ Table[{ $CellContext`a1[$CellContext`k1, $CellContext`t, \ $CellContext`Maxbr], $CellContext`b1up[$CellContext`k1, $CellContext`t, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t, 1}], Table[{ $CellContext`a1[$CellContext`k1, $CellContext`t, \ $CellContext`Maxbr], $CellContext`b1down[$CellContext`k1, $CellContext`t, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t, 1}]], $CellContext`FirstOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[Flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ Table[{ $CellContext`a1[$CellContext`k1, $CellContext`t, \ $CellContext`Maxbr], $CellContext`b1up[$CellContext`k1, $CellContext`t, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, Flat, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t, 1}], Table[{ $CellContext`a1[$CellContext`k1, $CellContext`t, \ $CellContext`Maxbr], $CellContext`b1down[$CellContext`k1, $CellContext`t, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, Flat, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t, 1}]], $CellContext`a1[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := {$CellContext`d Min[$CellContext`k, $CellContext`Maxbr], 0}, $CellContext`a1[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := { Min[$CellContext`k, $CellContext`Maxbr], 0}, $CellContext`b1up[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := $CellContext`a1[$CellContext`k, $CellContext`t, \ $CellContext`d, $CellContext`Maxbr] + $CellContext`length[$CellContext`k, \ $CellContext`t, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat] { Cos[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta, $CellContext`angle]], Sin[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta, $CellContext`angle]]}, \ $CellContext`b1up[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := $CellContext`a1[$CellContext`k, $CellContext`t, \ $CellContext`d, $CellContext`Maxbr] + $CellContext`length[$CellContext`k, \ $CellContext`t, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat] { Cos[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]], Sin[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]]}, $CellContext`b1up[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := $CellContext`a1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr] + $CellContext`length[$CellContext`k, $CellContext`t, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr] { Cos[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]], Sin[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]]}, $CellContext`b1up[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[Flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := $CellContext`a1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr] + $CellContext`length[$CellContext`k, $CellContext`t, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, Flat] { Cos[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]], Sin[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]]}, $CellContext`\[Theta]1[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := Piecewise[{{ $CellContext`\[Theta]\[Theta]1[$CellContext`k/$CellContext`t, 1 - $CellContext`Delta, $CellContext`angle], $CellContext`t <= \ $CellContext`Maxbr - 1}, { $CellContext`\[Theta]\[Theta]1[$CellContext`k/($CellContext`Maxbr - 1), 1 - $CellContext`Delta, $CellContext`angle], $CellContext`t > \ $CellContext`Maxbr - 1}}], $CellContext`\[Theta]1[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Piecewise[{{ $CellContext`\[Theta]\[Theta]1[$CellContext`k/$CellContext`t, \ $CellContext`Delta], $CellContext`t <= $CellContext`Maxbr}, { $CellContext`\[Theta]\[Theta]1[$CellContext`k/$CellContext`Maxbr, \ $CellContext`Delta], $CellContext`t > $CellContext`Maxbr}}], $CellContext`\ \[Theta]\[Theta]1[ Pattern[$CellContext`x, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := Which[$CellContext`angle == "Radiating", Pi $CellContext`Delta (1 - $CellContext`x), $CellContext`angle == "Stabilizing", Piecewise[{{((( 1/2 - $CellContext`Delta)/$CellContext`a[$CellContext`Delta]^\ 3) ($CellContext`x - $CellContext`a[$CellContext`Delta])^3 + 1/2) Pi, $CellContext`Delta > 0.51}, {(-($CellContext`x^3/2) + 1/2) Pi, 0.49 <= $CellContext`Delta <= 0.51}, {((( 1/2 - $CellContext`Delta)/$CellContext`a[$CellContext`Delta]^\ 3) ($CellContext`x - $CellContext`a[$CellContext`Delta])^3 + 1/2) Pi, $CellContext`Delta < 0.49}}]], $CellContext`\[Theta]\[Theta]1[ Pattern[$CellContext`x, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := (Pi $CellContext`Delta) ( 1 - $CellContext`x), $CellContext`a[ Pattern[$CellContext`\[CapitalDelta], Blank[]]] := (-1 + 2 $CellContext`\[CapitalDelta])/( 2 $CellContext`\[CapitalDelta]) + (-9 + 18 $CellContext`\[CapitalDelta])/( 18 $CellContext`\[CapitalDelta] (1 - 3 $CellContext`\[CapitalDelta] + 2 $CellContext`\[CapitalDelta]^2 + Sqrt[$CellContext`\[CapitalDelta]^2 - 4 $CellContext`\[CapitalDelta]^3 + 4 $CellContext`\[CapitalDelta]^4])^(1/3)) - (1 - 3 $CellContext`\[CapitalDelta] + 2 $CellContext`\[CapitalDelta]^2 + Sqrt[$CellContext`\[CapitalDelta]^2 - 4 $CellContext`\[CapitalDelta]^3 + 4 $CellContext`\[CapitalDelta]^4])^(1/3)/( 2 $CellContext`\[CapitalDelta]), $CellContext`b1down[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := $CellContext`a1[$CellContext`k, $CellContext`t, \ $CellContext`d, $CellContext`Maxbr] + $CellContext`length[$CellContext`k, \ $CellContext`t, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat] { Cos[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta, $CellContext`angle]], -Sin[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta, $CellContext`angle]]}, \ $CellContext`b1down[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := $CellContext`a1[$CellContext`k, $CellContext`t, \ $CellContext`d, $CellContext`Maxbr] + $CellContext`length[$CellContext`k, \ $CellContext`t, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat] { Cos[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]], -Sin[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]]}, $CellContext`b1down[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := $CellContext`a1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr] + $CellContext`length[$CellContext`k, $CellContext`t, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr] { Cos[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]], -Sin[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]]}, $CellContext`b1down[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[Flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := $CellContext`a1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr] + $CellContext`length[$CellContext`k, $CellContext`t, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, Flat] { Cos[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]], -Sin[ $CellContext`\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]]}, $CellContext`Outlineup[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := Union[ Table[{ $CellContext`b1up[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta, $CellContext`angle], $CellContext`b1up[$CellContext`k1 + 1, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta, \ $CellContext`angle]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}]], $CellContext`Outlineup[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ Table[{ $CellContext`b1up[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta], $CellContext`b1up[$CellContext`k1 + 1, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}]], $CellContext`Outlineup[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ Table[{ $CellContext`b1up[$CellContext`k1, $CellContext`t, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, $CellContext`Delta], $CellContext`b1up[$CellContext`k1 + 1, $CellContext`t, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}]], $CellContext`Outlineup[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[Flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ Table[{ $CellContext`b1up[$CellContext`k1, $CellContext`t, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, Flat, $CellContext`Delta], $CellContext`b1up[$CellContext`k1 + 1, $CellContext`t, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, Flat, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}]], $CellContext`Outlinedown[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := Table[{ $CellContext`b1down[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta, $CellContext`angle], $CellContext`b1down[$CellContext`k1 + 1, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta, \ $CellContext`angle]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}], $CellContext`Outlinedown[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Table[{ $CellContext`b1down[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta], $CellContext`b1down[$CellContext`k1 + 1, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}], $CellContext`Outlinedown[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Table[{ $CellContext`b1down[$CellContext`k1, $CellContext`t, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, $CellContext`Delta], $CellContext`b1down[$CellContext`k1 + 1, $CellContext`t, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, \ $CellContext`\[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, \ $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}], $CellContext`Outlinedown[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[Flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Table[{ $CellContext`b1down[$CellContext`k1, $CellContext`t, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, Flat, $CellContext`Delta], $CellContext`b1down[$CellContext`k1 + 1, $CellContext`t, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, \ $CellContext`\[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, Flat, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}], $CellContext`OutlineB[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := {{ $CellContext`b1up[ 0, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta, \ $CellContext`angle], $CellContext`b1down[ 0, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta, \ $CellContext`angle]}}, $CellContext`OutlineB[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := {{ $CellContext`b1up[ 0, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta], $CellContext`b1down[ 0, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta]}}, \ $CellContext`BDickinsonia[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := Union[ $CellContext`BZeroOrder[$CellContext`t, $CellContext`d, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat], $CellContext`BFirstOrder[$CellContext`t, $CellContext`d, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta, $CellContext`angle]], $CellContext`BDickinsonia[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ $CellContext`BZeroOrder[$CellContext`t, $CellContext`d, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat], $CellContext`BFirstOrder[$CellContext`t, $CellContext`d, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta]], $CellContext`BZeroOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]]] := {{$CellContext`Ba0, $CellContext`Bb0[$CellContext`t, $CellContext`d, \ $CellContext`Maxbr]}}, $CellContext`BZeroOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := {{$CellContext`Ba0, $CellContext`Bb0[$CellContext`t, $CellContext`Maxbr]}}, \ $CellContext`BZeroOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := {{$CellContext`Ba0, $CellContext`Bb0[$CellContext`t, $CellContext`d, \ $CellContext`Maxbr]}}, $CellContext`Ba0 = {0, 0}, $CellContext`Bb0[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := { $CellContext`Bl0[$CellContext`t, $CellContext`d, $CellContext`Maxbr], 0}, $CellContext`Bb0[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := { $CellContext`Bl0[$CellContext`t, $CellContext`Maxbr], 0}, $CellContext`Bl0[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := $CellContext`d Min[$CellContext`t - 1, $CellContext`Maxbr - 1], $CellContext`Bl0[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := Min[$CellContext`t - 1, $CellContext`Maxbr - 1], $CellContext`BFirstOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := Union[ Table[{ $CellContext`Ba1[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`Maxbr], $CellContext`Bb1up[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta, $CellContext`angle]}, {$CellContext`k1, 0, $CellContext`t, 1}], Table[{ $CellContext`Ba1[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`Maxbr], $CellContext`Bb1down[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta, $CellContext`angle]}, {$CellContext`k1, 0, $CellContext`t, 1}]], $CellContext`BFirstOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ Table[{ $CellContext`Ba1[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`Maxbr], $CellContext`Bb1up[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t, 1}], Table[{$CellContext`Ba1[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`Maxbr] + {0.5 $CellContext`d, 0}, $CellContext`Bb1down[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t, 1}]], $CellContext`BFirstOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ Table[{ $CellContext`Ba1[$CellContext`k1, $CellContext`t, \ $CellContext`Maxbr], $CellContext`Bb1up[$CellContext`k1, $CellContext`t, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t, 1}], Table[{ $CellContext`Ba1[$CellContext`k1, $CellContext`t, \ $CellContext`Maxbr], $CellContext`Bb1down[$CellContext`k1, $CellContext`t, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`Delta]}, \ {$CellContext`k1, 0, $CellContext`t, 1}]], $CellContext`BFirstOrder[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ Table[{ $CellContext`Ba1[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`Maxbr], $CellContext`Bb1up[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`Delta]}, \ {$CellContext`k1, 0, $CellContext`t, 1}], Table[{ $CellContext`Ba1[$CellContext`k1, $CellContext`t, $CellContext`d, \ $CellContext`Maxbr], $CellContext`Bb1down[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`Delta]}, \ {$CellContext`k1, 0, $CellContext`t, 1}]], $CellContext`Ba1[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := {$CellContext`d Max[ Min[ Max[ 0, $CellContext`t - $CellContext`k], $CellContext`Maxbr - \ $CellContext`k], 0], 0}, $CellContext`Ba1[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := { Max[ Min[ Max[ 0, $CellContext`t - $CellContext`k], $CellContext`Maxbr - \ $CellContext`k], 0], 0}, $CellContext`Bb1up[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := $CellContext`Ba1[$CellContext`k, $CellContext`t, \ $CellContext`d, $CellContext`Maxbr] + $CellContext`length[$CellContext`k, \ $CellContext`t, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat] { Cos[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta, $CellContext`angle]], Sin[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta, $CellContext`angle]]}, \ $CellContext`Bb1up[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := $CellContext`Ba1[$CellContext`k, $CellContext`t, \ $CellContext`d, $CellContext`Maxbr] + $CellContext`length[$CellContext`k, \ $CellContext`t, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat] { Cos[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]], Sin[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]]}, $CellContext`Bb1up[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := $CellContext`Ba1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr] + $CellContext`Blength[$CellContext`k, $CellContext`t, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr] { Cos[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]], Sin[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]]}, $CellContext`Bb1up[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := $CellContext`Ba1[$CellContext`k, $CellContext`t, \ $CellContext`d, $CellContext`Maxbr] + $CellContext`Blength[$CellContext`k, \ $CellContext`t, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr] { Cos[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]], Sin[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]]}, $CellContext`B\[Theta]1[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := Piecewise[{{ $CellContext`\[Theta]\[Theta]1[ 1 - $CellContext`k/$CellContext`t, 1 - $CellContext`Delta, $CellContext`angle], $CellContext`t <= \ $CellContext`Maxbr}, { $CellContext`\[Theta]\[Theta]1[ 1 - $CellContext`k/$CellContext`Maxbr, 1 - $CellContext`Delta, $CellContext`angle], $CellContext`t > \ $CellContext`Maxbr}}], $CellContext`B\[Theta]1[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Piecewise[{{ $CellContext`\[Theta]\[Theta]1[ 1 - $CellContext`k/$CellContext`t, $CellContext`Delta], \ $CellContext`t <= $CellContext`Maxbr}, { $CellContext`\[Theta]\[Theta]1[ 1 - $CellContext`k/$CellContext`Maxbr, $CellContext`Delta], \ $CellContext`t > $CellContext`Maxbr}}], $CellContext`Blength[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]]] := Piecewise[{{ Piecewise[{{ 0, $CellContext`t <= $CellContext`k}, {$CellContext`\[Gamma]0 \ $CellContext`k + $CellContext`\[Gamma]1 ($CellContext`t - $CellContext`k), \ $CellContext`k < $CellContext`t < $CellContext`\[Beta] $CellContext`k}, \ {$CellContext`\[Gamma]0 $CellContext`k + $CellContext`\[Gamma]1 \ (($CellContext`\[Beta] - 1) $CellContext`k) + $CellContext`\[Gamma]2 ($CellContext`t - \ $CellContext`\[Beta] $CellContext`k), $CellContext`t >= $CellContext`\[Beta] \ $CellContext`k}}], $CellContext`t < $CellContext`Maxbr}, { Piecewise[{{ 0, $CellContext`k > $CellContext`Maxbr}, {$CellContext`\[Gamma]0 \ $CellContext`k + $CellContext`\[Gamma]1 ($CellContext`Maxbr - $CellContext`k) + \ $CellContext`\[Gamma]2 ($CellContext`t - $CellContext`Maxbr), \ $CellContext`Maxbr/$CellContext`\[Beta] <= $CellContext`k <= \ $CellContext`Maxbr}, {$CellContext`\[Gamma]0 $CellContext`k + $CellContext`\ \[Gamma]1 (($CellContext`\[Beta] - 1) $CellContext`k) + $CellContext`\[Gamma]2 ($CellContext`t - \ $CellContext`\[Beta] $CellContext`k), $CellContext`k < \ $CellContext`Maxbr/$CellContext`\[Beta]}}], $CellContext`t >= \ $CellContext`Maxbr}}], $CellContext`Bb1down[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := $CellContext`Ba1[$CellContext`k, $CellContext`t, \ $CellContext`d, $CellContext`Maxbr] + $CellContext`length[$CellContext`k, \ $CellContext`t, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat] { Cos[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta, $CellContext`angle]], -Sin[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta, $CellContext`angle]]}, \ $CellContext`Bb1down[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := $CellContext`Ba1[$CellContext`k, $CellContext`t, \ $CellContext`d, $CellContext`Maxbr] + { 0.5 $CellContext`d, 0} + $CellContext`length[$CellContext`k, $CellContext`t, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat] { Cos[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]], -Sin[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]]}, $CellContext`Bb1down[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := $CellContext`Ba1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr] + $CellContext`Blength[$CellContext`k, $CellContext`t, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr] { Cos[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]], -Sin[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]]}, $CellContext`Bb1down[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := $CellContext`Ba1[$CellContext`k, $CellContext`t, \ $CellContext`d, $CellContext`Maxbr] + $CellContext`Blength[$CellContext`k, \ $CellContext`t, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr] { Cos[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]], -Sin[ $CellContext`B\[Theta]1[$CellContext`k, $CellContext`t, \ $CellContext`Maxbr, $CellContext`Delta]]}, $CellContext`BOutlineup[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := Union[ Table[{ $CellContext`Bb1up[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta, $CellContext`angle], $CellContext`Bb1up[$CellContext`k1 + 1, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta, \ $CellContext`angle]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}]], $CellContext`BOutlineup[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ Table[{ $CellContext`Bb1up[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta], $CellContext`Bb1up[$CellContext`k1 + 1, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}]], $CellContext`BOutlineup[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ Table[{ $CellContext`Bb1up[$CellContext`k1, $CellContext`t, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, $CellContext`Delta], $CellContext`Bb1up[$CellContext`k1 + 1, $CellContext`t, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}], {{ $CellContext`Bb1up[ Min[ Floor[$CellContext`t], $CellContext`Maxbr], $CellContext`t, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`Delta], $CellContext`Bb1down[ Min[ Floor[$CellContext`t], $CellContext`Maxbr], $CellContext`t, \ $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, \ $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`Delta]}}], \ $CellContext`BOutlineup[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Union[ Table[{ $CellContext`Bb1up[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`Delta], $CellContext`Bb1up[$CellContext`k1 + 1, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}], {{ $CellContext`Bb1up[ Min[ Floor[$CellContext`t], $CellContext`Maxbr], $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`Delta], $CellContext`Bb1down[ Min[ Floor[$CellContext`t], $CellContext`Maxbr], $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`Delta]}}], \ $CellContext`BOutlinedown[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := Table[{ $CellContext`Bb1down[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta, $CellContext`angle], $CellContext`Bb1down[$CellContext`k1 + 1, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta, \ $CellContext`angle]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}], $CellContext`BOutlinedown[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Table[{ $CellContext`Bb1down[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`flat, \ $CellContext`Delta], $CellContext`Bb1down[$CellContext`k1 + 1, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}], $CellContext`BOutlinedown[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Table[{ $CellContext`Bb1down[$CellContext`k1, $CellContext`t, $CellContext`\ \[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\ \[Beta], $CellContext`Maxbr, $CellContext`Delta], $CellContext`Bb1down[$CellContext`k1 + 1, $CellContext`t, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, \ $CellContext`\[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, \ $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}], $CellContext`BOutlinedown[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := Table[{ $CellContext`Bb1down[$CellContext`k1, $CellContext`t, \ $CellContext`d, $CellContext`\[Gamma]0, $CellContext`\[Gamma]1, $CellContext`\ \[Gamma]2, $CellContext`\[Beta], $CellContext`Maxbr, $CellContext`Delta], $CellContext`Bb1down[$CellContext`k1 + 1, $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`Delta]}, {$CellContext`k1, 0, $CellContext`t - 1, 1}], $CellContext`BOutlineB[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]], Pattern[$CellContext`angle, Blank[]]] := {{ $CellContext`Bb1up[ Min[ Floor[$CellContext`t], $CellContext`Maxbr - 1], $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta, \ $CellContext`angle], $CellContext`Bb1down[ Min[ Floor[$CellContext`t], $CellContext`Maxbr - 1], $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta, \ $CellContext`angle]}}, $CellContext`BOutlineB[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`d, Blank[]], Pattern[$CellContext`\[Gamma]0, Blank[]], Pattern[$CellContext`\[Gamma]1, Blank[]], Pattern[$CellContext`\[Gamma]2, Blank[]], Pattern[$CellContext`\[Beta], Blank[]], Pattern[$CellContext`Maxbr, Blank[]], Pattern[$CellContext`flat, Blank[]], Pattern[$CellContext`Delta, Blank[]]] := {{ $CellContext`Bb1up[ Min[ Floor[$CellContext`t], $CellContext`Maxbr - 1], $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta], $CellContext`Bb1down[ Min[ Floor[$CellContext`t], $CellContext`Maxbr - 1], $CellContext`t, $CellContext`d, $CellContext`\[Gamma]0, \ $CellContext`\[Gamma]1, $CellContext`\[Gamma]2, $CellContext`\[Beta], \ $CellContext`Maxbr, $CellContext`flat, $CellContext`Delta]}}}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", "PluginEmbeddedContent"] }, WindowSize->{1039, 604}, WindowMargins->{{272, Automatic}, {Automatic, 81}}, Visible->True, AuthoredSize->{1039.8600000000001`, 604.61}, ScrollingOptions->{"HorizontalScrollRange"->Fit, "VerticalScrollRange"->Fit}, ShowCellBracket->False, Deployed->True, CellContext->Notebook, TrackCellChangeTimes->False, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1463, 33, 97975, 2273, 587, "Output"] } ] *) (* End of internal cache information *) (* NotebookSignature kvp5CmT0PRa1GCK1TWWaeWAk *)