(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 29350, 759] NotebookOptionsPosition[ 28187, 714] NotebookOutlinePosition[ 28825, 739] CellTagsIndexPosition[ 28782, 736] WindowTitle->The Wire Problem - Source WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["The Wire Problem", "Section", CellFrame->{{0, 0}, {0, 0}}, ShowCellBracket->False, FontColor->RGBColor[0.597406, 0, 0.0527047]], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJztnVuSozgWQDNiPqa3MJ+zpVlCbaB3WlGVNV9dvYH6TQRUph/ZGIHQmwvG xoZzQu3Aku7VfUj4Nk53//fLn//78q+Xl5f/NP/88e+Xl8v154Xj5+fp89y0 4+X63L7VnQu02XqOt9FzjRK5qtRMoYZFpk11/Ji+WDye92+r7+fFfbnGkuu9 eIQ4LBVJ+YRo5DPnRdITDp0TLRg6m/62nY/n08f5+H461G37fWqum57z4Xy2 jby0prMZOh4/jodLOx2bt6fzRSEA3B/KMKGSBy/DSKVcyYOn8krHqajvqed6 G6iol4qkfAIVNQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADsizPA/lj72AEA AMCmWLu0AXh01j6jAAAAcdb+hNwUJ5e1zZnPDEeey/e1jx0AAABsirVLm03x XFVlhs1X1JNY+4wCAAB02B9PJ4BdsvYpBAAAgOeGihpADo9GAUDIr+Lnr7ef a9vw16/i73VtMPx6+2v1gGwMijeAE89FAQA2DRW1BxX14lBRA0wi+lx0baMA AAAAAAAAAAAAbkj0uegR4L4cDoe1TYA1YQMAbIaDy9rm3JU9+w4AjwB3np3D BgDYDHuuKu/su3k0ynNRACGLHMy93dm2ijCPpHvD7LliAQAAmA0VNRioqIGK GlYk9Vz0AAAAAAAAAAAAALBR9KPR8Kf0a9sFAAAAAAAAAAAAcCt4LgoAAAAA AAAAAAB7I/Vc9ONheH9/X9uEzUJsZ0PoAGBZ3gNuLQgggR21GUjl7SC2syF0 ALAsVNQgxMv14XAI/xOja9sIAAAAT0lYWM5jbT/msGffAQAAAGAp9lxV3sF3 b1r0uehSZgAAAAAAAAAAAAA8Ar9b6rpuXpu3+tf0PBcFWJcFvxYBAAAAANgh VNQAADCK5LnobwAAAAAAAAAAAIANUbcPRav+wehH7LmoUqpsqKqmNTSXRVE0 by593mtRXlrfo7mImTlVN6ebUOhR07q3jmxVWXqquqxVOUjZq1eDVNe662ro Nxe1Xr5o2lt5cUc7VWr3BpGindNL6TkDl5nVIGWtbuaXWbwJo/OVKjSX68oL shMTO4ylHf+yy5GbhU5EubJJPeWgx5ayBfvOIR2qD5QJXWmFtJs2pLsLvu40 4oOesh/tJ3TKW/3DomZONgVdVPtNXvVXYWydyBRl/NWNWNW62L06G344TcNW L/SVpaTqcmeOWGWOm3W+TFPWsbL8dE1yklUal73ghDtBH+Hu1dE/HBM7/t7h sjNoN29Calrl2GadWfsMeoc0elcR584clrm5qzO5a+5mQe4imy2Tu1qcu+g2 7od7mkvVtqJtajgInQuqzUrRtWFCzIAkzQdK0/RR1U33JEhtgOhosnmLKtX0 DArVhaJHtZOlmgPbVN+mWZhRGzNvEc13MD61kIRcEPS2WciRp/C97a0ow569 DCOVRurZU0lFnUoBFbWkKiv7I0xFLc4dFXUAFfVUtVTUYRD2V1EnfTd7u920 v+va/NXoSXM86qXVwFtzgNvS7vJG3730Ga76Wkq/6lFz3dlWOa+69XpUOSix ixQtrrVV1pxBleO+uesMsv6QjenXF+bViFjGO5rtObaUp7bVoENe21Kqy1Un 1M8xOaxNftysOh61q5joKStQpbkIQ2p54HRWXcqsOsbVU7oZNBr8Fbv+yotk GBkvbuFbu9/LkY6DF3ZvTvqtOVXdBi0dlN6WZekEsHfQ2flmjpnQ+25vfn// 2yH1eswnokp/tNkpsJNrTqJruX4tzAkKBJXJVdUbbJmtrwtrUfuoGm2Ru5S3 AcrEGQyPld3jzbFTH+oP+is3d+XVuev2wI1zN9w8rZM1I3dFf203xxKvuUyT TevJkd8JSzF7iVHBzJa+D0vFZJLapawNh6xiQ91ixaf03R+lDHvaMqwPCKl8 +lRGgkZF3W3Q0oGKmoq685yKmoo6L5jZ0vdhqZhMUruUteEQFfUk37VU98C8 qRvq+uPjQz8UPZ/P+snoZYIqVAwtaFY0r+E0+8l8VIM3Gs70JkelUoLR0XBm 2X5dldcmWS5lQ2r1jDue+DBaRvrzvidVpc2WOKJicRvVZu+HaFqjgpngC/MS Fek2rRvSjKCy9rnxfepWFFKokVMzWaEsU9GDbEYnbfuoYOpGkdcwql/Sv+fc CVdJcY1a+Yo3WuUaZsfE+9S+j3mTRuFZoAxL9eTtFK6ecccTH0bnlmGkMtXz dKnMLCTpifZTUUfnyNOR4QGrstQuHTXGFqSiXiV3wlVSXKNWvuKNVrmG2TGh ooZb0+T0rUWf/br9e1HvuWjR/z1/+JOUIujKPxYu+l9YCEX0kGVARDxjjHxa ygZv6ejF6KiE0cfp0eUk6JMrmVamQx1qkPTIRzNSo4LC0OnbV7S/tD7WRw32 ElFYP1/y7EkZn09lPhHedej7vDiHSkbzq79YsWcWfUUUzYgXf7mdqa04eiK0 ebYxe86d9yE+T3n+OzuVqHbMx01Up/kkCud7Q0ZJ5uvCRQhNGvVCoueayK9O mKP8qDDd9szol7b5AM5LSup0P7LvxXBX8dWGvlCGTTJm1IBwianK3QySyo2k clR/KtShBkmPfDQjNSpIRS0xexJRy8NjS0UtMfVBcmegoh6FijrkEarKPVfU Gd89w+rwd/Tt34uq/kuT6C2xsG5WhXvLsu+KUb+8/kxsvQMryUIxdp8PLc/c FiblXaJEcgvKuODFf54N8yYXwYejZ2fUbO8i5b7kXwRSPfJtFu1JWZ7BtlZu eRg9XXJEbcuriorIU2xkjYjQi2hJFjXeFvFmhjeNUWu9HhO3/LQoe8tdSKqC ys+f+tE5aZVoBSU0T87U+sr2emq4Ur7k9eQrhydiaqiF3LqSX4QFfacMk684 yaT7l2GkUr7iJJOoqKMrUlGPritxZ9RyT9aIUFHn133e3IVQUQvVUlHPhor6 1r6r/k9G9X1A/47+dDrZ/9+lb9++vbr8+PHDe7X7w077rafHU+JNTo1GF/Wu U52hhtCjqGEZJVGdoZsp5ZmZoRe2kc3Fd0tnKGKvJQ9UKr8pRh15dY0MZTOO e/pTa43OSUmFpn5Pbzzv7agveTNCJRnZ70FCX4OU5ZWn9KfiELrpLZ3aIZn0 RYmGN+NRPsIpd7y19pa7qIhQZ15coicVmamMLjpb1SLmLUgmzlOtzau6RRAm bYxFTJoh9Vy+U4aNKonqDN1MKc/MDL2wjXydWIaRylElz5LKVExSS2Scigqm HHl1jQxlM457+lNrjc5JSYWmUlF7jqQ2RmqHZNIXJRrejEf5CKfc8dbaW+6i IkKdeXGJnlRkpjK66GxVi5i3IJk4T7U2r+oWQZi0MRYxaYbUZnyPLvH/lte2 FP/69esnAAAAAAAAAAAAwM74B4thROM= "], {{0, 0}, {1800, 25}}, {0, 255}, ColorFunction->RGBColor], ImageSize->{1800, 25}, PlotRange->{{0, 1800}, {0, 25}}]], "Section", CellFrame->{{0, 0}, {0, 0}}, ShowCellBracket->False], Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"square", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3.5", "-", RowBox[{"x", "/", "8"}]}], ",", RowBox[{"1.5", "-", RowBox[{"x", "/", "8"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3.5", "-", RowBox[{"x", "/", "8"}]}], ",", RowBox[{"1.5", "+", RowBox[{"x", "/", "8"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3.5", "+", RowBox[{"x", "/", "8"}]}], ",", RowBox[{"1.5", "+", RowBox[{"x", "/", "8"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3.5", "+", RowBox[{"x", "/", "8"}]}], ",", RowBox[{"1.5", "-", RowBox[{"x", "/", "8"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3.5", "-", RowBox[{"x", "/", "8"}]}], ",", RowBox[{"1.5", "-", RowBox[{"x", "/", "8"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"circle", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", "Thick", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "1.5"}], "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{"10", "-", "x"}], ")"}], "/", RowBox[{"(", RowBox[{"2", "Pi"}], ")"}]}]}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equilateral1", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"6", "-", RowBox[{ RowBox[{"(", RowBox[{"10", "-", "x"}], ")"}], "/", "6"}]}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"6", "+", RowBox[{ RowBox[{"(", RowBox[{"10", "-", "x"}], ")"}], "/", "6"}]}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "3", "]"}], RowBox[{ RowBox[{"(", RowBox[{"10", "-", "x"}], ")"}], "/", "6"}]}], "+", "0.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"6", "-", RowBox[{ RowBox[{"(", RowBox[{"10", "-", "x"}], ")"}], "/", "6"}]}], ",", "0.5"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equilateral2", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4", "-", RowBox[{"x", "/", "6"}]}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4", "+", RowBox[{"x", "/", "6"}]}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"0.5", "+", RowBox[{ RowBox[{"Sqrt", "[", "3", "]"}], RowBox[{"x", "/", "6"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4", "-", RowBox[{"x", "/", "6"}]}], ",", "0.5"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"TotalArea1", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "/", "16"}], "+", RowBox[{"Pi", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"10", "-", "x"}], ")"}], "/", RowBox[{"(", RowBox[{"2", "Pi"}], ")"}]}], ")"}], "^", "2"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"TotalArea2", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "/", "16"}], "+", RowBox[{ RowBox[{"1", "/", "2"}], "*", RowBox[{ RowBox[{"(", RowBox[{"10", "-", "x"}], ")"}], "/", "3"}], "*", RowBox[{"Sqrt", "[", "3", "]"}], RowBox[{ RowBox[{"(", RowBox[{"10", "-", "x"}], ")"}], "/", "6"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"TotalArea3", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "*", RowBox[{"x", "/", "3"}], "*", RowBox[{"Sqrt", "[", "3", "]"}], RowBox[{"x", "/", "6"}]}], "+", RowBox[{"Pi", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"10", "-", "x"}], ")"}], "/", RowBox[{"(", RowBox[{"2", "Pi"}], ")"}]}], ")"}], "^", "2"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Switch", "[", RowBox[{"figs", ",", "1", ",", RowBox[{ RowBox[{ RowBox[{"area", "[", "x_", "]"}], ":=", RowBox[{"TotalArea1", "[", "x", "]"}]}], ";", RowBox[{"figure1", "=", "square"}], ";", RowBox[{"figure2", "=", "circle"}], ";", RowBox[{"fig1", "=", "\"\\""}], ";", RowBox[{"fig2", "=", "\"\\""}], ";", RowBox[{"color1", "=", "Blue"}], ";", RowBox[{"color2", "=", "Red"}]}], ",", "\[IndentingNewLine]", "2", ",", RowBox[{ RowBox[{ RowBox[{"area", "[", "x_", "]"}], ":=", RowBox[{"TotalArea2", "[", "x", "]"}]}], ";", RowBox[{"figure1", "=", "square"}], ";", RowBox[{"figure2", "=", "equilateral1"}], ";", RowBox[{"fig1", "=", "\"\\""}], ";", RowBox[{"fig2", "=", "\"\\""}], ";", RowBox[{"color1", "=", "Blue"}], ";", RowBox[{"color2", "=", "Green"}]}], ",", "\[IndentingNewLine]", "3", ",", RowBox[{ RowBox[{ RowBox[{"area", "[", "x_", "]"}], ":=", RowBox[{"TotalArea3", "[", "x", "]"}]}], ";", RowBox[{"figure1", "=", "equilateral2"}], ";", RowBox[{"figure2", "=", "circle"}], ";", RowBox[{"fig1", "=", "\"\\""}], ";", RowBox[{"fig2", "=", "\"\\""}], ";", RowBox[{"color1", "=", "Green"}], ";", RowBox[{"color2", "=", "Red"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"pointOnTotalAreaCurve", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"x", ",", RowBox[{"area", "[", "x", "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TotalAreaPlot", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"area", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "9"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "None"}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"area", "[", "x", "]"}]}], "}"}], "]"}], ",", "18"}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "270"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wire1", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"color1", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "4"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wire2", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"color2", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pointOnWire", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"x", ",", "4"}], "}"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Text", "@", RowBox[{"Pane", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "fig1", ",", "\"\<, \>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = \>\"", ",", "x"}], "}"}], "]"}], ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "fig2", ",", "\"\< = \>\"", ",", RowBox[{"10", "-", "x"}]}], "}"}], "]"}], ",", "14"}], "]"}], ",", "\"\< \>\"", ",", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "figure1", ",", "figure2", ",", "wire1", ",", "wire2", ",", "pointOnWire", ",", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "3.9"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "4.2"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Show", "[", RowBox[{"TotalAreaPlot", ",", "pointOnTotalAreaCurve"}], "]"}]}], "}"}], "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"580", ",", "200"}], "}"}]}]}], "]"}]}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"figs", ",", "1", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "\"\\""}], ",", RowBox[{"2", "\[Rule]", "\"\\""}], ",", RowBox[{"3", "\[Rule]", "\"\\""}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "5.5"}], "}"}], ",", "0", ",", "10"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"TrackedSymbols", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{ 3.35696210375764*^9, 3.4674690628125*^9, {3.46749619165625*^9, 3.467496197140625*^9}, {3.467657405642308*^9, 3.4676574278281956`*^9}, { 3.4676574822953744`*^9, 3.467657494405859*^9}, {3.4676575306623087`*^9, 3.4676575308823175`*^9}, {3.467657602821284*^9, 3.467657630305032*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`figs$$ = 3, $CellContext`x$$ = 4.7, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`figs$$], 1, "figures"}, { 1 -> "square and circle", 2 -> "square and triangle", 3 -> "triangle and circle"}}, {{ Hold[$CellContext`x$$], 5.5}, 0, 10}}, Typeset`size$$ = { 580., {98., 104.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`figs$312904$$ = False, $CellContext`x$312905$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`figs$$ = 1, $CellContext`x$$ = 5.5}, "ControllerVariables" :> { Hold[$CellContext`figs$$, $CellContext`figs$312904$$, False], Hold[$CellContext`x$$, $CellContext`x$312905$$, 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`square = Graphics[{Blue, Thick, Line[{{3.5 - $CellContext`x$$/8, 1.5 - $CellContext`x$$/8}, { 3.5 - $CellContext`x$$/8, 1.5 + $CellContext`x$$/8}, { 3.5 + $CellContext`x$$/8, 1.5 + $CellContext`x$$/8}, { 3.5 + $CellContext`x$$/8, 1.5 - $CellContext`x$$/8}, { 3.5 - $CellContext`x$$/8, 1.5 - $CellContext`x$$/ 8}}]}]; $CellContext`circle = Graphics[{Red, Thick, Circle[{6, 1.5}, (10 - $CellContext`x$$)/(2 Pi)]}]; $CellContext`equilateral1 = Graphics[{Green, Thick, Line[{{6 - (10 - $CellContext`x$$)/6, 0.5}, { 6 + (10 - $CellContext`x$$)/6, 0.5}, { 6, Sqrt[3] ((10 - $CellContext`x$$)/6) + 0.5}, { 6 - (10 - $CellContext`x$$)/6, 0.5}}]}]; $CellContext`equilateral2 = Graphics[{Green, Thick, Line[{{4 - $CellContext`x$$/6, 0.5}, { 4 + $CellContext`x$$/6, 0.5}, { 4, 0.5 + Sqrt[3] ($CellContext`x$$/6)}, { 4 - $CellContext`x$$/6, 0.5}}]}]; $CellContext`TotalArea1[ Pattern[$CellContext`x, Blank[]]] := $CellContext`x^2/16 + Pi ((10 - $CellContext`x)/(2 Pi))^2; $CellContext`TotalArea2[ Pattern[$CellContext`x, Blank[]]] := $CellContext`x^2/ 16 + (((1/2) ((10 - $CellContext`x)/3)) Sqrt[3]) ((10 - $CellContext`x)/6); $CellContext`TotalArea3[ Pattern[$CellContext`x, Blank[]]] := (((1/2) ($CellContext`x/3)) Sqrt[3]) ($CellContext`x/ 6) + Pi ((10 - $CellContext`x)/(2 Pi))^2; Switch[$CellContext`figs$$, 1, $CellContext`area[ Pattern[$CellContext`x, Blank[]]] := $CellContext`TotalArea1[$CellContext`x]; \ $CellContext`figure1 = $CellContext`square; $CellContext`figure2 = \ $CellContext`circle; $CellContext`fig1 = "square"; $CellContext`fig2 = "circle"; $CellContext`color1 = Blue; $CellContext`color2 = Red, 2, $CellContext`area[ Pattern[$CellContext`x, Blank[]]] := $CellContext`TotalArea2[$CellContext`x]; \ $CellContext`figure1 = $CellContext`square; $CellContext`figure2 = \ $CellContext`equilateral1; $CellContext`fig1 = "square"; $CellContext`fig2 = "triangle"; $CellContext`color1 = Blue; $CellContext`color2 = Green, 3, $CellContext`area[ Pattern[$CellContext`x, Blank[]]] := $CellContext`TotalArea3[$CellContext`x]; \ $CellContext`figure1 = $CellContext`equilateral2; $CellContext`figure2 = \ $CellContext`circle; $CellContext`fig1 = "triangle"; $CellContext`fig2 = "circle"; $CellContext`color1 = Green; $CellContext`color2 = Red]; $CellContext`pointOnTotalAreaCurve = Graphics[{ PointSize[Large], Point[{$CellContext`x$$, $CellContext`area[$CellContext`x$$]}]}]; \ $CellContext`TotalAreaPlot = Plot[ $CellContext`area[$CellContext`x$$], {$CellContext`x$$, 0, 10}, PlotRange -> {0, 9}, AxesLabel -> { Style["x", Italic], None}, PlotLabel -> Style[ Row[{"total area = ", $CellContext`area[$CellContext`x$$]}], 18], ImageSize -> 270]; $CellContext`wire1 = Graphics[{$CellContext`color1, Thick, Line[{{0, 4}, {$CellContext`x$$, 4}}]}]; $CellContext`wire2 = Graphics[{$CellContext`color2, Thick, Line[{{$CellContext`x$$, 4}, {10, 4}}]}]; $CellContext`pointOnWire = Graphics[{ PointSize[Large], Point[{$CellContext`x$$, 4}]}]; Text[ Pane[ Grid[{{ Column[{ Style[ Row[{"length of wire to ", $CellContext`fig1, ", ", Style["x", Italic], " = ", $CellContext`x$$}], 14], Style[ Row[{"length of wire to ", $CellContext`fig2, " = ", 10 - $CellContext`x$$}], 14], " ", Show[$CellContext`figure1, $CellContext`figure2, \ $CellContext`wire1, $CellContext`wire2, $CellContext`pointOnWire, Axes -> {True, False}, AxesOrigin -> {0, 3.9}, PlotRange -> {{0, 10}, {-0.2, 4.2}}, ImageSize -> 300]}], Show[$CellContext`TotalAreaPlot, \ $CellContext`pointOnTotalAreaCurve]}}], ImageSize -> {580, 200}]]), "Specifications" :> {{{$CellContext`figs$$, 1, "figures"}, { 1 -> "square and circle", 2 -> "square and triangle", 3 -> "triangle and circle"}}, {{$CellContext`x$$, 5.5}, 0, 10}}, "Options" :> {TrackedSymbols -> True}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{625., {155., 160.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->824691502], Cell[CellGroupData[{ Cell["CAPTION", "Section", CellFrame->{{0, 0}, {1, 0}}, CellFrameColor->RGBColor[0.87, 0.87, 0.87], FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->RGBColor[0.597406, 0, 0.0527047]], Cell["\<\ A standard optimization problem in first-semester calculus is to maximize and \ minimize the total area of two geometric figures made from a fixed length of \ wire cut into two pieces. This Demonstration illustrates that problem using a \ wire of length 10 and three pairs of geometric figures.\ \>", "Text"] }, Close]] }, Open ]], Cell[CellGroupData[{ Cell["THIS NOTEBOOK IS THE SOURCE CODE FROM", "Text", CellFrame->{{0, 0}, {0, 0}}, CellMargins->{{48, 10}, {4, 28}}, CellGroupingRules->{"SectionGrouping", 25}, CellFrameMargins->{{48, 48}, {6, 5}}, CellFrameColor->RGBColor[0.87, 0.87, 0.87], FontFamily->"Helvetica", FontSize->10, FontWeight->"Bold", FontColor->RGBColor[0.597406, 0, 0.0527047]], Cell[TextData[{ "\"", ButtonBox["The Wire Problem", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/TheWireProblem/"], None}, ButtonNote->"http://demonstrations.wolfram.com/TheWireProblem/"], "\"", " from ", ButtonBox["the Wolfram Demonstrations Project", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], "\[ParagraphSeparator]\[NonBreakingSpace]", ButtonBox["http://demonstrations.wolfram.com/TheWireProblem/", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/TheWireProblem/"], None}, ButtonNote->"http://demonstrations.wolfram.com/TheWireProblem/"] }], "Text", CellMargins->{{48, Inherited}, {0, Inherited}}, FontFamily->"Verdana", FontSize->10, FontColor->GrayLevel[0.5]], 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)" }], "Text", CellDingbat->"\[FilledSmallSquare]", CellMargins->{{66, 48}, {2, 4}}, FontFamily->"Verdana", FontSize->10, FontColor->GrayLevel[0.6]], Cell[CellGroupData[{ Cell[TextData[{ "A full-function Wolfram ", StyleBox["Mathematica", FontSlant->"Italic"], " system (Version 6 or higher) is required to edit this notebook.\n", StyleBox[ButtonBox["GET WOLFRAM MATHEMATICA \[RightGuillemet]", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.wolfram.com/products/mathematica/"], None}, ButtonNote->"http://www.wolfram.com/products/mathematica/"], FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[1, 0.42, 0]] }], "Text", CellFrame->True, CellMargins->{{48, 68}, {8, 28}}, CellFrameMargins->12, CellFrameColor->RGBColor[0.87, 0.87, 0.87], CellChangeTimes->{3.3750111182355957`*^9}, ParagraphSpacing->{1., 1.}, FontFamily->"Verdana", FontSize->10, FontColor->GrayLevel[0.411765], Background->RGBColor[1, 1, 1]], Cell[TextData[{ "\[Copyright] ", StyleBox[ButtonBox["Wolfram Demonstrations Project & Contributors", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], FontColor->GrayLevel[0.6]], "\[ThickSpace]\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\ \[ThickSpace]", StyleBox[ButtonBox["Terms of Use", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/termsofuse.html"], None}, ButtonNote->"http://demonstrations.wolfram.com/termsofuse.html"], FontColor->GrayLevel[0.6]], "\[ThickSpace]\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\ \[ThickSpace]", StyleBox[ButtonBox["Make a new version of this Demonstration \ \[RightGuillemet]", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/participate/upload.jsp?id=\ TheWireProblem"], None}, ButtonNote->None], FontColor->GrayLevel[0.6]] }], "Text", CellFrame->{{0, 0}, {0, 0.5}}, CellMargins->{{48, 10}, {20, 50}}, CellFrameMargins->{{6, 0}, {6, 6}}, CellFrameColor->GrayLevel[0.6], FontFamily->"Verdana", FontSize->9, FontColor->GrayLevel[0.6]] }, Open ]] }, Open ]] }, Editable->True, Saveable->False, ScreenStyleEnvironment->"Working", CellInsertionPointCell->None, WindowSize->{780, 650}, WindowMargins->{{Inherited, Inherited}, {Inherited, 0}}, WindowElements->{ "StatusArea", "MemoryMonitor", "MagnificationPopUp", "VerticalScrollBar", "MenuBar"}, WindowTitle->"The Wire Problem - Source", DockedCells->{}, CellContext->Notebook, FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[618, 23, 136, 3, 70, "Section"], Cell[757, 28, 3700, 64, 70, "Section"], Cell[4460, 94, 12878, 346, 70, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[17375, 445, 6464, 127, 70, "Output", CellID->824691502], Cell[CellGroupData[{ Cell[23864, 576, 209, 6, 70, "Section"], Cell[24076, 584, 318, 5, 70, "Text"] }, Close]] }, Open ]], Cell[CellGroupData[{ Cell[24442, 595, 355, 9, 70, "Text", CellGroupingRules->{"SectionGrouping", 25}], Cell[24800, 606, 863, 24, 70, "Text"], Cell[25666, 632, 464, 15, 70, "Text"], Cell[CellGroupData[{ Cell[26155, 651, 815, 24, 70, "Text"], Cell[26973, 677, 1186, 33, 70, "Text"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature 3SzecjC1RvOK5BT2a6vSLugM *)