(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 57548, 1662] NotebookOptionsPosition[ 56539, 1631] NotebookOutlinePosition[ 56882, 1646] CellTagsIndexPosition[ 56839, 1643] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "q", "]"}], "=", " ", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ "ground", ",", "goalposts", ",", "player", ",", "net", ",", "net2", ",", RowBox[{"{", RowBox[{ RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "10", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "5"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "4.9"}], "}"}], ",", "1.1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "4.8"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3"}]}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "11.5"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3.1"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"10", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}]}], "}"}], ",", ".9"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "2"}], ",", "0"}], "}"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"q", ",", RowBox[{"-", "9"}], ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4069990853547225`*^9, 3.406999103229151*^9}, { 3.4069992919731107`*^9, 3.4069992945355287`*^9}, {3.4069999546394043`*^9, 3.406999961389189*^9}, {3.407000138430398*^9, 3.4070001429458785`*^9}}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "q", "]"}], "=", " ", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ "ground", ",", "goalposts", ",", "player", ",", "net", ",", "net2", ",", RowBox[{"{", RowBox[{ RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "10", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "5"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "4.9"}], "}"}], ",", "1.1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "4.8"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3"}]}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "11.5"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3.1"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"10", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}]}], "}"}], ",", ".9"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4069991135100718`*^9, 3.406999119150516*^9}, { 3.406999287020144*^9, 3.40699928981693*^9}, {3.4069999663890285`*^9, 3.406999971873228*^9}, {3.4070001479144697`*^9, 3.407000150539386*^9}, { 3.407000365923118*^9, 3.407000395140933*^9}}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "q", "]"}], "=", " ", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ "ground", ",", "goalposts", ",", "player", ",", "net", ",", "net2", ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2.5", SqrtBox[ RowBox[{"(", RowBox[{"q", "-", "1"}], ")"}]]}], "+", "26"}], ",", RowBox[{"q", "+", "14.2"}], ",", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".0056857171"}], SuperscriptBox["q", "2"]}], "+", RowBox[{".7334575042", "q"}], "+", "2.845995491"}], ")"}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "10", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "5"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "4.9"}], "}"}], ",", "1.1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "4.8"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3"}]}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "11.5"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3.1"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"10", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}]}], "}"}], ",", ".9"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "q", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"q", ",", "1", ",", "9"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4069991308688912`*^9, 3.406999140149844*^9}, { 3.4069992800672417`*^9, 3.4069992825671616`*^9}, {3.4069999793729877`*^9, 3.4069999837165995`*^9}, {3.4070001194778795`*^9, 3.407000121634061*^9}}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "q", "]"}], "=", " ", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ "ground", ",", "goalposts", ",", "player", ",", "net", ",", "net2", ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2.5", SqrtBox["q"]}], "+", "26"}], ",", RowBox[{"q", "+", "14.2"}], ",", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".0056857171"}], SuperscriptBox["q", "2"]}], "+", RowBox[{".7334575042", "q"}], "+", "2.845995491"}], ")"}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "10", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "5"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "4.9"}], "}"}], ",", "1.1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "4.8"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3"}]}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "11.5"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3.1"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"10", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}]}], "}"}], ",", ".9"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"ViewPoint", "\[Rule]", " ", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"q", ",", "9", ",", "40"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4069991474777346`*^9, 3.4069991524307013`*^9}, { 3.406999271255024*^9, 3.406999273770568*^9}, {3.406999988419574*^9, 3.407000016121812*^9}, {3.4070001277432404`*^9, 3.4070001290713224`*^9}}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "q", "]"}], "=", " ", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ "ground", ",", "goalposts", ",", "player", ",", "net", ",", "net2", ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2.5", SqrtBox["q"]}], "+", "26"}], ",", RowBox[{"q", "+", "14.2"}], ",", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".0056857171"}], SuperscriptBox["q", "2"]}], "+", RowBox[{".7334575042", "q"}], "+", "2.845995491"}], ")"}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "10", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "5"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "4.9"}], "}"}], ",", "1.1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "4.8"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3"}]}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "11.5"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3.1"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"10", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}]}], "}"}], ",", ".9"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"q", ",", "40", ",", "62.5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4069991827891045`*^9, 3.4069991899295015`*^9}, { 3.406999260849107*^9, 3.4069992667551675`*^9}, {3.407000019059218*^9, 3.4070000254652634`*^9}, {3.4070001322587204`*^9, 3.4070001342899055`*^9}, { 3.4070004427800336`*^9, 3.4070004434050136`*^9}, {3.4070005035124655`*^9, 3.407000504434311*^9}, {3.407000779683782*^9, 3.4070007797619047`*^9}}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "q", "]"}], "=", " ", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ "ground", ",", "goalposts", ",", "player", ",", "net", ",", "net2", ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2.5", SqrtBox["q"]}], "+", "26"}], ",", RowBox[{"q", "+", "14.2"}], ",", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".0056857171"}], SuperscriptBox["q", "2"]}], "+", RowBox[{".7334575042", "q"}], "+", "2.845995491"}], ")"}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "10", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "5"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "4.9"}], "}"}], ",", "1.1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"3", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "10"}], ",", "4.8"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3"}]}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "11.5"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3.1"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"10", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}]}], "}"}], ",", ".9"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", RowBox[{ RowBox[{"6", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "9"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", "9", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", "/", "2"}], "\[Pi]"}], ")"}]}], "]"}]}], "+", "3.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"q", ",", "62.5", ",", "71.5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4070007842148867`*^9, 3.407000813401453*^9}, { 3.407000867774713*^9, 3.407000897742504*^9}, {3.4070010239728394`*^9, 3.4070010254415426`*^9}, {3.407001193701783*^9, 3.4070011996234684`*^9}, { 3.4070012860269537`*^9, 3.407001318916526*^9}, {3.407001555783946*^9, 3.407001577252009*^9}, {3.407001616532002*^9, 3.4070016282191277`*^9}, { 3.4070017258566284`*^9, 3.407001729778378*^9}, {3.4070019007416573`*^9, 3.4070019014291353`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"SetDirectory", "[", "\"\\"", "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"-", "9"}], ",", "71.5"}], "}"}]}], "]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4070004382176795`*^9, 3.4070004398738766`*^9}, { 3.4070004956845903`*^9, 3.407000499950079*^9}}], Cell[BoxData[ RowBox[{"player", "=", RowBox[{"{", RowBox[{"headndtorso", ",", "leftleg", ",", "rightarm", ",", "leftarm"}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"leftarm", "=", RowBox[{"{", RowBox[{ RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"22", ",", "12", ",", "11.9"}], "}"}], ",", ".8"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"22", ",", "12", ",", "11.9"}], "}"}], ",", RowBox[{"{", RowBox[{"19.5", ",", "12.5", ",", "11.5"}], "}"}]}], "}"}], ",", ".8"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"19.5", ",", "12.5", ",", "11.5"}], "}"}], ",", ".8"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"19.5", ",", "12.5", ",", "11.5"}], "}"}], ",", RowBox[{"{", RowBox[{"19.5", ",", "14.5", ",", "11"}], "}"}]}], "}"}], ",", ".8"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"19.5", ",", "14.5", ",", "11"}], "}"}], ",", ".8"}], "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"rightarm", "=", RowBox[{"{", RowBox[{ RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25.5", ",", "12", ",", "11.9"}], "}"}], ",", ".8"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25.5", ",", "12", ",", "11.9"}], "}"}], ",", RowBox[{"{", RowBox[{"27.5", ",", "10.5", ",", "10"}], "}"}]}], "}"}], ",", ".8"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"27.5", ",", "10.5", ",", "10"}], "}"}], ",", ".8"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"27.5", ",", "10.5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"27.5", ",", "12.5", ",", "9"}], "}"}]}], "}"}], ",", ".8"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"27.5", ",", "12.5", ",", "9"}], "}"}], ",", ".8"}], "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"leftleg", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"23", ",", "10", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "10", ",", "4"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"23", ",", "10", ",", "3.9"}], "}"}], ",", "1.1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"23", ",", "10", ",", "3.8"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "10", ",", ".5"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"23", ",", "10", ",", ".5"}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"23", ",", "9.5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "11.5", ",", "1"}], "}"}]}], "}"}], ",", ".9"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"23", ",", "11.4", ",", "1"}], "}"}], ",", ".8"}], "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"headndtorso", "=", RowBox[{"{", RowBox[{ RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"24", ",", "13", ",", "15.5"}], "}"}], ",", "1.9"}], "]"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"24", ",", "10", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "12", ",", "13"}], "}"}]}], "}"}], ",", "2"}], "]"}]}], "}"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"ground", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "102", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"goal", "=", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Opacity", "[", ".1", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "75", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "75", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "100", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "85", ",", "30"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "75", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "100", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "85", ",", "30"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "75", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "75", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "85", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "85", ",", "30"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "100", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "85", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "85", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "100", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"net", "=", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".001", "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "n", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "n", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "n", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "n", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "75", ",", "85", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "100", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "85", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "75", ",", "30"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "50", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "75", ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "4"}], "n"}], SqrtBox["20"]], "+", "30"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"85", "+", FractionBox[ RowBox[{"2", "n"}], SqrtBox["20"]]}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "4"}], "n"}], SqrtBox["20"]], "+", "30"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", RowBox[{"85", "+", FractionBox[ RowBox[{"2", "n"}], SqrtBox["20"]]}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "4"}], "n"}], SqrtBox["20"]], "+", "30"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "75", ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "4"}], "n"}], SqrtBox["20"]], "+", "30"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "34", ",", "2"}], "}"}]}], "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"net2", "=", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "87", ",", RowBox[{"30", "-", RowBox[{"2", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "87", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "89", ",", RowBox[{"30", "-", RowBox[{"5", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "89", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "91", ",", RowBox[{"30", "-", RowBox[{"7", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "91", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "93", ",", RowBox[{"30", "-", RowBox[{"9", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "93", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "93", ",", RowBox[{"30", "-", RowBox[{"11", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "93", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "95", ",", RowBox[{"30", "-", RowBox[{"11.4", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "95", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "97", ",", RowBox[{"30", "-", RowBox[{"13.3", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "97", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "99", ",", RowBox[{"30", "-", RowBox[{"15.5", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "99", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "87", ",", RowBox[{"30", "-", RowBox[{"2", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "89", ",", RowBox[{"30", "-", RowBox[{"5", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "89", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "91", ",", RowBox[{"30", "-", RowBox[{"7", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "91", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "93", ",", RowBox[{"30", "-", RowBox[{"9", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "93", ",", RowBox[{"30", "-", RowBox[{"11", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "95", ",", RowBox[{"30", "-", RowBox[{"11.4", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "95", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "97", ",", RowBox[{"30", "-", RowBox[{"13.3", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "97", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "99", ",", RowBox[{"30", "-", RowBox[{"15.5", FractionBox["4", SqrtBox["5"]]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "99", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"goalposts", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cylinder", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "75", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "30"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "75", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "75", ",", "30"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "75", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "75", ",", "30"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"0", ",", "75", ",", "30"}], "}"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"50", ",", "75", ",", "30"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "75", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "85", ",", "30"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "85", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "100", ",", "0"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "75", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "85", ",", "30"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "85", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "100", ",", "0"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "85", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "85", ",", "30"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"ball", "=", " ", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "14.2", ",", "2"}], "}"}], ",", "2"}], "]"}]}], "}"}]}]], "Input"] }, WindowSize->{860, 734}, WindowMargins->{{Automatic, 15}, {Automatic, -21}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 27, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 5930, 159, 212, "Input"], Cell[6501, 182, 5928, 158, 212, "Input"], Cell[12432, 342, 6580, 176, 267, "Input"], Cell[19015, 520, 6485, 173, 267, "Input"], Cell[25503, 695, 6634, 175, 267, "Input"], Cell[32140, 872, 6426, 174, 267, "Input"], Cell[38569, 1048, 96, 2, 31, "Input"], Cell[38668, 1052, 432, 12, 31, "Input"], Cell[39103, 1066, 154, 4, 31, "Input"], Cell[39260, 1072, 1106, 36, 72, "Input"], Cell[40369, 1110, 1102, 36, 52, "Input"], Cell[41474, 1148, 1354, 44, 72, "Input"], Cell[42831, 1194, 583, 19, 31, "Input"], Cell[43417, 1215, 359, 12, 31, "Input"], Cell[43779, 1229, 1730, 49, 92, "Input"], Cell[45512, 1280, 2529, 76, 127, "Input"], Cell[48044, 1358, 5575, 180, 345, "Input"], Cell[53622, 1540, 2668, 79, 132, "Input"], Cell[56293, 1621, 242, 8, 31, "Input"] } ] *) (* End of internal cache information *)