(* 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[ 54463, 1324] NotebookOptionsPosition[ 53272, 1279] NotebookOutlinePosition[ 53931, 1304] CellTagsIndexPosition[ 53888, 1301] WindowTitle->The Greatest Fenced Area along a Barn - Source WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["The Greatest Fenced Area along a Barn", "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[{"Pane", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Column", "[", RowBox[{"{", "\t\t", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", " ", "\[IndentingNewLine]", "\t\t", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.25", "]"}], ",", "Blue", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "50"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"150", ",", "30"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.75", "]"}], ",", RowBox[{"Darker", "[", "Green", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "50"}], ",", RowBox[{"-", "30"}]}], "}"}], ",", RowBox[{"{", RowBox[{"150", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", "Tractor", "*)"}], " ", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "2"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"52", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"57", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"48", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"57", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", "\t", "\[IndentingNewLine]", "\t\t\t", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Gray", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"55", ",", RowBox[{"-", "2"}]}], "}"}], ",", "4"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"55", ",", RowBox[{"-", "2"}]}], "}"}], ",", "1.5"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t \t", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Gray", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"43", ",", RowBox[{"-", "4"}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"43", ",", RowBox[{"-", "4"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"42", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "6"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"42", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "5"}], "}"}]}], "]"}]}], "}"}], ",", "\t", "\t", "\[IndentingNewLine]", RowBox[{"(*", "Barn", "*)"}], RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"135", ",", "19"}], "}"}], ",", "10"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Gray", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"125", ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"145", ",", "19"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Red", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"70", ",", RowBox[{"-", "7.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"70", ",", "7.5"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", RowBox[{"-", "20"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Red", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"100", ",", RowBox[{"-", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"110", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Red", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"100", ",", RowBox[{"-", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"110", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Red", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"130", ",", RowBox[{"-", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"140", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Red", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"100", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"110", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"130", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"140", ",", "0"}], "}"}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Gray", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"100", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"110", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "17.5"}], "}"}], ",", RowBox[{"{", RowBox[{"70", ",", "7.5"}], "}"}]}], " ", "}"}], "]"}]}], "}"}], ",", "\t\t\t\t", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Gray", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"70", ",", "7.5"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "17.5"}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", "17.5"}], "}"}], ",", RowBox[{"{", RowBox[{"130", ",", "10"}], "}"}]}], " ", "}"}], "]"}]}], "}"}], ",", "\t\t\t\t\t\t\t\t", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"110", ",", RowBox[{"-", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"130", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", "\[IndentingNewLine]", "\t\t\t", "\[IndentingNewLine]", RowBox[{"(*", "fence", "*)"}], RowBox[{"{", RowBox[{"White", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"110", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"130", ",", RowBox[{"-", "20"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"110", ",", RowBox[{"-", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"130", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.75", "]"}], ",", "Brown", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"15", RowBox[{"x", "/", "100"}]}], "+", "70"}], ",", RowBox[{ RowBox[{"-", "x"}], "/", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "85"}], RowBox[{"x", "/", "100"}]}], "+", "70"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x"}], "/", "16"}], "-", "7.5"}]}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.75", "]"}], ",", "Brown", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "15"}], RowBox[{"x", "/", "100"}]}], "+", "100"}], ",", RowBox[{ RowBox[{"x", "/", "20"}], "-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "15"}], RowBox[{"x", "/", "100"}]}], "+", "100", "-", "x"}], ",", RowBox[{ RowBox[{"x", "/", "16"}], "-", "20"}]}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.75", "]"}], ",", "Brown", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "85"}], RowBox[{"x", "/", "100"}]}], "+", "70"}], ",", RowBox[{ RowBox[{"-", "x"}], "/", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "85"}], RowBox[{"x", "/", "100"}]}], "+", "70"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x"}], "/", "16"}], "-", "7.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "15"}], RowBox[{"x", "/", "100"}]}], "+", "100", "-", "x"}], ",", RowBox[{ RowBox[{"x", "/", "16"}], "-", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "15"}], RowBox[{"x", "/", "100"}]}], "+", "100", "-", "x"}], ",", RowBox[{ RowBox[{"x", "/", "20"}], "-", "10"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{"Thick", ",", "White", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "15"}], RowBox[{"x", "/", "100"}]}], "+", "100"}], ",", RowBox[{ RowBox[{"x", "/", "20"}], "-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "15"}], RowBox[{"x", "/", "100"}]}], "+", "100", "-", "x"}], ",", RowBox[{ RowBox[{"x", "/", "20"}], "-", "10"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{"Thick", ",", "White", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"15", RowBox[{"x", "/", "100"}]}], "+", "70"}], ",", RowBox[{ RowBox[{"-", "x"}], "/", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "85"}], RowBox[{"x", "/", "100"}]}], "+", "70"}], ",", RowBox[{ RowBox[{"-", "x"}], "/", "20"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{"Thick", ",", "White", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "15"}], RowBox[{"x", "/", "100"}]}], "+", "100", "-", "x"}], ",", RowBox[{ RowBox[{"x", "/", "20"}], "-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "85"}], RowBox[{"x", "/", "100"}]}], "+", "70"}], ",", RowBox[{ RowBox[{"-", "x"}], "/", "20"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{"Thick", ",", "White", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "15"}], RowBox[{"x", "/", "100"}]}], "+", "100", "-", "x"}], ",", RowBox[{ RowBox[{"x", "/", "20"}], "-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "15"}], RowBox[{"x", "/", "100"}]}], "+", "100", "-", "x"}], ",", RowBox[{ RowBox[{"x", "/", "16"}], "-", "20"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{"Thick", ",", "White", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "85"}], RowBox[{"x", "/", "100"}]}], "+", "70"}], ",", RowBox[{ RowBox[{"-", "x"}], "/", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "85"}], RowBox[{"x", "/", "100"}]}], "+", "70"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x"}], "/", "16"}], "-", "7.5"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = \>\"", ",", "x"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"200", "-", "x"}], ")"}], "/", "2"}], ",", RowBox[{ RowBox[{"x", "/", "20"}], "-", "22"}]}], "}"}]}], "]"}]}], "}"}], " ", ",", "\t", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{"White", ",", " ", RowBox[{"Text", "[", " ", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{"(", RowBox[{"200", "-", RowBox[{"2", "x"}]}], ")"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "19"}], RowBox[{"x", "/", "20"}]}], "+", "70"}], ",", RowBox[{"-", "12"}]}], "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "\t\t", "\[IndentingNewLine]", "\t\t", "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "50"}], ",", "150"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "30"}], ",", "30"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "200"}], "}"}]}]}], " ", "]"}], ",", RowBox[{"(*", RowBox[{"End", " ", "Graphics1", " ", "Row", " ", "1"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\t\t", RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "\[IndentingNewLine]", "\t\t\t ", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", " ", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Green", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "45"}], ",", RowBox[{"-", "55"}]}], "}"}], ",", RowBox[{"{", RowBox[{"185", ",", "85"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"70", ",", "66"}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", "60"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Gray", "]"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"71", ",", "58"}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "60"}], "}"}]}], "]"}], ",", " ", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"71", ",", "66"}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "68"}], "}"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"80", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", "56"}], "}"}]}], "]"}], ",", " ", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"80", ",", "66"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", "70"}], "}"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"83", ",", "65"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", "61"}], "}"}]}], "]"}]}], " ", "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{"Black", ",", " ", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"74", ",", "63.5"}], "}"}], ",", RowBox[{"{", RowBox[{"76", ",", "62.5"}], "}"}]}], "]"}]}], " ", "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Gray", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"100", ",", RowBox[{"-", "50"}]}], "}"}], ",", RowBox[{"{", RowBox[{"135", ",", "50"}], "}"}]}], "]"}]}], "}"}], ",", "\t", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Gray", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"160", ",", "0"}], "}"}], ",", "20"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{"Thick", ",", "White", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"100", "-", "x"}], ",", RowBox[{ RowBox[{"x", "/", "2"}], "-", "50"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"100", "-", "x"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x"}], "/", "2"}], "+", "50"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{"Thick", ",", "White", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"100", "-", "x"}], ",", RowBox[{ RowBox[{"x", "/", "2"}], "-", "50"}]}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", RowBox[{ RowBox[{"x", "/", "2"}], "-", "50"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{"Thick", ",", "White", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"100", "-", "x"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x"}], "/", "2"}], "+", "50"}]}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", RowBox[{ RowBox[{ RowBox[{"-", "x"}], "/", "2"}], "+", "50"}]}], "}"}]}], "}"}], "]"}]}], "}"}], " ", ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{"200", "-", RowBox[{"2", "x"}]}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"80", "-", "x"}], ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = \>\"", ",", "x"}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"190", "-", "x"}], ")"}], "/", "2"}], "-", "10"}], ",", RowBox[{ RowBox[{"-", "50"}], "+", RowBox[{"x", "/", "3"}]}]}], "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\t\t\t", "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "45"}], ",", "200"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "55"}], ",", "95"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"250", ",", "200"}], "}"}]}], ",", RowBox[{"PlotLabel", "->", "\"\\""}]}], "]"}], ",", RowBox[{"(*", RowBox[{"End", " ", "Graphics", " ", "1", " ", "Row2"}], "*)"}], "\[IndentingNewLine]", "\t\t\t", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", " ", "\[IndentingNewLine]", "\t\t\t ", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"x", RowBox[{"(", RowBox[{"200", "-", RowBox[{"2", "x"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "100"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< (m)\>\""}], "}"}], "]"}], ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "55"}], ",", "6500"}], "}"}]}], "}"}]}]}], "]"}], " ", ",", " ", "\[IndentingNewLine]", "\t\t\t ", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", "Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"x", ",", RowBox[{"x", RowBox[{"(", RowBox[{"200", "-", RowBox[{"2", "x"}]}], ")"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = \>\"", ",", "x"}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"110", ",", "6000"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = 200 - 2 \>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{"200", "-", RowBox[{"2", "x"}]}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"100", ",", "5000"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"x", RowBox[{"(", RowBox[{"200", "-", RowBox[{"2", "x"}]}], ")"}]}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"110", ",", "4000"}], "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "\t\t\t ", "}"}], "]"}]}], "\[IndentingNewLine]", "\t\t\t", "\[IndentingNewLine]", "\t\t\t ", "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"250", ",", "200"}], "}"}]}]}], "]"}]}], " ", RowBox[{"(*", RowBox[{"End", " ", "Show"}], "*)"}], "\[IndentingNewLine]", "\t\t", "}"}], "}"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], " ", RowBox[{"(*", RowBox[{"End", " ", "Grid"}], "*)"}], "\t", "\[IndentingNewLine]", "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"550", ",", "420"}], "}"}]}]}], "]"}], ",", " ", RowBox[{"(*", RowBox[{"End", " ", "Column"}], " ", "*)"}], "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "15", ",", "\"\\""}], "}"}], ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.35696210375764*^9, 3.473396206671875*^9, {3.47339688083886*^9, 3.473396890798355*^9}, {3.473782010621725*^9, 3.473782138144476*^9}, { 3.4737821786595273`*^9, 3.4737822552311835`*^9}, {3.4737822907297335`*^9, 3.473782411979857*^9}, {3.473782472256884*^9, 3.473782635524209*^9}, { 3.4737968986529627`*^9, 3.473796932496496*^9}, {3.4737970618862934`*^9, 3.473797122385906*^9}, {3.473797173963701*^9, 3.4737971910573416`*^9}, { 3.4737972266039886`*^9, 3.4737972268383627`*^9}, {3.473797272572445*^9, 3.473797273400564*^9}, {3.4737973099003305`*^9, 3.4737973443219852`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`x$$ = 15, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`x$$], 15, "x (meters)= "}, 0, 100}}, Typeset`size$$ = {550., {207.34375, 212.65625}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`x$18596$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`x$$ = 15}, "ControllerVariables" :> { Hold[$CellContext`x$$, $CellContext`x$18596$$, 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" :> Pane[ Column[{ Graphics[{{ Opacity[0.25], Blue, Rectangle[{-50, 0}, {150, 30}]}, { Opacity[0.75], Darker[Green], Rectangle[{-50, -30}, {150, 0}]}, {Red, Rectangle[{40, -3}, {48, 2}]}, {Red, Rectangle[{52, -2}, {57, 3}]}, {Red, Rectangle[{48, -3}, {57, 0}]}, { Darker[Gray], Disk[{55, -2}, 4]}, {Yellow, Disk[{55, -2}, 1.5]}, { Darker[Gray], Disk[{43, -4}, 2]}, {Yellow, Disk[{43, -4}, 1]}, {Black, Rectangle[{42, 2}, {43, 6}]}, {Black, Rectangle[{42, 6}, {44, 5}]}, {Gray, Disk[{135, 19}, 10]}, { Lighter[Gray], Rectangle[{125, -10}, {145, 19}]}, { Darker[Red], Polygon[{{70, -7.5}, {70, 7.5}, {100, 0}, {100, -20}}]}, { Darker[Red], Rectangle[{100, -20}, {110, 0}]}, { Darker[Red], Rectangle[{100, -20}, {110, 0}]}, { Darker[Red], Rectangle[{130, -20}, {140, 0}]}, { Darker[Red], Polygon[{{100, 0}, {110, 10}, {130, 10}, {140, 0}}]}, { Darker[Gray], Polygon[{{100, 0}, {110, 10}, {80, 17.5}, {70, 7.5}}]}, { Darker[Gray], Polygon[{{70, 7.5}, {80, 17.5}, {90, 17.5}, {130, 10}}]}, { Gray, Rectangle[{110, -20}, {130, 0}]}, {White, Line[{{110, 0}, {130, -20}}], Line[{{110, -20}, {130, 0}}]}, { Opacity[0.75], Brown, Rectangle[{ 15 ($CellContext`x$$/100) + 70, (-$CellContext`x$$)/ 20}, {(-85) ($CellContext`x$$/100) + 70, (-$CellContext`x$$)/16 - 7.5}]}, { Opacity[0.75], Brown, Rectangle[{(-15) ($CellContext`x$$/100) + 100, $CellContext`x$$/20 - 10}, {(-15) ($CellContext`x$$/100) + 100 - $CellContext`x$$, $CellContext`x$$/16 - 20}]}, { Opacity[0.75], Brown, Polygon[{{(-85) ($CellContext`x$$/100) + 70, (-$CellContext`x$$)/ 20}, {(-85) ($CellContext`x$$/100) + 70, (-$CellContext`x$$)/16 - 7.5}, {(-15) ($CellContext`x$$/100) + 100 - $CellContext`x$$, $CellContext`x$$/16 - 20}, {(-15) ($CellContext`x$$/100) + 100 - $CellContext`x$$, $CellContext`x$$/20 - 10}}]}, { Thick, White, Line[{{(-15) ($CellContext`x$$/100) + 100, $CellContext`x$$/20 - 10}, {(-15) ($CellContext`x$$/100) + 100 - $CellContext`x$$, $CellContext`x$$/20 - 10}}]}, { Thick, White, Line[{{15 ($CellContext`x$$/100) + 70, (-$CellContext`x$$)/ 20}, {(-85) ($CellContext`x$$/100) + 70, (-$CellContext`x$$)/ 20}}]}, {Thick, White, Line[{{(-15) ($CellContext`x$$/100) + 100 - $CellContext`x$$, $CellContext`x$$/20 - 10}, {(-85) ($CellContext`x$$/100) + 70, (-$CellContext`x$$)/ 20}}]}, {Thick, White, Line[{{(-15) ($CellContext`x$$/100) + 100 - $CellContext`x$$, $CellContext`x$$/20 - 10}, {(-15) ($CellContext`x$$/100) + 100 - $CellContext`x$$, $CellContext`x$$/16 - 20}}]}, { Thick, White, Line[{{(-85) ($CellContext`x$$/100) + 70, (-$CellContext`x$$)/ 20}, {(-85) ($CellContext`x$$/100) + 70, (-$CellContext`x$$)/16 - 7.5}}]}, {White, Text[ Row[{ Style["x", Italic], " = ", $CellContext`x$$}], {( 200 - $CellContext`x$$)/2, $CellContext`x$$/20 - 22}]}, { White, Text[ Row[{ Style["y", Italic], " = ", 200 - 2 $CellContext`x$$}], {(-19) ($CellContext`x$$/20) + 70, -12}]}}, PlotRange -> {{-50, 150}, {-30, 30}}, ImageSize -> {500, 200}], Grid[{{ Graphics[{{ Darker[Green], Rectangle[{-45, -55}, {185, 85}]}, {Red, Rectangle[{70, 66}, {90, 60}]}, { Darker[Gray], Rectangle[{71, 58}, {75, 60}], Rectangle[{71, 66}, {75, 68}], Rectangle[{80, 60}, {88, 56}], Rectangle[{80, 66}, {88, 70}], Rectangle[{83, 65}, {88, 61}]}, {Black, Rectangle[{74, 63.5}, {76, 62.5}]}, { Darker[Gray], Rectangle[{100, -50}, {135, 50}]}, { Darker[Gray], Disk[{160, 0}, 20]}, {Thick, White, Line[{{100 - $CellContext`x$$, $CellContext`x$$/2 - 50}, { 100 - $CellContext`x$$, (-$CellContext`x$$)/2 + 50}}]}, { Thick, White, Line[{{100 - $CellContext`x$$, $CellContext`x$$/2 - 50}, { 100, $CellContext`x$$/2 - 50}}]}, {Thick, White, Line[{{100 - $CellContext`x$$, (-$CellContext`x$$)/2 + 50}, { 100, (-$CellContext`x$$)/2 + 50}}]}, {White, Text[ Row[{ Style["y", Italic], " = ", 200 - 2 $CellContext`x$$}], { 80 - $CellContext`x$$, 0}]}, {White, Text[ Row[{ Style["x", Italic], " = ", $CellContext`x$$}], {(190 - $CellContext`x$$)/2 - 10, -50 + $CellContext`x$$/3}]}}, PlotRange -> {{-45, 200}, {-55, 95}}, ImageSize -> {250, 200}, PlotLabel -> "bird's eye view"], Show[{ Plot[$CellContext`x$$ (200 - 2 $CellContext`x$$), {$CellContext`x$$, 0, 100}, AxesLabel -> { Row[{ Style["x", Italic], " (m)"}], "area (\!\(\*SuperscriptBox[\(m\), \(2\)]\))"}, PlotRange -> {{0, 140}, {-55, 6500}}], Graphics[{{ PointSize[Large], Red, Point[{$CellContext`x$$, $CellContext`x$$ (200 - 2 $CellContext`x$$)}]}, {Black, Text[ Row[{ Style["x", Italic], " = ", $CellContext`x$$}], {110, 6000}]}, {Black, Text[ Row[{ Style["y", Italic], " = 200 - 2 ", Style["x", Italic], " = ", 200 - 2 $CellContext`x$$}], { 100, 5000}]}, {Black, Text[ Row[{"area = ", $CellContext`x$$ (200 - 2 $CellContext`x$$)}], {110, 4000}]}}]}, ImageSize -> {250, 200}]}}, Frame -> True]}], ImageSize -> {550, 420}], "Specifications" :> {{{$CellContext`x$$, 15, "x (meters)= "}, 0, 100}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{595., {252., 257.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->625232671], 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 farmer has 200 meters of fence available and would like to fence off a \ rectangular area along his 200-meter-long barn. What dimensions would yield \ the maximum area and what is that maximum area?\ \>", "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 Greatest Fenced Area along a Barn", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/TheGreatestFencedAreaAlongABarn/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/TheGreatestFencedAreaAlongABarn/"], "\"", " 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/TheGreatestFencedAreaAlongABarn/\ ", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/TheGreatestFencedAreaAlongABarn/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/TheGreatestFencedAreaAlongABarn/"] }], "Text", CellMargins->{{48, Inherited}, {0, Inherited}}, FontFamily->"Verdana", FontSize->10, FontColor->GrayLevel[0.5]], Cell[TextData[{ "Contributed by: ", ButtonBox["Nasri Abdel-Aziz", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/author.html?author=Nasri+Abdel-\ Aziz"], None}, ButtonNote-> "http://demonstrations.wolfram.com/author.html?author=Nasri+Abdel-Aziz"] }], "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=\ TheGreatestFencedAreaAlongABarn"], 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 Greatest Fenced Area along a Barn - 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[639, 23, 157, 3, 70, "Section"], Cell[799, 28, 3700, 64, 70, "Section"], Cell[4502, 94, 35628, 843, 70, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[40167, 942, 8730, 192, 70, "Output", CellID->625232671], Cell[CellGroupData[{ Cell[48922, 1138, 209, 6, 70, "Section"], Cell[49134, 1146, 224, 4, 70, "Text"] }, Close]] }, Open ]], Cell[CellGroupData[{ Cell[49406, 1156, 355, 9, 70, "Text", CellGroupingRules->{"SectionGrouping", 25}], Cell[49764, 1167, 989, 29, 70, "Text"], Cell[50756, 1198, 442, 14, 70, "Text"], Cell[CellGroupData[{ Cell[51223, 1216, 815, 24, 70, "Text"], Cell[52041, 1242, 1203, 33, 70, "Text"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature #S4lIF9pJLXBfDpbBsmtA8GG *)