(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 52134, 1289] NotebookOptionsPosition[ 48454, 1176] NotebookOutlinePosition[ 50043, 1226] CellTagsIndexPosition[ 49715, 1214] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Maximizing the Viewing Angle of a Painting", "DemoTitle", CellChangeTimes->{ 3.35696210375764*^9, {3.45968042096875*^9, 3.459680440578125*^9}}], Cell["", "InitializationSection"], Cell[CellGroupData[{ Cell["", "ManipulateSection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"painting", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.03", "]"}], ",", "Blue", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"b", "+", "t"}]}], "}"}]}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", ".05", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "b"}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{"b", "+", "t"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"head", "=", RowBox[{"Graphics", "[", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", "0.75"}], ",", "4.75"}], "}"}], ",", "0.75"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"eye", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", "Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"a", ",", "5"}], "}"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"body", "=", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", "0.75"}], ",", "2.25"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "0.75"}], ",", "4"}], "}"}]}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"leg1", "=", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", "0.25"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "0.75"}], ",", "2.25"}], "}"}]}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"leg2", "=", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", "1.25"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "0.75"}], ",", "2.25"}], "}"}]}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"arm1", "=", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", "4.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "0.75"}], ",", "3"}], "}"}]}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"angleMarker", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "5"}], "}"}], ",", "5", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Pi]", "-", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{"t", "+", "b", "-", "5"}], ")"}], "/", "a"}], "]"}]}], ",", RowBox[{"\[Pi]", "-", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "5"}], ")"}], "/", "a"}], "]"}]}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\[Theta]\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "/", "2"}], "+", "b", "-", "5"}], ")"}], "/", "a"}], "]"}], "]"}]}]}], ",", RowBox[{"5", "+", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "/", "2"}], "+", "b", "-", "5"}], ")"}], "/", "a"}], "]"}], "]"}]}]}]}], "}"}]}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"t", "+", "b", "-", "5"}], ")"}]}], "/", "a"}], " ", "x"}], "+", "b", "+", "t"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"b", "-", "5"}], ")"}]}], "/", "a"}], " ", "x"}], "+", "b"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"viewingAngle", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"180", "/", "\[Pi]"}], RowBox[{"(", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{"t", "+", "b", "-", "5"}], ")"}], "/", "x"}], "]"}], "-", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "5"}], ")"}], "/", "x"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"point2", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", "Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"a", ",", RowBox[{"viewingAngle", "[", "a", "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"viewPlot", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"viewingAngle", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\[Theta]\>\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "18"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"museumPlot", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "a"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "20.2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "20.2"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Text", "@", RowBox[{"Pane", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Show", "[", RowBox[{ "museumPlot", ",", "painting", ",", "head", ",", "eye", ",", "body", ",", "leg1", ",", "leg2", ",", "arm1", ",", "angleMarker", ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}], ",", RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{"Show", "[", RowBox[{"viewPlot", ",", "point2", ",", RowBox[{"ImageSize", "\[Rule]", "240"}]}], "]"}], ",", "\"\<\>\"", ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = \>\"", ",", "a", ",", "\"\<'\>\""}], "}"}], "]"}], ",", "18"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"N", "[", RowBox[{"viewingAngle", "[", "a", "]"}], "]"}], ",", "\"\<\[Degree]\>\""}], "}"}], "]"}], ",", "18"}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"560", ",", "300"}], "}"}]}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "4", ",", "\"\\""}], "}"}], ",", "2", ",", "8"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "8", ",", "\"\\""}], "}"}], ",", "6", ",", "10"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "10", ",", "\"\\""}], "}"}], ",", "0.01", ",", "18"}], "}"}], ",", RowBox[{"TrackedSymbols", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{ 3.35696210375764*^9, 3.459680474890625*^9, 3.4596807380625*^9, { 3.45968141503125*^9, 3.45968141675*^9}, {3.459681496625*^9, 3.459681505203125*^9}, 3.459681564703125*^9, {3.459681604515625*^9, 3.45968162253125*^9}, {3.459784721167686*^9, 3.4597847314958105`*^9}, { 3.4597848014020605`*^9, 3.4597848424958105`*^9}, {3.459860878473875*^9, 3.459860880437807*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 10, $CellContext`b$$ = 8, $CellContext`t$$ = 4, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`t$$], 4, "size of painting"}, 2, 8}, {{ Hold[$CellContext`b$$], 8, "placement of painting"}, 6, 10}, {{ Hold[$CellContext`a$$], 10, "distance from wall to eye, x"}, 0.01, 18}}, Typeset`size$$ = {560., {149., 154.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$15890$$ = 0, $CellContext`b$15891$$ = 0, $CellContext`a$15892$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 10, $CellContext`b$$ = 8, $CellContext`t$$ = 4}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$15890$$, 0], Hold[$CellContext`b$$, $CellContext`b$15891$$, 0], Hold[$CellContext`a$$, $CellContext`a$15892$$, 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" :> ($CellContext`painting = Graphics[{ Thickness[0.03], Blue, Line[{{0, $CellContext`b$$}, { 0, $CellContext`b$$ + $CellContext`t$$}}], Blue, PointSize[0.05], Point[{0, $CellContext`b$$}], Blue, Point[{0, $CellContext`b$$ + $CellContext`t$$}]}]; \ $CellContext`head = Graphics[ Circle[{$CellContext`a$$ + 0.75, 4.75}, 0.75]]; $CellContext`eye = Graphics[{ PointSize[Large], Red, Point[{$CellContext`a$$, 5}]}]; $CellContext`body = Graphics[ Line[{{$CellContext`a$$ + 0.75, 2.25}, {$CellContext`a$$ + 0.75, 4}}]]; $CellContext`leg1 = Graphics[ Line[{{$CellContext`a$$ + 0.25, 0}, {$CellContext`a$$ + 0.75, 2.25}}]]; $CellContext`leg2 = Graphics[ Line[{{$CellContext`a$$ + 1.25, 0}, {$CellContext`a$$ + 0.75, 2.25}}]]; $CellContext`arm1 = Graphics[ Line[{{$CellContext`a$$ - 1, 4.5}, {$CellContext`a$$ + 0.75, 3}}]]; $CellContext`angleMarker = Graphics[{ Circle[{$CellContext`a$$, 5}, 5, { Pi - ArcTan[($CellContext`t$$ + $CellContext`b$$ - 5)/$CellContext`a$$], Pi - ArcTan[($CellContext`b$$ - 5)/$CellContext`a$$]}], Text["\[Theta]", {$CellContext`a$$ - 4 Cos[ ArcTan[($CellContext`t$$/2 + $CellContext`b$$ - 5)/$CellContext`a$$]], 5 + 4 Sin[ ArcTan[($CellContext`t$$/2 + $CellContext`b$$ - 5)/$CellContext`a$$]]}]}]; $CellContext`f[ Pattern[$CellContext`x$, Blank[]]] := ((-($CellContext`t$$ + $CellContext`b$$ - 5))/$CellContext`a$$) $CellContext`x$ + $CellContext`b$$ + \ $CellContext`t$$; $CellContext`g[ Pattern[$CellContext`x$, Blank[]]] := ((-($CellContext`b$$ - 5))/$CellContext`a$$) $CellContext`x$ + $CellContext`b$$; \ $CellContext`viewingAngle[ Pattern[$CellContext`x$, Blank[]]] := (180/Pi) ( ArcTan[($CellContext`t$$ + $CellContext`b$$ - 5)/$CellContext`x$] - ArcTan[($CellContext`b$$ - 5)/$CellContext`x$]); $CellContext`point2 = Graphics[{ PointSize[Large], Red, Point[{$CellContext`a$$, $CellContext`viewingAngle[$CellContext`a$$]}]}]; \ $CellContext`viewPlot = Plot[ $CellContext`viewingAngle[$CellContext`x], {$CellContext`x, 0, 20}, AxesOrigin -> {0, 0}, AxesLabel -> {"x", "\[Theta]"}, PlotLabel -> Style["viewing angle \[Theta]\[Degree]", 18]]; $CellContext`museumPlot = Plot[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`x]}, {$CellContext`x, 0, $CellContext`a$$}, AxesLabel -> {"x", None}, PlotRange -> {{-0.5, 20.2}, {0, 20.2}}, AspectRatio -> 1]; Text[ Pane[ Row[{ Show[$CellContext`museumPlot, $CellContext`painting, \ $CellContext`head, $CellContext`eye, $CellContext`body, $CellContext`leg1, \ $CellContext`leg2, $CellContext`arm1, $CellContext`angleMarker, ImageSize -> 300], Column[{ Show[$CellContext`viewPlot, $CellContext`point2, ImageSize -> 240], "", Style[ Row[{ Style["x", Italic], " = ", $CellContext`a$$, "'"}], 18], Style[ Row[{"viewing angle \[Theta] = ", N[ $CellContext`viewingAngle[$CellContext`a$$]], "\[Degree]"}], 18]}]}], ImageSize -> {560, 300}]]), "Specifications" :> {{{$CellContext`t$$, 4, "size of painting"}, 2, 8}, {{$CellContext`b$$, 8, "placement of painting"}, 6, 10}, {{$CellContext`a$$, 10, "distance from wall to eye, x"}, 0.01, 18}}, "Options" :> {TrackedSymbols -> True}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{603., {222.34375, 227.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->592421704] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "ManipulateCaptionSection"], Cell["\<\ This Demonstration provides a visualization of this oft-asked optimization \ problem: How far from a painting hung high on a museum wall should a \ one-armed stick figure with a red eye stand, in order to maximize the viewing \ angle? The figure's eye is exactly five feet above the ground. \ \>", "ManipulateCaption", CellChangeTimes->{ 3.35696210375764*^9, {3.45968080653125*^9, 3.4596810281875*^9}, { 3.459704557734375*^9, 3.459704566359375*^9}, 3.459784850198936*^9, { 3.459785133323936*^9, 3.4597851599645605`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "ThumbnailSection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 10, $CellContext`b$$ = 8, $CellContext`t$$ = 4, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`t$$], 4, "size of painting"}, 2, 8}, {{ Hold[$CellContext`b$$], 8, "placement of painting"}, 6, 10}, {{ Hold[$CellContext`a$$], 10, "distance from wall to eye, x"}, 0.01, 18}}, Typeset`size$$ = {560., {149., 154.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$15952$$ = 0, $CellContext`b$15953$$ = 0, $CellContext`a$15954$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 10, $CellContext`b$$ = 8, $CellContext`t$$ = 4}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$15952$$, 0], Hold[$CellContext`b$$, $CellContext`b$15953$$, 0], Hold[$CellContext`a$$, $CellContext`a$15954$$, 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" :> ($CellContext`painting = Graphics[{ Thickness[0.03], Blue, Line[{{0, $CellContext`b$$}, { 0, $CellContext`b$$ + $CellContext`t$$}}], Blue, PointSize[0.05], Point[{0, $CellContext`b$$}], Blue, Point[{0, $CellContext`b$$ + $CellContext`t$$}]}]; \ $CellContext`head = Graphics[ Circle[{$CellContext`a$$ + 0.75, 4.75}, 0.75]]; $CellContext`eye = Graphics[{ PointSize[Large], Red, Point[{$CellContext`a$$, 5}]}]; $CellContext`body = Graphics[ Line[{{$CellContext`a$$ + 0.75, 2.25}, {$CellContext`a$$ + 0.75, 4}}]]; $CellContext`leg1 = Graphics[ Line[{{$CellContext`a$$ + 0.25, 0}, {$CellContext`a$$ + 0.75, 2.25}}]]; $CellContext`leg2 = Graphics[ Line[{{$CellContext`a$$ + 1.25, 0}, {$CellContext`a$$ + 0.75, 2.25}}]]; $CellContext`arm1 = Graphics[ Line[{{$CellContext`a$$ - 1, 4.5}, {$CellContext`a$$ + 0.75, 3}}]]; $CellContext`angleMarker = Graphics[{ Circle[{$CellContext`a$$, 5}, 5, { Pi - ArcTan[($CellContext`t$$ + $CellContext`b$$ - 5)/$CellContext`a$$], Pi - ArcTan[($CellContext`b$$ - 5)/$CellContext`a$$]}], Text["\[Theta]", {$CellContext`a$$ - 4 Cos[ ArcTan[($CellContext`t$$/2 + $CellContext`b$$ - 5)/$CellContext`a$$]], 5 + 4 Sin[ ArcTan[($CellContext`t$$/2 + $CellContext`b$$ - 5)/$CellContext`a$$]]}]}]; $CellContext`f[ Pattern[$CellContext`x$, Blank[]]] := ((-($CellContext`t$$ + $CellContext`b$$ - 5))/$CellContext`a$$) $CellContext`x$ + $CellContext`b$$ + \ $CellContext`t$$; $CellContext`g[ Pattern[$CellContext`x$, Blank[]]] := ((-($CellContext`b$$ - 5))/$CellContext`a$$) $CellContext`x$ + $CellContext`b$$; \ $CellContext`viewingAngle[ Pattern[$CellContext`x$, Blank[]]] := (180/Pi) ( ArcTan[($CellContext`t$$ + $CellContext`b$$ - 5)/$CellContext`x$] - ArcTan[($CellContext`b$$ - 5)/$CellContext`x$]); $CellContext`point2 = Graphics[{ PointSize[Large], Red, Point[{$CellContext`a$$, $CellContext`viewingAngle[$CellContext`a$$]}]}]; \ $CellContext`viewPlot = Plot[ $CellContext`viewingAngle[$CellContext`x], {$CellContext`x, 0, 20}, AxesOrigin -> {0, 0}, AxesLabel -> {"x", "\[Theta]"}, PlotLabel -> Style["viewing angle \[Theta]\[Degree]", 18]]; $CellContext`museumPlot = Plot[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`x]}, {$CellContext`x, 0, $CellContext`a$$}, AxesLabel -> {"x", None}, PlotRange -> {{-0.5, 20.2}, {0, 20.2}}, AspectRatio -> 1]; Text[ Pane[ Row[{ Show[$CellContext`museumPlot, $CellContext`painting, \ $CellContext`head, $CellContext`eye, $CellContext`body, $CellContext`leg1, \ $CellContext`leg2, $CellContext`arm1, $CellContext`angleMarker, ImageSize -> 300], Column[{ Show[$CellContext`viewPlot, $CellContext`point2, ImageSize -> 240], "", Style[ Row[{ Style["x", Italic], " = ", $CellContext`a$$, "'"}], 18], Style[ Row[{"viewing angle \[Theta] = ", N[ $CellContext`viewingAngle[$CellContext`a$$]], "\[Degree]"}], 18]}]}], ImageSize -> {560, 300}]]), "Specifications" :> {{{$CellContext`t$$, 4, "size of painting"}, 2, 8}, {{$CellContext`b$$, 8, "placement of painting"}, 6, 10}, {{$CellContext`a$$, 10, "distance from wall to eye, x"}, 0.01, 18}}, "Options" :> {TrackedSymbols -> True}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{603., {222.34375, 227.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->1097391636] }, Open ]], Cell[CellGroupData[{ Cell["", "SnapshotsSection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 4.58, $CellContext`b$$ = 8, $CellContext`t$$ = 4, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`t$$], 4, "size of painting"}, 2, 8}, {{ Hold[$CellContext`b$$], 8, "placement of painting"}, 6, 10}, {{ Hold[$CellContext`a$$], 4.58, "distance from wall to eye, x"}, 0.01, 18}}, Typeset`size$$ = {560., {149., 154.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$16014$$ = 0, $CellContext`b$16015$$ = 0, $CellContext`a$16016$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 4.58, $CellContext`b$$ = 8, $CellContext`t$$ = 4}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$16014$$, 0], Hold[$CellContext`b$$, $CellContext`b$16015$$, 0], Hold[$CellContext`a$$, $CellContext`a$16016$$, 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" :> ($CellContext`painting = Graphics[{ Thickness[0.03], Blue, Line[{{0, $CellContext`b$$}, { 0, $CellContext`b$$ + $CellContext`t$$}}], Blue, PointSize[0.05], Point[{0, $CellContext`b$$}], Blue, Point[{0, $CellContext`b$$ + $CellContext`t$$}]}]; \ $CellContext`head = Graphics[ Circle[{$CellContext`a$$ + 0.75, 4.75}, 0.75]]; $CellContext`eye = Graphics[{ PointSize[Large], Red, Point[{$CellContext`a$$, 5}]}]; $CellContext`body = Graphics[ Line[{{$CellContext`a$$ + 0.75, 2.25}, {$CellContext`a$$ + 0.75, 4}}]]; $CellContext`leg1 = Graphics[ Line[{{$CellContext`a$$ + 0.25, 0}, {$CellContext`a$$ + 0.75, 2.25}}]]; $CellContext`leg2 = Graphics[ Line[{{$CellContext`a$$ + 1.25, 0}, {$CellContext`a$$ + 0.75, 2.25}}]]; $CellContext`arm1 = Graphics[ Line[{{$CellContext`a$$ - 1, 4.5}, {$CellContext`a$$ + 0.75, 3}}]]; $CellContext`angleMarker = Graphics[{ Circle[{$CellContext`a$$, 5}, 5, { Pi - ArcTan[($CellContext`t$$ + $CellContext`b$$ - 5)/$CellContext`a$$], Pi - ArcTan[($CellContext`b$$ - 5)/$CellContext`a$$]}], Text["\[Theta]", {$CellContext`a$$ - 4 Cos[ ArcTan[($CellContext`t$$/2 + $CellContext`b$$ - 5)/$CellContext`a$$]], 5 + 4 Sin[ ArcTan[($CellContext`t$$/2 + $CellContext`b$$ - 5)/$CellContext`a$$]]}]}]; $CellContext`f[ Pattern[$CellContext`x$, Blank[]]] := ((-($CellContext`t$$ + $CellContext`b$$ - 5))/$CellContext`a$$) $CellContext`x$ + $CellContext`b$$ + \ $CellContext`t$$; $CellContext`g[ Pattern[$CellContext`x$, Blank[]]] := ((-($CellContext`b$$ - 5))/$CellContext`a$$) $CellContext`x$ + $CellContext`b$$; \ $CellContext`viewingAngle[ Pattern[$CellContext`x$, Blank[]]] := (180/Pi) ( ArcTan[($CellContext`t$$ + $CellContext`b$$ - 5)/$CellContext`x$] - ArcTan[($CellContext`b$$ - 5)/$CellContext`x$]); $CellContext`point2 = Graphics[{ PointSize[Large], Red, Point[{$CellContext`a$$, $CellContext`viewingAngle[$CellContext`a$$]}]}]; \ $CellContext`viewPlot = Plot[ $CellContext`viewingAngle[$CellContext`x], {$CellContext`x, 0, 20}, AxesOrigin -> {0, 0}, AxesLabel -> {"x", "\[Theta]"}, PlotLabel -> Style["viewing angle \[Theta]\[Degree]", 18]]; $CellContext`museumPlot = Plot[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`x]}, {$CellContext`x, 0, $CellContext`a$$}, AxesLabel -> {"x", None}, PlotRange -> {{-0.5, 20.2}, {0, 20.2}}, AspectRatio -> 1]; Text[ Pane[ Row[{ Show[$CellContext`museumPlot, $CellContext`painting, \ $CellContext`head, $CellContext`eye, $CellContext`body, $CellContext`leg1, \ $CellContext`leg2, $CellContext`arm1, $CellContext`angleMarker, ImageSize -> 300], Column[{ Show[$CellContext`viewPlot, $CellContext`point2, ImageSize -> 240], "", Style[ Row[{ Style["x", Italic], " = ", $CellContext`a$$, "'"}], 18], Style[ Row[{"viewing angle \[Theta] = ", N[ $CellContext`viewingAngle[$CellContext`a$$]], "\[Degree]"}], 18]}]}], ImageSize -> {560, 300}]]), "Specifications" :> {{{$CellContext`t$$, 4, "size of painting"}, 2, 8}, {{$CellContext`b$$, 8, "placement of painting"}, 6, 10}, {{$CellContext`a$$, 4.58, "distance from wall to eye, x"}, 0.01, 18}}, "Options" :> {TrackedSymbols -> True}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{603., {222.34375, 227.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->1271665816], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 18., $CellContext`b$$ = 8, $CellContext`t$$ = 4, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`t$$], 4, "size of painting"}, 2, 8}, {{ Hold[$CellContext`b$$], 8, "placement of painting"}, 6, 10}, {{ Hold[$CellContext`a$$], 18., "distance from wall to eye, x"}, 0.01, 18}}, Typeset`size$$ = {560., {149., 154.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$16076$$ = 0, $CellContext`b$16077$$ = 0, $CellContext`a$16078$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 18., $CellContext`b$$ = 8, $CellContext`t$$ = 4}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$16076$$, 0], Hold[$CellContext`b$$, $CellContext`b$16077$$, 0], Hold[$CellContext`a$$, $CellContext`a$16078$$, 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" :> ($CellContext`painting = Graphics[{ Thickness[0.03], Blue, Line[{{0, $CellContext`b$$}, { 0, $CellContext`b$$ + $CellContext`t$$}}], Blue, PointSize[0.05], Point[{0, $CellContext`b$$}], Blue, Point[{0, $CellContext`b$$ + $CellContext`t$$}]}]; \ $CellContext`head = Graphics[ Circle[{$CellContext`a$$ + 0.75, 4.75}, 0.75]]; $CellContext`eye = Graphics[{ PointSize[Large], Red, Point[{$CellContext`a$$, 5}]}]; $CellContext`body = Graphics[ Line[{{$CellContext`a$$ + 0.75, 2.25}, {$CellContext`a$$ + 0.75, 4}}]]; $CellContext`leg1 = Graphics[ Line[{{$CellContext`a$$ + 0.25, 0}, {$CellContext`a$$ + 0.75, 2.25}}]]; $CellContext`leg2 = Graphics[ Line[{{$CellContext`a$$ + 1.25, 0}, {$CellContext`a$$ + 0.75, 2.25}}]]; $CellContext`arm1 = Graphics[ Line[{{$CellContext`a$$ - 1, 4.5}, {$CellContext`a$$ + 0.75, 3}}]]; $CellContext`angleMarker = Graphics[{ Circle[{$CellContext`a$$, 5}, 5, { Pi - ArcTan[($CellContext`t$$ + $CellContext`b$$ - 5)/$CellContext`a$$], Pi - ArcTan[($CellContext`b$$ - 5)/$CellContext`a$$]}], Text["\[Theta]", {$CellContext`a$$ - 4 Cos[ ArcTan[($CellContext`t$$/2 + $CellContext`b$$ - 5)/$CellContext`a$$]], 5 + 4 Sin[ ArcTan[($CellContext`t$$/2 + $CellContext`b$$ - 5)/$CellContext`a$$]]}]}]; $CellContext`f[ Pattern[$CellContext`x$, Blank[]]] := ((-($CellContext`t$$ + $CellContext`b$$ - 5))/$CellContext`a$$) $CellContext`x$ + $CellContext`b$$ + \ $CellContext`t$$; $CellContext`g[ Pattern[$CellContext`x$, Blank[]]] := ((-($CellContext`b$$ - 5))/$CellContext`a$$) $CellContext`x$ + $CellContext`b$$; \ $CellContext`viewingAngle[ Pattern[$CellContext`x$, Blank[]]] := (180/Pi) ( ArcTan[($CellContext`t$$ + $CellContext`b$$ - 5)/$CellContext`x$] - ArcTan[($CellContext`b$$ - 5)/$CellContext`x$]); $CellContext`point2 = Graphics[{ PointSize[Large], Red, Point[{$CellContext`a$$, $CellContext`viewingAngle[$CellContext`a$$]}]}]; \ $CellContext`viewPlot = Plot[ $CellContext`viewingAngle[$CellContext`x], {$CellContext`x, 0, 20}, AxesOrigin -> {0, 0}, AxesLabel -> {"x", "\[Theta]"}, PlotLabel -> Style["viewing angle \[Theta]\[Degree]", 18]]; $CellContext`museumPlot = Plot[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`x]}, {$CellContext`x, 0, $CellContext`a$$}, AxesLabel -> {"x", None}, PlotRange -> {{-0.5, 20.2}, {0, 20.2}}, AspectRatio -> 1]; Text[ Pane[ Row[{ Show[$CellContext`museumPlot, $CellContext`painting, \ $CellContext`head, $CellContext`eye, $CellContext`body, $CellContext`leg1, \ $CellContext`leg2, $CellContext`arm1, $CellContext`angleMarker, ImageSize -> 300], Column[{ Show[$CellContext`viewPlot, $CellContext`point2, ImageSize -> 240], "", Style[ Row[{ Style["x", Italic], " = ", $CellContext`a$$, "'"}], 18], Style[ Row[{"viewing angle \[Theta] = ", N[ $CellContext`viewingAngle[$CellContext`a$$]], "\[Degree]"}], 18]}]}], ImageSize -> {560, 300}]]), "Specifications" :> {{{$CellContext`t$$, 4, "size of painting"}, 2, 8}, {{$CellContext`b$$, 8, "placement of painting"}, 6, 10}, {{$CellContext`a$$, 18., "distance from wall to eye, x"}, 0.01, 18}}, "Options" :> {TrackedSymbols -> True}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{603., {222.34375, 227.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->1130114568], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 15.04, $CellContext`b$$ = 6., $CellContext`t$$ = 7.11, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`t$$], 7.11, "size of painting"}, 2, 8}, {{ Hold[$CellContext`b$$], 6., "placement of painting"}, 6, 10}, {{ Hold[$CellContext`a$$], 15.04, "distance from wall to eye, x"}, 0.01, 18}}, Typeset`size$$ = {560., {149., 154.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$16138$$ = 0, $CellContext`b$16139$$ = 0, $CellContext`a$16140$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 15.04, $CellContext`b$$ = 6., $CellContext`t$$ = 7.11}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$16138$$, 0], Hold[$CellContext`b$$, $CellContext`b$16139$$, 0], Hold[$CellContext`a$$, $CellContext`a$16140$$, 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" :> ($CellContext`painting = Graphics[{ Thickness[0.03], Blue, Line[{{0, $CellContext`b$$}, { 0, $CellContext`b$$ + $CellContext`t$$}}], Blue, PointSize[0.05], Point[{0, $CellContext`b$$}], Blue, Point[{0, $CellContext`b$$ + $CellContext`t$$}]}]; \ $CellContext`head = Graphics[ Circle[{$CellContext`a$$ + 0.75, 4.75}, 0.75]]; $CellContext`eye = Graphics[{ PointSize[Large], Red, Point[{$CellContext`a$$, 5}]}]; $CellContext`body = Graphics[ Line[{{$CellContext`a$$ + 0.75, 2.25}, {$CellContext`a$$ + 0.75, 4}}]]; $CellContext`leg1 = Graphics[ Line[{{$CellContext`a$$ + 0.25, 0}, {$CellContext`a$$ + 0.75, 2.25}}]]; $CellContext`leg2 = Graphics[ Line[{{$CellContext`a$$ + 1.25, 0}, {$CellContext`a$$ + 0.75, 2.25}}]]; $CellContext`arm1 = Graphics[ Line[{{$CellContext`a$$ - 1, 4.5}, {$CellContext`a$$ + 0.75, 3}}]]; $CellContext`angleMarker = Graphics[{ Circle[{$CellContext`a$$, 5}, 5, { Pi - ArcTan[($CellContext`t$$ + $CellContext`b$$ - 5)/$CellContext`a$$], Pi - ArcTan[($CellContext`b$$ - 5)/$CellContext`a$$]}], Text["\[Theta]", {$CellContext`a$$ - 4 Cos[ ArcTan[($CellContext`t$$/2 + $CellContext`b$$ - 5)/$CellContext`a$$]], 5 + 4 Sin[ ArcTan[($CellContext`t$$/2 + $CellContext`b$$ - 5)/$CellContext`a$$]]}]}]; $CellContext`f[ Pattern[$CellContext`x$, Blank[]]] := ((-($CellContext`t$$ + $CellContext`b$$ - 5))/$CellContext`a$$) $CellContext`x$ + $CellContext`b$$ + \ $CellContext`t$$; $CellContext`g[ Pattern[$CellContext`x$, Blank[]]] := ((-($CellContext`b$$ - 5))/$CellContext`a$$) $CellContext`x$ + $CellContext`b$$; \ $CellContext`viewingAngle[ Pattern[$CellContext`x$, Blank[]]] := (180/Pi) ( ArcTan[($CellContext`t$$ + $CellContext`b$$ - 5)/$CellContext`x$] - ArcTan[($CellContext`b$$ - 5)/$CellContext`x$]); $CellContext`point2 = Graphics[{ PointSize[Large], Red, Point[{$CellContext`a$$, $CellContext`viewingAngle[$CellContext`a$$]}]}]; \ $CellContext`viewPlot = Plot[ $CellContext`viewingAngle[$CellContext`x], {$CellContext`x, 0, 20}, AxesOrigin -> {0, 0}, AxesLabel -> {"x", "\[Theta]"}, PlotLabel -> Style["viewing angle \[Theta]\[Degree]", 18]]; $CellContext`museumPlot = Plot[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`x]}, {$CellContext`x, 0, $CellContext`a$$}, AxesLabel -> {"x", None}, PlotRange -> {{-0.5, 20.2}, {0, 20.2}}, AspectRatio -> 1]; Text[ Pane[ Row[{ Show[$CellContext`museumPlot, $CellContext`painting, \ $CellContext`head, $CellContext`eye, $CellContext`body, $CellContext`leg1, \ $CellContext`leg2, $CellContext`arm1, $CellContext`angleMarker, ImageSize -> 300], Column[{ Show[$CellContext`viewPlot, $CellContext`point2, ImageSize -> 240], "", Style[ Row[{ Style["x", Italic], " = ", $CellContext`a$$, "'"}], 18], Style[ Row[{"viewing angle \[Theta] = ", N[ $CellContext`viewingAngle[$CellContext`a$$]], "\[Degree]"}], 18]}]}], ImageSize -> {560, 300}]]), "Specifications" :> {{{$CellContext`t$$, 7.11, "size of painting"}, 2, 8}, {{$CellContext`b$$, 6., "placement of painting"}, 6, 10}, {{$CellContext`a$$, 15.04, "distance from wall to eye, x"}, 0.01, 18}}, "Options" :> {TrackedSymbols -> True}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{603., {222.34375, 227.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->1490170308] }, Open ]], Cell["", "DetailsSection"], Cell[CellGroupData[{ Cell["", "ControlSuggestionsSection"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[True], Cell[" Resize Images"]}], "\"Click inside an image to reveal its orange resize frame.\\nDrag any of \ the orange resize handles to resize the image.\""]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.459785916792686*^9}, FontFamily->"Verdana", CellTags->"ResizeImages"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Rotate and Zoom in 3D"]}], RowBox[{ "\"Drag a 3D graphic to rotate it. Starting the drag near the center \ tumbles\\nthe graphic; starting near a corner turns it parallel to the plane \ of the screen.\\nHold down \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" (or \"", FrameBox[ "Cmd", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" on Mac) and drag up and down to zoom.\""}]]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"RotateAndZoomIn3D"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Drag Locators"]}], RowBox[{"\"Drag any locator (\"", GraphicsBox[ LocatorBox[ Scaled[{0.5, 0.5}]], ImageSize -> 20], "\", etc.) to move it around.\""}]]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"DragLocators"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Create and Delete Locators"]}], RowBox[{"\"Insert a new locator in the graphic by holding down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key\\nand clicking where you want it to be. Delete a locator by \ clicking it\\nwhile holding down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key.\""}]]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"CreateAndDeleteLocators"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[True], Cell[" Slider Zoom"]}], RowBox[{"\"Hold down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key while moving a slider to make fine adjustments in the slider \ value.\\nHold \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" and/or \"", FrameBox[ "Shift", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" at the same time as \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" to make ever finer adjustments.\""}]]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.459785918511436*^9}, FontFamily->"Verdana", CellTags->"SliderZoom"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Gamepad Controls"]}], "\"Control this Demonstration with a gamepad or other\\nhuman interface \ device connected to your computer.\""]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.3895522232313623`*^9}, FontFamily->"Verdana", CellTags->"GamepadControls"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[True], Cell[" Automatic Animation"]}], RowBox[{"\"Animate a slider in this Demonstration by clicking the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwcIKwAgOI/R/IhBKc\n\ /4EAyGAG0f+nTZsGwgysIJIRKsWKLAXGIHFmEpUgLADxWUAkI24jZs+eTaEt\n\ IG+wQKRmzJgBlYf5lhEA30OqWA=="], "Graphics", ImageSize -> {9, 9}, ImageMargins -> 0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"button\\nnext to the slider, and then clicking the play button that \ appears.\\nAnimate all controls by selecting \"", StyleBox["Autorun", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}]]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.459785919698936*^9}, FontFamily->"Verdana", CellTags->"AutomaticAnimation"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Bookmark Animation"]}], RowBox[{ "\"See a prepared animation of this Demonstration by selecting\\n\"", StyleBox["Animate Bookmarks", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}]]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"BookmarkAnimation"] }, Open ]], Cell[CellGroupData[{ Cell["", "SearchTermsSection"], Cell["optimization", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.45968121875*^9, 3.459681220765625*^9}}, CellID->87571998], Cell["max-min", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.459681221234375*^9, 3.459681222703125*^9}}, CellID->316787562] }, Open ]], Cell[CellGroupData[{ Cell["", "RelatedLinksSection"], Cell[TextData[ButtonBox["Derivative", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/Derivative.html"], None}, ButtonNote->"http://mathworld.wolfram.com/Derivative.html"]], "RelatedLinks", CellID->437381120] }, Open ]], Cell[CellGroupData[{ Cell["", "AuthorSection"], Cell[TextData[{ "Contributed by: ", ButtonBox["Marc Brodie", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/author.html?author=Marc+Brodie"], None}, ButtonNote-> "http://demonstrations.wolfram.com/author.html?author=Marc+Brodie"], " (Wheeling Jesuit University)" }], "Author", CellChangeTimes->{ 3.35696210375764*^9, {3.432333043774981*^9, 3.432333045441087*^9}, { 3.459681258359375*^9, 3.459681267109375*^9}}] }, Open ]] }, Open ]] }, WindowSize->{761, 676}, WindowMargins->{{10, Automatic}, {Automatic, 0}}, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Demonstration.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "ResizeImages"->{ Cell[41638, 982, 352, 8, 29, "ControlSuggestions", CellTags->"ResizeImages"]}, "RotateAndZoomIn3D"->{ Cell[41993, 992, 661, 16, 29, "ControlSuggestions", CellTags->"RotateAndZoomIn3D"]}, "DragLocators"->{ Cell[42657, 1010, 318, 10, 29, "ControlSuggestions", CellTags->"DragLocators"]}, "CreateAndDeleteLocators"->{ Cell[42978, 1022, 615, 14, 29, "ControlSuggestions", CellTags->"CreateAndDeleteLocators"]}, "SliderZoom"->{ Cell[43596, 1038, 889, 22, 29, "ControlSuggestions", CellTags->"SliderZoom"]}, "GamepadControls"->{ Cell[44488, 1062, 347, 8, 29, "ControlSuggestions", CellTags->"GamepadControls"]}, "AutomaticAnimation"->{ Cell[44838, 1072, 1504, 31, 29, "ControlSuggestions", CellTags->"AutomaticAnimation"]}, "BookmarkAnimation"->{ Cell[46345, 1105, 886, 20, 29, "ControlSuggestions", CellTags->"BookmarkAnimation"]} } *) (*CellTagsIndex CellTagsIndex->{ {"ResizeImages", 48818, 1187}, {"RotateAndZoomIn3D", 48926, 1190}, {"DragLocators", 49035, 1193}, {"CreateAndDeleteLocators", 49151, 1196}, {"SliderZoom", 49265, 1199}, {"GamepadControls", 49371, 1202}, {"AutomaticAnimation", 49484, 1205}, {"BookmarkAnimation", 49601, 1208} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 152, 2, 74, "DemoTitle"], Cell[722, 26, 33, 0, 266, "InitializationSection"], Cell[CellGroupData[{ Cell[780, 30, 29, 0, 188, "ManipulateSection"], Cell[CellGroupData[{ Cell[834, 34, 10257, 282, 504, "Input"], Cell[11094, 318, 5925, 124, 462, "Output", CellID->592421704] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17068, 448, 36, 0, 166, "ManipulateCaptionSection"], Cell[17107, 450, 539, 9, 49, "ManipulateCaption"] }, Open ]], Cell[CellGroupData[{ Cell[17683, 464, 28, 0, 168, "ThumbnailSection"], Cell[17714, 466, 5926, 124, 462, "Output", CellID->1097391636] }, Open ]], Cell[CellGroupData[{ Cell[23677, 595, 28, 0, 138, "SnapshotsSection"], Cell[23708, 597, 5934, 124, 462, "Output", CellID->1271665816], Cell[29645, 723, 5930, 124, 462, "Output", CellID->1130114568], Cell[35578, 849, 5954, 124, 462, "Output", CellID->1490170308] }, Open ]], Cell[41547, 976, 26, 0, 332, "DetailsSection"], Cell[CellGroupData[{ Cell[41598, 980, 37, 0, 108, "ControlSuggestionsSection"], Cell[41638, 982, 352, 8, 29, "ControlSuggestions", CellTags->"ResizeImages"], Cell[41993, 992, 661, 16, 29, "ControlSuggestions", CellTags->"RotateAndZoomIn3D"], Cell[42657, 1010, 318, 10, 29, "ControlSuggestions", CellTags->"DragLocators"], Cell[42978, 1022, 615, 14, 29, "ControlSuggestions", CellTags->"CreateAndDeleteLocators"], Cell[43596, 1038, 889, 22, 29, "ControlSuggestions", CellTags->"SliderZoom"], Cell[44488, 1062, 347, 8, 29, "ControlSuggestions", CellTags->"GamepadControls"], Cell[44838, 1072, 1504, 31, 29, "ControlSuggestions", CellTags->"AutomaticAnimation"], Cell[46345, 1105, 886, 20, 29, "ControlSuggestions", CellTags->"BookmarkAnimation"] }, Open ]], Cell[CellGroupData[{ Cell[47268, 1130, 30, 0, 152, "SearchTermsSection"], Cell[47301, 1132, 140, 3, 21, "SearchTerms", CellID->87571998], Cell[47444, 1137, 140, 3, 21, "SearchTerms", CellID->316787562] }, Open ]], Cell[CellGroupData[{ Cell[47621, 1145, 31, 0, 138, "RelatedLinksSection"], Cell[47655, 1147, 239, 5, 21, "RelatedLinks", CellID->437381120] }, Open ]], Cell[CellGroupData[{ Cell[47931, 1157, 25, 0, 136, "AuthorSection"], Cell[47959, 1159, 467, 13, 21, "Author"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)