(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 704947, 19177] NotebookOptionsPosition[ 676086, 18396] NotebookOutlinePosition[ 676430, 18411] CellTagsIndexPosition[ 676387, 18408] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Superficies B-spline", FontSlant->"Italic"], "\n", StyleBox["Dise\[NTilde]o casero", FontSize->30] }], "Title", CellChangeTimes->{{3.461880158984375*^9, 3.461880245546875*^9}, { 3.461880305484375*^9, 3.4618803184375*^9}, {3.4619626584553766`*^9, 3.4619626594553766`*^9}}], Cell["\<\ R. Ipanaqu\[EAcute] N. Farias T. Santos J. Mechato J. Ram\[IAcute]rez A. Pinday C. Dioses S. Renter\[IAcute]a M. More M. Castillo J. Pazo M. Ordinola E. Rojas R. Pacherrez M. Yarlequ\[EAcute] J. Rufino K. Teodor V. Chiroque\ \>", "Text", CellChangeTimes->{{3.46188118378125*^9, 3.461881216328125*^9}, { 3.46188146696875*^9, 3.461881468890625*^9}, {3.46188269015625*^9, 3.461882695515625*^9}, {3.461883522921875*^9, 3.46188352721875*^9}, { 3.461885033046875*^9, 3.461885034921875*^9}, {3.46188536090625*^9, 3.4618853673125*^9}, {3.461886443765625*^9, 3.46188644625*^9}, { 3.4618871789375*^9, 3.461887182109375*^9}, {3.461887918578125*^9, 3.461887922203125*^9}, {3.461889907734375*^9, 3.461889912921875*^9}, { 3.46189054684375*^9, 3.46189055253125*^9}, {3.46189410728125*^9, 3.4618941120625*^9}, {3.4618957310625*^9, 3.461895737046875*^9}, { 3.46195867334375*^9, 3.461958679609375*^9}, {3.461958743140625*^9, 3.46195874646875*^9}, {3.461959719625*^9, 3.461959722546875*^9}, { 3.461959858015625*^9, 3.461959860640625*^9}}], Cell[CellGroupData[{ Cell["Resumen", "Section", CellChangeTimes->{{3.461960175765625*^9, 3.46196017865625*^9}, { 3.4619627659397516`*^9, 3.4619627667522516`*^9}}], Cell[TextData[{ "Este trabajo presenta una serie de superficies B-spline dise\[NTilde]adas \ por estudiantes inscritos en el Curso \"Introducci\[OAcute]n al \ dise\[NTilde]o geom\[EAcute]trico\" que se dicta en la Escuela Profesional de \ Matem\[AAcute]tica de la Facultad de Ciencias de la Universidad Nacional de \ Piura (Per\[UAcute]). El facilitador en este curso es el Profesor R. Ipanaqu\ \[EAcute]. T\[EAcute]ngase en cuenta que los estudiantes no cuentan con ", StyleBox["ning\[UAcute]n", FontVariations->{"Underline"->True}], " equipo apropiado para obtener las coordenadas de los puntos de control, \ todo se ha hecho en forma rudimentaria (de all\[IAcute] el t\[IAcute]tulo de \ dise\[NTilde]o casero). Para obtener las gr\[AAcute]ficas de las superficies \ B-spline se ha empleado el comando BsplineSurface que viene incorporado en la \ versi\[OAcute]n 7.0 de ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text", CellChangeTimes->{{3.4619627569241266`*^9, 3.4619629985022516`*^9}, 3.46196373554675*^9, {3.46196392667175*^9, 3.461963929937375*^9}, { 3.46196413329675*^9, 3.461964168968625*^9}, {3.461964477312375*^9, 3.461964488499875*^9}, {3.461964539078*^9, 3.461964554828*^9}, { 3.461964620124875*^9, 3.461964645562375*^9}, {3.46196497179675*^9, 3.46196505948425*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Superficie B-spline", "Section", CellChangeTimes->{{3.4619626301897516`*^9, 3.4619626355022516`*^9}, { 3.4619626671272516`*^9, 3.4619626695803766`*^9}}], Cell["Dada la siguiente informaci\[OAcute]n:", "Text", CellChangeTimes->{{3.461960201109375*^9, 3.46196022215625*^9}, { 3.461960295140625*^9, 3.461960356609375*^9}, {3.461960483234375*^9, 3.461960493390625*^9}, {3.4619611134085016`*^9, 3.4619611267366266`*^9}, 3.4619612136585016`*^9}], Cell[TextData[{ "1. un conjunto de ", Cell[BoxData[ FormBox[ RowBox[{"m", "+", "1"}], TraditionalForm]]], " por ", Cell[BoxData[ FormBox[ RowBox[{"n", "+", "1"}], TraditionalForm]]], " puntos de control ", Cell[BoxData[ FormBox[ SubscriptBox["p", RowBox[{"i", " ", "j"}]], TraditionalForm]]], ", donde ", Cell[BoxData[ FormBox[ RowBox[{"0", "\[LessEqual]", "i", "\[LessEqual]", "m"}], TraditionalForm]]], " y ", Cell[BoxData[ FormBox[ RowBox[{"0", "\[LessEqual]", "j", "\[LessEqual]", "n"}], TraditionalForm]]], ";" }], "Text", CellChangeTimes->{{3.4619612170022516`*^9, 3.4619612174241266`*^9}, 3.4619613830647516`*^9, {3.4619614395491266`*^9, 3.4619615170647516`*^9}}], Cell[TextData[{ "2. un vector nodo de ", Cell[BoxData[ FormBox[ RowBox[{"h", "+", "1"}], TraditionalForm]]], " nodos en la direcci\[OAcute]n ", Cell[BoxData[ FormBox["u", TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{"\[Upsilon]", "=", RowBox[{"{", RowBox[{ SubscriptBox["u", "0"], ",", SubscriptBox["u", "1"], ",", "...", ",", SubscriptBox["u", "h"]}], "}"}]}], TraditionalForm]]], ";" }], "Text", CellChangeTimes->{{3.4619615432210016`*^9, 3.4619615669241266`*^9}, { 3.4619616261116266`*^9, 3.4619616535803766`*^9}}], Cell[TextData[{ "3. un vector nodo de ", Cell[BoxData[ FormBox[ RowBox[{"k", "+", "1"}], TraditionalForm]]], " nodos en la direcci\[OAcute]n ", Cell[BoxData[ FormBox["v", TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{"\[Vee]", RowBox[{"=", RowBox[{"{", RowBox[{ SubscriptBox["v", "0"], ",", SubscriptBox["v", "1"], ",", "...", ",", SubscriptBox["v", "k"]}], "}"}]}]}], TraditionalForm]]], ";" }], "Text", CellChangeTimes->{{3.4619615432210016`*^9, 3.4619615669241266`*^9}, { 3.4619616261116266`*^9, 3.4619616726741266`*^9}, {3.4619617452210016`*^9, 3.4619617647210016`*^9}}], Cell[TextData[{ "4. el grado ", Cell[BoxData[ FormBox["p", TraditionalForm]]], " en la direcci\[OAcute]n ", Cell[BoxData[ FormBox["u", TraditionalForm]]], ";" }], "Text", CellChangeTimes->{{3.4619615432210016`*^9, 3.4619615669241266`*^9}, { 3.4619616261116266`*^9, 3.4619616726741266`*^9}, {3.4619617452210016`*^9, 3.4619618062991266`*^9}}], Cell[TextData[{ "5. el grado ", Cell[BoxData[ FormBox["q", TraditionalForm]]], " en la direcci\[OAcute]n ", Cell[BoxData[ FormBox["v", TraditionalForm]]], ";" }], "Text", CellChangeTimes->{{3.4619615432210016`*^9, 3.4619615669241266`*^9}, { 3.4619616261116266`*^9, 3.4619616726741266`*^9}, {3.4619617452210016`*^9, 3.4619618062991266`*^9}, {3.4619619540335016`*^9, 3.4619619688303766`*^9}}], Cell["\<\ la superficie B-spline definida por esta informaci\[OAcute]n es la siguiente:\ \>", "Text", CellChangeTimes->{{3.4619619813147516`*^9, 3.4619619985491266`*^9}, { 3.4619626765491266`*^9, 3.4619626789866266`*^9}}], Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"S", "(", RowBox[{"u", ",", "v"}], ")"}], "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "m"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "n"], RowBox[{ SubscriptBox["p", RowBox[{"i", " ", "j"}]], RowBox[{ SubscriptBox["N", RowBox[{"i", ",", "p"}]], "(", "u", ")"}], RowBox[{ SubscriptBox["N", RowBox[{"j", ",", "q"}]], "(", "v", ")"}]}]}]}]}], TraditionalForm]]]], "Text", CellChangeTimes->{{3.4619620106741266`*^9, 3.4619620862210016`*^9}, { 3.4619621511272516`*^9, 3.4619621572210016`*^9}}, TextAlignment->Center], Cell[TextData[{ "donde ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["N", RowBox[{"i", ",", "p"}]], "(", "u", ")"}], TraditionalForm]]], " y ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["N", RowBox[{"j", ",", "q"}]], "(", "v", ")"}], TraditionalForm]]], " son las funciones base B-spline de grados ", Cell[BoxData[ FormBox["p", TraditionalForm]]], " y ", Cell[BoxData[ FormBox["q", TraditionalForm]]], ", respectivamente. Se cumplen las identidades fundamentales, una en cada \ direcci\[OAcute]n: ", Cell[BoxData[ FormBox[ RowBox[{"h", "=", RowBox[{"m", "+", "p", "+", "1"}]}], TraditionalForm]]], " y ", Cell[BoxData[ FormBox[ RowBox[{"k", "=", RowBox[{"n", "+", "q", "+", "1"}]}], TraditionalForm]]], "." }], "Text", CellChangeTimes->{{3.4619621194553766`*^9, 3.4619621430491266`*^9}, { 3.4619621752522516`*^9, 3.4619622117210016`*^9}, {3.4619623313928766`*^9, 3.4619623422210016`*^9}, {3.4619624017835016`*^9, 3.4619624420022516`*^9}, { 3.4619625419553766`*^9, 3.4619625621741266`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Arbol", "Section", CellChangeTimes->{{3.461880534796875*^9, 3.461880536359375*^9}}], Cell["Farias Morcillo, Nestor", "Text", CellChangeTimes->{3.46188115775*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pts", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"80", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "100", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "100"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "100"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"24.6`", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "24.6`", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "24.6`"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "24.6`"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"24.6`", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"28", ",", "0", ",", "78.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "28", ",", "78.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "28"}], ",", "0", ",", "78.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "28"}], ",", "78.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "0", ",", "78.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"136.6", ",", "0", ",", "86.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "136.6", ",", "86.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "136.6"}], ",", "0", ",", "86.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "136.6`"}], ",", "86.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"136.6", ",", "0", ",", "86.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"71.2`", ",", "0", ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "71.2`", ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "71.2"}], ",", "0", ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "71.2`"}], ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{"71.2`", ",", "0", ",", "125"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"120", ",", "0", ",", "135"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "120", ",", "135"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "120"}], ",", "0", ",", "135"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "120"}], ",", "135"}], "}"}], ",", RowBox[{"{", RowBox[{"120", ",", "0", ",", "135"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"47.2`", ",", "0", ",", "181"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "47.2", ",", "181"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "47.2"}], ",", "0", ",", "181"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "47.2"}], ",", "181"}], "}"}], ",", RowBox[{"{", RowBox[{"47.2`", ",", "0", ",", "181"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"88.6`", ",", "0", ",", "199"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "88.6`", ",", "199"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "88.6`"}], ",", "0", ",", "199"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "88.6`"}], ",", "199"}], "}"}], ",", RowBox[{"{", RowBox[{"88.6`", ",", "0", ",", "199"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"30.6", ",", "0", ",", "235"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "30.6", ",", "235"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "30.6"}], ",", "0", ",", "235"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "30.6`"}], ",", "235"}], "}"}], ",", RowBox[{"{", RowBox[{"30.6", ",", "0", ",", "235"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"54", ",", "0", ",", "246.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "54", ",", "246.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54"}], ",", "0", ",", "246.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "54"}], ",", "246.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "0", ",", "246.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "290.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "290.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "290.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "290.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "290.5`"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880603640625*^9, 3.461880604203125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "10", ",", "10"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pts", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "3.0325373949099457`"}], ",", RowBox[{"-", "0.20646584217446937`"}], ",", "1.4869730342168255`"}], "}"}]}], ",", RowBox[{"ViewVertical", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.24869703406252883`"}], ",", RowBox[{"-", "0.10010499329488624`"}], ",", "0.9833581798936336"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Auto", "Section", CellChangeTimes->{{3.46188144234375*^9, 3.4618814434375*^9}}], Cell["Santos Santos, Toribio", "Text", CellChangeTimes->{3.46188146253125*^9}], Cell[CellGroupData[{ Cell["Tapamotor", "Subsection", CellChangeTimes->{{3.458051671*^9, 3.458051676625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"4", RowBox[{"Cos", "[", "0", "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", "0", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.75"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "8"}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "8"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "4"}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "4"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.25"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"3", RowBox[{"Pi", "/", "8"}]}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"3", RowBox[{"Pi", "/", "8"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "2"}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "2"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"4.8", RowBox[{"Cos", "[", "0", "]"}]}], ",", RowBox[{"4.8", RowBox[{"Sin", "[", "0", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"4.8", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "8"}], "]"}]}], ",", RowBox[{"4.8", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "8"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"4.8", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "4"}], "]"}]}], ",", RowBox[{"4.8", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "4"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"4.8", RowBox[{"Cos", "[", RowBox[{"3", RowBox[{"Pi", "/", "8"}]}], "]"}]}], ",", RowBox[{"4.8", RowBox[{"Sin", "[", RowBox[{"3", RowBox[{"Pi", "/", "8"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"4.8", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "2"}], "]"}]}], ",", RowBox[{"4.8", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "2"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"4", RowBox[{"Cos", "[", "0", "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", "0", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.25"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "8"}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "8"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "4"}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "4"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.75"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"3", RowBox[{"Pi", "/", "8"}]}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"3", RowBox[{"Pi", "/", "8"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "2"}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "2"}], "]"}]}]}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609370610195*^9, 3.457609594843295*^9}, { 3.4576096945209727`*^9, 3.4576096976148815`*^9}, {3.457609849513283*^9, 3.457609908078781*^9}, {3.458046442328125*^9, 3.45804648*^9}, { 3.458046572171875*^9, 3.45804659759375*^9}, {3.458046815203125*^9, 3.458046830359375*^9}, {3.458046872453125*^9, 3.4580468990625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"4", RowBox[{"Cos", "[", "0", "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", "0", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.75"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "8"}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "8"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "4"}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "4"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.25"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"3", RowBox[{"Pi", "/", "8"}]}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"3", RowBox[{"Pi", "/", "8"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "2"}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "2"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"4", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}], ",", RowBox[{"2", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"4", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}], ",", RowBox[{"2", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"4", RowBox[{"Cos", "[", "0", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.75"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "8"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "4"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.25"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"3", RowBox[{"Pi", "/", "8"}]}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "2"}], "]"}]}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609987582852*^9, 3.4576099890985546`*^9}, { 3.4576100275223966`*^9, 3.457610088291133*^9}, 3.457610138481202*^9, { 3.45804813759375*^9, 3.45804818159375*^9}, {3.45804823225*^9, 3.458048236234375*^9}, {3.45804829175*^9, 3.45804832078125*^9}, { 3.45804846209375*^9, 3.4580484715*^9}, {3.458048601*^9, 3.458048633953125*^9}, {3.45804869021875*^9, 3.458048692390625*^9}, { 3.4580487400625*^9, 3.458048758484375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"4", RowBox[{"Cos", "[", "0", "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", "0", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.25"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "8"}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "8"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "4"}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "4"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.75"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"3", RowBox[{"Pi", "/", "8"}]}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"3", RowBox[{"Pi", "/", "8"}]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "2"}], "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "2"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5"}], ",", RowBox[{"4", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}], ",", RowBox[{"2", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"2", " ", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.5"}], ",", RowBox[{"4", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}], ",", RowBox[{"2", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.5"}], ",", "0", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"4", RowBox[{"Cos", "[", "0", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.25"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "8"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "4"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.75"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"3", RowBox[{"Pi", "/", "8"}]}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"4", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "2"}], "]"}]}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4576103295847363`*^9, 3.4576103901190853`*^9}, { 3.458047892359375*^9, 3.4580479235*^9}, {3.458048873734375*^9, 3.458048876765625*^9}, {3.45804892065625*^9, 3.4580489224375*^9}, { 3.458133613703125*^9, 3.458133634109375*^9}, {3.45813368178125*^9, 3.458133706234375*^9}, {3.4581337461875*^9, 3.458133770875*^9}, { 3.45813381590625*^9, 3.458133851265625*^9}, {3.458133985390625*^9, 3.45813402415625*^9}, {3.458134068515625*^9, 3.458134129703125*^9}, { 3.458134177046875*^9, 3.458134208703125*^9}, {3.45813425646875*^9, 3.458134261890625*^9}, {3.458134327328125*^9, 3.458134331515625*^9}, { 3.458134378796875*^9, 3.458134407296875*^9}, {3.458134501953125*^9, 3.4581345895625*^9}, {3.458134656796875*^9, 3.458134691625*^9}, { 3.458134760078125*^9, 3.4581347898125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["tapabarrodelantero", "Subsection", CellChangeTimes->{{3.458051687125*^9, 3.4580516978125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p4", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"2", "+", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"2", "-", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4.8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3.97", ",", "1.97"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "2.8"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.02", ",", "1.97"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.79"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"2", "+", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"2", "-", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458047022796875*^9, 3.458047039078125*^9}, { 3.4580471925*^9, 3.45804726440625*^9}, {3.458047306640625*^9, 3.458047321625*^9}, {3.458047807046875*^9, 3.458047834484375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p5", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"2", "+", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"2", "-", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "4.5`", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "3.76", ",", "1.76"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "2", ",", "2.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "0.23", ",", "1.76"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "0.5"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"2", "+", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"2", "-", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458047522625*^9, 3.458047534265625*^9}, { 3.458047565328125*^9, 3.458047666078125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["techo", "Subsection", CellChangeTimes->{{3.45805171740625*^9, 3.45805171921875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p6", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"4", " ", SqrtBox["2"]}]}], ",", RowBox[{"4", " ", SqrtBox["2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "6"}], ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"4", " ", SqrtBox["2"]}]}], ",", RowBox[{"4", " ", SqrtBox["2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"4", " ", SqrtBox["2"]}]}], ",", FractionBox["9", SqrtBox["2"]]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"9", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], ",", RowBox[{"9", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "6"}], ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"9", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], ",", RowBox[{"9", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", FractionBox["9", SqrtBox["2"]]}], ",", FractionBox["9", SqrtBox["2"]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"4", " ", SqrtBox["2"]}]}], ",", RowBox[{"4", " ", SqrtBox["2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "6"}], ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"4", " ", SqrtBox["2"]}]}], ",", RowBox[{"4", " ", SqrtBox["2"]}]}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4580490919375*^9, 3.458049106*^9}, {3.4580492898125*^9, 3.45804929371875*^9}, {3.4580494585*^9, 3.458049557015625*^9}, { 3.458049616*^9, 3.458049657234375*^9}, 3.458050252375*^9, { 3.458050804296875*^9, 3.45805085253125*^9}, 3.45805088446875*^9}] }, Closed]], Cell[CellGroupData[{ Cell["puertasdelateras", "Subsection", CellChangeTimes->{{3.458051734390625*^9, 3.45805173796875*^9}, { 3.458053112359375*^9, 3.458053115046875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p7", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "6"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "6"}], ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "6"}], ",", "4"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458051186453125*^9, 3.45805134140625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p8", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "6"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4.5"}], ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.5"}], ",", RowBox[{"-", "6"}], ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "6"}], ",", "4"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458051186453125*^9, 3.45805134140625*^9}, { 3.458051754171875*^9, 3.45805180471875*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["lineas", "Subsection", CellChangeTimes->{{3.4580521168125*^9, 3.4580521193125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p9", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"4", " ", SqrtBox["2"]}]}], ",", RowBox[{"4", " ", SqrtBox["2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"4", " ", SqrtBox["2"]}]}], ",", RowBox[{"4.05", SqrtBox["2"]}]}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45805212609375*^9, 3.458052134125*^9}, { 3.458052168890625*^9, 3.458052231875*^9}, {3.458052316*^9, 3.458052409109375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p10", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"4", " ", SqrtBox["2"]}]}], ",", RowBox[{"4", " ", SqrtBox["2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3.8"}], ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.8"}], ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"4", " ", SqrtBox["2"]}]}], ",", RowBox[{"4.05", SqrtBox["2"]}]}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45805212609375*^9, 3.458052134125*^9}, { 3.458052168890625*^9, 3.458052231875*^9}, {3.458052316*^9, 3.458052409109375*^9}, {3.458052483140625*^9, 3.45805251146875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p11", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "6"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "6"}], ",", "7.85"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5.6"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5.6"}], ",", "7.85"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4580526900625*^9, 3.458052771625*^9}, { 3.458052832796875*^9, 3.45805289721875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p12", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "6"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "6"}], ",", "7.85"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "5.6"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "5.6"}], ",", "7.85"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4580526900625*^9, 3.458052771625*^9}, { 3.458052832796875*^9, 3.45805294390625*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["puertasdetras", "Subsection", CellChangeTimes->{{3.45805311978125*^9, 3.45805312865625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p13", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "6."}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "11"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "6."}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "11"}], ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "6."}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "11"}], ",", "4"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458051186453125*^9, 3.45805134140625*^9}, { 3.45805960421875*^9, 3.458059641109375*^9}, {3.45805967740625*^9, 3.458059714578125*^9}, {3.458059784171875*^9, 3.45805983075*^9}, { 3.458060549640625*^9, 3.45806058978125*^9}, 3.4580635548125*^9, { 3.458063707234375*^9, 3.458063717484375*^9}, {3.45813282875*^9, 3.458132829046875*^9}, {3.458132872875*^9, 3.458132875234375*^9}, { 3.45813338753125*^9, 3.45813338828125*^9}, {3.45813486578125*^9, 3.4581348715625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p14", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "6."}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "11"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4.5"}], ",", RowBox[{"-", "6."}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4."}], ",", RowBox[{"-", "11"}], ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "6."}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "11"}], ",", "4"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458051186453125*^9, 3.45805134140625*^9}, { 3.458051754171875*^9, 3.45805180471875*^9}, {3.45806064884375*^9, 3.45806067475*^9}, {3.45806071475*^9, 3.458060715859375*^9}, 3.4581335368125*^9, {3.45813487521875*^9, 3.458134878296875*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["tapamotoratras", "Subsection", CellChangeTimes->{{3.45806348071875*^9, 3.458063487375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p15", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "16"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "16"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "16"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "16"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "14"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"9", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "16"], "]"}]}]}], ",", RowBox[{"9", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "16"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"9", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], ",", RowBox[{"9", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"9", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "16"], "]"}]}]}], ",", RowBox[{"9", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "16"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "15"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "16"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "16"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.7"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.4"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "16"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "16"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "14"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458061633140625*^9, 3.458061697859375*^9}, { 3.458062379359375*^9, 3.4580624774375*^9}, {3.458062532671875*^9, 3.458062635859375*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["lineasatras", "Subsection", CellChangeTimes->{{3.458063464828125*^9, 3.45806346840625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p16", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"4", " ", SqrtBox["2"]}]}], ",", RowBox[{"4", " ", SqrtBox["2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "11"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "11"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "11"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "16"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "16"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "16"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "16"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "14"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458061496390625*^9, 3.45806149940625*^9}, { 3.458063006390625*^9, 3.458063014640625*^9}, {3.458063066609375*^9, 3.458063112640625*^9}, {3.45806315915625*^9, 3.45806316290625*^9}, { 3.45806323178125*^9, 3.458063278515625*^9}, {3.45806331425*^9, 3.458063317*^9}, {3.458065001890625*^9, 3.45806514178125*^9}, { 3.45806521959375*^9, 3.45806522059375*^9}, {3.45806526278125*^9, 3.4580652893125*^9}, {3.458065340515625*^9, 3.45806534409375*^9}, { 3.458065773828125*^9, 3.45806585396875*^9}, {3.458065904984375*^9, 3.458065936109375*^9}, {3.458065969734375*^9, 3.458066006828125*^9}, { 3.458133462*^9, 3.4581334635*^9}, {3.45977852725*^9, 3.45977853353125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p17", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"4", " ", SqrtBox["2"]}]}], ",", RowBox[{"4", " ", SqrtBox["2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "11"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4."}], ",", RowBox[{"-", "11"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "11"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "16"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "16"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.7"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.4"}], ",", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"8", " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "16"], "]"}]}]}], ",", RowBox[{"8", " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "16"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "14"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458061496390625*^9, 3.45806149940625*^9}, { 3.458063006390625*^9, 3.458063014640625*^9}, {3.458063066609375*^9, 3.458063112640625*^9}, {3.45806315915625*^9, 3.45806316290625*^9}, { 3.45806323178125*^9, 3.458063278515625*^9}, {3.45806331425*^9, 3.458063317*^9}, {3.458065001890625*^9, 3.45806514178125*^9}, { 3.45806521959375*^9, 3.45806522059375*^9}, {3.45806526278125*^9, 3.4580652893125*^9}, {3.458065340515625*^9, 3.45806534409375*^9}, { 3.458065773828125*^9, 3.45806585396875*^9}, {3.458065904984375*^9, 3.458065936109375*^9}, {3.458065969734375*^9, 3.458066006828125*^9}, { 3.45806620478125*^9, 3.4580662645625*^9}, 3.458133529265625*^9}] }, Closed]], Cell[CellGroupData[{ Cell["tapabarroatras", "Subsection", CellChangeTimes->{{3.458067014640625*^9, 3.4580670196875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p18", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "10"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "12"}], "+", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "12"}], "-", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "14"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "9.2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "10.02"}], ",", "1.97"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "12"}], ",", "2.8"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "13.97"}], ",", "1.97"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "14.8"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "10"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12"}], "+", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "12"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12"}], "-", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "14"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458066560875*^9, 3.45806663809375*^9}, 3.45806675015625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p19", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "10"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{ RowBox[{"-", "12"}], "+", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "12"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{ RowBox[{"-", "12"}], "-", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "14"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "9.2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "10.02"}], ",", "1.97"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "12"}], ",", "2.8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "13.97"}], ",", "1.97"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "14.8"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "10"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{ RowBox[{"-", "12"}], "+", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "12"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{ RowBox[{"-", "12"}], "-", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "14"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458066560875*^9, 3.45806663809375*^9}, { 3.45806675015625*^9, 3.45806686934375*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["llantas", "Subsection", CellChangeTimes->{{3.458135030125*^9, 3.458135031578125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p20", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3.06", ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.93", ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.93", ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3.06", ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3.5", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "3.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "3.06", ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2", ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0.93", ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0.93", ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "3.06", ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "3.5", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4581350386875*^9, 3.458135042546875*^9}, { 3.458135149296875*^9, 3.458135167328125*^9}, {3.45813522646875*^9, 3.45813531996875*^9}, {3.458135675265625*^9, 3.458135700203125*^9}, { 3.45813584225*^9, 3.4581358473125*^9}, {3.458136284609375*^9, 3.45813630103125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p21", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3.06", ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "2", ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0.93", ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0.93", ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "2", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3.06", ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3.5", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "3.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "3.06", ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "2", ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0.93", ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0.93", ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "2", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "3.06", ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "3.5", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4581350386875*^9, 3.458135042546875*^9}, { 3.458135149296875*^9, 3.458135167328125*^9}, {3.45813522646875*^9, 3.45813531996875*^9}, {3.458135675265625*^9, 3.458135700203125*^9}, { 3.45813584225*^9, 3.4581358473125*^9}, {3.45813596134375*^9, 3.45813603715625*^9}, {3.45813607909375*^9, 3.4581361069375*^9}, { 3.458136305625*^9, 3.4581363205*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p22", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "10.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "10.93"}], ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "13.06"}], ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "13.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "13.06"}], ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "10.93"}], ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "10.5"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "10.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "10.93"}], ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "12"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "13.06"}], ",", "1.060"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "13.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "13.06"}], ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "12"}], ",", RowBox[{"-", "1.5`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "10.93"}], ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "10.5"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4581366173125*^9, 3.458136727125*^9}, { 3.45813693728125*^9, 3.45813694671875*^9}, {3.458137049453125*^9, 3.458137063890625*^9}, {3.45813716028125*^9, 3.4581372360625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p23", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "10.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "10.93"}], ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "12"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "13.06"}], ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "13.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "13.06"}], ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "12"}], ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "10.93"}], ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "10.5"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "10.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "10.93"}], ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "12"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "13.06"}], ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "13.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "13.06"}], ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "12"}], ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "10.93"}], ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "10.5"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4581364781875*^9, 3.458136601984375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p24", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3.06", ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.93", ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.93", ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3.06", ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3.5", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45813724878125*^9, 3.458137331203125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p25", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3.06", ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "2", ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0.93", ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0.93", ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "2", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3.06", ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3.5", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "2", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45813743203125*^9, 3.458137479*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p26", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "10.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "10.93"}], ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "13.06"}], ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "13.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "13.06"}], ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "10.93"}], ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "10.5"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458137483359375*^9, 3.45813753271875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p27", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "10.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "10.93"}], ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "12"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "13.06"}], ",", "1.06"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "13.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "13.06"}], ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "12"}], ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "10.93"}], ",", RowBox[{"-", "1.06"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "10.5"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "12"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.458137535140625*^9, 3.458137573375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m1", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p1"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p1", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p1", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610228751449*^9}, {3.45804930825*^9, 3.458049332875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m2", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p2"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p2", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p2", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.45804931178125*^9, 3.458049337078125*^9}, { 3.45813479878125*^9, 3.458134807421875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m3", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p3"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p3", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p3", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.458049315640625*^9, 3.4580493396875*^9}, 3.45813403634375*^9, 3.45813481134375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"m4", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p4"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p4", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p4", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.45804931890625*^9, 3.458049342296875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m5", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p5"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p5", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p5", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049321546875*^9, 3.4580493460625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m6", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p6"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p6", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p6", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"m7", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p7"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p7", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p7", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m8", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p8"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p8", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p8", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m9", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p9"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p9", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p9", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.45805317109375*^9, 3.458053181734375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m10", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p10"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p10", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p10", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053185328125*^9, 3.458053200015625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m11", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p11"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p11", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p11", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.45805320378125*^9, 3.458053212796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m12", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p12"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p12", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p12", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m13", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p13"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p13", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p13", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.45805320378125*^9, 3.458053212796875*^9}, {3.458061328640625*^9, 3.45806133971875*^9}, {3.45813326196875*^9, 3.4581332718125*^9}, { 3.45813339521875*^9, 3.458133403125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m14", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p14"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p14", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p14", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m15", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p15"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p15", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p15", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m16", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p16"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p16", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p16", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}, { 3.458065154515625*^9, 3.45806516203125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m17", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p17"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p17", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p17", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}, { 3.458065154515625*^9, 3.45806516203125*^9}, {3.458066277109375*^9, 3.45806628484375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m18", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p18"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p18", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p18", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}, { 3.458065154515625*^9, 3.45806516203125*^9}, {3.458066277109375*^9, 3.45806628484375*^9}, {3.458066656859375*^9, 3.458066663953125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m19", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p19"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "p19", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p19", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}, { 3.458065154515625*^9, 3.45806516203125*^9}, {3.458066277109375*^9, 3.45806628484375*^9}, {3.458066656859375*^9, 3.458066663953125*^9}, { 3.458066880140625*^9, 3.45806688928125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m20", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p20"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", "p20", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p20", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}, { 3.458065154515625*^9, 3.45806516203125*^9}, {3.458066277109375*^9, 3.45806628484375*^9}, {3.458066656859375*^9, 3.458066663953125*^9}, { 3.458066880140625*^9, 3.45806688928125*^9}, {3.4581351763125*^9, 3.45813519578125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m21", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p21"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", "p21", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p21", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}, { 3.458065154515625*^9, 3.45806516203125*^9}, {3.458066277109375*^9, 3.45806628484375*^9}, {3.458066656859375*^9, 3.458066663953125*^9}, { 3.458066880140625*^9, 3.45806688928125*^9}, {3.4581351763125*^9, 3.45813519578125*^9}, {3.45813605365625*^9, 3.458136061578125*^9}, 3.458136198734375*^9, 3.458136414328125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"m22", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p22"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", "p22", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p22", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}, { 3.458065154515625*^9, 3.45806516203125*^9}, {3.458066277109375*^9, 3.45806628484375*^9}, {3.458066656859375*^9, 3.458066663953125*^9}, { 3.458066880140625*^9, 3.45806688928125*^9}, {3.4581351763125*^9, 3.45813519578125*^9}, {3.45813674134375*^9, 3.458136750375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m23", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p23"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", "p23", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p23", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}, { 3.458065154515625*^9, 3.45806516203125*^9}, {3.458066277109375*^9, 3.45806628484375*^9}, {3.458066656859375*^9, 3.458066663953125*^9}, { 3.458066880140625*^9, 3.45806688928125*^9}, {3.4581351763125*^9, 3.45813519578125*^9}, {3.45813605365625*^9, 3.458136061578125*^9}, 3.458136198734375*^9, 3.458136414328125*^9, {3.458136753828125*^9, 3.458136764171875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m24", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p24"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", "p24", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p24", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}, { 3.458065154515625*^9, 3.45806516203125*^9}, {3.458066277109375*^9, 3.45806628484375*^9}, {3.458066656859375*^9, 3.458066663953125*^9}, { 3.458066880140625*^9, 3.45806688928125*^9}, {3.4581351763125*^9, 3.45813519578125*^9}, {3.45813605365625*^9, 3.458136061578125*^9}, 3.458136198734375*^9, 3.458136414328125*^9, {3.458136753828125*^9, 3.458136764171875*^9}, {3.458137340875*^9, 3.4581373544375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m25", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p25"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", "p25", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p25", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}, { 3.458065154515625*^9, 3.45806516203125*^9}, {3.458066277109375*^9, 3.45806628484375*^9}, {3.458066656859375*^9, 3.458066663953125*^9}, { 3.458066880140625*^9, 3.45806688928125*^9}, {3.4581351763125*^9, 3.45813519578125*^9}, {3.45813605365625*^9, 3.458136061578125*^9}, 3.458136198734375*^9, 3.458136414328125*^9, {3.458136753828125*^9, 3.458136764171875*^9}, {3.458137340875*^9, 3.4581373544375*^9}, { 3.4581375841875*^9, 3.458137591859375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m26", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p26"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", "p26", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p26", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}, { 3.458065154515625*^9, 3.45806516203125*^9}, {3.458066277109375*^9, 3.45806628484375*^9}, {3.458066656859375*^9, 3.458066663953125*^9}, { 3.458066880140625*^9, 3.45806688928125*^9}, {3.4581351763125*^9, 3.45813519578125*^9}, {3.45813605365625*^9, 3.458136061578125*^9}, 3.458136198734375*^9, 3.458136414328125*^9, {3.458136753828125*^9, 3.458136764171875*^9}, {3.458137340875*^9, 3.4581373544375*^9}, { 3.4581375946875*^9, 3.458137603359375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m27", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "/@", "p27"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", "p27", "]"}], ",", RowBox[{"Line", "[", RowBox[{"Transpose", "[", "p27", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457609599452965*^9, 3.4576097060840645`*^9}, { 3.4576097610400033`*^9, 3.4576098151521487`*^9}, {3.457609923454569*^9, 3.4576099702694654`*^9}, {3.457610103916933*^9, 3.457610110370388*^9}, { 3.457610152263158*^9, 3.4576101636231146`*^9}, {3.4576102227667675`*^9, 3.457610268456607*^9}, {3.457610397900734*^9, 3.4576104136827917`*^9}, { 3.4576115504485188`*^9, 3.4576115603707743`*^9}, {3.457611751284014*^9, 3.4576117609249477`*^9}, {3.458049141484375*^9, 3.45804917046875*^9}, { 3.458049324546875*^9, 3.45804934896875*^9}, {3.4580495734375*^9, 3.45804957796875*^9}, 3.458051074375*^9, {3.458051350625*^9, 3.458051357890625*^9}, {3.458051814328125*^9, 3.45805182159375*^9}, { 3.458053215765625*^9, 3.45805323128125*^9}, {3.458061342796875*^9, 3.4580613515*^9}, {3.45806171315625*^9, 3.458061734*^9}, { 3.458065154515625*^9, 3.45806516203125*^9}, {3.458066277109375*^9, 3.45806628484375*^9}, {3.458066656859375*^9, 3.458066663953125*^9}, { 3.458066880140625*^9, 3.45806688928125*^9}, {3.4581351763125*^9, 3.45813519578125*^9}, {3.45813605365625*^9, 3.458136061578125*^9}, 3.458136198734375*^9, 3.458136414328125*^9, {3.458136753828125*^9, 3.458136764171875*^9}, {3.458137340875*^9, 3.4581373544375*^9}, { 3.45813760675*^9, 3.4581376138125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pp", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "10"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "12"}], "+", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "12"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "12"}], "-", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "14"}], ",", "0"}], "}"}]}], "}"}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4580500913125*^9, 3.4580501478125*^9}, 3.458050313796875*^9, {3.4580504449375*^9, 3.458050449265625*^9}, 3.45806453253125*^9, {3.45806458221875*^9, 3.458064582671875*^9}, { 3.458064844015625*^9, 3.458064872453125*^9}, {3.45806586721875*^9, 3.458065868453125*^9}, {3.45806592225*^9, 3.45806592359375*^9}, { 3.458066514640625*^9, 3.45806653759375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"kk", "=", RowBox[{"Show", "[", RowBox[{ "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6", ",", "m7", ",", "m8", ",", "m9", ",", "m10", ",", "m11", ",", "m12", ",", "m13", ",", "m14", ",", "m15", ",", "m16", ",", "m17", ",", "m18", ",", "m19", ",", "m20", ",", "m21", ",", "m22", ",", "m23", ",", "m24", ",", "m25", ",", "m26", ",", "m27"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4576102721286697`*^9, 3.4576102794884214`*^9}, { 3.45761041804239*^9, 3.4576104190580673`*^9}, {3.4576106735867233`*^9, 3.457610674852397*^9}, {3.4576115644021797`*^9, 3.457611565261587*^9}, { 3.457611764706319*^9, 3.45761176522196*^9}, {3.458047277515625*^9, 3.45804727796875*^9}, {3.45804761534375*^9, 3.45804761590625*^9}, { 3.45804915440625*^9, 3.458049155484375*^9}, {3.458050154359375*^9, 3.458050155*^9}, {3.458051361296875*^9, 3.4580513618125*^9}, { 3.458051825109375*^9, 3.45805182615625*^9}, {3.45805323515625*^9, 3.458053255921875*^9}, {3.458061357609375*^9, 3.458061362359375*^9}, { 3.458061737421875*^9, 3.45806173840625*^9}, {3.45806453825*^9, 3.458064539765625*^9}, {3.458065165453125*^9, 3.458065167046875*^9}, { 3.458065669484375*^9, 3.458065670125*^9}, {3.458065873578125*^9, 3.45806587415625*^9}, {3.45806629075*^9, 3.45806629215625*^9}, { 3.45806666778125*^9, 3.458066672484375*^9}, {3.45806689334375*^9, 3.458066894390625*^9}, {3.458133313234375*^9, 3.458133313625*^9}, { 3.458134820734375*^9, 3.45813482125*^9}, {3.458135199140625*^9, 3.45813520221875*^9}, {3.4581360650625*^9, 3.458136067515625*^9}, { 3.458136768578125*^9, 3.458136771765625*^9}, {3.45813736046875*^9, 3.458137363578125*^9}, {3.45813761753125*^9, 3.458137624828125*^9}, 3.459778560890625*^9}] }, Closed]], Cell[CellGroupData[{ Cell["tapamotor", "Subsection", CellChangeTimes->{{3.458059847859375*^9, 3.458059852859375*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461881784515625*^9, 3.46188179221875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p2", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p3", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.461881850390625*^9, 3.4618818948125*^9}, { 3.461881955640625*^9, 3.46188196521875*^9}, {3.46188200209375*^9, 3.461882007671875*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["tapabarro", "Subsection", CellChangeTimes->{{3.458059921703125*^9, 3.458059924109375*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461881784515625*^9, 3.46188179221875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t2", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p4", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p5", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.461881850390625*^9, 3.4618818948125*^9}, { 3.461881955640625*^9, 3.46188196521875*^9}, {3.46188200209375*^9, 3.46188204553125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["techo", "Subsection", CellChangeTimes->{{3.458059997390625*^9, 3.45805999896875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461881784515625*^9, 3.46188179221875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t3", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p6", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.461881850390625*^9, 3.4618818948125*^9}, { 3.461881955640625*^9, 3.46188196521875*^9}, {3.46188200209375*^9, 3.461882081046875*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["puertasdelanteras", "Subsection", CellChangeTimes->{{3.458060053234375*^9, 3.45806009028125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461881784515625*^9, 3.46188179221875*^9}, {3.461882108609375*^9, 3.46188211375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t4", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p7", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p8", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p13", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p14", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.461881850390625*^9, 3.4618818948125*^9}, { 3.461881955640625*^9, 3.46188196521875*^9}, {3.46188200209375*^9, 3.461882081046875*^9}, {3.461882122484375*^9, 3.46188218340625*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["lineasadelante", "Subsection", CellChangeTimes->{{3.458060098109375*^9, 3.4580600999375*^9}, { 3.458062959171875*^9, 3.458062962140625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461881784515625*^9, 3.46188179221875*^9}, {3.461882108609375*^9, 3.46188211375*^9}, 3.461882208609375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"t5", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p9", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p10", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p11", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p12", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.461881850390625*^9, 3.4618818948125*^9}, { 3.461881955640625*^9, 3.46188196521875*^9}, {3.46188200209375*^9, 3.461882081046875*^9}, {3.461882122484375*^9, 3.46188218340625*^9}, { 3.461882217609375*^9, 3.461882275359375*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["tapamotordetras", "Subsection", CellChangeTimes->{{3.4580627459375*^9, 3.45806275378125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "2", ",", "2"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461881784515625*^9, 3.46188179221875*^9}, {3.461882108609375*^9, 3.46188211375*^9}, 3.461882208609375*^9, {3.46188230178125*^9, 3.461882306421875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t6", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p15", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.461881850390625*^9, 3.4618818948125*^9}, { 3.461881955640625*^9, 3.46188196521875*^9}, {3.46188200209375*^9, 3.461882081046875*^9}, {3.461882122484375*^9, 3.46188218340625*^9}, { 3.461882217609375*^9, 3.461882275359375*^9}, {3.461882312921875*^9, 3.46188233740625*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["lineasatras", "Subsection", CellChangeTimes->{{3.458062966984375*^9, 3.45806297046875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "2", ",", "2"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461881784515625*^9, 3.46188179221875*^9}, {3.461882108609375*^9, 3.46188211375*^9}, 3.461882208609375*^9, {3.46188230178125*^9, 3.461882306421875*^9}, 3.461882355734375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"t7", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p16", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p17", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.461881850390625*^9, 3.4618818948125*^9}, { 3.461881955640625*^9, 3.46188196521875*^9}, {3.46188200209375*^9, 3.461882081046875*^9}, {3.461882122484375*^9, 3.46188218340625*^9}, { 3.461882217609375*^9, 3.461882275359375*^9}, {3.461882312921875*^9, 3.46188238403125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["tapabarroatras", "Subsection", CellChangeTimes->{{3.4580670340625*^9, 3.45806703946875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461881784515625*^9, 3.46188179221875*^9}, {3.461882108609375*^9, 3.46188211375*^9}, 3.461882208609375*^9, {3.46188230178125*^9, 3.461882306421875*^9}, 3.461882355734375*^9, {3.461882403078125*^9, 3.461882409015625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t8", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p18", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p19", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.461881850390625*^9, 3.4618818948125*^9}, { 3.461881955640625*^9, 3.46188196521875*^9}, {3.46188200209375*^9, 3.461882081046875*^9}, {3.461882122484375*^9, 3.46188218340625*^9}, { 3.461882217609375*^9, 3.461882275359375*^9}, {3.461882312921875*^9, 3.46188238403125*^9}, {3.461882414125*^9, 3.461882430203125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["llantas", "Subsection", CellChangeTimes->{{3.458135365328125*^9, 3.458135366875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "7", ",", "7"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461881784515625*^9, 3.46188179221875*^9}, {3.461882108609375*^9, 3.46188211375*^9}, 3.461882208609375*^9, {3.46188230178125*^9, 3.461882306421875*^9}, 3.461882355734375*^9, {3.461882403078125*^9, 3.461882409015625*^9}, { 3.46188245325*^9, 3.46188245975*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t9", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p20", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p21", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p22", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p23", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p24", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p25", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p26", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p27", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.461881850390625*^9, 3.4618818948125*^9}, { 3.461881955640625*^9, 3.46188196521875*^9}, {3.46188200209375*^9, 3.461882081046875*^9}, {3.461882122484375*^9, 3.46188218340625*^9}, { 3.461882217609375*^9, 3.461882275359375*^9}, {3.461882312921875*^9, 3.46188238403125*^9}, {3.461882414125*^9, 3.461882430203125*^9}, { 3.461882469484375*^9, 3.4618825411875*^9}}], Cell[BoxData[ RowBox[{"tt", "=", RowBox[{"Show", "[", RowBox[{ "t1", ",", "t2", ",", "t3", ",", "t4", ",", "t5", ",", "t6", ",", "t7", ",", "t8", ",", "t9"}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwtz08ow2Ecx/EnM3aZ0zRSxObPRUptljjIQXbchRZ+mclJprRC2RMpdpHa QVxktJMDtjXjdxktsTjTbKw2aSWWg93s+X6ew9Or9/f7vTytrgXHbBVjrLPy hB13b95M4nMo9pRbFr5MFXzCAUXPhU2q80R4m9gPCZMuR1h4nl+NkKaWR6HR PEJqyzXfQme5i1wJ1mqyFcNBE8l4veXiRtgP2VYE9kZh8zP2PVKDJ0Jz3yI8 TUJV+lsgufYDqg1R0thIslQfWmODoTGYlurnceeWxgLwFfLur0tqBfLdujiZ lwZsMCzVjV7RvRVyxQ2PIfvZho1+OHMId6SGIhyG3HJwTa5B5imhA9J3s0pz XTvJ/YNoFfLSBAxPwvRchvyDrK0I7VKrMYv/SjcUkm9Oo9dD6DPI4vcwl4J7 49UPYm93kiyxhD7yCv8Bah88cA== "]], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"kk", ",", "tt"}], "]"}]], "Input", CellChangeTimes->{{3.458052004484375*^9, 3.458052039296875*^9}, { 3.45805329046875*^9, 3.45805329490625*^9}, {3.461882808921875*^9, 3.46188280903125*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Carro", "Section", CellChangeTimes->{{3.461880534796875*^9, 3.461880536359375*^9}, { 3.461883275390625*^9, 3.461883276265625*^9}}], Cell["Mechato Durand, Josel", "Text", CellChangeTimes->{{3.461882681546875*^9, 3.4618826834375*^9}}], Cell[CellGroupData[{ Cell["Primera parte", "Subsection", CellChangeTimes->{{3.46188293465625*^9, 3.46188293753125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"matriz", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"40", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "240", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "242", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "230.6", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "232.6", ",", "97.5"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "251.2", ",", "103.5"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "254", ",", "135.5"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "241.2", ",", "149"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "256", ",", "198"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "241.2", ",", "239"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "234", ",", "267"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "186.6", ",", "287"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "139.2", ",", "304"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "98", ",", "309"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "46.6", ",", "313.5"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "0", ",", "317"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"200", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "154.6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "156", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "155.2", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "157.2", ",", "97"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "250.6", ",", "103.5"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "254.6", ",", "135"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "240", ",", "149.5"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "256.6", ",", "197"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "242", ",", "239"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "234", ",", "266"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "186", ",", "287"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "138", ",", "304"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "98", ",", "309"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "46.6", ",", "313.5"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "0", ",", "315.5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"340", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "154", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "156", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "156", ",", "39"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "158.6", ",", "97.5"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "252", ",", "104"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "254", ",", "135.5"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "242", ",", "147.5"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "266", ",", "225"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "254.6", ",", "248"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "247.2", ",", "282"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "231.2", ",", "283.5"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "201.2", ",", "323"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "182.6", ",", "347.5"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "154", ",", "343.5"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "0", ",", "360"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"450", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "240", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "242", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "230.6", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "234.6", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "240", ",", "191.5"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "225.2", ",", "226"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "208", ",", "241.5"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "202.6", ",", "285"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "198.6", ",", "319.5"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "205.2", ",", "337"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "180", ",", "365.5"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "158.6", ",", "364"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "132.6", ",", "377"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "86", ",", "378"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "0", ",", "388"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"650", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "240", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "242", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "230.6", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "234.6", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "240", ",", "191.5"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "225.2", ",", "226"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "208", ",", "241.5"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "202.6", ",", "285"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "198.6", ",", "319.5"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "205.2", ",", "337"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "180", ",", "365.5"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "158.6", ",", "364"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "132.6", ",", "377"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "86", ",", "378"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "0", ",", "388"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"800", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "241.2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "241.2", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "230", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "232", ",", "97.5"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "238", ",", "149.5"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "252.6", ",", "209"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "252.6", ",", "229.5"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "242.6", ",", "245"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "220", ",", "255.5"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "216", ",", "269"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "197.2", ",", "275.5"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "180", ",", "268"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "111.2", ",", "291.5"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "47.2", ",", "302"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "0", ",", "306"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"960", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "154.6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "155.2", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "156.6", ",", "35.5"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "156.6", ",", "106"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "165.2", ",", "119.5"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "251.2", ",", "123.5"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "264.6", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "261.2", ",", "150"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "246", ",", "165.5"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "246.6", ",", "201"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "238.6", ",", "212"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "220", ",", "221.5"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "194.6", ",", "240"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "160", ",", "237.5"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "0", ",", "253"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1130", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "240", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "242.6", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "231.2", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "230", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "226", ",", "125.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "210.6", ",", "137.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "200.6", ",", "159"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "154.6", ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "146.6", ",", "187"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "130.6", ",", "197.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "110", ",", "202"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "77.2", ",", "207.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "51.2", ",", "209"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "21.2", ",", "211.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "213"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.461882834234375*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "9", ",", "9"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"g1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.95", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"matriz", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Segunda parte", "Subsection", CellChangeTimes->{{3.46188293465625*^9, 3.46188293753125*^9}, { 3.461882989328125*^9, 3.461882990453125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"matriz1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "98"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"40", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "240"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "242"}], ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "230.6"}], ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "232.6"}], ",", "97.5"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "251.2"}], ",", "103.5"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "254"}], ",", "135.5"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "241.2"}], ",", "149"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "256"}], ",", "198"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "241.2"}], ",", "239"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "234"}], ",", "267"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "186.6"}], ",", "287"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "139.2"}], ",", "304"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "98"}], ",", "309"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", RowBox[{"-", "46.6"}], ",", "313.5"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "0", ",", "317"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"200", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "154.6`"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "156"}], ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "155.2`"}], ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "157.2`"}], ",", "97"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "250.6`"}], ",", "103.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "254.6`"}], ",", "135"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "240"}], ",", "149.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "256.6`"}], ",", "197"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "242"}], ",", "239"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "234"}], ",", "266"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "186"}], ",", "287"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "138"}], ",", "304"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "98"}], ",", "309"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", RowBox[{"-", "46.6`"}], ",", "313.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "0", ",", "315.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"340", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "154"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "156"}], ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "156"}], ",", "39"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "158.6`"}], ",", "97.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "252"}], ",", "104"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "254"}], ",", "135.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "242"}], ",", "147.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "266"}], ",", "225"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "254.6`"}], ",", "248"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "247.2`"}], ",", "282"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "231.2`"}], ",", "283.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "201.2`"}], ",", "323"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "182.6`"}], ",", "347.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", RowBox[{"-", "154"}], ",", "343.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"340", ",", "0", ",", "360"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"450", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "240"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "242"}], ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "230.6`"}], ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "234.6`"}], ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "240"}], ",", "191.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "225.2`"}], ",", "226"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "208"}], ",", "241.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "202.6`"}], ",", "285"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "198.6`"}], ",", "319.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "205.2`"}], ",", "337"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "180"}], ",", "365.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "158.6`"}], ",", "364"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "132.6`"}], ",", "377"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", RowBox[{"-", "86"}], ",", "378"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "0", ",", "388"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"650", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "240"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "242"}], ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "230.6`"}], ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "234.6`"}], ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "240"}], ",", "191.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "225.2`"}], ",", "226"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "208"}], ",", "241.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "202.6`"}], ",", "285"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "198.6`"}], ",", "319.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "205.2`"}], ",", "337"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "180"}], ",", "365.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "158.6`"}], ",", "364"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "132.6`"}], ",", "377"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "86"}], ",", "378"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "0", ",", "388"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"800", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "241.2`"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "241.2`"}], ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "230"}], ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "232"}], ",", "97.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "238"}], ",", "149.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "252.6`"}], ",", "209"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "252.6`"}], ",", "229.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "242.6`"}], ",", "245"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "220"}], ",", "255.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "216"}], ",", "269"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "197.2`"}], ",", "275.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "180"}], ",", "268"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "111.2`"}], ",", "291.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", RowBox[{"-", "47.2`"}], ",", "302"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "0", ",", "306"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"960", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "154.6`"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "155.2`"}], ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "156.6`"}], ",", "35.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "156.6`"}], ",", "106"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "165.2`"}], ",", "119.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "251.2`"}], ",", "123.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "264.6`"}], ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "261.2`"}], ",", "150"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "246"}], ",", "165.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "246.6`"}], ",", "201"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "238.6`"}], ",", "212"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "220"}], ",", "221.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "194.6`"}], ",", "240"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", RowBox[{"-", "160"}], ",", "237.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"960", ",", "0", ",", "253"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1130", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "240"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "242.6"}], ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "231.2"}], ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "230"}], ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "226"}], ",", "125.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "210.6"}], ",", "137.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "200.6"}], ",", "159"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "154.6"}], ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "146.6"}], ",", "187"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "130.6"}], ",", "197.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "110"}], ",", "202"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "77.2"}], ",", "207.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "51.2"}], ",", "209"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", RowBox[{"-", "21.2"}], ",", "211.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "213"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0.`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0.`", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"1130", ",", "0", ",", "98"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.461883005796875*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "9", ",", "9"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, {3.46188303484375*^9, 3.461883046328125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"g2", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.95", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"matriz1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.461883056484375*^9, 3.461883077015625*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Llantas", "Subsection", CellChangeTimes->{{3.46188293465625*^9, 3.46188293753125*^9}, { 3.461882989328125*^9, 3.461882990453125*^9}, {3.461883100234375*^9, 3.461883101921875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"c1", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"70", RowBox[{"Cos", "[", "u", "]"}]}], ",", "v", ",", RowBox[{"70", RowBox[{"Sin", "[", "u", "]"}]}]}], "}"}], "+", RowBox[{"{", RowBox[{"950", ",", "180", ",", "45.75"}], "}"}]}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "45.75"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4599840657549033`*^9, 3.459984100457806*^9}, { 3.4599842227226486`*^9, 3.459984478971009*^9}, {3.459984550798674*^9, 3.4599845530955343`*^9}, {3.4599846119389076`*^9, 3.4599846462824383`*^9}, {3.459984684094696*^9, 3.4599846857040606`*^9}, { 3.459984929593125*^9, 3.4599849421399193`*^9}, 3.4599850414830337`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"l1", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v", " ", RowBox[{"Cos", "[", "u", "]"}]}], ",", "45.75", ",", RowBox[{"v", " ", RowBox[{"Sin", "[", "u", "]"}]}]}], "}"}], "+", RowBox[{"{", RowBox[{"950", ",", "180", ",", "45.75"}], "}"}]}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "70"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459984690204032*^9, 3.459984704563315*^9}, { 3.4599847464692965`*^9, 3.4599847899690185`*^9}, {3.4599848302500105`*^9, 3.4599848305468836`*^9}, {3.45998495065549*^9, 3.459984961264797*^9}, { 3.459985003155154*^9, 3.4599850241706443`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"lla1", "=", RowBox[{"Show", "[", RowBox[{"c1", ",", "l1"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4599847948283625`*^9, 3.4599848074845314`*^9}, 3.46188316*^9}], Cell[BoxData[ RowBox[{ RowBox[{"c2", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"70", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{"-", "v"}], ",", RowBox[{"70", RowBox[{"Sin", "[", "u", "]"}]}]}], "}"}], "+", RowBox[{"{", RowBox[{"950", ",", RowBox[{"-", "180"}], ",", "45.75"}], "}"}]}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "45.75"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4599840657549033`*^9, 3.459984100457806*^9}, { 3.4599842227226486`*^9, 3.459984478971009*^9}, {3.459984550798674*^9, 3.4599845530955343`*^9}, {3.4599846119389076`*^9, 3.4599846462824383`*^9}, {3.459984684094696*^9, 3.4599846857040606`*^9}, { 3.459984929593125*^9, 3.4599849421399193`*^9}, 3.4599850414830337`*^9, 3.4599851042482567`*^9, 3.459985138107415*^9, 3.4599851952632995`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"l2", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v", " ", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{"-", "45.75"}], ",", RowBox[{"v", " ", RowBox[{"Sin", "[", "u", "]"}]}]}], "}"}], "+", RowBox[{"{", RowBox[{"950", ",", RowBox[{"-", "180"}], ",", "45.75"}], "}"}]}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "70"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459984690204032*^9, 3.459984704563315*^9}, { 3.4599847464692965`*^9, 3.4599847899690185`*^9}, {3.4599848302500105`*^9, 3.4599848305468836`*^9}, {3.45998495065549*^9, 3.459984961264797*^9}, { 3.459985003155154*^9, 3.4599850241706443`*^9}, 3.45998510687324*^9, 3.4599851414667687`*^9, 3.459985198122656*^9}], Cell[BoxData[ RowBox[{ RowBox[{"lla2", "=", RowBox[{"Show", "[", RowBox[{"c2", ",", "l2"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4599847948283625`*^9, 3.4599848074845314`*^9}, { 3.4599851264043655`*^9, 3.45998513040434*^9}, 3.46188316615625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"c3", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"70", RowBox[{"Cos", "[", "u", "]"}]}], ",", "v", ",", RowBox[{"70", RowBox[{"Sin", "[", "u", "]"}]}]}], "}"}], "+", RowBox[{"{", RowBox[{"250", ",", "180", ",", "45.75"}], "}"}]}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "45.75"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4599840657549033`*^9, 3.459984100457806*^9}, { 3.4599842227226486`*^9, 3.459984478971009*^9}, {3.459984550798674*^9, 3.4599845530955343`*^9}, {3.4599846119389076`*^9, 3.4599846462824383`*^9}, {3.459984684094696*^9, 3.4599846857040606`*^9}, { 3.459984929593125*^9, 3.4599849421399193`*^9}, 3.4599850414830337`*^9, { 3.459985240778633*^9, 3.4599852693097005`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"l3", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v", " ", RowBox[{"Cos", "[", "u", "]"}]}], ",", "45.75", ",", RowBox[{"v", " ", RowBox[{"Sin", "[", "u", "]"}]}]}], "}"}], "+", RowBox[{"{", RowBox[{"250", ",", "180", ",", "45.75"}], "}"}]}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "70"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459984690204032*^9, 3.459984704563315*^9}, { 3.4599847464692965`*^9, 3.4599847899690185`*^9}, {3.4599848302500105`*^9, 3.4599848305468836`*^9}, {3.45998495065549*^9, 3.459984961264797*^9}, { 3.459985003155154*^9, 3.4599850241706443`*^9}, {3.4599852420598745`*^9, 3.4599852896845703`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"lla3", "=", RowBox[{"Show", "[", RowBox[{"c3", ",", "l3"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4599847948283625`*^9, 3.4599848074845314`*^9}, { 3.459985243528616*^9, 3.4599852468254695`*^9}, 3.461883172625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"c4", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"70", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{"-", "v"}], ",", RowBox[{"70", RowBox[{"Sin", "[", "u", "]"}]}]}], "}"}], "+", RowBox[{"{", RowBox[{"250", ",", RowBox[{"-", "180"}], ",", "45.75"}], "}"}]}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "45.75"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4599840657549033`*^9, 3.459984100457806*^9}, { 3.4599842227226486`*^9, 3.459984478971009*^9}, {3.459984550798674*^9, 3.4599845530955343`*^9}, {3.4599846119389076`*^9, 3.4599846462824383`*^9}, {3.459984684094696*^9, 3.4599846857040606`*^9}, { 3.459984929593125*^9, 3.4599849421399193`*^9}, 3.4599850414830337`*^9, { 3.4599853073250823`*^9, 3.4599853176062665`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"l4", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v", " ", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{"-", "45.75"}], ",", RowBox[{"v", " ", RowBox[{"Sin", "[", "u", "]"}]}]}], "}"}], "+", RowBox[{"{", RowBox[{"250", ",", RowBox[{"-", "180"}], ",", "45.75"}], "}"}]}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "70"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459984690204032*^9, 3.459984704563315*^9}, { 3.4599847464692965`*^9, 3.4599847899690185`*^9}, {3.4599848302500105`*^9, 3.4599848305468836`*^9}, {3.45998495065549*^9, 3.459984961264797*^9}, { 3.459985003155154*^9, 3.4599850241706443`*^9}, {3.4599853030126095`*^9, 3.459985331199929*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"lla4", "=", RowBox[{"Show", "[", RowBox[{"c4", ",", "l4"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.461883189875*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Carro", "Subsection", CellChangeTimes->{{3.46188322*^9, 3.461883222375*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ "g1", ",", "g2", ",", "lla1", ",", "lla2", ",", "lla3", ",", "lla4", ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{ 3.461883204234375*^9, {3.461883234734375*^9, 3.461883247546875*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Copa", "Section", CellChangeTimes->{{3.461880534796875*^9, 3.461880536359375*^9}, { 3.46188349228125*^9, 3.4618834928125*^9}}], Cell["Ram\[IAcute]rez Pingo, Juan Orlando", "Text", CellChangeTimes->{{3.461883501328125*^9, 3.46188352978125*^9}, 3.461959830875*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"p1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"6.", ",", "11."}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.", ",", "11."}], "}"}], ",", RowBox[{"{", RowBox[{"5.77", ",", "9.85"}], "}"}], ",", RowBox[{"{", RowBox[{"5.12", ",", "8.88"}], "}"}], ",", RowBox[{"{", RowBox[{"4.15", ",", "8.23"}], "}"}], ",", RowBox[{"{", RowBox[{"3.", ",", "8."}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.", ",", "8."}], "}"}], ",", RowBox[{"{", RowBox[{"2.23", ",", "7.85"}], "}"}], ",", RowBox[{"{", RowBox[{"1.59", ",", "7.41"}], "}"}], ",", RowBox[{"{", RowBox[{"1.15", ",", "6.77"}], "}"}], ",", RowBox[{"{", RowBox[{"1.", ",", "6."}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p4", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.", ",", "6."}], "}"}], ",", RowBox[{"{", RowBox[{"1.", ",", "2."}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p5", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.", ",", "2."}], "}"}], ",", RowBox[{"{", RowBox[{"1.08", ",", "1.62"}], "}"}], ",", RowBox[{"{", RowBox[{"1.29", ",", "1.29"}], "}"}], ",", RowBox[{"{", RowBox[{"1.62", ",", "1.08"}], "}"}], ",", RowBox[{"{", RowBox[{"2.", ",", "1."}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p6", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.", ",", "1."}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0.5"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p7", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.448383404078125*^9, 3.448383789421875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", RowBox[{ RowBox[{"p1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{"p1", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p1", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.448125170171875*^9, 3.448125273921875*^9}, { 3.448125452953125*^9, 3.44812553540625*^9}, 3.44812603128125*^9, { 3.44812869075*^9, 3.4481287033125*^9}, {3.448141859421875*^9, 3.4481418753125*^9}, {3.44814190821875*^9, 3.44814192171875*^9}, { 3.44838380853125*^9, 3.448383834375*^9}, {3.461883761609375*^9, 3.461883764171875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p2", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", RowBox[{ RowBox[{"p2", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{"p2", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p2", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.44838386821875*^9, 3.44838387925*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p3", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", RowBox[{ RowBox[{"p3", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{"p3", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p3", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.44838386821875*^9, 3.44838387925*^9}, { 3.448383927515625*^9, 3.44838393896875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun4", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p4", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", RowBox[{ RowBox[{"p4", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{"p4", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p4", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.44838386821875*^9, 3.44838387925*^9}, { 3.448383927515625*^9, 3.44838393896875*^9}, {3.448383970984375*^9, 3.448383979984375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun5", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p5", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", RowBox[{ RowBox[{"p5", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{"p5", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p5", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.44838386821875*^9, 3.44838387925*^9}, { 3.448383927515625*^9, 3.44838393896875*^9}, {3.448383970984375*^9, 3.448383979984375*^9}, {3.44838401121875*^9, 3.448384021421875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun6", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p6", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", RowBox[{ RowBox[{"p6", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{"p6", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p6", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.44838386821875*^9, 3.44838387925*^9}, { 3.448383927515625*^9, 3.44838393896875*^9}, {3.448383970984375*^9, 3.448383979984375*^9}, {3.44838401121875*^9, 3.448384021421875*^9}, { 3.448384058671875*^9, 3.44838406890625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p7", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", RowBox[{ RowBox[{"p7", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{"p7", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p7", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.44838386821875*^9, 3.44838387925*^9}, { 3.448383927515625*^9, 3.44838393896875*^9}, {3.448383970984375*^9, 3.448383979984375*^9}, {3.44838401121875*^9, 3.448384021421875*^9}, { 3.448384058671875*^9, 3.44838406890625*^9}, {3.44838412771875*^9, 3.44838414434375*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"x1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.95", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, 3.461883854953125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"x2", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.95", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun2", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, {3.461883857859375*^9, 3.461883878515625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, 3.461883854953125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"x3", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.95", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun3", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, {3.461883857859375*^9, 3.46188392634375*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, 3.461883854953125*^9, 3.461883982515625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"x4", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.95", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun4", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, {3.461883857859375*^9, 3.46188398725*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, 3.461883854953125*^9, 3.461883982515625*^9, 3.46188402353125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"x5", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.95", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun5", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, {3.461883857859375*^9, 3.46188400578125*^9}, {3.461884039484375*^9, 3.46188404915625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, 3.461883854953125*^9, 3.461883982515625*^9, 3.46188402353125*^9, 3.461884083515625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"x6", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.95", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun6", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, {3.461883857859375*^9, 3.46188400578125*^9}, {3.461884039484375*^9, 3.46188408946875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, 3.461883854953125*^9, 3.461883982515625*^9, 3.46188402353125*^9, 3.461884083515625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"x7", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.95", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun7", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, {3.461883857859375*^9, 3.46188400578125*^9}, {3.461884039484375*^9, 3.4618841403125*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7"}], "]"}]], "Input", CellChangeTimes->{{3.461884151796875*^9, 3.46188415384375*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Coraz\[OAcute]n", "Section", CellChangeTimes->{{3.461880534796875*^9, 3.461880536359375*^9}, { 3.46188349228125*^9, 3.4618834928125*^9}, {3.461884306015625*^9, 3.461884308453125*^9}}], Cell["Pinday Paz, Ana Mercedes", "Text", CellChangeTimes->{{3.461884506421875*^9, 3.461884528796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"q1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", "5."}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "6.8"}], "}"}], ",", RowBox[{"{", RowBox[{"4.55", ",", "7.3"}], "}"}], ",", RowBox[{"{", RowBox[{"7.1", ",", "6.3"}], "}"}], ",", RowBox[{"{", RowBox[{"8.55", ",", "3.7"}], "}"}], ",", RowBox[{"{", RowBox[{"7.7", ",", "0.7"}], "}"}], ",", RowBox[{"{", RowBox[{"1.", ",", RowBox[{"-", "4.9"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1."}], ",", RowBox[{"-", "4.9"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.7"}], ",", "0.7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.55"}], ",", "3.7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.1"}], ",", "6.3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.55"}], ",", "7.3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "6.8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "5."}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459616318515625*^9, 3.459616354234375*^9}, { 3.45961638575*^9, 3.4596164418125*^9}, 3.461884573*^9}], Cell[BoxData[ RowBox[{ RowBox[{"q2", "=", RowBox[{"q1", "/", "1.05"}]}], ";"}]], "Input", CellChangeTimes->{{3.459615405375*^9, 3.4596154174375*^9}, { 3.4596155185625*^9, 3.459615520046875*^9}, {3.459615606421875*^9, 3.4596156704375*^9}, {3.459615969296875*^9, 3.45961597478125*^9}, { 3.45961650809375*^9, 3.459616516046875*^9}, {3.46188457515625*^9, 3.461884576390625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"q3", "=", RowBox[{"q1", "/", "1.1"}]}], ";"}]], "Input", CellChangeTimes->{{3.4596160399375*^9, 3.459616048796875*^9}, { 3.459616098296875*^9, 3.459616115203125*^9}, {3.459616550296875*^9, 3.4596165588125*^9}, 3.4618845785625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"q4", "=", RowBox[{"q1", "/", "1.2"}]}], ";"}]], "Input", CellChangeTimes->{{3.4596161508125*^9, 3.459616159828125*^9}, { 3.45961619515625*^9, 3.459616195921875*^9}, {3.4596166009375*^9, 3.459616602828125*^9}, {3.4596166683125*^9, 3.459616669734375*^9}, 3.46188458078125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"q5", "=", RowBox[{"q1", "/", "1.3"}]}], ";"}]], "Input", CellChangeTimes->{{3.459616233078125*^9, 3.459616237234375*^9}, { 3.4596166300625*^9, 3.459616632609375*^9}, {3.45961667421875*^9, 3.45961667490625*^9}, 3.461884582765625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"q6", "=", RowBox[{"q1", "/", "1.5"}]}], ";"}]], "Input", CellChangeTimes->{{3.4596167020625*^9, 3.459616706421875*^9}, 3.461884584734375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"q7", "=", RowBox[{"q1", "/", "2"}]}], ";"}]], "Input", CellChangeTimes->{{3.4596167365625*^9, 3.459616756828125*^9}, 3.461884586515625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"q8", "=", RowBox[{"q1", "/", "3"}]}], ";"}]], "Input", CellChangeTimes->{{3.459616790984375*^9, 3.4596167946875*^9}, 3.461884588484375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"q9", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459616816703125*^9, 3.459616817953125*^9}, { 3.459616848015625*^9, 3.459616902296875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45961727621875*^9, 3.45961728290625*^9}, { 3.45961737559375*^9, 3.459617499203125*^9}, {3.4596175463125*^9, 3.459617562046875*^9}, 3.461884756609375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pp1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45961968915625*^9, 3.459619710453125*^9}, 3.461884758765625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "0.8"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459617571*^9, 3.459617577671875*^9}, { 3.4596176564375*^9, 3.459617658625*^9}, {3.45961775271875*^9, 3.45961775325*^9}, {3.459617794046875*^9, 3.4596178154375*^9}, { 3.459617879921875*^9, 3.459617881140625*^9}, {3.459617946515625*^9, 3.459617947046875*^9}, 3.461884760734375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q3", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "1.6"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459617624515625*^9, 3.459617628671875*^9}, { 3.4596177565625*^9, 3.459617757125*^9}, {3.45961779715625*^9, 3.45961781890625*^9}, {3.45961788375*^9, 3.459617885078125*^9}, { 3.459617950875*^9, 3.459617951203125*^9}, 3.461884763*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p4", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q4", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "2.5"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45961763765625*^9, 3.4596176805*^9}, { 3.459617760765625*^9, 3.459617822265625*^9}, {3.459617888625*^9, 3.459617892375*^9}, {3.45961795559375*^9, 3.459617969390625*^9}, 3.46188476509375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p5", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q5", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45961763765625*^9, 3.4596176805*^9}, { 3.459617760765625*^9, 3.459617822265625*^9}, {3.459617888625*^9, 3.459617892375*^9}, {3.45961795559375*^9, 3.4596179935*^9}, 3.4618847670625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p6", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q6", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3.2"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459618019453125*^9, 3.45961803115625*^9}, 3.461884769140625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q7", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3.4"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459618052921875*^9, 3.459618061078125*^9}, 3.46188477128125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q8", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3.5"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45961808521875*^9, 3.459618093234375*^9}, 3.461884773328125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p9", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q9", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3.6"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459618116859375*^9, 3.45961812078125*^9}, { 3.459620204203125*^9, 3.459620204765625*^9}, 3.46188477521875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pp2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "0.8"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459617571*^9, 3.459617577671875*^9}, { 3.4596176564375*^9, 3.459617658625*^9}, {3.45961775271875*^9, 3.45961775325*^9}, {3.459617794046875*^9, 3.4596178154375*^9}, { 3.459617879921875*^9, 3.459617881140625*^9}, {3.459617946515625*^9, 3.459617947046875*^9}, {3.45961894965625*^9, 3.45961895378125*^9}, 3.461884777109375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pp3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q3", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "1.6"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459617624515625*^9, 3.459617628671875*^9}, { 3.4596177565625*^9, 3.459617757125*^9}, {3.45961779715625*^9, 3.45961781890625*^9}, {3.45961788375*^9, 3.459617885078125*^9}, { 3.459617950875*^9, 3.459617951203125*^9}, {3.459618959953125*^9, 3.45961896671875*^9}, 3.461884779*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pp4", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q4", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "2.5"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45961763765625*^9, 3.4596176805*^9}, { 3.459617760765625*^9, 3.459617822265625*^9}, {3.459617888625*^9, 3.459617892375*^9}, {3.45961795559375*^9, 3.459617969390625*^9}, { 3.4596189703125*^9, 3.4596189739375*^9}, 3.4618847808125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pp5", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q5", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "3"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45961763765625*^9, 3.4596176805*^9}, { 3.459617760765625*^9, 3.459617822265625*^9}, {3.459617888625*^9, 3.459617892375*^9}, {3.45961795559375*^9, 3.4596179935*^9}, { 3.459618977828125*^9, 3.459618980046875*^9}, 3.461884782734375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pp6", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q6", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "3.2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459618019453125*^9, 3.45961803115625*^9}, { 3.45961898384375*^9, 3.459618986671875*^9}, 3.46188478475*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pp7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q7", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "3.4"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459618052921875*^9, 3.459618061078125*^9}, { 3.459618992375*^9, 3.459618996453125*^9}, 3.461884786578125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pp8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q8", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "3.5"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45961808521875*^9, 3.459618093234375*^9}, { 3.459619002140625*^9, 3.459619005890625*^9}, 3.46188478834375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pp9", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"q9", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "3.6"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459618116859375*^9, 3.45961812078125*^9}, { 3.459619010703125*^9, 3.45961901271875*^9}, {3.459620212765625*^9, 3.459620214015625*^9}, 3.46188479021875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"puntos", "=", RowBox[{"{", RowBox[{ "p9", ",", "p8", ",", "p7", ",", "p6", ",", "p5", ",", "p4", ",", "p3", ",", "p2", ",", "pp1", ",", "pp2", ",", "pp3", ",", "pp4", ",", "pp5", ",", "pp6", ",", "pp7", ",", "pp8", ",", "pp9"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459619226859375*^9, 3.45961930009375*^9}, { 3.45961973878125*^9, 3.45961974165625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "19", ",", "19"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"puntos", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Estrella", "Section", CellChangeTimes->{{3.461880534796875*^9, 3.461880536359375*^9}, { 3.46188349228125*^9, 3.4618834928125*^9}, {3.461884306015625*^9, 3.461884308453125*^9}, {3.4618850209375*^9, 3.461885022078125*^9}}], Cell["Dioses Su\[AAcute]rez, Carolina", "Text", CellChangeTimes->{{3.4618850460625*^9, 3.4618850525625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7"}], ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.46004206784375*^9, 3.46004220128125*^9}, { 3.460042252890625*^9, 3.46004243096875*^9}, {3.46004254084375*^9, 3.460042549625*^9}, {3.460042634796875*^9, 3.460042681828125*^9}, { 3.460042725828125*^9, 3.460042775640625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p2", "=", RowBox[{"p1", "/", "1.2"}]}], ";"}]], "Input", CellChangeTimes->{{3.460042842109375*^9, 3.460042876609375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p3", "=", RowBox[{"p1", "/", "1.5"}]}], ";"}]], "Input", CellChangeTimes->{{3.46004292584375*^9, 3.460042950953125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p4", "=", RowBox[{"p1", "/", "2"}]}], ";"}]], "Input", CellChangeTimes->{{3.460042980609375*^9, 3.46004300709375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p5", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.460043404828125*^9, 3.46004340859375*^9}, { 3.46004344103125*^9, 3.460043488421875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"q1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"p1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p1", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.46004308821875*^9, 3.46004319809375*^9}, 3.461885136578125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"q2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"p2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "0.8"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p2", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.46004308821875*^9, 3.460043232984375*^9}, { 3.460043749640625*^9, 3.460043750171875*^9}, 3.4618851385625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"q3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"p3", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "1.5"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p3", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.46004308821875*^9, 3.46004319809375*^9}, { 3.46004323853125*^9, 3.460043248578125*^9}, {3.4600437548125*^9, 3.4600437559375*^9}, 3.461885140359375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"q4", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"p4", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p4", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.46004308821875*^9, 3.46004319809375*^9}, { 3.460043256109375*^9, 3.460043269234375*^9}, {3.46004375946875*^9, 3.46004376134375*^9}, 3.461885142125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"q5", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"p5", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p5", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.46004308821875*^9, 3.46004319809375*^9}, { 3.460043256109375*^9, 3.460043269234375*^9}, {3.460043512625*^9, 3.46004351915625*^9}, {3.460043764*^9, 3.460043765375*^9}, 3.46188514390625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"qq1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"p1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p1", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4600438469375*^9, 3.46004385846875*^9}, 3.461885145734375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"qq2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"p2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "0.8"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p2", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.46004387225*^9, 3.460043900328125*^9}, 3.46188514753125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"qq3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"p3", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "1.5"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p3", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.46004391109375*^9, 3.46004394065625*^9}, 3.4618851493125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"qq4", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"p4", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p4", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.460043928859375*^9, 3.460043958375*^9}, 3.461885151046875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"qq5", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"p5", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "p5", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.460043964546875*^9, 3.46004398059375*^9}, 3.461885152875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pun1", "=", RowBox[{"{", RowBox[{ "qq5", ",", "qq4", ",", "qq3", ",", "qq2", ",", "q1", ",", "q2", ",", "q3", ",", "q4", ",", "q5"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4600433476875*^9, 3.460043371875*^9}, { 3.460043543421875*^9, 3.460043544859375*^9}, {3.46004409865625*^9, 3.4600441215625*^9}, {3.460044252796875*^9, 3.460044254703125*^9}, { 3.46004441225*^9, 3.46004441325*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "7", ",", "7"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Flor", "Section", CellChangeTimes->{{3.461880534796875*^9, 3.461880536359375*^9}, { 3.46188349228125*^9, 3.4618834928125*^9}, {3.461884306015625*^9, 3.461884308453125*^9}, {3.4618850209375*^9, 3.461885022078125*^9}, { 3.461886557515625*^9, 3.461886557984375*^9}}], Cell["Renter\[IAcute]a Alva, Sonia Isabel", "Text", CellChangeTimes->{{3.461885345296875*^9, 3.46188537215625*^9}, 3.4618864348125*^9}], Cell[CellGroupData[{ Cell["Petalo1", "Subsection", CellChangeTimes->{{3.46188538790625*^9, 3.461885390203125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17.6", ",", "4", ",", "31.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "17.6"}], ",", "4", ",", "31.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "17.6"}], ",", RowBox[{"-", "4"}], ",", "31.5"}], "}"}], ",", RowBox[{"{", RowBox[{"17.6", ",", RowBox[{"-", "4"}], ",", "31.5"}], "}"}], ",", RowBox[{"{", RowBox[{"17.6", ",", "4", ",", "31.5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"16", ",", "4", ",", "74.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "16"}], ",", "4", ",", "74.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "16"}], ",", RowBox[{"-", "4"}], ",", "74.5"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", RowBox[{"-", "4"}], ",", "74.5"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "4", ",", "74.5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "105"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.460456132752433*^9, 3.460456173451129*^9}, { 3.4604562077755194`*^9, 3.4604564154091763`*^9}, {3.460456719251115*^9, 3.4604567767292356`*^9}, {3.4604568156781225`*^9, 3.4604568744373536`*^9}, {3.4604570598715544`*^9, 3.460457065089837*^9}, { 3.460457118100712*^9, 3.4604572091862993`*^9}, {3.46045729316315*^9, 3.460457445993205*^9}, {3.4604575144401965`*^9, 3.4604575580144167`*^9}, { 3.460457898093318*^9, 3.4604579262626686`*^9}, {3.4604602897862825`*^9, 3.460460328940528*^9}, 3.4604603651105504`*^9, {3.4604606630640445`*^9, 3.4604607157175984`*^9}, {3.460462507052776*^9, 3.460462870478646*^9}, 3.460462968100522*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"m1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.46188609359375*^9, 3.461886097765625*^9}, 3.461886263234375*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Petalo2", "Subsection", CellChangeTimes->{{3.46188538790625*^9, 3.461885390203125*^9}, { 3.461885538421875*^9, 3.461885538703125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"24.8", ",", "0", ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{"24.8", ",", "0", ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{"24.8", ",", "0", ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{"24.8", ",", "0", ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{"24.8", ",", "0", ",", "121"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"44", ",", "4", ",", "52"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", "4", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", RowBox[{"-", "4"}], ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", RowBox[{"-", "4"}], ",", "52"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "4", ",", "52"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"76.8", ",", "4", ",", "26.5"}], "}"}], ",", RowBox[{"{", RowBox[{"110.4", ",", "4", ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{"110.4", ",", RowBox[{"-", "4"}], ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{"76.8", ",", RowBox[{"-", "4"}], ",", "26.5"}], "}"}], ",", RowBox[{"{", RowBox[{"76.8", ",", "4", ",", "26.5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"108.8", ",", "0", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"108.8", ",", "0", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"108.8", ",", "0", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"108.8", ",", "0", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"108.8", ",", "0", ",", "28"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.460456132752433*^9, 3.460456173451129*^9}, { 3.4604562077755194`*^9, 3.4604564154091763`*^9}, {3.460456719251115*^9, 3.4604567767292356`*^9}, {3.4604568156781225`*^9, 3.4604568744373536`*^9}, {3.4604570598715544`*^9, 3.460457065089837*^9}, { 3.460457118100712*^9, 3.4604572091862993`*^9}, {3.46045729316315*^9, 3.460457445993205*^9}, {3.4604575144401965`*^9, 3.4604575580144167`*^9}, { 3.460457898093318*^9, 3.4604579262626686`*^9}, {3.4604602897862825`*^9, 3.460460328940528*^9}, 3.4604603651105504`*^9, {3.4604606630640445`*^9, 3.4604607157175984`*^9}, {3.460462507052776*^9, 3.460462870478646*^9}, 3.460462968100522*^9, 3.461885558921875*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d2", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"m2", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.4618860824375*^9, 3.461886084875*^9}, 3.461886273484375*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Petalo3", "Subsection", CellChangeTimes->{{3.46188538790625*^9, 3.461885390203125*^9}, { 3.461885538421875*^9, 3.461885538703125*^9}, {3.461885592359375*^9, 3.461885592640625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"54.4", ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{"54.4", ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{"54.4", ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{"54.4", ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{"54.4", ",", "0", ",", "174"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"80.8", ",", "4", ",", "144"}], "}"}], ",", RowBox[{"{", RowBox[{"73.6", ",", "4", ",", "194"}], "}"}], ",", RowBox[{"{", RowBox[{"73.6", ",", RowBox[{"-", "4"}], ",", "194"}], "}"}], ",", RowBox[{"{", RowBox[{"80.8", ",", RowBox[{"-", "4"}], ",", "144"}], "}"}], ",", RowBox[{"{", RowBox[{"80.8", ",", "4", ",", "144"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"131.2", ",", "4", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{"132.8", ",", "4", ",", "207.5"}], "}"}], ",", RowBox[{"{", RowBox[{"132.8", ",", RowBox[{"-", "4"}], ",", "207.5"}], "}"}], ",", RowBox[{"{", RowBox[{"131.2", ",", RowBox[{"-", "4"}], ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{"131.2", ",", "4", ",", "142"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"168.8", ",", "0", ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{"168.8", ",", "0", ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{"168.8", ",", "0", ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{"168.8", ",", "0", ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{"168.8", ",", "0", ",", "172"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.460456132752433*^9, 3.460456173451129*^9}, { 3.4604562077755194`*^9, 3.4604564154091763`*^9}, {3.460456719251115*^9, 3.4604567767292356`*^9}, {3.4604568156781225`*^9, 3.4604568744373536`*^9}, {3.4604570598715544`*^9, 3.460457065089837*^9}, { 3.460457118100712*^9, 3.4604572091862993`*^9}, {3.46045729316315*^9, 3.460457445993205*^9}, {3.4604575144401965`*^9, 3.4604575580144167`*^9}, { 3.460457898093318*^9, 3.4604579262626686`*^9}, {3.4604602897862825`*^9, 3.460460328940528*^9}, 3.4604603651105504`*^9, {3.4604606630640445`*^9, 3.4604607157175984`*^9}, {3.460462507052776*^9, 3.460462870478646*^9}, 3.460462968100522*^9, 3.461885558921875*^9, {3.46188561040625*^9, 3.461885611734375*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d3", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"m3", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461886066359375*^9, 3.461886069375*^9}, 3.46188627953125*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Petalo4", "Subsection", CellChangeTimes->{{3.46188538790625*^9, 3.461885390203125*^9}, { 3.461885538421875*^9, 3.461885538703125*^9}, {3.461885592359375*^9, 3.461885592640625*^9}, {3.46188564021875*^9, 3.4618856405625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m4", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"32.8", ",", "0", ",", "218.5"}], "}"}], ",", RowBox[{"{", RowBox[{"32.8", ",", "0", ",", "218.5"}], "}"}], ",", RowBox[{"{", RowBox[{"32.8", ",", "0", ",", "218.5"}], "}"}], ",", RowBox[{"{", RowBox[{"32.8", ",", "0", ",", "218.5"}], "}"}], ",", RowBox[{"{", RowBox[{"32.8", ",", "0", ",", "218.5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"87.2", ",", "4", ",", "230.5"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "4", ",", "274"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", RowBox[{"-", "4"}], ",", "274"}], "}"}], ",", RowBox[{"{", RowBox[{"87.2", ",", RowBox[{"-", "4"}], ",", "230.5"}], "}"}], ",", RowBox[{"{", RowBox[{"87.2", ",", "4", ",", "230.5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"127.2", ",", "4", ",", "271.5"}], "}"}], ",", RowBox[{"{", RowBox[{"103.2", ",", "4", ",", "309"}], "}"}], ",", RowBox[{"{", RowBox[{"103.2", ",", RowBox[{"-", "4"}], ",", "309"}], "}"}], ",", RowBox[{"{", RowBox[{"127.2", ",", RowBox[{"-", "4"}], ",", "271.5"}], "}"}], ",", RowBox[{"{", RowBox[{"127.2", ",", "4", ",", "271.5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"128", ",", "0", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"128", ",", "0", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"128", ",", "0", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"128", ",", "0", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"128", ",", "0", ",", "300"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.460456132752433*^9, 3.460456173451129*^9}, { 3.4604562077755194`*^9, 3.4604564154091763`*^9}, {3.460456719251115*^9, 3.4604567767292356`*^9}, {3.4604568156781225`*^9, 3.4604568744373536`*^9}, {3.4604570598715544`*^9, 3.460457065089837*^9}, { 3.460457118100712*^9, 3.4604572091862993`*^9}, {3.46045729316315*^9, 3.460457445993205*^9}, {3.4604575144401965`*^9, 3.4604575580144167`*^9}, { 3.460457898093318*^9, 3.4604579262626686`*^9}, {3.4604602897862825`*^9, 3.460460328940528*^9}, 3.4604603651105504`*^9, {3.4604606630640445`*^9, 3.4604607157175984`*^9}, {3.460462507052776*^9, 3.460462870478646*^9}, 3.460462968100522*^9, 3.461885558921875*^9, {3.46188561040625*^9, 3.461885611734375*^9}, 3.461885660953125*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d4", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"m4", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461886053671875*^9, 3.461886056234375*^9}, 3.461886286015625*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Petalo5", "Subsection", CellChangeTimes->{{3.46188538790625*^9, 3.461885390203125*^9}, { 3.461885538421875*^9, 3.461885538703125*^9}, {3.461885592359375*^9, 3.461885592640625*^9}, {3.46188564021875*^9, 3.4618856405625*^9}, { 3.46188571578125*^9, 3.461885716125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m5", "=", RowBox[{"{", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "235.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "235.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "235.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "235.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "235.5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12.8", ",", "4", ",", "271.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "12.8"}], ",", "4", ",", "271.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "12.8"}], ",", RowBox[{"-", "4"}], ",", "271.5"}], "}"}], ",", RowBox[{"{", RowBox[{"12.8", ",", RowBox[{"-", "4"}], ",", "271.5"}], "}"}], ",", RowBox[{"{", RowBox[{"12.8", ",", "4", ",", "271.5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13.6", ",", "4", ",", "314"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "13.6"}], ",", "4", ",", "314"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "13.6"}], ",", RowBox[{"-", "4"}], ",", "314"}], "}"}], ",", RowBox[{"{", RowBox[{"13.6", ",", RowBox[{"-", "4"}], ",", "314"}], "}"}], ",", RowBox[{"{", RowBox[{"13.6", ",", "4", ",", "314"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "380"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.460456132752433*^9, 3.460456173451129*^9}, { 3.4604562077755194`*^9, 3.4604564154091763`*^9}, {3.460456719251115*^9, 3.4604567767292356`*^9}, {3.4604568156781225`*^9, 3.4604568744373536`*^9}, {3.4604570598715544`*^9, 3.460457065089837*^9}, { 3.460457118100712*^9, 3.4604572091862993`*^9}, {3.46045729316315*^9, 3.460457445993205*^9}, {3.4604575144401965`*^9, 3.4604575580144167`*^9}, { 3.460457898093318*^9, 3.4604579262626686`*^9}, {3.4604602897862825`*^9, 3.460460328940528*^9}, 3.4604603651105504`*^9, {3.4604606630640445`*^9, 3.4604607157175984`*^9}, {3.460462507052776*^9, 3.460462870478646*^9}, 3.460462968100522*^9, 3.461885558921875*^9, {3.46188561040625*^9, 3.461885611734375*^9}, 3.461885660953125*^9, 3.46188570328125*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d5", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"m5", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.461886038890625*^9, 3.461886041671875*^9}, 3.461886294734375*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Petalo6", "Subsection", CellChangeTimes->{{3.46188538790625*^9, 3.461885390203125*^9}, { 3.461885538421875*^9, 3.461885538703125*^9}, {3.461885592359375*^9, 3.461885592640625*^9}, {3.46188564021875*^9, 3.4618856405625*^9}, { 3.46188571578125*^9, 3.461885723796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m6", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "32.8`"}], ",", "0", ",", "218.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "32.8`"}], ",", "0", ",", "218.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "32.8`"}], ",", "0", ",", "218.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "32.8`"}], ",", "0", ",", "218.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "32.8`"}], ",", "0", ",", "218.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "87.2`"}], ",", "4", ",", "230.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "48"}], ",", "4", ",", "274"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "48"}], ",", RowBox[{"-", "4"}], ",", "274"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "87.2`"}], ",", RowBox[{"-", "4"}], ",", "230.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "87.2`"}], ",", "4", ",", "230.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "127.2`"}], ",", "4", ",", "271.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "103.2`"}], ",", "4", ",", "309"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "103.2`"}], ",", RowBox[{"-", "4"}], ",", "309"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "127.2`"}], ",", RowBox[{"-", "4"}], ",", "271.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "127.2`"}], ",", "4", ",", "271.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "128"}], ",", "0", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "128"}], ",", "0", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "128"}], ",", "0", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "128"}], ",", "0", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "128"}], ",", "0", ",", "300"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.460456132752433*^9, 3.460456173451129*^9}, { 3.4604562077755194`*^9, 3.4604564154091763`*^9}, {3.460456719251115*^9, 3.4604567767292356`*^9}, {3.4604568156781225`*^9, 3.4604568744373536`*^9}, {3.4604570598715544`*^9, 3.460457065089837*^9}, { 3.460457118100712*^9, 3.4604572091862993`*^9}, {3.46045729316315*^9, 3.460457445993205*^9}, {3.4604575144401965`*^9, 3.4604575580144167`*^9}, { 3.460457898093318*^9, 3.4604579262626686`*^9}, {3.4604602897862825`*^9, 3.460460328940528*^9}, 3.4604603651105504`*^9, {3.4604606630640445`*^9, 3.4604607157175984`*^9}, {3.460462507052776*^9, 3.460462870478646*^9}, 3.460462968100522*^9, 3.461885558921875*^9, {3.46188561040625*^9, 3.461885611734375*^9}, 3.461885660953125*^9, 3.46188570328125*^9, { 3.46188573996875*^9, 3.46188574265625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d6", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"m6", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461886022765625*^9, 3.461886025421875*^9}, 3.46188630121875*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Petalo7", "Subsection", CellChangeTimes->{{3.46188538790625*^9, 3.461885390203125*^9}, { 3.461885538421875*^9, 3.461885538703125*^9}, {3.461885592359375*^9, 3.461885592640625*^9}, {3.46188564021875*^9, 3.4618856405625*^9}, { 3.46188571578125*^9, 3.461885723796875*^9}, {3.461885763640625*^9, 3.4618857640625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m7", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "54.4`"}], ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54.4`"}], ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54.4`"}], ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54.4`"}], ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54.4`"}], ",", "0", ",", "174"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "80.8`"}], ",", "4", ",", "144"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "73.6`"}], ",", "4", ",", "194"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "73.6`"}], ",", RowBox[{"-", "4"}], ",", "194"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "80.8`"}], ",", RowBox[{"-", "4"}], ",", "144"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "80.8`"}], ",", "4", ",", "144"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "131.2`"}], ",", "4", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "132.8`"}], ",", "4", ",", "207.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "132.8`"}], ",", RowBox[{"-", "4"}], ",", "207.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "131.2`"}], ",", RowBox[{"-", "4"}], ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "131.2`"}], ",", "4", ",", "142"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "168.8`"}], ",", "0", ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "168.8`"}], ",", "0", ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "168.8`"}], ",", "0", ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "168.8`"}], ",", "0", ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "168.8`"}], ",", "0", ",", "172"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.460456132752433*^9, 3.460456173451129*^9}, { 3.4604562077755194`*^9, 3.4604564154091763`*^9}, {3.460456719251115*^9, 3.4604567767292356`*^9}, {3.4604568156781225`*^9, 3.4604568744373536`*^9}, {3.4604570598715544`*^9, 3.460457065089837*^9}, { 3.460457118100712*^9, 3.4604572091862993`*^9}, {3.46045729316315*^9, 3.460457445993205*^9}, {3.4604575144401965`*^9, 3.4604575580144167`*^9}, { 3.460457898093318*^9, 3.4604579262626686`*^9}, {3.4604602897862825`*^9, 3.460460328940528*^9}, 3.4604603651105504`*^9, {3.4604606630640445`*^9, 3.4604607157175984`*^9}, {3.460462507052776*^9, 3.460462870478646*^9}, 3.460462968100522*^9, 3.461885558921875*^9, {3.46188561040625*^9, 3.461885611734375*^9}, 3.461885660953125*^9, 3.46188570328125*^9, { 3.46188573996875*^9, 3.46188574265625*^9}, 3.46188578890625*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d7", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"m7", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.4618857961875*^9}, {3.461886006453125*^9, 3.461886009296875*^9}, 3.46188630759375*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Petalo8", "Subsection", CellChangeTimes->{{3.46188538790625*^9, 3.461885390203125*^9}, { 3.461885538421875*^9, 3.461885538703125*^9}, {3.461885592359375*^9, 3.461885592640625*^9}, {3.46188564021875*^9, 3.4618856405625*^9}, { 3.46188571578125*^9, 3.461885723796875*^9}, {3.461885763640625*^9, 3.4618857640625*^9}, {3.46188580428125*^9, 3.4618858046875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m8", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "24.8`"}], ",", "0", ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "24.8`"}], ",", "0", ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "24.8`"}], ",", "0", ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "24.8`"}], ",", "0", ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "24.8`"}], ",", "0", ",", "121"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "44"}], ",", "4", ",", "52"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "88"}], ",", "4", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "88"}], ",", RowBox[{"-", "4"}], ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "44"}], ",", RowBox[{"-", "4"}], ",", "52"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "44"}], ",", "4", ",", "52"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "76.8`"}], ",", "4", ",", "26.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "110.4`"}], ",", "4", ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "110.4`"}], ",", RowBox[{"-", "4"}], ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "76.8`"}], ",", RowBox[{"-", "4"}], ",", "26.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "76.8`"}], ",", "4", ",", "26.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "108.8`"}], ",", "0", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "108.8`"}], ",", "0", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "108.8`"}], ",", "0", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "108.8`"}], ",", "0", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "108.8`"}], ",", "0", ",", "28"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.460456132752433*^9, 3.460456173451129*^9}, { 3.4604562077755194`*^9, 3.4604564154091763`*^9}, {3.460456719251115*^9, 3.4604567767292356`*^9}, {3.4604568156781225`*^9, 3.4604568744373536`*^9}, {3.4604570598715544`*^9, 3.460457065089837*^9}, { 3.460457118100712*^9, 3.4604572091862993`*^9}, {3.46045729316315*^9, 3.460457445993205*^9}, {3.4604575144401965`*^9, 3.4604575580144167`*^9}, { 3.460457898093318*^9, 3.4604579262626686`*^9}, {3.4604602897862825`*^9, 3.460460328940528*^9}, 3.4604603651105504`*^9, {3.4604606630640445`*^9, 3.4604607157175984`*^9}, {3.460462507052776*^9, 3.460462870478646*^9}, 3.460462968100522*^9, 3.461885558921875*^9, {3.46188561040625*^9, 3.461885611734375*^9}, 3.461885660953125*^9, 3.46188570328125*^9, { 3.46188573996875*^9, 3.46188574265625*^9}, {3.46188578890625*^9, 3.461885828046875*^9}, 3.461886235375*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d8", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"m8", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.4618859895625*^9, 3.461885992453125*^9}, 3.46188631446875*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Cara", "Subsection", CellChangeTimes->{{3.4618858560625*^9, 3.461885856625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m9", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"54.4", ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{"54.4", ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{"54.4", ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{"54.4", ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{"54.4", ",", "0", ",", "174"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"24.8", ",", "4", ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{"32.8", ",", "4", ",", "218.5"}], "}"}], ",", RowBox[{"{", RowBox[{"32.8", ",", RowBox[{"-", "4"}], ",", "218.5"}], "}"}], ",", RowBox[{"{", RowBox[{"24.8", ",", RowBox[{"-", "4"}], ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{"24.8", ",", "4", ",", "121"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4", ",", "235.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "4"}], ",", "235.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "4"}], ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4", ",", "105"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "24.8`"}], ",", "4", ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "32.8`"}], ",", "4", ",", "218.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "32.8`"}], ",", RowBox[{"-", "4"}], ",", "218.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "24.8`"}], ",", RowBox[{"-", "4"}], ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "24.8`"}], ",", "4", ",", "121"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "54.4`"}], ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54.4`"}], ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54.4`"}], ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54.4`"}], ",", "0", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54.4`"}], ",", "0", ",", "174"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.461885937609375*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"d9", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Cyan", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"m9", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Flor", "Subsection", CellChangeTimes->{{3.461885893015625*^9, 3.461885894671875*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ "d1", ",", "d2", ",", "d3", ",", "d4", ",", "d5", ",", "d6", ",", "d7", ",", "d8", ",", "d9"}], "]"}]], "Input", CellChangeTimes->{{3.46188591159375*^9, 3.461885911765625*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Manzana", "Section", CellChangeTimes->{{3.461880534796875*^9, 3.461880536359375*^9}, { 3.46188349228125*^9, 3.4618834928125*^9}, {3.461884306015625*^9, 3.461884308453125*^9}, {3.4618850209375*^9, 3.461885022078125*^9}, { 3.46188642828125*^9, 3.46188642934375*^9}}], Cell["More Hidalgo, Mariluz", "Text", CellChangeTimes->{{3.461885345296875*^9, 3.46188537215625*^9}, { 3.461886422203125*^9, 3.46188642475*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"malla1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"72.6", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"53.2", ",", "59", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "64.5", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"114", ",", "0", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"87.2", ",", "108", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "107", ",", "40"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"154.6", ",", "0", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"138", ",", "124", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "153", ",", "70"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"236", ",", "0", ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{"226.6", ",", "148", ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "214.5", ",", "125"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"114", ",", "0", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"87.2", ",", "108", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "107", ",", "250"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "180"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10", ",", "180"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "180"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459860016106041*^9, 3.459860034746785*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "6", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "2"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"malla1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"malla2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "72.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "53.2"}], ",", "59", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "64.5", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "114"}], ",", "0", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "87.2"}], ",", "108", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "107", ",", "40"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "154.6"}], ",", "0", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "138"}], ",", "124", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "153", ",", "70"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "236"}], ",", "0", ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "226.6"}], ",", "148", ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "214.5", ",", "125"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "114"}], ",", "0", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "87.2"}], ",", "108", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "107", ",", "250"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "180"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10", ",", "180"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "180"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.461886658953125*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "6", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "2"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d2", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"malla2", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.461886676875*^9, 3.461886686984375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"malla3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "72.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "53.2"}], ",", RowBox[{"-", "59"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "64.5"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "114"}], ",", "0", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "87.2"}], ",", RowBox[{"-", "108"}], ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "107"}], ",", "40"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "154.6"}], ",", "0", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "138"}], ",", RowBox[{"-", "124"}], ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "153"}], ",", "70"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "236"}], ",", "0", ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "226.6"}], ",", RowBox[{"-", "148"}], ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "214.5"}], ",", "125"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "114"}], ",", "0", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "87.2"}], ",", RowBox[{"-", "108"}], ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "107"}], ",", "250"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "180"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "10"}], ",", "180"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "180"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "6", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "2"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d3", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"malla3", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.461886676875*^9, 3.4618867179375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"malla4", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"72.6", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"53.2", ",", RowBox[{"-", "59"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "64.5"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"114", ",", "0", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"87.2", ",", RowBox[{"-", "108"}], ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "107"}], ",", "40"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"154.6", ",", "0", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"138", ",", RowBox[{"-", "124"}], ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "153"}], ",", "70"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"236", ",", "0", ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{"226.6", ",", RowBox[{"-", "148"}], ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "214.5"}], ",", "125"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"114", ",", "0", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"87.2", ",", RowBox[{"-", "108"}], ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "107"}], ",", "250"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "180"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "10"}], ",", "180"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "180"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.461886737671875*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "6", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "2"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d4", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"malla4", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.461886676875*^9, 3.461886750296875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"malla5", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"58", ",", "0", ",", "231"}], "}"}], ",", RowBox[{"{", RowBox[{"58", ",", "0", ",", "231"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"90", ",", "0", ",", "230.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"51.2`", ",", "0", ",", "254.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"118", ",", "0", ",", "240.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "0", ",", "278"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"141.2`", ",", "0", ",", "256.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"103.2`", ",", "0", ",", "285"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"151.2`", ",", "0", ",", "264"}], "}"}], ",", RowBox[{"{", RowBox[{"134.6`", ",", "0", ",", "282.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"189.2`", ",", "0", ",", "266.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"189.2`", ",", "0", ",", "266.5`"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "5", ",", "5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461886780703125*^9, 3.461886790625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d5", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"malla5", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.461886676875*^9, 3.461886750296875*^9}, {3.461886793984375*^9, 3.461886866078125*^9}, 3.46188691965625*^9, {3.461886959078125*^9, 3.461886979640625*^9}, 3.461887010359375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"d6", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0.35", "]"}], ",", RowBox[{"Thickness", "[", "0.01", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "180"}], "}"}], ",", RowBox[{"{", RowBox[{"58", ",", "0", ",", "231"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.46188687009375*^9}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"d1", ",", "d2", ",", "d3", ",", "d4", ",", "d5", ",", "d6", ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.461886884609375*^9, 3.46188690078125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Mariposa", "Section", CellChangeTimes->{{3.461880534796875*^9, 3.461880536359375*^9}, { 3.46188349228125*^9, 3.4618834928125*^9}, {3.461884306015625*^9, 3.461884308453125*^9}, {3.4618850209375*^9, 3.461885022078125*^9}, { 3.46188642828125*^9, 3.46188642934375*^9}, {3.461887117828125*^9, 3.461887120015625*^9}}], Cell["Castillo Benites, Mirtha Paola", "Text", CellChangeTimes->{{3.461885345296875*^9, 3.46188537215625*^9}, { 3.461886422203125*^9, 3.46188642475*^9}, {3.46188716778125*^9, 3.46188717415625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"matriz", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "30.4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "20", ",", "30.4"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "20", ",", "30.4"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "0", ",", "30.4"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10.8", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10.8", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "0", ",", "60"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "90"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.461887228828125*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"a", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"matriz", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"matriz1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "30.4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "20"}], ",", "30.4"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", RowBox[{"-", "20"}], ",", "30.4"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "0", ",", "30.4"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "10.8"}], ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", RowBox[{"-", "10.8"}], ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "0", ",", "60"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "90"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4596872865*^9, 3.459687332390625*^9}, { 3.459689443734375*^9, 3.459689453578125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"b", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"matriz1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887361640625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"matriz2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "53"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "47", ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "35", ",", "107"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "35", ",", "107"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "47", ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "47", ",", "55"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "73", ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "52", ",", "112"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "52", ",", "112"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "73", ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "73", ",", "68"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "93", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "80", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "80", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "93", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "98"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "103", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "103", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "103", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "103", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "103", ",", "124"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45968961896875*^9, 3.459689872921875*^9}, { 3.45969000784375*^9, 3.45969007065625*^9}, {3.459690430359375*^9, 3.459690432203125*^9}, {3.45969105028125*^9, 3.459691192890625*^9}, { 3.459691278203125*^9, 3.459691480765625*^9}, {3.45969151259375*^9, 3.4596915298125*^9}, {3.459691771140625*^9, 3.459691781640625*^9}, { 3.45969191640625*^9, 3.4596919961875*^9}, {3.459692121546875*^9, 3.459692224109375*^9}, 3.459692391453125*^9, {3.459695356*^9, 3.45969537015625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.4618874189375*^9, 3.461887428671875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"c", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"matriz2", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887361640625*^9}, {3.461887432234375*^9, 3.4618874369375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"matriz3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "53"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "47"}], ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "35"}], ",", "107"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "35"}], ",", "107"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "47"}], ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "47"}], ",", "55"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "73"}], ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "52"}], ",", "112"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "52"}], ",", "112"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "73"}], ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "73"}], ",", "68"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "93"}], ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "80"}], ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "80"}], ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "93"}], ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "93"}], ",", "98"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "103"}], ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "103"}], ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "103"}], ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "103"}], ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "103"}], ",", "124"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.46188745103125*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.4618874189375*^9, 3.461887428671875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"matriz3", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887361640625*^9}, {3.461887432234375*^9, 3.4618874369375*^9}, {3.46188746884375*^9, 3.46188747175*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"matriz4", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "10", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "17", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "50", ",", "46"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "50", ",", "46"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "17", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "17", ",", RowBox[{"-", "3"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "37", ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "70", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "70", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "37", ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "37", ",", RowBox[{"-", "10"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "62", ",", RowBox[{"-", "6"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "73", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "73", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "62", ",", RowBox[{"-", "6"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "62", ",", RowBox[{"-", "6"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "70", ",", RowBox[{"-", "17"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "82", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "82", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "70", ",", RowBox[{"-", "17"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "70", ",", RowBox[{"-", "17"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "89", ",", RowBox[{"-", "15"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "89", ",", RowBox[{"-", "15"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "89", ",", RowBox[{"-", "15"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "89", ",", RowBox[{"-", "15"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "89", ",", RowBox[{"-", "15"}]}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.4618874879375*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "5", ",", "5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.4618874189375*^9, 3.461887428671875*^9}, 3.461887518125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"e", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"matriz4", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887361640625*^9}, {3.461887432234375*^9, 3.4618874369375*^9}, {3.46188746884375*^9, 3.46188747175*^9}, { 3.4618875284375*^9, 3.461887532375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"matriz5", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "10"}], ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "10"}], ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "10"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "17"}], ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "50"}], ",", "46"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "50"}], ",", "46"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "17"}], ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "17"}], ",", RowBox[{"-", "3"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "37"}], ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "70"}], ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "70"}], ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "37"}], ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "37"}], ",", RowBox[{"-", "10"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "62"}], ",", RowBox[{"-", "6"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "73"}], ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "73"}], ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "62"}], ",", RowBox[{"-", "6"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "62"}], ",", RowBox[{"-", "6"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "70"}], ",", RowBox[{"-", "17"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "82"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "82"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "70"}], ",", RowBox[{"-", "17"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "70"}], ",", RowBox[{"-", "17"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "89"}], ",", RowBox[{"-", "15"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "89"}], ",", RowBox[{"-", "15"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "89"}], ",", RowBox[{"-", "15"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "89"}], ",", RowBox[{"-", "15"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "89"}], ",", RowBox[{"-", "15"}]}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.4618875585625*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "5", ",", "5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.4618874189375*^9, 3.461887428671875*^9}, 3.461887518125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"f", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"matriz5", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887361640625*^9}, {3.461887432234375*^9, 3.4618874369375*^9}, {3.46188746884375*^9, 3.46188747175*^9}, { 3.4618875284375*^9, 3.461887532375*^9}, {3.461887567734375*^9, 3.46188757696875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"cabeza", "=", RowBox[{"{", RowBox[{ RowBox[{"7", RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"7", RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{ RowBox[{"7", RowBox[{"Sin", "[", "v", "]"}]}], "+", "90"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{"cabeza", ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.461887611328125*^9, 3.4618876146875*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.46188762671875*^9, 3.4618876281875*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Mariposa3d", "Section", CellChangeTimes->{{3.461880534796875*^9, 3.461880536359375*^9}, { 3.46188349228125*^9, 3.4618834928125*^9}, {3.461884306015625*^9, 3.461884308453125*^9}, {3.4618850209375*^9, 3.461885022078125*^9}, { 3.46188642828125*^9, 3.46188642934375*^9}, {3.461887117828125*^9, 3.461887120015625*^9}, {3.46188782896875*^9, 3.46188782946875*^9}}], Cell[" Pazo Medina, Jes\[UAcute]s Mar\[IAcute]a", "Text", CellChangeTimes->{{3.461885345296875*^9, 3.46188537215625*^9}, { 3.461886422203125*^9, 3.46188642475*^9}, {3.46188716778125*^9, 3.46188717415625*^9}, {3.461887898640625*^9, 3.461887911875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"qq1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.28", ",", "4.48", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.28", ",", "4.48", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.28", ",", "4.48", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.29", ",", "4.82", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.87", ",", "5.14", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.87", ",", "5.14", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.87", ",", "5.14", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{ 3.455982451953125*^9, {3.45598248346875*^9, 3.455982606078125*^9}, { 3.455982699125*^9, 3.45598270459375*^9}, {3.455982829734375*^9, 3.45598304809375*^9}, {3.4559831135*^9, 3.4559831664375*^9}, { 3.4559832064375*^9, 3.455983211125*^9}, {3.455983255796875*^9, 3.4559832645625*^9}, {3.4559833104375*^9, 3.455983329140625*^9}, { 3.455983368484375*^9, 3.45598340540625*^9}, {3.455983438109375*^9, 3.455983438609375*^9}, {3.455983468796875*^9, 3.455983531140625*^9}, { 3.457203640890625*^9, 3.457203877609375*^9}, {3.45720393903125*^9, 3.457203940609375*^9}, {3.45720403065625*^9, 3.457204038*^9}, { 3.457204124546875*^9, 3.4572041589375*^9}, {3.457204198078125*^9, 3.457204202359375*^9}, {3.457204290953125*^9, 3.457204299453125*^9}, { 3.457207259546875*^9, 3.457207260765625*^9}, {3.45720730475*^9, 3.457207400546875*^9}, {3.457207685546875*^9, 3.457207707296875*^9}, { 3.45720774375*^9, 3.457207765078125*^9}, 3.45720786309375*^9, { 3.45720796053125*^9, 3.457207975875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"a1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"BSplineCurve", "[", "qq1", "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461889008890625*^9, 3.4618890325625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"qq2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.28"}], ",", "4.48", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.28"}], ",", "4.48", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.28"}], ",", "4.48", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.29"}], ",", "4.82", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.87"}], ",", "5.14", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.87"}], ",", "5.14", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.87"}], ",", "5.14", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{ 3.455982451953125*^9, {3.45598248346875*^9, 3.455982606078125*^9}, { 3.455982699125*^9, 3.45598270459375*^9}, {3.455982829734375*^9, 3.45598304809375*^9}, {3.4559831135*^9, 3.4559831664375*^9}, { 3.4559832064375*^9, 3.455983211125*^9}, {3.455983255796875*^9, 3.4559832645625*^9}, {3.4559833104375*^9, 3.455983329140625*^9}, { 3.455983368484375*^9, 3.45598340540625*^9}, {3.455983438109375*^9, 3.455983438609375*^9}, {3.455983468796875*^9, 3.455983531140625*^9}, { 3.457203640890625*^9, 3.457203877609375*^9}, {3.45720393903125*^9, 3.457203940609375*^9}, {3.45720403065625*^9, 3.457204038*^9}, { 3.457204124546875*^9, 3.4572041589375*^9}, {3.457204198078125*^9, 3.457204202359375*^9}, {3.457204290953125*^9, 3.457204299453125*^9}, { 3.457207259546875*^9, 3.457207260765625*^9}, {3.45720730475*^9, 3.457207444328125*^9}, {3.457207801015625*^9, 3.457207803109375*^9}, 3.457207864671875*^9, {3.457207978015625*^9, 3.4572079919375*^9}, { 3.4618890383125*^9, 3.46188903915625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"a2", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"BSplineCurve", "[", "qq2", "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4618890433125*^9, 3.46188904678125*^9}}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"BSplineCurve", "[", "pts", "]"}], ",", "Green", ",", RowBox[{"Line", "[", "pts", "]"}], ",", "Red", ",", RowBox[{"Point", "[", "pts", "]"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"ss1", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"Sin", "[", "v", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ss2", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0.8", RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"1.8", "+", RowBox[{"0.8", RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{"0.25", "+", RowBox[{"0.8", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ss3", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0.6", RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"3.2", "+", RowBox[{"0.6", RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{"0.25", "+", RowBox[{"0.6", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ss4", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0.4", RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"4.2", "+", RowBox[{"0.4", RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{"0.4", RowBox[{"Sin", "[", "v", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.455981213828125*^9, 3.455981288265625*^9}, { 3.455981343625*^9, 3.455981377*^9}, {3.455981423890625*^9, 3.45598152209375*^9}, {3.455981573359375*^9, 3.455981578734375*^9}, { 3.4572061743125*^9, 3.45720617746875*^9}, {3.45720654828125*^9, 3.4572068195*^9}, {3.45720686678125*^9, 3.45720690315625*^9}, { 3.457436933793332*^9, 3.4574369478584423`*^9}, {3.4574378185620914`*^9, 3.4574378468631315`*^9}, 3.4574456674552803`*^9, {3.46188805409375*^9, 3.461888058875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"mm1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0.87", ",", "5.14", ",", "0"}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "0.87"}], ",", "5.14", ",", "0"}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.457208189859375*^9, 3.457208301703125*^9}, { 3.45721269984375*^9, 3.457212701421875*^9}, {3.46188914884375*^9, 3.46188914921875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"c1", "[", "v_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.8", " ", RowBox[{"Cos", "[", "v", "]"}]}], ",", "1.8", ",", RowBox[{"0.25", "\[InvisibleSpace]", "+", RowBox[{"0.8", " ", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c2", "[", "v_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.6", " ", RowBox[{"Cos", "[", "v", "]"}]}], ",", "1.8", ",", RowBox[{ RowBox[{"-", "1."}], "+", RowBox[{"0.6", " ", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c3", "[", "v_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "v", "]"}], ",", "0", ",", RowBox[{"Sin", "[", "v", "]"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c4", "[", "v_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.9", RowBox[{"Cos", "[", "v", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "1.4"}], "+", RowBox[{"0.9", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c5", "[", "v_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.6", " ", RowBox[{"Cos", "[", "v", "]"}]}], ",", "3.2", ",", RowBox[{"0.25", "\[InvisibleSpace]", "+", RowBox[{"0.6", " ", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c6", "[", "v_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.5", RowBox[{"Cos", "[", "v", "]"}]}], ",", "3.2", ",", RowBox[{ RowBox[{"-", "0.6"}], "+", RowBox[{"0.5", " ", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.457208828859375*^9, 3.4572088480625*^9}, 3.457208922484375*^9, {3.457209418453125*^9, 3.4572094186875*^9}, { 3.457209473140625*^9, 3.45720948109375*^9}, {3.4572102858125*^9, 3.457210321421875*^9}, {3.45721040875*^9, 3.457210448140625*^9}, { 3.45721052925*^9, 3.457210573359375*^9}, {3.457210612921875*^9, 3.4572106645625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"mm2", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"c1", "[", "v", "]"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Green", ",", "Thick"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"c2", "[", "v", "]"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Green", ",", "Thick"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"c3", "[", "v", "]"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Green", ",", "Thick"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"c4", "[", "v", "]"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Green", ",", "Thick"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"c5", "[", "v", "]"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Green", ",", "Thick"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"c6", "[", "v", "]"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Green", ",", "Thick"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.4572084590625*^9, {3.457208492421875*^9, 3.45720863684375*^9}, { 3.45720896665625*^9, 3.457209011359375*^9}, {3.457209070296875*^9, 3.457209094828125*^9}, {3.457209143640625*^9, 3.45720915121875*^9}, 3.457209239890625*^9, {3.457210360578125*^9, 3.457210393140625*^9}, { 3.457210593171875*^9, 3.457210628796875*^9}, {3.4572106921875*^9, 3.45721070084375*^9}, {3.457212769015625*^9, 3.457212769953125*^9}, { 3.461888572671875*^9, 3.461888627375*^9}, {3.4618891321875*^9, 3.46188915309375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pp1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3.74", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3.74", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3.74", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.09", ",", "4.18", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"2.19", ",", "3.92", ",", "0.8"}], "}"}], ",", RowBox[{"{", RowBox[{"2.62", ",", "2.78", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1.84", ",", "1.7", ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{"2.71", ",", "0.8", ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{"3.", ",", RowBox[{"-", "0.38"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2.16", ",", RowBox[{"-", "1.32"}], ",", "0.8"}], "}"}], ",", RowBox[{"{", RowBox[{"0.88", ",", RowBox[{"-", "1.02"}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{ 3.455982451953125*^9, {3.45598248346875*^9, 3.455982606078125*^9}, { 3.455982699125*^9, 3.45598270459375*^9}, {3.455982829734375*^9, 3.45598304809375*^9}, {3.4559831135*^9, 3.4559831664375*^9}, { 3.4559832064375*^9, 3.455983211125*^9}, {3.455983255796875*^9, 3.4559832645625*^9}, {3.4559833104375*^9, 3.455983329140625*^9}, { 3.455983368484375*^9, 3.45598340540625*^9}, {3.455983438109375*^9, 3.455983438609375*^9}, {3.455983468796875*^9, 3.455983531140625*^9}, { 3.457203640890625*^9, 3.457203877609375*^9}, {3.45720393903125*^9, 3.457203940609375*^9}, {3.45720403065625*^9, 3.457204038*^9}, { 3.457204124546875*^9, 3.4572041589375*^9}, {3.457204198078125*^9, 3.457204202359375*^9}, {3.457204290953125*^9, 3.457204299453125*^9}, { 3.457205541171875*^9, 3.45720560684375*^9}, {3.457205746375*^9, 3.45720580809375*^9}, 3.461889564984375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pp3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.87", "+", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.87", "+", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.87", "+", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.545", ",", RowBox[{"2.09", "+", "1"}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1.095`", ",", RowBox[{"1.96", "+", "1"}], ",", "0.8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.31`", ",", RowBox[{"1.39", "+", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.92`", ",", RowBox[{"0.85", "+", "1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{"1.355`", ",", RowBox[{"0.4", "+", "1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", RowBox[{ RowBox[{"-", "0.19"}], "+", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1.08`", ",", RowBox[{ RowBox[{"-", "0.66"}], "+", "1"}], ",", "0.8"}], "}"}], ",", RowBox[{"{", RowBox[{"0.44`", ",", RowBox[{ RowBox[{"-", "0.51"}], "+", "1"}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"0", "+", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"0", "+", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"0", "+", "1"}], ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.457211319390625*^9, 3.457211327328125*^9}, { 3.45721136534375*^9, 3.457211417984375*^9}, {3.457211485796875*^9, 3.457211529453125*^9}, {3.45721159240625*^9, 3.457211657765625*^9}, { 3.45721239996875*^9, 3.457212487375*^9}, {3.457212540625*^9, 3.4572125461875*^9}, 3.461889580078125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pp2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3.74", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3.74", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3.74", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.09"}], ",", "4.18", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.19"}], ",", "3.92", ",", "0.8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.62"}], ",", "2.78", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.84"}], ",", "1.7", ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.71"}], ",", "0.8", ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3."}], ",", RowBox[{"-", "0.38"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.16"}], ",", RowBox[{"-", "1.32"}], ",", "0.8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.88"}], ",", RowBox[{"-", "1.02"}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{ 3.455982451953125*^9, {3.45598248346875*^9, 3.455982606078125*^9}, { 3.455982699125*^9, 3.45598270459375*^9}, {3.455982829734375*^9, 3.45598304809375*^9}, {3.4559831135*^9, 3.4559831664375*^9}, { 3.4559832064375*^9, 3.455983211125*^9}, {3.455983255796875*^9, 3.4559832645625*^9}, {3.4559833104375*^9, 3.455983329140625*^9}, { 3.455983368484375*^9, 3.45598340540625*^9}, {3.455983438109375*^9, 3.455983438609375*^9}, {3.455983468796875*^9, 3.455983531140625*^9}, { 3.457203640890625*^9, 3.457203877609375*^9}, {3.45720393903125*^9, 3.457203940609375*^9}, {3.45720403065625*^9, 3.457204038*^9}, { 3.457204124546875*^9, 3.4572041589375*^9}, {3.457204198078125*^9, 3.457204202359375*^9}, {3.457204290953125*^9, 3.457204299453125*^9}, { 3.457205541171875*^9, 3.45720560684375*^9}, {3.457205746375*^9, 3.45720580809375*^9}, {3.457206980703125*^9, 3.457207011421875*^9}, 3.461889591328125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pp4", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.87", "+", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.87", "+", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.87", "+", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.545"}], ",", RowBox[{"2.09", "+", "1"}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.095`"}], ",", RowBox[{"1.96", "+", "1"}], ",", "0.8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.31`"}], ",", RowBox[{"1.39", "+", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.92`"}], ",", RowBox[{"0.85", "+", "1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.355`"}], ",", RowBox[{"0.4", "+", "1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5`"}], ",", RowBox[{ RowBox[{"-", "0.19"}], "+", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.08`"}], ",", RowBox[{ RowBox[{"-", "0.66"}], "+", "1"}], ",", "0.8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.44`"}], ",", RowBox[{ RowBox[{"-", "0.51"}], "+", "1"}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"0", "+", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"0", "+", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"0", "+", "1"}], ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.457211319390625*^9, 3.457211327328125*^9}, { 3.45721136534375*^9, 3.457211417984375*^9}, {3.457211485796875*^9, 3.457211529453125*^9}, {3.45721159240625*^9, 3.457211657765625*^9}, { 3.457212311984375*^9, 3.45721234878125*^9}, 3.457212401234375*^9, { 3.457212570625*^9, 3.457212677046875*^9}, 3.461889606828125*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"p1", "=", RowBox[{"{", RowBox[{"pp1", ",", "pp3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"{", RowBox[{"pp2", ",", "pp4"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4574451632496157`*^9, 3.457445173765644*^9}, 3.4574457585675707`*^9, 3.457445801428317*^9, {3.457445834273118*^9, 3.4574458458828645`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p3", "=", RowBox[{"{", RowBox[{"pp3", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45744603232633*^9, 3.4574460874530945`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p4", "=", RowBox[{"{", RowBox[{"pp4", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45744603232633*^9, 3.4574460874530945`*^9}, { 3.457446187378167*^9, 3.4574461909407806`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "12", ",", "12"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Red", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p2", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"t2", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p3", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p4", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461889706234375*^9, 3.461889729921875*^9}, 3.46188977728125*^9}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ "a1", ",", "a2", ",", "mm1", ",", "mm2", ",", "ss1", ",", "ss2", ",", "ss3", ",", "ss4", ",", "t1", ",", "t2", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.457206925703125*^9, 3.45720693671875*^9}, { 3.457207033765625*^9, 3.457207034484375*^9}, {3.457207923734375*^9, 3.45720795284375*^9}, {3.45720825315625*^9, 3.45720825534375*^9}, { 3.457208616875*^9, 3.4572086178125*^9}, {3.45721255440625*^9, 3.457212556015625*^9}, {3.4572126841875*^9, 3.4572127085*^9}, { 3.45721277278125*^9, 3.457212774328125*^9}, {3.4574450693866367`*^9, 3.4574451181385083`*^9}, {3.457445567858343*^9, 3.4574455905934453`*^9}, { 3.461888099296875*^9, 3.461888107625*^9}, {3.461888178375*^9, 3.461888179375*^9}, 3.46188822921875*^9, {3.46188826703125*^9, 3.461888285796875*^9}, 3.4618883486875*^9, 3.4618884140625*^9, { 3.461888488359375*^9, 3.46188849334375*^9}, {3.46188907665625*^9, 3.461889077890625*^9}, {3.461889140609375*^9, 3.461889143078125*^9}, { 3.46188973709375*^9, 3.461889738875*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Monster", "Section", CellChangeTimes->{{3.461880534796875*^9, 3.461880536359375*^9}, { 3.46188349228125*^9, 3.4618834928125*^9}, {3.461884306015625*^9, 3.461884308453125*^9}, {3.4618850209375*^9, 3.461885022078125*^9}, { 3.46188642828125*^9, 3.46188642934375*^9}, {3.461887117828125*^9, 3.461887120015625*^9}, {3.46188782896875*^9, 3.46188782946875*^9}, { 3.46188981678125*^9, 3.4618898176875*^9}}], Cell["Ordinola Mena, Mar\[IAcute]a Isabel ", "Text", CellChangeTimes->{{3.461885345296875*^9, 3.46188537215625*^9}, { 3.461886422203125*^9, 3.46188642475*^9}, {3.46188716778125*^9, 3.46188717415625*^9}, {3.461887898640625*^9, 3.461887911875*^9}, { 3.461889872625*^9, 3.461889883140625*^9}}], Cell[CellGroupData[{ Cell["Cuerpo", "Subsection", CellChangeTimes->{{3.4618899406875*^9, 3.46188994196875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"107", ",", "47", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"167", ",", "68", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"258", ",", "83", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"292", ",", "117", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"288", ",", "166", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"251", ",", "202", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"168", ",", "204", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"124", ",", "214", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"92", ",", "231", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "213", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "230", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "43", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "45", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"97", ",", "63", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"141", ",", "84", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"171", ",", "104", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"194", ",", "125", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"188", ",", "144", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"163", ",", "156", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"136", ",", "168", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"110", ",", "179", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"83", ",", "185", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"49", ",", "183", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "187", ",", "100"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "43", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "45", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"97", ",", "63", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"141", ",", "84", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"171", ",", "104", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"194", ",", "125", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"188", ",", "144", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"163", ",", "156", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"136", ",", "168", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"110", ",", "179", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"83", ",", "185", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"49", ",", "183", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "187", ",", "170"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "29", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "27", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"58", ",", "30", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"76", ",", "45", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", "56", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"93", ",", "64", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"107", ",", "95", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"110", ",", "129", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"95", ",", "152", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"69", ",", "162", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "168", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "172", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "173", ",", "230"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "29", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "27", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"58", ",", "30", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"76", ",", "45", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", "56", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"93", ",", "64", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"107", ",", "95", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"110", ",", "129", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"95", ",", "152", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"69", ",", "162", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "168", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "172", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "173", ",", "270"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "44", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "44", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "61", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"63", ",", "72", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"72", ",", "91", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"73", ",", "114", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"65", ",", "129", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"56", ",", "140", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "149", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "151", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "152", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "154", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "151", ",", "340"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "63", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "64", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "65", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "68", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "69", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "78", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "88", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "99", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "112", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "121", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "127", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "130", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "131", ",", "380"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4604592466939354`*^9, 3.460459359342975*^9}, { 3.4604601221386166`*^9, 3.4604601320287347`*^9}, {3.460463023598746*^9, 3.46046304017634*^9}, {3.4604630745033665`*^9, 3.4604632042965107`*^9}, { 3.4604632417486763`*^9, 3.4604633726672*^9}, 3.4604635002108097`*^9, { 3.4604636993150873`*^9, 3.46046407811789*^9}, {3.4604641796934147`*^9, 3.4604645323406363`*^9}, {3.4604646009638796`*^9, 3.4604646198071475`*^9}, {3.460464677821287*^9, 3.460464730757432*^9}, { 3.460464771959502*^9, 3.4604649497986994`*^9}, {3.4604649819072523`*^9, 3.4604650152032747`*^9}, {3.4604650502180033`*^9, 3.460465060280246*^9}, { 3.460465093591893*^9, 3.460465099779235*^9}, {3.460465135747064*^9, 3.460465179886559*^9}, {3.4604654348659973`*^9, 3.460465503005314*^9}, { 3.4604656463150625`*^9, 3.4604656519399543`*^9}, {3.460484484986562*^9, 3.4604847390738072`*^9}, {3.460484779432149*^9, 3.460485077190151*^9}, { 3.4605023254324956`*^9, 3.460502352071927*^9}, {3.460502385617299*^9, 3.460502465098113*^9}, {3.4605025171582813`*^9, 3.4605026599956317`*^9}, { 3.460502696587742*^9, 3.460502708212221*^9}, {3.460502754007045*^9, 3.460502802348629*^9}, {3.4605028410812683`*^9, 3.4605028577367725`*^9}, { 3.4605028880166655`*^9, 3.460503363059951*^9}, {3.4605034060582995`*^9, 3.4605034860552273`*^9}, {3.460503610878559*^9, 3.4605036490958414`*^9}, 3.460503749138875*^9, {3.46053981350447*^9, 3.4605398416729193`*^9}, { 3.4605406183432865`*^9, 3.460540726597825*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "60"}], ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "107"}], ",", "47", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "167"}], ",", "68", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "258"}], ",", "83", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "292"}], ",", "117", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "288"}], ",", "166", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "251"}], ",", "202", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "168"}], ",", "204", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "124"}], ",", "214", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "92"}], ",", "231", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "41"}], ",", "213", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "230", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "43", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "37"}], ",", "45", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "97"}], ",", "63", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "141"}], ",", "84", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "171"}], ",", "104", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "194"}], ",", "125", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "188"}], ",", "144", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "163"}], ",", "156", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "136"}], ",", "168", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "110"}], ",", "179", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "83"}], ",", "185", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "49"}], ",", "183", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "187", ",", "100"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "43", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "37"}], ",", "45", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "97"}], ",", "63", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "141"}], ",", "84", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "171"}], ",", "104", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "194"}], ",", "125", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "188"}], ",", "144", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "163"}], ",", "156", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "136"}], ",", "168", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "110"}], ",", "179", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "83"}], ",", "185", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "49"}], ",", "183", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "187", ",", "170"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "29", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "40"}], ",", "27", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "58"}], ",", "30", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "76"}], ",", "45", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "88"}], ",", "56", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "93"}], ",", "64", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "107"}], ",", "95", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "110"}], ",", "129", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "95"}], ",", "152", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "69"}], ",", "162", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "48"}], ",", "168", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "23"}], ",", "172", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "173", ",", "230"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "29", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "40"}], ",", "27", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "58"}], ",", "30", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "76"}], ",", "45", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "88"}], ",", "56", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "93"}], ",", "64", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "107"}], ",", "95", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "110"}], ",", "129", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "95"}], ",", "152", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "69"}], ",", "162", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "48"}], ",", "168", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "23"}], ",", "172", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "173", ",", "270"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "44", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "21"}], ",", "44", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "50"}], ",", "61", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "63"}], ",", "72", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "72"}], ",", "91", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "73"}], ",", "114", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "65"}], ",", "129", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "56"}], ",", "140", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "44"}], ",", "149", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "25"}], ",", "151", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "11"}], ",", "152", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8"}], ",", "154", ",", "340"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "151", ",", "340"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "63", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "64", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9"}], ",", "65", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "14"}], ",", "68", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "17"}], ",", "69", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "26"}], ",", "78", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "31"}], ",", "88", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "33"}], ",", "99", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "27"}], ",", "112", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "121", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", "127", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "130", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "131", ",", "380"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "94", ",", "380"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4605395161968765`*^9, 3.460539522524232*^9}, { 3.4605398549214687`*^9, 3.4605398948861256`*^9}, 3.460540771093268*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "7", ",", "7"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "12", ",", "12"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}, {3.461890094109375*^9, 3.46189010846875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Cyan", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p2", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9, {3.46189012390625*^9, 3.461890150484375*^9}, { 3.46189020484375*^9, 3.46189021665625*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["ojo", "Subsection", CellChangeTimes->{{3.461890236484375*^9, 3.4618902368125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"o1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "40.5", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "40.5", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "40.5", ",", "250"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "25", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"27.2", ",", "16.5", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "36.5", ",", "300"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "40.5", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "40.5", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "40.5", ",", "320"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"o2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "40.5`", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "40.5`", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "40.5`", ",", "250"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "25", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "27.2`"}], ",", "16.5`", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "44"}], ",", "36.5`", ",", "300"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "40.5`", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "40.5`", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "40.5`", ",", "320"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.461890337703125*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "2"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}, {3.461890094109375*^9, 3.46189010846875*^9}, { 3.461890271484375*^9, 3.461890286171875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t2", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"White", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"o1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"o2", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9, {3.46189012390625*^9, 3.461890150484375*^9}, { 3.46189020484375*^9, 3.46189021665625*^9}, {3.4618903054375*^9, 3.461890393296875*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["ni\[NTilde]a", "Subsection", CellChangeTimes->{{3.46189041715625*^9, 3.461890417828125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t3", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "30", ",", "300"}], "}"}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461890423875*^9, 3.4618904280625*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Monster", "Subsection", CellChangeTimes->{{3.46189047359375*^9, 3.461890476515625*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"t1", ",", "t2", ",", "t3", ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.460459406449335*^9, 3.460459429807215*^9}, { 3.460459476554223*^9, 3.4604595046774235`*^9}, 3.460459545331071*^9, { 3.4604596427623353`*^9, 3.4604596570739193`*^9}, {3.4604597205229836`*^9, 3.4604597584424314`*^9}, {3.460460154465086*^9, 3.460460156793092*^9}, { 3.4604634189941387`*^9, 3.4604634371811733`*^9}, {3.46046352500705*^9, 3.4604635255695353`*^9}, {3.460463562927954*^9, 3.4604635756932526`*^9}, { 3.4604636208327217`*^9, 3.460463657191166*^9}, {3.4604640989298573`*^9, 3.4604641177575*^9}, {3.4604645473871264`*^9, 3.4604645743239365`*^9}, { 3.4604651147788506`*^9, 3.460465117388159*^9}, {3.46046519668307*^9, 3.4604651980267944`*^9}, {3.4604655312391467`*^9, 3.460465532535997*^9}, { 3.460465682392494*^9, 3.460465683251853*^9}, {3.460465744391304*^9, 3.4604657465006385`*^9}, {3.460467058793372*^9, 3.4604670613558397`*^9}, { 3.460478550063325*^9, 3.4604785800299644`*^9}, {3.4604797733894844`*^9, 3.4604797738738317`*^9}, {3.4604802323630457`*^9, 3.4604802330817547`*^9}, {3.4604810076196284`*^9, 3.460481008807068*^9}, { 3.460481346196042*^9, 3.4604813698669643`*^9}, {3.4604814732848673`*^9, 3.460481473878595*^9}, {3.460482514605157*^9, 3.460482515651998*^9}, { 3.4604829820433235`*^9, 3.46048298307454*^9}, {3.460483037588421*^9, 3.4604830469787455`*^9}, {3.460539682817238*^9, 3.4605396967842894`*^9}, { 3.4605416284887686`*^9, 3.4605416319572296`*^9}, {3.4605428354628873`*^9, 3.460542836572184*^9}, {3.461890444328125*^9, 3.461890455640625*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Pato", "Section", CellChangeTimes->{{3.461880534796875*^9, 3.461880536359375*^9}, { 3.46188349228125*^9, 3.4618834928125*^9}, {3.461884306015625*^9, 3.461884308453125*^9}, {3.4618850209375*^9, 3.461885022078125*^9}, { 3.46188642828125*^9, 3.46188642934375*^9}, {3.461887117828125*^9, 3.461887120015625*^9}, {3.46188782896875*^9, 3.46188782946875*^9}, { 3.46188981678125*^9, 3.4618898176875*^9}, {3.461890561234375*^9, 3.46189056215625*^9}}], Cell["Rojas Ram\[IAcute]rez, Eris Nilda", "Text", CellChangeTimes->{{3.461885345296875*^9, 3.46188537215625*^9}, { 3.461886422203125*^9, 3.46188642475*^9}, {3.46188716778125*^9, 3.46188717415625*^9}, {3.461887898640625*^9, 3.461887911875*^9}, { 3.461889872625*^9, 3.461889883140625*^9}, {3.46189053275*^9, 3.461890542890625*^9}}], Cell[CellGroupData[{ Cell["Cuerpo", "Subsection", CellChangeTimes->{{3.4618920204375*^9, 3.46189202153125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"x1", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"3", RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"3", RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"4", RowBox[{"Sin", "[", "v", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.459774230875*^9, 3.459774274375*^9}, { 3.45977443128125*^9, 3.45977444509375*^9}, {3.459774540828125*^9, 3.4597745416875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"cuerpo", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"x1", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459774450015625*^9, 3.459774471734375*^9}, { 3.4597745071875*^9, 3.45977452671875*^9}, {3.45977461596875*^9, 3.4597746229375*^9}, {3.4618920258125*^9, 3.461892027234375*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Patas", "Subsection", CellChangeTimes->{{3.4597826555*^9, 3.4597826570625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]1", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"t", ",", "0"}], "]"}]}]], "Input", CellChangeTimes->{{3.459774646484375*^9, 3.459774667625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]1", "[", RowBox[{"4", RowBox[{"Pi", "/", "3"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.45977720175*^9, 3.459777213125*^9}, { 3.459777703171875*^9, 3.459777706390625*^9}, {3.459777805609375*^9, 3.459777812875*^9}, {3.459779998171875*^9, 3.459780027234375*^9}, 3.461892056171875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]1", "[", RowBox[{"10", RowBox[{"Pi", "/", "6"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.459777714828125*^9, 3.459777715265625*^9}, { 3.459777853875*^9, 3.45977785996875*^9}, {3.45977793440625*^9, 3.459777934921875*^9}, 3.461892058421875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"v1", "=", RowBox[{ RowBox[{"\[Alpha]1", "[", RowBox[{"Pi", "/", "2"}], "]"}], "-", RowBox[{"\[Alpha]1", "[", RowBox[{"4", RowBox[{"Pi", "/", "3"}]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.459778065390625*^9, 3.459778092125*^9}, { 3.4597800040625*^9, 3.459780032390625*^9}, 3.461892060453125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"vv1", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459779305890625*^9, 3.459779390484375*^9}, { 3.4597795653125*^9, 3.4597795963125*^9}, 3.45977963265625*^9, 3.45977968096875*^9, 3.461892062140625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"vv11", "=", RowBox[{"{", RowBox[{ RowBox[{ SqrtBox["2"], "/", "2"}], ",", "0", ",", RowBox[{ SqrtBox["2"], "/", "2"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459779850171875*^9, 3.45977987303125*^9}, { 3.459779903078125*^9, 3.4597799040625*^9}, {3.459780559578125*^9, 3.45978059953125*^9}, 3.4618920636875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"vv111", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["2"]}], "/", "2"}], ",", "0", ",", RowBox[{ SqrtBox["2"], "/", "2"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45978064734375*^9, 3.459780651265625*^9}, 3.461892065609375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pa", "=", RowBox[{ RowBox[{ RowBox[{"-", "1.3"}], "v1"}], "+", RowBox[{"\[Alpha]1", "[", RowBox[{"Pi", "/", "2"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.459778601984375*^9, 3.4597786361875*^9}, { 3.459778778421875*^9, 3.4597787789375*^9}, {3.45977882134375*^9, 3.45977883428125*^9}, 3.459779611484375*^9, 3.45977967046875*^9, { 3.459781079*^9, 3.45978108065625*^9}, 3.461892067453125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"paa", "=", RowBox[{ RowBox[{"1.2", "vv1"}], "+", "pa"}]}], ";"}]], "Input", CellChangeTimes->{{3.459779419921875*^9, 3.45977945396875*^9}, 3.4618920691875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"paa1", "=", RowBox[{ RowBox[{"1.2", "vv11"}], "+", "pa"}]}], ";"}]], "Input", CellChangeTimes->{3.4597798873125*^9, 3.45977991878125*^9, 3.461892070828125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"paaa1", "=", RowBox[{ RowBox[{"1.2", "vv111"}], "+", "pa"}]}], ";"}]], "Input", CellChangeTimes->{{3.4597806680625*^9, 3.459780675203125*^9}, 3.461892072484375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"v2", "=", RowBox[{ RowBox[{"\[Alpha]1", "[", RowBox[{"Pi", "/", "2"}], "]"}], "-", RowBox[{"\[Alpha]1", "[", RowBox[{"10", RowBox[{"Pi", "/", "6"}]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.459778101625*^9, 3.4597781110625*^9}, 3.461892074078125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"vv2", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459779403890625*^9, 3.45977941215625*^9}, { 3.459779560671875*^9, 3.459779560953125*^9}, {3.4597797055625*^9, 3.459779708921875*^9}, 3.46189207584375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"vv22", "=", RowBox[{"{", RowBox[{ RowBox[{ SqrtBox["2"], "/", "2"}], ",", "0", ",", RowBox[{ SqrtBox["2"], "/", "2"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459780753875*^9, 3.45978077428125*^9}, 3.4618920775*^9}], Cell[BoxData[ RowBox[{ RowBox[{"vv222", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["2"]}], "/", "2"}], ",", "0", ",", RowBox[{ SqrtBox["2"], "/", "2"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45978098196875*^9, 3.459780987046875*^9}, 3.461892079265625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pb", "=", RowBox[{ RowBox[{ RowBox[{"-", "1.3"}], "v2"}], "+", RowBox[{"\[Alpha]1", "[", RowBox[{"Pi", "/", "2"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.4597789286875*^9, 3.4597789328125*^9}, { 3.459781090890625*^9, 3.459781091609375*^9}, 3.461892081046875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pbb", "=", RowBox[{ RowBox[{"1.2", "vv2"}], "+", "pb"}]}], ";"}]], "Input", CellChangeTimes->{{3.459779725265625*^9, 3.45977973115625*^9}, 3.461892082765625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pbb1", "=", RowBox[{ RowBox[{"1.2", "vv22"}], "+", "pb"}]}], ";"}]], "Input", CellChangeTimes->{{3.459780792140625*^9, 3.459780800296875*^9}, 3.46189208453125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pbbb1", "=", RowBox[{ RowBox[{"1.2", "vv222"}], "+", "pb"}]}], ";"}]], "Input", CellChangeTimes->{{3.45978099490625*^9, 3.45978099971875*^9}, 3.461892086609375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"patas", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", RowBox[{"\[Alpha]1", "[", RowBox[{"4", RowBox[{"Pi", "/", "3"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", RowBox[{"\[Alpha]1", "[", RowBox[{"10", RowBox[{"Pi", "/", "6"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", "pa", "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", "pb", "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Thickness", "[", "0.05", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]1", "[", RowBox[{"4", RowBox[{"Pi", "/", "3"}]}], "]"}], ",", "pa"}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Thickness", "[", "0.05", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]1", "[", RowBox[{"10", RowBox[{"Pi", "/", "6"}]}], "]"}], ",", "pb"}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Thickness", "[", "0.03", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"pa", ",", "paa"}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Thickness", "[", "0.03", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"pb", ",", "pbb"}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Thickness", "[", "0.03", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"pa", ",", "paa1"}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Thickness", "[", "0.03", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"pa", ",", "paaa1"}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Thickness", "[", "0.03", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"pb", ",", "pbb1"}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Thickness", "[", "0.03", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"pb", ",", "pbbb1"}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45977467278125*^9, 3.459774718703125*^9}, { 3.459777149671875*^9, 3.459777190890625*^9}, 3.45977722125*^9, { 3.459777257296875*^9, 3.459777257671875*^9}, {3.4597773086875*^9, 3.45977730953125*^9}, {3.45977746765625*^9, 3.45977749715625*^9}, { 3.45977756040625*^9, 3.459777565453125*^9}, {3.45977787203125*^9, 3.459777881421875*^9}, {3.45977792734375*^9, 3.4597779663125*^9}, { 3.459778648421875*^9, 3.459778666640625*^9}, {3.459778713171875*^9, 3.459778720296875*^9}, {3.4597789460625*^9, 3.459779031546875*^9}, { 3.459779145015625*^9, 3.459779177859375*^9}, {3.459779493828125*^9, 3.45977951240625*^9}, {3.4597797385*^9, 3.459779746328125*^9}, { 3.4597799284375*^9, 3.459779943609375*^9}, {3.4597801905*^9, 3.459780192125*^9}, {3.45978068440625*^9, 3.45978069340625*^9}, { 3.459780806671875*^9, 3.459780821765625*^9}, {3.459781008*^9, 3.459781011984375*^9}, {3.459781116296875*^9, 3.459781137546875*^9}, { 3.45978267990625*^9, 3.459782681359375*^9}, {3.45978306059375*^9, 3.45978306196875*^9}, 3.46189209209375*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Alas", "Subsection", CellChangeTimes->{{3.459783141546875*^9, 3.459783149328125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]2", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"3", "+", RowBox[{"1.8", RowBox[{"Cos", "[", "t", "]"}]}]}], ",", "1", ",", RowBox[{"2", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45978253325*^9, 3.45978253959375*^9}, { 3.459782644375*^9, 3.45978264790625*^9}, {3.45978269096875*^9, 3.459782698875*^9}, {3.45978273290625*^9, 3.4597827331875*^9}, { 3.45978284596875*^9, 3.45978290203125*^9}, {3.459782959875*^9, 3.45978296040625*^9}, {3.459783023375*^9, 3.45978302478125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]3", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"1.8", RowBox[{"Cos", "[", "t", "]"}]}]}], ",", "1", ",", RowBox[{"2", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45978253325*^9, 3.45978253959375*^9}, { 3.459782644375*^9, 3.45978264790625*^9}, {3.45978269096875*^9, 3.459782698875*^9}, {3.45978273290625*^9, 3.4597827331875*^9}, { 3.45978284596875*^9, 3.459782927375*^9}, {3.45978303609375*^9, 3.459783040296875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m1", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Alpha]2", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Yellow", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45978270340625*^9, 3.4597827206875*^9}, { 3.459782797359375*^9, 3.4597828310625*^9}, 3.459783240703125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"m2", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Alpha]3", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Yellow", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45978270340625*^9, 3.4597827206875*^9}, { 3.459782797359375*^9, 3.4597828310625*^9}, {3.4597829386875*^9, 3.459782942359375*^9}, 3.459783243375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p1", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Alpha]2", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45978324709375*^9, 3.459783410625*^9}, { 3.4597839245625*^9, 3.459783983515625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p2", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Alpha]3", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459783447140625*^9, 3.459783497*^9}, { 3.4597841135625*^9, 3.45978415025*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}, {3.461890094109375*^9, 3.46189010846875*^9}, { 3.461890271484375*^9, 3.461890286171875*^9}, {3.46189227765625*^9, 3.4618922848125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"alas", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"Yellow", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"p2", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9, {3.46189012390625*^9, 3.461890150484375*^9}, { 3.46189020484375*^9, 3.46189021665625*^9}, {3.4618903054375*^9, 3.461890393296875*^9}, {3.461892260703125*^9, 3.46189230884375*^9}, { 3.4618924345625*^9, 3.461892440953125*^9}, {3.461893512890625*^9, 3.46189351559375*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Cola", "Subsection", CellChangeTimes->{{3.459784257421875*^9, 3.459784257859375*^9}, { 3.45978900246875*^9, 3.459789004125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]4", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"4", RowBox[{"Cos", "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "3."}], "+", RowBox[{"4", RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4597843088125*^9, 3.45978436025*^9}, { 3.459784398453125*^9, 3.459784402*^9}, {3.459784470484375*^9, 3.459784545703125*^9}, 3.459785362453125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"puncola", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Alpha]4", "[", "i", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Alpha]4", "[", "i", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "+", "3"}], ",", RowBox[{ RowBox[{"\[Alpha]4", "[", "i", "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "4", ",", "5.4", ",", "0.2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "3."}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "3."}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "3."}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "3."}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "3."}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "3."}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "3."}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "3"}]}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459784783203125*^9, 3.459784838421875*^9}, 3.459784974109375*^9, {3.459785080921875*^9, 3.45978511203125*^9}, { 3.45978514728125*^9, 3.4597851831875*^9}, {3.459785369640625*^9, 3.459785382484375*^9}, 3.45978562678125*^9, {3.459785662984375*^9, 3.45978566925*^9}, {3.4597914755*^9, 3.459791476640625*^9}, { 3.459791506921875*^9, 3.45979153409375*^9}, {3.45979178525*^9, 3.459791789734375*^9}, {3.459791820984375*^9, 3.45979182521875*^9}, 3.4618923610625*^9, {3.461892573375*^9, 3.46189257584375*^9}, { 3.461893526578125*^9, 3.461893533375*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "6", ",", "6"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}, {3.461890094109375*^9, 3.46189010846875*^9}, { 3.461890271484375*^9, 3.461890286171875*^9}, {3.46189227765625*^9, 3.4618922848125*^9}, {3.461892555171875*^9, 3.4618925619375*^9}, { 3.461893699625*^9, 3.461893700640625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"cola", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"Yellow", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"puncola", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9, {3.46189012390625*^9, 3.461890150484375*^9}, { 3.46189020484375*^9, 3.46189021665625*^9}, {3.4618903054375*^9, 3.461890393296875*^9}, {3.461892260703125*^9, 3.46189230884375*^9}, { 3.461892377875*^9, 3.46189239378125*^9}, 3.46189242390625*^9, 3.4618937118125*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Cabeza", "Subsection", CellChangeTimes->{{3.4597857179375*^9, 3.4597857196875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"x2", "[", RowBox[{"{", RowBox[{"u_", ",", "v_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"2", RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"3", "+", RowBox[{"2", RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{"4", "+", RowBox[{"2", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.459785739796875*^9, 3.459785817296875*^9}, { 3.459785883375*^9, 3.459785938640625*^9}, {3.459789153921875*^9, 3.45978915575*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"cabeza", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"x2", "[", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459785822515625*^9, 3.459785860078125*^9}, { 3.459789161515625*^9, 3.459789167296875*^9}, 3.461893740640625*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Ojos", "Subsection", CellChangeTimes->{{3.459786205671875*^9, 3.45978622065625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]5", "[", "t_", "]"}], ":=", RowBox[{"x2", "[", RowBox[{"{", RowBox[{"0.5", ",", "t"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.459786149921875*^9, 3.45978617940625*^9}, { 3.4597881665*^9, 3.4597881831875*^9}, {3.459788237125*^9, 3.459788237765625*^9}, {3.45978827346875*^9, 3.45978834025*^9}, { 3.45978838653125*^9, 3.459788401125*^9}, {3.459788464*^9, 3.45978849284375*^9}, {3.459788540859375*^9, 3.459788564484375*^9}, { 3.45978917509375*^9, 3.4597891775625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]6", "[", "t_", "]"}], ":=", RowBox[{"x2", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "t"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.459788591875*^9, 3.459788595828125*^9}, { 3.459789181421875*^9, 3.45978918340625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ojos", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"PointSize", "[", "0.04", "]"}], ",", RowBox[{"Point", "[", RowBox[{"\[Alpha]5", "[", "1", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"PointSize", "[", "0.04", "]"}], ",", RowBox[{"Point", "[", RowBox[{"\[Alpha]6", "[", "2.2", "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459786138625*^9, 3.459786140671875*^9}, { 3.459788188671875*^9, 3.45978821475*^9}, {3.4597882481875*^9, 3.459788261703125*^9}, {3.459788435265625*^9, 3.459788456546875*^9}, { 3.45978857846875*^9, 3.459788887546875*^9}, 3.461893763796875*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Pico", "Subsection", CellChangeTimes->{{3.459788915125*^9, 3.45978891609375*^9}, { 3.45978899459375*^9, 3.459788995*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"x3", "[", RowBox[{"{", RowBox[{"u_", ",", "v_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"3", RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"3", "+", RowBox[{"3", RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{"4", "+", RowBox[{"3", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.459789753140625*^9, 3.459789817515625*^9}, { 3.45979067978125*^9, 3.459790690234375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]7", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], "+", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"Pi", "/", "3"}], "+", RowBox[{"0.2", RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.459789224125*^9, 3.459789243921875*^9}, { 3.45978938878125*^9, 3.459789705859375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]8", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], "+", RowBox[{"0.3", RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"Pi", "/", "3"}], "+", RowBox[{"0.01", RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45978984075*^9, 3.45978985359375*^9}, { 3.459790706984375*^9, 3.459790729640625*^9}, {3.45979082884375*^9, 3.45979085534375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]7", "[", "t_", "]"}], ":=", RowBox[{"x2", "[", RowBox[{"\[Alpha]7", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.459789260828125*^9, 3.45978928940625*^9}, { 3.459789452203125*^9, 3.459789458515625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]8", "[", "t_", "]"}], ":=", RowBox[{"x3", "[", RowBox[{"\[Alpha]8", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.45978986075*^9, 3.4597898689375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"punpico", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]7", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "4"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]8", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "4"}]}], "}"}]}], "]"}]}], "}"}], "//", "N"}]}], ";"}]], "Input", CellChangeTimes->{{3.459790931140625*^9, 3.4597910095625*^9}, 3.46189380978125*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "7", ",", "7"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}, {3.461890094109375*^9, 3.46189010846875*^9}, { 3.461890271484375*^9, 3.461890286171875*^9}, {3.46189227765625*^9, 3.4618922848125*^9}, {3.461892555171875*^9, 3.4618925619375*^9}, { 3.461893699625*^9, 3.461893700640625*^9}, 3.4618938515*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pico", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"Yellow", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"punpico", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9, {3.46189012390625*^9, 3.461890150484375*^9}, { 3.46189020484375*^9, 3.46189021665625*^9}, {3.4618903054375*^9, 3.461890393296875*^9}, {3.461892260703125*^9, 3.46189230884375*^9}, { 3.461892377875*^9, 3.46189239378125*^9}, 3.46189242390625*^9, 3.4618937118125*^9, {3.461893857734375*^9, 3.461893872*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Pato", "Subsection", CellChangeTimes->{{3.461894001734375*^9, 3.461894002390625*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ "cuerpo", ",", "patas", ",", "alas", ",", "cola", ",", "cabeza", ",", "ojos", ",", "pico", ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ "1.7563412792956326`", ",", "0.870800947336656", ",", "2.7580737881281876`"}], "}"}]}], ",", RowBox[{"ViewVertical", "\[Rule]", RowBox[{"{", RowBox[{ "0.2313646607334848", ",", "1.3640889067440045`", ",", "0.3272766787714351"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.459774722046875*^9, 3.459774727921875*^9}, { 3.459778798359375*^9, 3.45977880484375*^9}, {3.459782684953125*^9, 3.459782686390625*^9}, {3.45978283815625*^9, 3.4597828386875*^9}, { 3.459782946546875*^9, 3.459782951328125*^9}, {3.45978404596875*^9, 3.45978404915625*^9}, {3.459784202296875*^9, 3.45978420690625*^9}, { 3.459784418625*^9, 3.459784420390625*^9}, {3.4597844624375*^9, 3.4597844629375*^9}, {3.45978529921875*^9, 3.45978531015625*^9}, { 3.459785865375*^9, 3.459785869296875*^9}, {3.4597882665*^9, 3.459788268140625*^9}, {3.459789365296875*^9, 3.459789365953125*^9}, { 3.459791137296875*^9, 3.4597911594375*^9}, {3.461893921765625*^9, 3.4618939460625*^9}, {3.4618939810625*^9, 3.4618940081875*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Frasco de perfume", "Section", CellChangeTimes->{{3.461880534796875*^9, 3.461880536359375*^9}, { 3.46188349228125*^9, 3.4618834928125*^9}, {3.461884306015625*^9, 3.461884308453125*^9}, {3.4618850209375*^9, 3.461885022078125*^9}, { 3.46188642828125*^9, 3.46188642934375*^9}, {3.461887117828125*^9, 3.461887120015625*^9}, {3.46188782896875*^9, 3.46188782946875*^9}, { 3.46188981678125*^9, 3.4618898176875*^9}, {3.461890561234375*^9, 3.46189056215625*^9}, {3.46189406253125*^9, 3.461894067828125*^9}}], Cell["Pacherrez Rojas, Rosa Hayme\[EAcute]", "Text", CellChangeTimes->{{3.461894096796875*^9, 3.46189410253125*^9}}], Cell[CellGroupData[{ Cell["Definiciones previas", "Subsection", CellChangeTimes->{{3.46189427290625*^9, 3.461894278015625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"a", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{"0.15", ",", RowBox[{"0.5", RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{"0.3", RowBox[{"Cos", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4593931213426247`*^9, 3.4593931986863747`*^9}, { 3.4593964303582497`*^9, 3.4593965524832497`*^9}, {3.4593977465457497`*^9, 3.4593977621394997`*^9}, {3.4593978083738747`*^9, 3.4593978230457497`*^9}, { 3.4593978611082497`*^9, 3.4593978621238747`*^9}, {3.4593989514832497`*^9, 3.4593989560144997`*^9}, {3.4593997501238747`*^9, 3.4593997558113747`*^9}, { 3.4593998102019997`*^9, 3.4593998582488747`*^9}, {3.4594001334988747`*^9, 3.4594001342801247`*^9}, {3.4594003239207497`*^9, 3.4594003257176247`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"y", "[", RowBox[{"{", RowBox[{"u_", ",", "v_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "u", "]"}], ",", RowBox[{"Sin", "[", "u", "]"}], ",", "v"}], "}"}]}]], "Input", CellChangeTimes->{{3.44951423040625*^9, 3.44951426503125*^9}, { 3.450437182387958*^9, 3.450437184263006*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]0", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Pi", "+", RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "2.5"}], ")"}], RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "2.5"}], ")"}], RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4594018131082497`*^9, 3.4594018258426247`*^9}, { 3.4594018646394997`*^9, 3.4594018686238747`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]1", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Pi", "+", RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "3"}], ")"}], RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "3"}], ")"}], RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4504359929182673`*^9, 3.4504360385447273`*^9}, { 3.452534173626817*^9, 3.4525341747040386`*^9}, {3.4525344195419207`*^9, 3.452534423633941*^9}, {3.452534464538531*^9, 3.4525344653506875`*^9}, { 3.4593939266863747`*^9, 3.4593939473582497`*^9}, 3.4594012887644997`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]2", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Pi", "+", RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "4"}], ")"}], RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "4"}], ")"}], RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4594006332332497`*^9, 3.4594006414363747`*^9}, { 3.4594007883738747`*^9, 3.4594007936394997`*^9}, {3.4594011013426247`*^9, 3.4594011157176247`*^9}, {3.4594012930301247`*^9, 3.4594012931082497`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]3", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Pi", "+", RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "6"}], ")"}], RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "6"}], ")"}], RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4594012555144997`*^9, 3.4594012962176247`*^9}, { 3.4594013528269997`*^9, 3.4594013554676247`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]4", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Pi", "+", RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "10"}], ")"}], RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"Pi", "/", "10"}], ")"}], RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4594013690457497`*^9, 3.4594014220301247`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]5", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1.3"}], "+", RowBox[{"1.9", RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"-", "1.3"}], "+", RowBox[{"1.3", RowBox[{"Sin", "[", "t", "]"}]}]}], ",", "0"}], "}"}]}]], "Input", CellChangeTimes->{{3.4594089082801247`*^9, 3.4594089531394997`*^9}, { 3.4594090695769997`*^9, 3.4594091170613747`*^9}, {3.4594094387176247`*^9, 3.4594095173738747`*^9}, {3.4594103602332497`*^9, 3.4594103606863747`*^9}, { 3.4594104038426247`*^9, 3.4594104043582497`*^9}, {3.4594104394988747`*^9, 3.4594104704519997`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]6", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.35", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"0.35", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4594118639832497`*^9, 3.4594119014519997`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]0", "[", "t_", "]"}], ":=", RowBox[{"y", "[", RowBox[{"\[Alpha]0", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4594018368269997`*^9, 3.4594018409988747`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]1", "[", "t_", "]"}], ":=", RowBox[{"y", "[", RowBox[{"\[Alpha]1", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.450437402627246*^9, 3.4504374193619423`*^9}, { 3.4594012990301247`*^9, 3.4594013020769997`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]2", "[", "t_", "]"}], ":=", RowBox[{"y", "[", RowBox[{"\[Alpha]2", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4593951420769997`*^9, 3.4593951818113747`*^9}, { 3.4594007091707497`*^9, 3.4594007115457497`*^9}, {3.4594013052019997`*^9, 3.4594013082176247`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]3", "[", "t_", "]"}], ":=", RowBox[{"y", "[", RowBox[{"\[Alpha]3", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4594012790613747`*^9, 3.4594012794832497`*^9}, { 3.4594013116551247`*^9, 3.4594013147801247`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]4", "[", "t_", "]"}], ":=", RowBox[{"y", "[", RowBox[{"\[Alpha]4", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4594013825769997`*^9, 3.4594013861707497`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"x1", "[", RowBox[{"{", RowBox[{"u_", ",", "v_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{"v", ",", RowBox[{"0.35", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{"0.35", RowBox[{"Sin", "[", "u", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4594031518269997`*^9, 3.4594032289363747`*^9}, { 3.4594033706238747`*^9, 3.4594033729676247`*^9}, {3.4594034046863747`*^9, 3.4594034411082497`*^9}, {3.4594036680769997`*^9, 3.4594037026707497`*^9}, 3.4594065802019997`*^9, {3.459706181640625*^9, 3.459706185453125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"x2", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{"v", ",", RowBox[{"0.3", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{"0.3", RowBox[{"Sin", "[", "u", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4594065914832497`*^9, 3.4594066071238747`*^9}, { 3.4594069865457497`*^9, 3.4594069909051247`*^9}, {3.4594070543738747`*^9, 3.4594070591394997`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"x3", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{"v", ",", RowBox[{"0.25", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{"0.25", RowBox[{"Sin", "[", "u", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4594070636707497`*^9, 3.4594070743582497`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["puntos", "Subsection", CellChangeTimes->{{3.461894259375*^9, 3.461894265421875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p0", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]0", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], "//", "N"}]}], ";"}]], "Input", CellChangeTimes->{{3.4594018853582497`*^9, 3.4594018883738747`*^9}, 3.461894286234375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p1", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]1", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], "//", "N"}]}], ";"}]], "Input", CellChangeTimes->{{3.4593946260613747`*^9, 3.4593947083269997`*^9}, { 3.4593948043113747`*^9, 3.4593948049988747`*^9}, 3.4593952434051247`*^9, 3.4593963627488747`*^9, {3.4593980540144997`*^9, 3.4593980654051247`*^9}, { 3.4593992023738747`*^9, 3.4593992080926247`*^9}, {3.4594014334988747`*^9, 3.4594014335769997`*^9}, 3.461894288796875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p2", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]2", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], "//", "N"}]}], ";"}]], "Input", CellChangeTimes->{{3.4593946260613747`*^9, 3.4593947083269997`*^9}, { 3.4593948043113747`*^9, 3.4593948049988747`*^9}, 3.4593952434051247`*^9, 3.4593963627488747`*^9, {3.4593980540144997`*^9, 3.4593980654051247`*^9}, { 3.4593992023738747`*^9, 3.4593992080926247`*^9}, {3.4594008318582497`*^9, 3.4594008378426247`*^9}, {3.4594014419051247`*^9, 3.4594014420613747`*^9}, 3.461894291203125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p3", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]3", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], "//", "N"}]}], ";"}]], "Input", CellChangeTimes->{{3.4593946260613747`*^9, 3.4593947083269997`*^9}, { 3.4593948043113747`*^9, 3.4593948049988747`*^9}, 3.4593952434051247`*^9, 3.4593963627488747`*^9, {3.4593980540144997`*^9, 3.4593980654051247`*^9}, { 3.4593992023738747`*^9, 3.4593992080926247`*^9}, {3.4594008318582497`*^9, 3.4594008378426247`*^9}, {3.4594014419051247`*^9, 3.4594014584988747`*^9}, 3.4618942934375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p4", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]4", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], "//", "N"}]}], ";"}]], "Input", CellChangeTimes->{{3.4593946260613747`*^9, 3.4593947083269997`*^9}, { 3.4593948043113747`*^9, 3.4593948049988747`*^9}, 3.4593952434051247`*^9, 3.4593963627488747`*^9, {3.4593980540144997`*^9, 3.4593980654051247`*^9}, { 3.4593992023738747`*^9, 3.4593992080926247`*^9}, {3.4594008318582497`*^9, 3.4594008378426247`*^9}, {3.4594014419051247`*^9, 3.4594014692801247`*^9}, {3.461894295828125*^9, 3.46189429753125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p5", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{ RowBox[{"2", "Pi"}], "-", RowBox[{"Pi", "/", "2"}]}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4593946260613747`*^9, 3.4593947083269997`*^9}, { 3.4593948043113747`*^9, 3.4593948049988747`*^9}, 3.4593952434051247`*^9, 3.4593963627488747`*^9, {3.4593970655144997`*^9, 3.4593970884988747`*^9}, { 3.4593982132019997`*^9, 3.4593982372176247`*^9}, {3.4593991244207497`*^9, 3.4593991523113747`*^9}, 3.4593994048582497`*^9, 3.4593995342801247`*^9, { 3.4594008343113747`*^9, 3.4594008344832497`*^9}, {3.4594014741551247`*^9, 3.4594014742644997`*^9}, {3.4594023844988747`*^9, 3.4594024023269997`*^9}, {3.4594027413894997`*^9, 3.4594027891238747`*^9}, {3.4594028595926247`*^9, 3.4594028627957497`*^9}, {3.4594028928894997`*^9, 3.4594028948426247`*^9}, 3.4618946010625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p6", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"x1", "[", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "0.9"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x1", "[", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "1.3"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4594039031082497`*^9, 3.4594040147019997`*^9}, { 3.4594042086238747`*^9, 3.4594042090457497`*^9}, {3.4594072728113747`*^9, 3.4594072756238747`*^9}, {3.4594074493582497`*^9, 3.4594074509988747`*^9}, {3.459716586234375*^9, 3.459716599203125*^9}, 3.46189460503125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p7", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"x2", "[", RowBox[{"i", ",", RowBox[{"-", "1.3"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x2", "[", RowBox[{"i", ",", RowBox[{"-", "1.35"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4594039031082497`*^9, 3.4594040147019997`*^9}, { 3.4594042086238747`*^9, 3.4594042090457497`*^9}, {3.4594072678113747`*^9, 3.4594072917801247`*^9}, {3.4594073351551247`*^9, 3.4594073420769997`*^9}, 3.4618946073125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p8", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"x3", "[", RowBox[{"i", ",", RowBox[{"-", "1.35"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x3", "[", RowBox[{"i", ",", RowBox[{"-", "1.6"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4594039031082497`*^9, 3.4594040147019997`*^9}, { 3.4594042086238747`*^9, 3.4594042090457497`*^9}, {3.4594072728113747`*^9, 3.4594072756238747`*^9}, {3.4594074493582497`*^9, 3.4594074509988747`*^9}, {3.4594074951707497`*^9, 3.4594075060301247`*^9}, {3.4594075712957497`*^9, 3.4594075737644997`*^9}, 3.46189460975*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pun1", "=", RowBox[{"{", RowBox[{"p0", ",", "p1", ",", "p2", ",", "p3", ",", "p4", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4593954631082497`*^9, 3.4593955043894997`*^9}, { 3.4593955534051247`*^9, 3.4593955777332497`*^9}, 3.4593963514988747`*^9, { 3.4594008487332497`*^9, 3.4594008515769997`*^9}, {3.4594014823894997`*^9, 3.4594014868113747`*^9}, {3.4594018941707497`*^9, 3.4594018952957497`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun2", "=", RowBox[{"{", RowBox[{"p5", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4593976114207497`*^9, 3.4593976816082497`*^9}, { 3.4593978803894997`*^9, 3.4593979157957497`*^9}, {3.4594001529519997`*^9, 3.4594001817957497`*^9}, {3.4594003398426247`*^9, 3.4594003884832497`*^9}, { 3.4594008570144997`*^9, 3.4594008571707497`*^9}, {3.4594015206394997`*^9, 3.4594015208426247`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun3", "=", RowBox[{"{", RowBox[{"p0", ",", "p5"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4593980248113747`*^9, 3.4593980400926247`*^9}, { 3.4593980851707497`*^9, 3.4593980885301247`*^9}, {3.4593981394676247`*^9, 3.4593981418426247`*^9}, {3.4594008975457497`*^9, 3.4594008985144997`*^9}, { 3.4594014948894997`*^9, 3.4594014950457497`*^9}, {3.4594019019051247`*^9, 3.4594019036551247`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun4", "=", "p6"}], ";"}]], "Input", CellChangeTimes->{{3.4594040251238747`*^9, 3.4594040377176247`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun5", "=", "p7"}], ";"}]], "Input", CellChangeTimes->{{3.4594073501082497`*^9, 3.4594073591707497`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun6", "=", "p8"}], ";"}]], "Input", CellChangeTimes->{{3.4594075120769997`*^9, 3.4594075196551247`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun7", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"x3", "[", RowBox[{"i", ",", RowBox[{"-", "1.6"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4594076141863747`*^9, 3.4594076442019997`*^9}, { 3.4594079024832497`*^9, 3.4594079500613747`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"kk", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.413", ",", "0.033"}], "}"}], ",", RowBox[{"{", RowBox[{"0.28", ",", "0.138"}], "}"}], ",", RowBox[{"{", RowBox[{"0.208", ",", "0.27"}], "}"}], ",", RowBox[{"{", RowBox[{"0.18", ",", "0.42"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", "0.54"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.55"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0.54"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.188"}], ",", "0.42"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.208"}], ",", "0.277"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.283"}], ",", "0.138"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.413"}], ",", "0.033"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.48"}], ",", RowBox[{"-", "0.15"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.46"}], ",", RowBox[{"-", "0.34"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.36"}], ",", RowBox[{"-", "0.47"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.18"}], ",", RowBox[{"-", "0.55"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.55"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.18", ",", RowBox[{"-", "0.55"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.36", ",", RowBox[{"-", "0.472"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.469", ",", RowBox[{"-", "0.34"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.48", ",", RowBox[{"-", "0.15"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.413", ",", "0.033"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459691734109375*^9, 3.459691754125*^9}, { 3.45969518346875*^9, 3.45969519459375*^9}, {3.459695257328125*^9, 3.4596952674375*^9}, {3.45969533203125*^9, 3.45969534159375*^9}, { 3.45969537596875*^9, 3.459695444109375*^9}, {3.4596956274375*^9, 3.459695766*^9}, {3.459695873296875*^9, 3.45969598234375*^9}, { 3.45969603534375*^9, 3.459696171453125*^9}, {3.459696346578125*^9, 3.459696351859375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"aa1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"kk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", "1.75"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4596349720625*^9, 3.45963508071875*^9}, { 3.459635583671875*^9, 3.45963561703125*^9}, {3.45963566734375*^9, 3.45963569275*^9}, {3.459636361203125*^9, 3.45963637559375*^9}, { 3.45963750871875*^9, 3.45963750965625*^9}, {3.459637906390625*^9, 3.459637906875*^9}, {3.459696392140625*^9, 3.45969639815625*^9}, { 3.459701276578125*^9, 3.459701314125*^9}, 3.4618946215*^9}], Cell[BoxData[ RowBox[{ RowBox[{"aa2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"x2", "[", RowBox[{"i", ",", RowBox[{"-", "1.3"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "10"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459636565015625*^9, 3.459636569703125*^9}, { 3.45963673671875*^9, 3.45963682253125*^9}, {3.4596369660625*^9, 3.459636971359375*^9}, {3.459637003640625*^9, 3.459637041359375*^9}, { 3.459637273390625*^9, 3.4596373200625*^9}, {3.459637512765625*^9, 3.459637663609375*^9}, {3.459637773984375*^9, 3.459637852734375*^9}, { 3.459637910203125*^9, 3.4596379478125*^9}, {3.459637983890625*^9, 3.459638046890625*^9}, {3.4596382304375*^9, 3.459638235296875*^9}, { 3.459696408078125*^9, 3.459696409515625*^9}, 3.46189462340625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pun8", "=", RowBox[{"{", RowBox[{"aa1", ",", "aa2"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4596366165*^9, 3.4596366309375*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["partes", "Subsection", CellChangeTimes->{{3.461894664203125*^9, 3.46189466696875*^9}, { 3.461895520515625*^9, 3.46189552140625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"bb", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"x1", "[", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{"-", "0.9"}], ",", RowBox[{"-", "1.3"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Cyan", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Cyan"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4594032478113747`*^9, 3.4594032970144997`*^9}, { 3.4594033470301247`*^9, 3.4594033655301247`*^9}, {3.4594034448113747`*^9, 3.4594036420301247`*^9}, {3.4594038036551247`*^9, 3.4594038096707497`*^9}, {3.4594038450144997`*^9, 3.4594038456863747`*^9}, 3.4594038827019997`*^9, {3.4594041957644997`*^9, 3.4594041966551247`*^9}, 3.4594065836707497`*^9, {3.4594068158582497`*^9, 3.4594068164051247`*^9}, { 3.459706189921875*^9, 3.45970619271875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"cc", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"x2", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{"-", "1.3"}], ",", RowBox[{"-", "1.35"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Cyan", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Cyan"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4594066205457497`*^9, 3.4594066484988747`*^9}, { 3.4594068223894997`*^9, 3.4594068232801247`*^9}, {3.4594069935926247`*^9, 3.4594069943426247`*^9}, {3.4594070265926247`*^9, 3.4594070275769997`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"dd", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"x3", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{"-", "1.35"}], ",", RowBox[{"-", "1.6"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Cyan", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Cyan"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4594066205457497`*^9, 3.4594066484988747`*^9}, { 3.4594068223894997`*^9, 3.4594068232801247`*^9}, {3.4594069935926247`*^9, 3.4594069943426247`*^9}, {3.4594070265926247`*^9, 3.4594070275769997`*^9}, { 3.4594070884676247`*^9, 3.4594071379363747`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ee", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Alpha]5", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"Pi", "/", "4"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", "0.03", "]"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4594089605926247`*^9, 3.4594090179519997`*^9}, { 3.4594091352176247`*^9, 3.4594092809207497`*^9}, {3.4594093427019997`*^9, 3.4594093901082497`*^9}, {3.4594095667957497`*^9, 3.4594095803894997`*^9}, {3.4594096205613747`*^9, 3.4594096366551247`*^9}, {3.4594102702176247`*^9, 3.4594103230613747`*^9}, 3.4594116778582497`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "4", ",", "4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}, {3.461890094109375*^9, 3.46189010846875*^9}, { 3.46189475446875*^9, 3.46189476740625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Cyan", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9, {3.46189012390625*^9, 3.461890150484375*^9}, { 3.46189020484375*^9, 3.46189021665625*^9}, {3.461894706828125*^9, 3.461894709390625*^9}, 3.461894740265625*^9, {3.461894771828125*^9, 3.46189479603125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}, {3.461890094109375*^9, 3.46189010846875*^9}, { 3.46189475446875*^9, 3.46189476740625*^9}, 3.461894833828125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"m2", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Cyan", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun2", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun3", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun7", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9, {3.46189012390625*^9, 3.461890150484375*^9}, { 3.46189020484375*^9, 3.46189021665625*^9}, {3.461894706828125*^9, 3.461894709390625*^9}, 3.461894740265625*^9, {3.461894771828125*^9, 3.46189479603125*^9}, {3.461894837828125*^9, 3.461894884265625*^9}, { 3.461895010890625*^9, 3.46189503621875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "19", ",", "19"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}, {3.461890094109375*^9, 3.46189010846875*^9}, { 3.46189475446875*^9, 3.46189476740625*^9}, 3.461894833828125*^9, { 3.4618949695*^9, 3.4618949736875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m3", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Cyan", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun8", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9, {3.46189012390625*^9, 3.461890150484375*^9}, { 3.46189020484375*^9, 3.46189021665625*^9}, {3.461894706828125*^9, 3.461894709390625*^9}, 3.461894740265625*^9, {3.461894771828125*^9, 3.46189479603125*^9}, {3.461894837828125*^9, 3.461894884265625*^9}, { 3.4618949498125*^9, 3.461894982625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pp", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", RowBox[{"x3", "[", RowBox[{"0", ",", RowBox[{"-", "1.475"}]}], "]"}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.46189549278125*^9, 3.461895509515625*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Frasco terminado", "Subsection", CellChangeTimes->{{3.46189550084375*^9, 3.461895504*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ "m1", ",", "m2", ",", "m3", ",", "bb", ",", "cc", ",", "dd", ",", "ee", ",", "pp", ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.84187843740762"}], ",", RowBox[{"-", "2.832235930207908"}], ",", "1.6491453338828082`"}], "}"}]}], ",", RowBox[{"ViewVertical", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2275602225215758`"}], ",", RowBox[{"-", "0.4096828794795779"}], ",", "0.2065077428668018"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.461895076375*^9, 3.4618950780625*^9}, { 3.46189541928125*^9, 3.461895431234375*^9}, {3.4618954959375*^9, 3.4618954963125*^9}, {3.46189557209375*^9, 3.4618956008125*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Pucca", "Section", CellChangeTimes->{{3.46189564515625*^9, 3.461895645859375*^9}, 3.4618967231875*^9}], Cell["Yarleque Zavaleta, Maribel Roxana", "Text", CellChangeTimes->{{3.461895712421875*^9, 3.46189572225*^9}}], Cell[CellGroupData[{ Cell["carita", "Subsection", CellChangeTimes->{{3.459530578546875*^9, 3.4595305804375*^9}, { 3.4597189542045245`*^9, 3.459719024497384*^9}, {3.46189578315625*^9, 3.46189578375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"x2", "[", RowBox[{"{", RowBox[{"u_", ",", "v_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"3.85", RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"4.85", RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"11", "+", RowBox[{"3.85", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45952690259375*^9, 3.459527005171875*^9}, { 3.45952706859375*^9, 3.459527107171875*^9}, {3.459527145*^9, 3.459527154984375*^9}, {3.4595272640625*^9, 3.45952727171875*^9}, { 3.459535303609375*^9, 3.459535343078125*^9}, {3.459535457515625*^9, 3.459535465078125*^9}, {3.45953550153125*^9, 3.459535508171875*^9}, { 3.45954055765625*^9, 3.459540560203125*^9}, {3.45954060503125*^9, 3.459540610453125*^9}, {3.45954067328125*^9, 3.4595406734375*^9}, { 3.45954076615625*^9, 3.459540818078125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"x1", "[", RowBox[{"{", RowBox[{"u_", ",", "v_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"4", RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"5", RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"11", "+", RowBox[{"4", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45952690259375*^9, 3.459527005171875*^9}, { 3.45952706859375*^9, 3.459527107171875*^9}, {3.459527145*^9, 3.459527154984375*^9}, {3.4595272640625*^9, 3.45952727171875*^9}, { 3.459535303609375*^9, 3.459535343078125*^9}, {3.459535457515625*^9, 3.459535465078125*^9}, {3.45953550153125*^9, 3.459535508171875*^9}, { 3.45954055765625*^9, 3.459540560203125*^9}, {3.45954060503125*^9, 3.45954063578125*^9}, {3.459540670453125*^9, 3.4595406705625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]0", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"1.3", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"1.3", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4596991699375*^9, 3.459699170515625*^9}, { 3.459700999375*^9, 3.4597010028125*^9}, {3.459701563265625*^9, 3.45970156434375*^9}, {3.459702352828125*^9, 3.459702356375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]1", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.459527255828125*^9, 3.459527257078125*^9}, { 3.4595272966875*^9, 3.459527339140625*^9}, 3.459527590578125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]2", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.75", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"0.75", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.459527616359375*^9, 3.45952762846875*^9}, { 3.459527660375*^9, 3.45952766621875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]3", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.5", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"0.5", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.459527632609375*^9, 3.459527637796875*^9}, { 3.459527683859375*^9, 3.459527686875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]4", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.25", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"0.25", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45952764034375*^9, 3.45952764603125*^9}, { 3.459527689265625*^9, 3.459527692734375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]5", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"0", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.459527695015625*^9, 3.45952769728125*^9}, { 3.4595277399375*^9, 3.459527740453125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Alpha]6", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"{", RowBox[{ RowBox[{"Pi", "/", "2"}], ",", "t"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.459702654171875*^9, 3.459702682203125*^9}, { 3.459702744671875*^9, 3.459702764765625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]0", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"\[Alpha]0", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.459701077828125*^9, 3.459701088171875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]1", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"\[Alpha]1", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4595274108125*^9, 3.45952743453125*^9}, { 3.459527592890625*^9, 3.459527600421875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]2", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"\[Alpha]2", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.459527713609375*^9, 3.45952772775*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]3", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"\[Alpha]3", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.459527721484375*^9, 3.459527732578125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]4", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"\[Alpha]4", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4595275934375*^9, 3.459527594875*^9}, { 3.45952771065625*^9, 3.459527750171875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]5", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"\[Alpha]5", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4595277538125*^9, 3.45952775696875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m1", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"x2", "[", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Cyan"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459527007953125*^9, 3.459527059140625*^9}, { 3.459527208828125*^9, 3.45952722653125*^9}, {3.4595272873125*^9, 3.459527290703125*^9}, {3.459527383609375*^9, 3.45952738459375*^9}, 3.45952757678125*^9, {3.459535251359375*^9, 3.45953525315625*^9}, { 3.45953531778125*^9, 3.4595353200625*^9}, {3.45953562803125*^9, 3.4595356358125*^9}, {3.459540639359375*^9, 3.459540640125*^9}, 3.459698484296875*^9, 3.461895818140625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"m0", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Beta]0", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"Pi", "/", "4"}], ",", RowBox[{ RowBox[{"Pi", "/", "2"}], "+", RowBox[{"Pi", "/", "4"}]}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Green", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4597010179375*^9, 3.459701019234375*^9}, { 3.459701095796875*^9, 3.459701108953125*^9}, {3.45970165096875*^9, 3.45970166903125*^9}, {3.459702189734375*^9, 3.45970219384375*^9}, { 3.4597023088125*^9, 3.4597023135*^9}, {3.45970236053125*^9, 3.459702371984375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m2", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Beta]1", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"Pi", "/", "4"}], ",", RowBox[{ RowBox[{"Pi", "/", "2"}], "+", RowBox[{"Pi", "/", "4"}]}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Green", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459527441015625*^9, 3.459527451453125*^9}, { 3.45952748534375*^9, 3.45952753040625*^9}, 3.459527579953125*^9, 3.459527772140625*^9, {3.45970111421875*^9, 3.459701121578125*^9}, { 3.4597016783125*^9, 3.45970168878125*^9}, {3.459702196171875*^9, 3.459702199453125*^9}, {3.459702321875*^9, 3.45970232684375*^9}, { 3.459702378296875*^9, 3.45970238703125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m3", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Beta]2", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459527441015625*^9, 3.459527451453125*^9}, { 3.45952748534375*^9, 3.45952753040625*^9}, 3.459527579953125*^9, { 3.459527775421875*^9, 3.459527779078125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m4", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Beta]3", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459527441015625*^9, 3.459527451453125*^9}, { 3.45952748534375*^9, 3.45952753040625*^9}, 3.459527579953125*^9, { 3.45952778134375*^9, 3.45952778384375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m5", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Beta]4", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459527441015625*^9, 3.459527451453125*^9}, { 3.45952748534375*^9, 3.45952753040625*^9}, 3.459527579953125*^9, { 3.459527786046875*^9, 3.4595277888125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m6", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Beta]5", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459527441015625*^9, 3.459527451453125*^9}, { 3.45952748534375*^9, 3.45952753040625*^9}, 3.459527579953125*^9, { 3.4595277909375*^9, 3.459527794546875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m7", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Alpha]6", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.3", ",", "0.9"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Thickness", "[", "0.03", "]"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4597026928125*^9, 3.459702733765625*^9}, { 3.45970279859375*^9, 3.45970280865625*^9}, {3.45970290353125*^9, 3.4597029045*^9}, {3.459702945375*^9, 3.4597029504375*^9}, { 3.4597029806875*^9, 3.459703024375*^9}, {3.459703059671875*^9, 3.459703060796875*^9}, {3.45970310825*^9, 3.4597031088125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m8", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Alpha]6", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "2.3", ",", "2.9"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Thickness", "[", "0.03", "]"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459703136421875*^9, 3.459703190171875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"puncara1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]1", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459534398015625*^9, 3.45953440821875*^9}, { 3.45953444240625*^9, 3.459534494359375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"puncara2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]2", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459534505078125*^9, 3.459534508546875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"puncara3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]3", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459534515046875*^9, 3.459534520890625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"puncara4", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]4", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459534523453125*^9, 3.459534549125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"puncara5", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]5", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"puncara", "=", RowBox[{"{", RowBox[{ "puncara1", ",", "puncara2", ",", "puncara3", ",", "puncara4", ",", "puncara5"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459534568640625*^9, 3.459534607515625*^9}, { 3.4618958589375*^9, 3.46189586240625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}, {3.461890094109375*^9, 3.46189010846875*^9}, { 3.4618959295*^9, 3.461895935953125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"sup1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"puncara", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9, {3.46189012390625*^9, 3.461890150484375*^9}, { 3.46189020484375*^9, 3.46189021665625*^9}, {3.46189592021875*^9, 3.4618959563125*^9}, {3.46189601471875*^9, 3.461896033765625*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["ojos", "Subsection", CellChangeTimes->{{3.459627617640625*^9, 3.45962761828125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"l1", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.75"}], ",", "0"}], "}"}], RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}]}], "+", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.25"}], ",", RowBox[{"-", "0.25"}]}], "}"}], "t"}]}]}]], "Input", CellChangeTimes->{{3.4596264100625*^9, 3.45962642084375*^9}, { 3.45962648634375*^9, 3.45962653153125*^9}, {3.459626672234375*^9, 3.4596267105*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"l2", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0.75", ",", "0"}], "}"}], RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}]}], "+", RowBox[{ RowBox[{"{", RowBox[{"0.25", ",", RowBox[{"-", "0.25"}]}], "}"}], "t"}]}]}]], "Input", CellChangeTimes->{{3.4596264100625*^9, 3.45962642084375*^9}, { 3.45962648634375*^9, 3.459626525046875*^9}, {3.459626724859375*^9, 3.459626739609375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"l3", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.13", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "0.5"}], "+", RowBox[{"0.13", RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45962777540625*^9, 3.459627784921875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"l4", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", "0.4"}], "}"}], RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]1", "[", RowBox[{ RowBox[{"Pi", "/", "2"}], "+", RowBox[{"Pi", "/", "4"}]}], "]"}], "t"}]}]}]], "Input", CellChangeTimes->{{3.459703339265625*^9, 3.45970335028125*^9}, { 3.4597034255*^9, 3.45970344959375*^9}, {3.45970358640625*^9, 3.4597035905625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"l5", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "0.4"}], "}"}], RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]1", "[", RowBox[{"Pi", "/", "4"}], "]"}], "t"}]}]}]], "Input", CellChangeTimes->{{3.459703429015625*^9, 3.45970346546875*^9}, { 3.459703593875*^9, 3.459703597203125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"l6", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.5"}], "+", RowBox[{"0.15", RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"-", "0.5"}], "+", RowBox[{"0.15", RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45970430940625*^9, 3.459704345765625*^9}, { 3.459704912796875*^9, 3.4597049165625*^9}, {3.459704964203125*^9, 3.459704968125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"l7", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.5", "+", RowBox[{"0.15", RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"-", "0.5"}], "+", RowBox[{"0.15", RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.459704354953125*^9, 3.45970436609375*^9}, { 3.45970491909375*^9, 3.45970492196875*^9}, {3.459704970828125*^9, 3.459704974453125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"k1", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"l1", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.459627827171875*^9, 3.45962785353125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"k2", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"l2", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4596278670625*^9, 3.459627870125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"k3", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"l3", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4596278733125*^9, 3.459627876625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"k4", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"l4", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.459703474484375*^9, 3.459703478078125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"k5", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"l5", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.459703482109375*^9, 3.459703491640625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"k6", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"l6", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.459704375078125*^9, 3.459704381296875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"k7", "[", "t_", "]"}], ":=", RowBox[{"x1", "[", RowBox[{"l7", "[", "t", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.459704384328125*^9, 3.4597043948125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ojo1", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"k1", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45962789759375*^9, 3.45962795175*^9}, 3.45962798590625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"ojo2", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"k2", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45962789759375*^9, 3.45962795175*^9}, 3.45962798590625*^9, {3.45962803478125*^9, 3.459628038375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"boca", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"k3", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "Pi", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459628057609375*^9, 3.45962809128125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ceja1", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"k4", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459703495734375*^9, 3.459703515578125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ceja2", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"k5", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45970351896875*^9, 3.45970352534375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"sup9", "=", RowBox[{"Show", "[", RowBox[{"ojo1", ",", "ojo2", ",", "boca", ",", "ceja1", ",", "ceja2", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4596279635*^9, 3.459627978609375*^9}, { 3.45962804165625*^9, 3.45962804334375*^9}, {3.45962809565625*^9, 3.459628096828125*^9}, {3.459697927453125*^9, 3.459697936859375*^9}, { 3.459703529015625*^9, 3.459703539765625*^9}, 3.46189608746875*^9}] }, Closed]], Cell[CellGroupData[{ Cell["orejas", "Subsection", CellChangeTimes->{{3.4595305690625*^9, 3.4595305718125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Delta]1", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"5", "+", RowBox[{"2", RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{"14", "+", RowBox[{"2", RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.459527883765625*^9, 3.459527937734375*^9}, { 3.45952853228125*^9, 3.459528561234375*^9}, {3.459528634859375*^9, 3.45952866346875*^9}, {3.459529051203125*^9, 3.459529051390625*^9}, { 3.459529855296875*^9, 3.459529887953125*^9}, {3.459530237765625*^9, 3.45953023978125*^9}, {3.459530326046875*^9, 3.45953033828125*^9}, { 3.459531366953125*^9, 3.45953145990625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Delta]2", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"2", RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{"14", "+", RowBox[{"2", RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4595314721875*^9, 3.45953147559375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"p1", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Delta]1", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45952794171875*^9, 3.459528040328125*^9}, { 3.459528539453125*^9, 3.45952854009375*^9}, 3.459528689046875*^9, { 3.459529053671875*^9, 3.45952905765625*^9}, {3.459529094234375*^9, 3.459529095109375*^9}, 3.459530497078125*^9, {3.459531382484375*^9, 3.4595313834375*^9}, 3.45953146253125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p2", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Delta]2", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45952794171875*^9, 3.459528040328125*^9}, { 3.4595281470625*^9, 3.459528169046875*^9}, {3.459528701578125*^9, 3.45952870215625*^9}, {3.459529110203125*^9, 3.459529115828125*^9}, { 3.459529223921875*^9, 3.459529230484375*^9}, {3.459530461671875*^9, 3.459530485171875*^9}, {3.459531483546875*^9, 3.45953149809375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"punorejaderecha", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Delta]1", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "14"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459536299359375*^9, 3.459536470265625*^9}, { 3.459536509078125*^9, 3.4595365121875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"punorejaizquierda", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Delta]2", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "5"}], ",", "14"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459536299359375*^9, 3.459536470265625*^9}, { 3.459536509078125*^9, 3.45953655890625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}, {3.461890094109375*^9, 3.46189010846875*^9}, { 3.4618959295*^9, 3.461895935953125*^9}, {3.4618961715625*^9, 3.461896177078125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"sup2", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"punorejaderecha", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9, {3.46189012390625*^9, 3.461890150484375*^9}, { 3.46189020484375*^9, 3.46189021665625*^9}, {3.46189592021875*^9, 3.4618959563125*^9}, {3.46189601471875*^9, 3.461896033765625*^9}, { 3.46189620040625*^9, 3.461896213328125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"sup3", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"punorejaizquierda", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461896223140625*^9, 3.461896233046875*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Antenas", "Subsection", CellChangeTimes->{{3.4595305911875*^9, 3.459530593421875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"a1", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"5", "+", RowBox[{"4", RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{"14.5", "+", RowBox[{"3.8", RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.459530793421875*^9, 3.45953080134375*^9}, { 3.45953083265625*^9, 3.459530859140625*^9}, {3.459530894109375*^9, 3.45953089853125*^9}, {3.459531111234375*^9, 3.459531113359375*^9}, { 3.4595369304375*^9, 3.459536971609375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"a2", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"4", RowBox[{"Cos", "[", "t", "]"}]}]}], ",", RowBox[{"14.5", "+", RowBox[{"4", RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.459530793421875*^9, 3.45953080134375*^9}, { 3.45953083265625*^9, 3.459530859140625*^9}, {3.459530894109375*^9, 3.45953089853125*^9}, {3.459531111234375*^9, 3.459531131484375*^9}, { 3.459536973546875*^9, 3.45953697559375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"antenaderecha", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"a1", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"Pi", "/", "2"}], ",", "Pi"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", RowBox[{"a1", "[", RowBox[{"Pi", "/", "2"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459530906203125*^9, 3.4595310830625*^9}, 3.4595311211875*^9, {3.459536800359375*^9, 3.459536817296875*^9}, { 3.459536996828125*^9, 3.459537000671875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"antenaizquierda", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"a2", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", RowBox[{"a2", "[", RowBox[{"Pi", "/", "2"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459530906203125*^9, 3.4595310830625*^9}, { 3.4595311211875*^9, 3.4595311905625*^9}, {3.459536820265625*^9, 3.459536840921875*^9}, {3.45953700340625*^9, 3.45953701296875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"sup4", "=", RowBox[{"Show", "[", RowBox[{"antenaderecha", ",", "antenaizquierda", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459536879515625*^9, 3.459536902109375*^9}, { 3.459537031625*^9, 3.4595370395625*^9}, 3.461896277171875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Rho]", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4", ",", "3"}], "}"}], RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}]}], "+", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2.5", ",", "8"}], "}"}], "t"}]}]}]], "Input", CellChangeTimes->{{3.4595323065625*^9, 3.45953236003125*^9}, { 3.45953249909375*^9, 3.4595325033125*^9}, {3.45953295684375*^9, 3.45953296078125*^9}, {3.45953301253125*^9, 3.459533051125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"s1", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Rho]", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "7"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459531951078125*^9, 3.459532082984375*^9}, { 3.45953226453125*^9, 3.45953226596875*^9}, {3.45953236746875*^9, 3.45953241975*^9}, {3.459532512171875*^9, 3.45953251525*^9}, 3.459533099484375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Omega]", "[", RowBox[{"t_", ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.8", RowBox[{ RowBox[{"\[Rho]", "[", "t", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "t", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Sin", "[", "v", "]"}]}], ",", RowBox[{ RowBox[{"\[Rho]", "[", "t", "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45953253221875*^9, 3.459532615171875*^9}, { 3.45953265371875*^9, 3.459532653875*^9}, {3.459532703359375*^9, 3.459532714109375*^9}, {3.4595327656875*^9, 3.459532770046875*^9}, { 3.45953286228125*^9, 3.45953288153125*^9}, {3.45953333315625*^9, 3.459533333640625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"cuerpo1", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Omega]", "[", RowBox[{"t", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"1", "/", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459532617609375*^9, 3.45953267959375*^9}, 3.459533092109375*^9, {3.459533141*^9, 3.459533141484375*^9}, { 3.459533177703125*^9, 3.45953319734375*^9}, 3.45953329615625*^9, 3.45953333921875*^9, {3.459537081875*^9, 3.45953708471875*^9}, 3.46189630128125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"cuerpo2", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Omega]", "[", RowBox[{"t", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"1", "/", "3"}], ",", RowBox[{"2", "/", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459532617609375*^9, 3.45953267959375*^9}, 3.459533092109375*^9, {3.459533141*^9, 3.459533141484375*^9}, { 3.459533177703125*^9, 3.459533234421875*^9}, 3.4595332993125*^9, { 3.459537061015625*^9, 3.459537092234375*^9}, 3.461896303890625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"cuerpo3", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Omega]", "[", RowBox[{"t", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"2", "/", "3"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459532617609375*^9, 3.45953267959375*^9}, 3.459533092109375*^9, {3.459533141*^9, 3.459533141484375*^9}, { 3.459533177703125*^9, 3.45953319734375*^9}, {3.4595332443125*^9, 3.4595332520625*^9}, 3.45953330321875*^9, 3.459537064359375*^9, { 3.459537095578125*^9, 3.459537099390625*^9}, 3.461896306390625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"sup5", "=", RowBox[{"Show", "[", RowBox[{"cuerpo1", ",", "cuerpo2", ",", "cuerpo3", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459532682*^9, 3.45953269325*^9}, {3.459532729546875*^9, 3.459532735125*^9}, {3.45953278340625*^9, 3.45953278484375*^9}, 3.4595330960625*^9, {3.459533258703125*^9, 3.45953326246875*^9}, { 3.459537068671875*^9, 3.459537122640625*^9}, 3.4618963095625*^9}] }, Closed]], Cell[CellGroupData[{ Cell["brazos", "Subsection", CellChangeTimes->{{3.45954395765625*^9, 3.459543961046875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"b1", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.5", ",", "0"}], "}"}], RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}]}], "+", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "6"}], "}"}], "t"}]}]}]], "Input", CellChangeTimes->{{3.45954422959375*^9, 3.4595442420625*^9}, { 3.459544383875*^9, 3.459544384109375*^9}, {3.459544439734375*^9, 3.45954448465625*^9}, {3.459544893484375*^9, 3.45954490659375*^9}, { 3.45954500028125*^9, 3.4595450010625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"AA", "=", RowBox[{"{", RowBox[{"0", ",", "4.5", ",", "4.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BB", "=", RowBox[{"{", RowBox[{"0", ",", "3", ",", "8.25"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v1", "=", RowBox[{ RowBox[{"(", RowBox[{"BB", "-", "AA"}], ")"}], "/", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"BB", "-", "AA"}], ")"}], ".", RowBox[{"(", RowBox[{"BB", "-", "AA"}], ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v2", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"v1", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"v1", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CC", "=", RowBox[{"v2", "+", "AA"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v3", "=", RowBox[{ RowBox[{"Cross", "[", RowBox[{"v1", ",", "v2"}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"Cross", "[", RowBox[{"v1", ",", "v2"}], "]"}], ".", RowBox[{"Cross", "[", RowBox[{"v1", ",", "v2"}], "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DD", "=", RowBox[{"v3", "+", "AA"}]}], ";"}]}], "Input", CellChangeTimes->{{3.459545748671875*^9, 3.459545841109375*^9}, { 3.459545892828125*^9, 3.45954590471875*^9}, {3.4595459369375*^9, 3.459546220890625*^9}, {3.45954632165625*^9, 3.4595463501875*^9}, { 3.459546388484375*^9, 3.45954639834375*^9}, {3.45954671246875*^9, 3.459546757578125*^9}, {3.459546836640625*^9, 3.4595468515*^9}, { 3.459547307796875*^9, 3.459547309640625*^9}, {3.4596218333125*^9, 3.45962185034375*^9}, {3.459622059203125*^9, 3.459622060171875*^9}, { 3.459622170015625*^9, 3.4596221710625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"AAA", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "4.5"}], ",", "4.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BBB", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "3"}], ",", "8.25"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vv1", "=", RowBox[{ RowBox[{"(", RowBox[{"BBB", "-", "AAA"}], ")"}], "/", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"BBB", "-", "AAA"}], ")"}], ".", RowBox[{"(", RowBox[{"BBB", "-", "AAA"}], ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vv2", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"vv1", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"vv1", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CCC", "=", RowBox[{"vv2", "+", "AAA"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vv3", "=", RowBox[{ RowBox[{"Cross", "[", RowBox[{"vv1", ",", "vv2"}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"Cross", "[", RowBox[{"vv1", ",", "vv2"}], "]"}], ".", RowBox[{"Cross", "[", RowBox[{"vv1", ",", "vv2"}], "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DDD", "=", RowBox[{"vv3", "+", "AAA"}]}], ";"}]}], "Input", CellChangeTimes->{{3.459545748671875*^9, 3.459545841109375*^9}, { 3.459545892828125*^9, 3.45954590471875*^9}, {3.4595459369375*^9, 3.459546220890625*^9}, {3.45954632165625*^9, 3.4595463501875*^9}, { 3.459546388484375*^9, 3.45954639834375*^9}, {3.45954671246875*^9, 3.459546757578125*^9}, {3.459546836640625*^9, 3.4595468515*^9}, { 3.459547307796875*^9, 3.459547309640625*^9}, {3.4596218333125*^9, 3.45962185034375*^9}, {3.459622059203125*^9, 3.459622060171875*^9}, { 3.459622170015625*^9, 3.4596221710625*^9}, {3.45962272034375*^9, 3.459622785890625*^9}, {3.459622942359375*^9, 3.459622945265625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"vec1", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"AA", ",", "BB"}], "}"}], "]"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"AA", ",", "CC"}], "}"}], "]"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"AA", ",", "DD"}], "}"}], "]"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4595455475*^9, 3.459545593203125*^9}, { 3.459545669703125*^9, 3.45954571853125*^9}, {3.459545908828125*^9, 3.459545957796875*^9}, {3.45954601553125*^9, 3.459546020625*^9}, { 3.459546364390625*^9, 3.459546368046875*^9}, 3.459546466*^9}], Cell[BoxData[ RowBox[{ RowBox[{"vec2", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"AAA", ",", "BBB"}], "}"}], "]"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"AAA", ",", "CCC"}], "}"}], "]"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"AAA", ",", "DDD"}], "}"}], "]"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4595455475*^9, 3.459545593203125*^9}, { 3.459545669703125*^9, 3.45954571853125*^9}, {3.459545908828125*^9, 3.459545957796875*^9}, {3.45954601553125*^9, 3.459546020625*^9}, { 3.459546364390625*^9, 3.459546368046875*^9}, 3.459546466*^9, { 3.459622963671875*^9, 3.459622983390625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Lambda]1", "[", RowBox[{"t_", ",", "s_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"0.8", RowBox[{ RowBox[{"b1", "[", "t", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Cos", "[", "s", "]"}]}], ")"}], "v3"}], "+", RowBox[{ RowBox[{"(", RowBox[{"6.1", "+", RowBox[{"0.8", RowBox[{ RowBox[{"b1", "[", "t", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Sin", "[", "s", "]"}]}]}], ")"}], "v2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"3.5", "+", RowBox[{"0.5", RowBox[{ RowBox[{"b1", "[", "t", "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], "v1"}]}]}]], "Input", CellChangeTimes->{{3.459546471171875*^9, 3.459546568*^9}, { 3.45954691659375*^9, 3.459547064796875*^9}, 3.459547097515625*^9, { 3.45962192334375*^9, 3.45962198975*^9}, {3.459622106796875*^9, 3.459622129453125*^9}, {3.459622179265625*^9, 3.459622186203125*^9}, { 3.459623270328125*^9, 3.459623321765625*^9}, {3.4596233675625*^9, 3.459623367859375*^9}, {3.4596247300625*^9, 3.45962473046875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Lambda]2", "[", RowBox[{"t_", ",", "s_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"0.8", RowBox[{ RowBox[{"b1", "[", "t", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Cos", "[", "s", "]"}]}], ")"}], "vv3"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "6.1"}], "+", RowBox[{"0.8", RowBox[{ RowBox[{"b1", "[", "t", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Sin", "[", "s", "]"}]}]}], ")"}], "vv2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"3.5", "+", RowBox[{"0.5", RowBox[{ RowBox[{"b1", "[", "t", "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], "vv1"}]}]}]], "Input", CellChangeTimes->{{3.459546471171875*^9, 3.459546568*^9}, { 3.45954691659375*^9, 3.459547064796875*^9}, 3.459547097515625*^9, { 3.45962192334375*^9, 3.45962198975*^9}, {3.459622106796875*^9, 3.459622129453125*^9}, {3.459622179265625*^9, 3.459622186203125*^9}, { 3.459622346796875*^9, 3.4596223625*^9}, {3.459622396875*^9, 3.4596223976875*^9}, 3.459622583484375*^9, {3.45962263703125*^9, 3.45962269578125*^9}, {3.459623087421875*^9, 3.4596230904375*^9}, { 3.459623169171875*^9, 3.4596231861875*^9}, {3.4596232821875*^9, 3.4596233375*^9}, {3.45962337165625*^9, 3.45962337209375*^9}, { 3.4596247351875*^9, 3.459624736359375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"brazoderecho", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Lambda]1", "[", RowBox[{"t", ",", "s"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459547069734375*^9, 3.459547072203125*^9}, { 3.459624741375*^9, 3.459624755296875*^9}, {3.45962485434375*^9, 3.45962485790625*^9}, 3.461896382859375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"brazoizquierdo", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Lambda]2", "[", RowBox[{"t", ",", "s"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459547069734375*^9, 3.459547072203125*^9}, { 3.459622373046875*^9, 3.4596223770625*^9}, {3.459624759375*^9, 3.459624771078125*^9}, {3.45962486096875*^9, 3.4596248644375*^9}, 3.461896385203125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"sup7", "=", RowBox[{"Show", "[", RowBox[{"brazoderecho", ",", "brazoizquierdo", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45954477309375*^9, 3.459544791203125*^9}, { 3.4595463714375*^9, 3.459546373390625*^9}, 3.459546485984375*^9, { 3.4595465866875*^9, 3.459546591609375*^9}, {3.45954673634375*^9, 3.459546740953125*^9}, {3.459546879921875*^9, 3.459546907109375*^9}, { 3.45954707728125*^9, 3.459547084359375*^9}, {3.459622384109375*^9, 3.459622387390625*^9}, {3.459622558046875*^9, 3.459622559796875*^9}, { 3.459622990578125*^9, 3.459622994546875*^9}, {3.459624775546875*^9, 3.459624827328125*^9}, 3.461896387890625*^9}] }, Closed]], Cell[CellGroupData[{ Cell["manos", "Subsection", CellChangeTimes->{{3.459624929421875*^9, 3.459624933046875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Sigma]1", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.8", RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"4.4", "+", RowBox[{"0.8", RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{"5.3", "+", RowBox[{"0.8", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45962499275*^9, 3.459625061078125*^9}, 3.459625149640625*^9, {3.45962524075*^9, 3.459625290015625*^9}, { 3.459625333640625*^9, 3.459625392140625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Sigma]2", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"0.8", RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{ RowBox[{"-", "4.4"}], "+", RowBox[{"0.8", RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{"5.3", "+", RowBox[{"0.8", RowBox[{"Sin", "[", "v", "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45962499275*^9, 3.459625061078125*^9}, 3.459625149640625*^9, {3.45962524075*^9, 3.459625290015625*^9}, { 3.459625333640625*^9, 3.459625392140625*^9}, {3.45962542846875*^9, 3.45962543459375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"manoderecha", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Sigma]1", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459625068765625*^9, 3.4596251430625*^9}, 3.4618964140625*^9}], Cell[BoxData[ RowBox[{ RowBox[{"manoizquierda", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Sigma]2", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459625068765625*^9, 3.4596251430625*^9}, { 3.459625443109375*^9, 3.45962547978125*^9}, 3.46189641671875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"sup8", "=", RowBox[{"Show", "[", RowBox[{"manoderecha", ",", "manoizquierda"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45962515675*^9, 3.45962517375*^9}, { 3.459625222140625*^9, 3.459625224484375*^9}, {3.45962546215625*^9, 3.45962546884375*^9}, {3.459625722265625*^9, 3.459625723078125*^9}, 3.4618964209375*^9}] }, Closed]], Cell[CellGroupData[{ Cell["piernas", "Subsection", CellChangeTimes->{{3.45953339528125*^9, 3.45953339828125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Nu]1", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "u", "]"}], ",", RowBox[{"1.5", "+", RowBox[{"Sin", "[", "u", "]"}]}], ",", "v"}], "}"}]}]], "Input", CellChangeTimes->{{3.459533511515625*^9, 3.45953352440625*^9}, { 3.459533594734375*^9, 3.459533647984375*^9}, 3.459533735*^9, { 3.459533791140625*^9, 3.459533835796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Nu]2", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{"1.5", "+", RowBox[{ RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{"1", "+", RowBox[{"Sin", "[", "v", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45953386259375*^9, 3.4595338984375*^9}, { 3.459533996546875*^9, 3.4595340173125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Nu]3", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "u", "]"}], ",", RowBox[{ RowBox[{"-", "1.5"}], "+", RowBox[{"Sin", "[", "u", "]"}]}], ",", "v"}], "}"}]}]], "Input", CellChangeTimes->{{3.459533511515625*^9, 3.45953352440625*^9}, { 3.459533594734375*^9, 3.459533647984375*^9}, 3.459533735*^9, { 3.459533791140625*^9, 3.459533835796875*^9}, {3.459534038328125*^9, 3.459534042765625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Nu]4", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{ RowBox[{"-", "1.5"}], "+", RowBox[{ RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{"1", "+", RowBox[{"Sin", "[", "v", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.45953386259375*^9, 3.4595338984375*^9}, { 3.459533996546875*^9, 3.4595340173125*^9}, {3.459534047859375*^9, 3.459534051734375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"piernaderecha", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Nu]1", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"v", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45953348334375*^9, 3.45953350384375*^9}, { 3.459533657375*^9, 3.45953373815625*^9}, 3.459533853390625*^9, 3.459533908203125*^9, {3.45953720115625*^9, 3.459537205453125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"piederecho", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Nu]2", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45953348334375*^9, 3.45953350384375*^9}, { 3.459533657375*^9, 3.45953373815625*^9}, 3.459533853390625*^9, { 3.459533908203125*^9, 3.45953396609375*^9}, {3.45953720971875*^9, 3.459537212109375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"piernaizquierda", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Nu]3", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"v", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45953348334375*^9, 3.45953350384375*^9}, { 3.459533657375*^9, 3.45953373815625*^9}, 3.459533853390625*^9, 3.459533908203125*^9, {3.459534059125*^9, 3.459534072359375*^9}, { 3.459537219640625*^9, 3.459537225109375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pieizquierda", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"\[Nu]4", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.45953348334375*^9, 3.45953350384375*^9}, { 3.459533657375*^9, 3.45953373815625*^9}, 3.459533853390625*^9, { 3.459533908203125*^9, 3.45953396609375*^9}, {3.459534077671875*^9, 3.459534082828125*^9}, {3.45953722909375*^9, 3.45953723478125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"sup6", "=", RowBox[{"Show", "[", RowBox[{ "piernaderecha", ",", "piederecho", ",", "piernaizquierda", ",", "pieizquierda", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4595371870625*^9, 3.45953719521875*^9}, { 3.459537242453125*^9, 3.45953727315625*^9}, 3.461896450609375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[NTilde]1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]0", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Pi", "/", "4"}], ",", RowBox[{ RowBox[{"Pi", "/", "2"}], "+", RowBox[{"Pi", "/", "4"}]}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.459701861484375*^9, 3.459701868015625*^9}, { 3.459701921421875*^9, 3.45970197240625*^9}, {3.459703686375*^9, 3.459703691984375*^9}, {3.459704191609375*^9, 3.4597041965625*^9}, 3.46189645696875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[NTilde]2", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Beta]1", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Pi", "/", "4"}], ",", RowBox[{ RowBox[{"Pi", "/", "2"}], "+", RowBox[{"Pi", "/", "4"}]}], ",", RowBox[{"Pi", "/", "8"}]}], "}"}]}], "]"}], "//", "N"}]}], ";"}]], "Input", CellChangeTimes->{{3.459701982359375*^9, 3.459701991765625*^9}, { 3.459703698765625*^9, 3.459703711203125*^9}, {3.459704199640625*^9, 3.459704202453125*^9}, 3.46189645896875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"cha", "=", RowBox[{"{", RowBox[{"\[NTilde]1", ",", "\[NTilde]2"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459702032515625*^9, 3.45970204496875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "3", ",", "3"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}, {3.461890094109375*^9, 3.46189010846875*^9}, { 3.4618959295*^9, 3.461895935953125*^9}, {3.4618961715625*^9, 3.461896177078125*^9}, 3.461896486984375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"sup10", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"cha", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9, {3.46189012390625*^9, 3.461890150484375*^9}, { 3.46189020484375*^9, 3.46189021665625*^9}, {3.46189592021875*^9, 3.4618959563125*^9}, {3.46189601471875*^9, 3.461896033765625*^9}, { 3.46189620040625*^9, 3.461896213328125*^9}, {3.46189649159375*^9, 3.461896512125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["chapas", "Subsection", CellChangeTimes->{{3.459704412984375*^9, 3.459704413921875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"o1", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k6", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "4"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x1", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459704375078125*^9, 3.459704381296875*^9}, { 3.45970442234375*^9, 3.459704473890625*^9}, {3.459704505921875*^9, 3.459704657375*^9}, 3.461896548703125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"o2", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k7", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "4"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x1", "[", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}], ",", RowBox[{"x1", "[", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "0.5"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.459704384328125*^9, 3.4597043948125*^9}, { 3.459704601609375*^9, 3.4597046079375*^9}, {3.4597046895*^9, 3.4597047074375*^9}, 3.46189655225*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "7", ",", "7"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461882744734375*^9, 3.461882750359375*^9}, 3.46188366334375*^9, 3.461883797421875*^9, { 3.461884904140625*^9, 3.461884919515625*^9}, {3.461885193375*^9, 3.461885203796875*^9}, {3.461885472453125*^9, 3.461885492796875*^9}, 3.46188588146875*^9, {3.461886587671875*^9, 3.4618865970625*^9}, { 3.461887270703125*^9, 3.4618872734375*^9}, {3.461889216875*^9, 3.461889225484375*^9}, 3.46188940665625*^9, {3.46188965896875*^9, 3.4618896621875*^9}, {3.461890094109375*^9, 3.46189010846875*^9}, { 3.4618959295*^9, 3.461895935953125*^9}, {3.4618961715625*^9, 3.461896177078125*^9}, 3.461896486984375*^9, 3.46189657559375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"sup11", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"o1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.46188276375*^9, 3.46188276484375*^9}, { 3.46188285853125*^9, 3.46188290375*^9}, {3.46188367890625*^9, 3.4618836985625*^9}, 3.4618838018125*^9, 3.461883841953125*^9, { 3.46188493409375*^9, 3.46188495753125*^9}, {3.46188521809375*^9, 3.461885236921875*^9}, {3.461885453921875*^9, 3.461885460953125*^9}, 3.461885526859375*^9, {3.461885573625*^9, 3.46188558040625*^9}, { 3.461885622734375*^9, 3.461885625359375*^9}, {3.461885667796875*^9, 3.46188567059375*^9}, {3.461885708859375*^9, 3.46188571146875*^9}, { 3.46188574525*^9, 3.461885747875*^9}, {3.461885793109375*^9, 3.461885813765625*^9}, {3.461885884625*^9, 3.461885887671875*^9}, { 3.461885926703125*^9, 3.4618859649375*^9}, {3.461886321171875*^9, 3.461886348046875*^9}, {3.461886616609375*^9, 3.46188664403125*^9}, { 3.4618872785*^9, 3.461887315484375*^9}, 3.4618892009375*^9, { 3.461889238703125*^9, 3.461889259078125*^9}, 3.461889306203125*^9, { 3.4618893848125*^9, 3.461889385484375*^9}, {3.46188951971875*^9, 3.46188952653125*^9}, {3.461889674609375*^9, 3.4618896960625*^9}, 3.461889774609375*^9, {3.46189012390625*^9, 3.461890150484375*^9}, { 3.46189020484375*^9, 3.46189021665625*^9}, {3.46189592021875*^9, 3.4618959563125*^9}, {3.46189601471875*^9, 3.461896033765625*^9}, { 3.46189620040625*^9, 3.461896213328125*^9}, {3.46189649159375*^9, 3.461896512125*^9}, {3.461896581046875*^9, 3.46189659834375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"sup12", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"o2", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461896606796875*^9, 3.46189660940625*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Pucca", "Subsection", CellChangeTimes->{{3.46189653884375*^9, 3.461896539484375*^9}, 3.46189672865625*^9}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ "m1", ",", "sup1", ",", "sup2", ",", "sup3", ",", "sup4", ",", "sup5", ",", "sup6", ",", "sup7", ",", "sup8", ",", "sup9", ",", "sup10", ",", "m7", ",", "m8", ",", "sup11", ",", "sup12", ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"3.2183752586532814`", ",", "1.044088083723215", ",", RowBox[{"-", "0.04405414754151694"}]}], "}"}]}], ",", RowBox[{"ViewVertical", "\[Rule]", RowBox[{"{", RowBox[{ "1.3506679007231304`", ",", "0.24132257789087824`", ",", "0.7988623566707341"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQAWIQzdCwVKjr2EtHBoanwmC6YaEJhO41hdBqTyDyGRC6 4dQHCJ/lI4QOYuwGi++A0Ay88hA6EEI3qBpC6EQIzcDltQXM/w6hGbw+bgXT k6H0XOltYPoBlH7cvR2sXr0HTDP08N4C0758EHpN522w/FEo/XMdmGYoXw+h YwXvgMWbIDTDERMIfQ1CNyj9hvBjIXTDs/8QWpnhLpjutOA+DZJfbwmh1e3A dMNkMA0AFfSVZw== "]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["La m\[AAcute]scara", "Section", CellChangeTimes->{{3.46189564515625*^9, 3.461895645859375*^9}, 3.4618967231875*^9, {3.461958024390625*^9, 3.461958025484375*^9}, { 3.46195850771875*^9, 3.461958509984375*^9}}], Cell["Rufino C\[OAcute]rdova, Julio C\[EAcute]sar", "Text", CellChangeTimes->{ 3.461957741390625*^9, {3.46195804525*^9, 3.461958063734375*^9}}], Cell[CellGroupData[{ Cell["Previos", "Subsection", CellChangeTimes->{{3.461958523796875*^9, 3.46195852471875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"C1", ":=", RowBox[{"{", RowBox[{"0", ",", "8.9", ",", "9.12"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C2", ":=", RowBox[{"{", RowBox[{"0", ",", "9.5", ",", "7.92"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C3", ":=", RowBox[{"{", RowBox[{"0", ",", "10.05", ",", "7"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C4", ":=", RowBox[{"{", RowBox[{"0", ",", "9.6", ",", "6.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c4", ":=", RowBox[{"{", RowBox[{"0", ",", "9.6", ",", "6.02"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C6", ":=", RowBox[{"{", RowBox[{"0", ",", "11.5", ",", "3.3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C5", ":=", RowBox[{"{", RowBox[{"0", ",", "10", ",", "5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C7", ":=", RowBox[{"{", RowBox[{"0", ",", "10.45", ",", "3.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C8", ":=", RowBox[{"{", RowBox[{"0", ",", "9.9", ",", "2.85"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C9", ":=", RowBox[{"{", RowBox[{"0", ",", "10.1", ",", "2.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C10", ":=", RowBox[{"{", RowBox[{"0", ",", "9.88", ",", "2.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C11", ":=", RowBox[{"{", RowBox[{"0", ",", "10.01", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C12", ":=", RowBox[{"{", RowBox[{"0", ",", "9.75", ",", "1.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C13", ":=", RowBox[{"{", RowBox[{"0", ",", "10", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C14", ":=", RowBox[{"{", RowBox[{"0", ",", "9.2", ",", "0.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C15", ":=", RowBox[{"{", RowBox[{"2.2", ",", "8.8", ",", "9"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C16", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.2"}], ",", "8.8", ",", "9"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C17", ":=", RowBox[{"{", RowBox[{"2", ",", "9.30", ",", "7.9"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C18", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "9.30", ",", "7.9"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C19", ":=", RowBox[{"{", RowBox[{"0.7", ",", "9.95", ",", "7"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C20", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7"}], ",", "9.95", ",", "7"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C21", ":=", RowBox[{"{", RowBox[{"0.6", ",", "9.4", ",", "6.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C22", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", "9.4", ",", "6.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C23", ":=", RowBox[{"{", RowBox[{"0.6", ",", "9.3", ",", "5.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C24", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", "9.3", ",", "5.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C25", ":=", RowBox[{"{", RowBox[{"0.7", ",", "9.5", ",", "4.7"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C26", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7"}], ",", "9.5", ",", "4.7"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C27", ":=", RowBox[{"{", RowBox[{"0.85", ",", "9.8", ",", "3.75"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C28", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.85"}], ",", "9.8", ",", "3.75"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C29", ":=", RowBox[{"{", RowBox[{"0.95", ",", "9.55", ",", "3.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C30", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.95"}], ",", "9.55", ",", "3.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C31", ":=", RowBox[{"{", RowBox[{"0.2", ",", "9.75", ",", "3.18"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C32", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "9.75", ",", "3.18"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C33", ":=", RowBox[{"{", RowBox[{"1.1", ",", "9.7", ",", "2.7"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C34", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "9.7", ",", "2.7"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C35", ":=", RowBox[{"{", RowBox[{"0.85", ",", "9.8", ",", "2.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C36", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.85"}], ",", "9.8", ",", "2.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C37", ":=", RowBox[{"{", RowBox[{"0.855", ",", "9.6", ",", "2.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C38", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.855"}], ",", "9.6", ",", "2.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C39", ":=", RowBox[{"{", RowBox[{"0.845", ",", "9.75", ",", "1.99"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C40", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.845"}], ",", "9.75", ",", "1.99"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C41", ":=", RowBox[{"{", RowBox[{"0.75", ",", "9.65", ",", "1.48"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C42", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.75"}], ",", "9.65", ",", "1.48"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C43", ":=", RowBox[{"{", RowBox[{"0.65", ",", "9.85", ",", "0.98"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C44", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.65"}], ",", "9.85", ",", "0.98"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C45", ":=", RowBox[{"{", RowBox[{"0.09", ",", "9.19", ",", "0.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"C46", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", "9.19", ",", "0.4"}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C47", ":=", RowBox[{"{", RowBox[{"3.3", ",", "7.6", ",", "8.73"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"C48", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.3"}], ",", "7.6", ",", "8.73"}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C49", ":=", RowBox[{"{", RowBox[{"3.09", ",", "7.75", ",", "7.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C50", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.09"}], ",", "7.75", ",", "7.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C51", ":=", RowBox[{"{", RowBox[{"2.32", ",", "9.33", ",", "6.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C52", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.32"}], ",", "9.33", ",", "6.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C53", ":=", RowBox[{"{", RowBox[{"1.72", ",", "9.27", ",", "6.3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C54", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.72"}], ",", "9.27", ",", "6.3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C55", ":=", RowBox[{"{", RowBox[{"1.78", ",", "9.15", ",", "5.9"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C56", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.78"}], ",", "9.15", ",", "5.9"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C57", ":=", RowBox[{"{", RowBox[{"2.2", ",", "9.49", ",", "4.68"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C58", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.2"}], ",", "9.49", ",", "4.68"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C59", ":=", RowBox[{"{", RowBox[{"2.63", ",", "9.35", ",", "3.99"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C60", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.63"}], ",", "9.35", ",", "3.99"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C61", ":=", RowBox[{"{", RowBox[{"1.2", ",", "9.7", ",", "3.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C62", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "9.7", ",", "3.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C63", ":=", RowBox[{"{", RowBox[{"1.9", ",", "9.35", ",", "2.6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C64", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.9"}], ",", "9.35", ",", "2.6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C65", ":=", RowBox[{"{", RowBox[{"1.45", ",", "9.4", ",", "2.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C66", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.45"}], ",", "9.4", ",", "2.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C67", ":=", RowBox[{"{", RowBox[{"1.35", ",", "9.35", ",", "1.95"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C68", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.35"}], ",", "9.35", ",", "1.95"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C69", ":=", RowBox[{"{", RowBox[{"1.34", ",", "9.34", ",", "1.94"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C70", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.34"}], ",", "9.34", ",", "1.94"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C71", ":=", RowBox[{"{", RowBox[{"1.27", ",", "9.34", ",", "1.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C72", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.27"}], ",", "9.34", ",", "1.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C73", ":=", RowBox[{"{", RowBox[{"1.23", ",", "9.4", ",", "0.98"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C74", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.23"}], ",", "9.4", ",", "0.98"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C75", ":=", RowBox[{"{", RowBox[{"0.9", ",", "8.35", ",", "0.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C76", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9"}], ",", "8.35", ",", "0.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C77", ":=", RowBox[{"{", RowBox[{"3.43", ",", "7.2", ",", "8.69"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C78", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.43"}], ",", "7.2", ",", "8.69"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C79", ":=", RowBox[{"{", RowBox[{"3.451", ",", "7", ",", "8.64"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C80", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.451"}], ",", "7", ",", "8.64"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C81", ":=", RowBox[{"{", RowBox[{"3.5", ",", "7", ",", "7.45"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C82", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5"}], ",", "7", ",", "7.45"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C83", ":=", RowBox[{"{", RowBox[{"3.5", ",", "6.85", ",", "7.44"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C84", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5"}], ",", "6.85", ",", "7.44"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C85", ":=", RowBox[{"{", RowBox[{"2.77", ",", "9.01", ",", "6.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C86", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.77"}], ",", "9.01", ",", "6.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C87", ":=", RowBox[{"{", RowBox[{"3.45", ",", "6.8", ",", "6.6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C88", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.45"}], ",", "6.8", ",", "6.6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C89", ":=", RowBox[{"{", RowBox[{"2.5", ",", "9.2", ",", "6.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C90", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "9.2", ",", "6.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C91", ":=", RowBox[{"{", RowBox[{"3.45", ",", "6.8", ",", "6.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C92", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.45"}], ",", "6.8", ",", "6.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C95", ":=", RowBox[{"{", RowBox[{"2.65", ",", "8.5", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C96", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.65"}], ",", "8.5", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C93", ":=", RowBox[{"{", RowBox[{"3.44", ",", "6.8", ",", "5.8"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C94", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.44"}], ",", "6.8", ",", "5.8"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C97", ":=", RowBox[{"{", RowBox[{"2.6", ",", "9", ",", "4.9"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C98", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.6"}], ",", "9", ",", "4.9"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C99", ":=", RowBox[{"{", RowBox[{"3.42", ",", "6.9", ",", "5.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C100", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.42"}], ",", "6.8", ",", "5.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C101", ":=", RowBox[{"{", RowBox[{"3.42", ",", "6.8", ",", "4.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C102", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.42"}], ",", "6.9", ",", "4.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C103", ":=", RowBox[{"{", RowBox[{"2.45", ",", "9", ",", "3.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C104", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.45"}], ",", "9", ",", "3.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C105", ":=", RowBox[{"{", RowBox[{"3.35", ",", "6.9", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C106", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.35"}], ",", "6.9", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C107", ":=", RowBox[{"{", RowBox[{"2.22", ",", "9.05", ",", "2.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C108", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.22"}], ",", "9.05", ",", "2.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C109", ":=", RowBox[{"{", RowBox[{"3.1", ",", "6.9", ",", "2.47"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C110", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.1"}], ",", "6.9", ",", "2.47"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C111", ":=", RowBox[{"{", RowBox[{"1.9", ",", "9.05", ",", "1.98"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C112", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.9"}], ",", "9.05", ",", "1.98"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C113", ":=", RowBox[{"{", RowBox[{"2.9", ",", "6.9", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C114", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.9"}], ",", "6.9", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C115", ":=", RowBox[{"{", RowBox[{"1.9", ",", "8.95", ",", "1.93"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C116", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.9"}], ",", "8.95", ",", "1.93"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C117", ":=", RowBox[{"{", RowBox[{"2.9", ",", "6.7", ",", "1.84"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C118", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.9"}], ",", "6.7", ",", "1.84"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C119", ":=", RowBox[{"{", RowBox[{"1.9", ",", "9.05", ",", "1.93"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C120", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.9"}], ",", "9.05", ",", "1.93"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C121", ":=", RowBox[{"{", RowBox[{"2.85", ",", "6.7", ",", "1.78"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C122", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.85"}], ",", "6.7", ",", "1.78"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C123", ":=", RowBox[{"{", RowBox[{"1.77", ",", "8.75", ",", "1.3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C124", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.77"}], ",", "8.75", ",", "1.3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C125", ":=", RowBox[{"{", RowBox[{"2.7", ",", "6.7", ",", "1.3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C126", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.7"}], ",", "6.7", ",", "1.3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C127", ":=", RowBox[{"{", RowBox[{"1.5", ",", "8.9", ",", "0.98"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C128", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "8.9", ",", "0.98"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C129", ":=", RowBox[{"{", RowBox[{"2.6", ",", "6.7", ",", "1.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C130", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.6"}], ",", "6.7", ",", "1.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C131", ":=", RowBox[{"{", RowBox[{"1.65", ",", "7.5", ",", "0.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C132", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.65"}], ",", "7.5", ",", "0.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C133", ":=", RowBox[{"{", RowBox[{"2.1", ",", "6.7", ",", "0.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"C134", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.1"}], ",", "6.7", ",", "0.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c44", ":=", RowBox[{"{", RowBox[{"0", ",", "9.6", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c441", ":=", RowBox[{"{", RowBox[{"0.35", ",", "9.5", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c442", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.35"}], ",", "9.5", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c443", ":=", RowBox[{"{", RowBox[{"0.95", ",", "9.6", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c444", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.95"}], ",", "9.6", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c445", ":=", RowBox[{"{", RowBox[{"2.5", ",", "9.2", ",", "6.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c446", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "9.2", ",", "6.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c447", ":=", RowBox[{"{", RowBox[{"3.45", ",", "6.8", ",", "6.1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"c448", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "3.45"}], ",", "6.8", ",", "6.1"}], "}"}]}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBWIQ/ezCqzlsx1861mf9mQuidSZ/0WIH0j2cW/RA9Jqd YSYg+qPSMVMQ/Ynhpj2ILo++4wyiA3weeoDo92kePiB6rv2CcBC9U8s5CkQv ejQrDkQbJ9Ylg+hTCfEZILpjokImiC6b7zYVRN+6pTodRK9ILlgPonuPam4C 0Vu+pZ4Au+P2/ZNg+S+7zoPoP1u9b4PoxQcuvgTRNxw2vgPR4Z0Zv0H0NkVe Bg4g7fE2h5UD7B5+NhDdmS/uAKIF2maA6XsGd+JB9KSMnFQQ/S1scz2ILnl8 pgFEt1hbvQLR+1dfeAOiH7zZ+QVEH5s9/TeIDtitxcAJsl/uAROIBgB6yq7X "]], Cell[BoxData[ RowBox[{ RowBox[{"jj", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "C133", ",", "C131", ",", "C75", ",", "C45", ",", "C14", ",", "C46", ",", "C76", ",", "C132", ",", "C134"}], "}"}], ",", RowBox[{"{", RowBox[{ "C129", ",", "C127", ",", "C73", ",", "C43", ",", "C13", ",", "C44", ",", "C74", ",", "C128", ",", "C130"}], "}"}], ",", RowBox[{"{", RowBox[{ "C125", ",", "C123", ",", "C71", ",", "C41", ",", "C12", ",", "C42", ",", "C72", ",", "C124", ",", "C126"}], "}"}], ",", RowBox[{"{", RowBox[{ "C121", ",", "C119", ",", "C69", ",", "C39", ",", "C11", ",", "C40", ",", "C70", ",", "C120", ",", "C122"}], "}"}], ",", RowBox[{"{", RowBox[{ "C117", ",", "C115", ",", "C67", ",", "C37", ",", "C10", ",", "C38", ",", "C68", ",", "C116", ",", "C118"}], "}"}], ",", RowBox[{"{", RowBox[{ "C113", ",", "C111", ",", "C65", ",", "C35", ",", "C9", ",", "C36", ",", "C66", ",", "C112", ",", "C114"}], "}"}], ",", RowBox[{"{", RowBox[{ "C109", ",", "C107", ",", "C63", ",", "C33", ",", "C8", ",", "C34", ",", "C64", ",", "C108", ",", "C110"}], "}"}], ",", RowBox[{"{", RowBox[{ "C105", ",", "C103", ",", "C61", ",", "C31", ",", "C7", ",", "C32", ",", "C62", ",", "C104", ",", "C106"}], "}"}], ",", RowBox[{"{", RowBox[{ "C101", ",", "C59", ",", "C29", ",", "C27", ",", "C6", ",", "C28", ",", "C30", ",", "C60", ",", "C102"}], "}"}], ",", RowBox[{"{", RowBox[{ "C99", ",", "C97", ",", "C57", ",", "C25", ",", "C5", ",", "C26", ",", "C58", ",", "C98", ",", "C100"}], "}"}], ",", RowBox[{"{", RowBox[{ "C93", ",", "C95", ",", "C55", ",", "C23", ",", "c4", ",", "C24", ",", "C56", ",", "C96", ",", "C94"}], "}"}], ",", RowBox[{"{", RowBox[{ "c447", ",", "c445", ",", "c443", ",", "c441", ",", "c44", ",", "c442", ",", "c444", ",", "c446", ",", "c448"}], "}"}], ",", RowBox[{"{", RowBox[{ "C91", ",", "C89", ",", "C53", ",", "C21", ",", "C4", ",", "C22", ",", "C54", ",", "C90", ",", "C92"}], "}"}], ",", RowBox[{"{", RowBox[{ "C87", ",", "C85", ",", "C51", ",", "C19", ",", "C3", ",", "C20", ",", "C52", ",", "C86", ",", "C88"}], "}"}], ",", RowBox[{"{", RowBox[{ "C83", ",", "C81", ",", "C49", ",", "C17", ",", "C2", ",", "C18", ",", "C50", ",", "C82", ",", "C84"}], "}"}], ",", RowBox[{"{", RowBox[{ "C79", ",", "C77", ",", "C47", ",", "C15", ",", "C1", ",", "C16", ",", "C48", ",", "C78", ",", "C80"}], "}"}]}], "}"}]}], ";"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["M\[AAcute]scara", "Subsection", CellChangeTimes->{{3.461958537953125*^9, 3.461958539203125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "8", ",", "8"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461958293796875*^9, 3.461958311109375*^9}}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Brown", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"jj", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ "0.8341587814609154", ",", "3.08564197126302", ",", "1.1104020679428324`"}], "}"}]}], ",", RowBox[{"ViewVertical", "\[Rule]", RowBox[{"{", RowBox[{ "0.11916267909216949`", ",", "0.5183805244913129", ",", "0.9557419242368039"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.4619583174375*^9, 3.461958317515625*^9}, { 3.461958366140625*^9, 3.46195836896875*^9}, 3.461958400421875*^9, { 3.461958454921875*^9, 3.46195849540625*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Gato", "Section", CellChangeTimes->{{3.46189564515625*^9, 3.461895645859375*^9}, 3.4618967231875*^9, {3.461958024390625*^9, 3.461958025484375*^9}, { 3.46195850771875*^9, 3.461958509984375*^9}, {3.461958656296875*^9, 3.46195865734375*^9}}], Cell["Teodor Benites, Kathia Katherine", "Text", CellChangeTimes->{ 3.461957741390625*^9, {3.46195804525*^9, 3.461958063734375*^9}, { 3.461958725953125*^9, 3.461958738203125*^9}}], Cell[CellGroupData[{ Cell["Previos", "Subsection", CellChangeTimes->{{3.46195950090625*^9, 3.461959501890625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"a1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "100", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "107", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "116", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", "148", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"130", ",", "211", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"123", ",", "304", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", "364", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "403", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "418", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "100", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "107", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "116", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", "148", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"130", ",", "211", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"123", ",", "304", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", "364", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "403", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "418", ",", "20"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "33", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "63", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"84", ",", "85", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"119", ",", "120", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"190", ",", "236", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"185", ",", "332", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"148", ",", "383", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"91", ",", "421", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "453", ",", "40"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "17", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"110", ",", "44", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"276", ",", "230", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"258", ",", "339", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "388", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"128", ",", "432", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"63", ",", "465", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "486", ",", "80"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "33", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "63", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"84", ",", "85", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"119", ",", "120", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"190", ",", "236", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"185", ",", "332", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"148", ",", "383", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"91", ",", "421", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "453", ",", "120"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "23", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "52", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"58", ",", "103", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "135", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"235", ",", "231", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"233", ",", "316", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"196", ",", "362", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"146", ",", "405", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "486", ",", "140"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "23", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "52", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"58", ",", "103", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "135", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"235", ",", "231", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"233", ",", "316", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"196", ",", "362", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"146", ",", "405", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "486", ",", "190"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "76", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "97", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"76", ",", "158", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"148", ",", "202", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"176", ",", "273", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"143", ",", "362", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"96", ",", "393", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"52", ",", "416", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "433", ",", "230"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "131", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "147.5`", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{"61.6`", ",", "170", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{"65.6`", ",", "195.5`", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{"93", ",", "211", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{"114.4`", ",", "268.5`", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{"93.6`", ",", "331.5`", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{"60.8`", ",", "361", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "389", ",", "260"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "199", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"18.4`", ",", "223", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "251", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "219", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"35.2`", ",", "279.5`", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"33.6`", ",", "280.5`", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "306", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "313", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "330", ",", "300"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.461958807703125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"a2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "100", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "25"}], ",", "107", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54"}], ",", "116", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "90"}], ",", "148", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "130"}], ",", "211", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "123"}], ",", "304", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "88"}], ",", "364", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "45"}], ",", "403", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "418", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "100", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "25"}], ",", "107", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54"}], ",", "116", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "90"}], ",", "148", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "130"}], ",", "211", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "123"}], ",", "304", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "88"}], ",", "364", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "45"}], ",", "403", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "418", ",", "20"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "33", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54"}], ",", "63", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "84"}], ",", "85", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "119"}], ",", "120", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "190"}], ",", "236", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "185"}], ",", "332", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "148"}], ",", "383", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "91"}], ",", "421", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "453", ",", "40"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "75"}], ",", "17", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "110"}], ",", "44", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "276"}], ",", "230", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "258"}], ",", "339", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "200"}], ",", "388", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "128"}], ",", "432", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "63"}], ",", "465", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "486", ",", "80"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "33", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "54"}], ",", "63", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "84"}], ",", "85", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "119"}], ",", "120", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "190"}], ",", "236", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "185"}], ",", "332", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "148"}], ",", "383", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "91"}], ",", "421", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "453", ",", "120"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "23", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "48"}], ",", "52", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "58"}], ",", "103", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "100"}], ",", "135", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "235"}], ",", "231", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "233"}], ",", "316", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "196"}], ",", "362", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "146"}], ",", "405", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "486", ",", "140"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "23", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "48"}], ",", "52", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "58"}], ",", "103", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "100"}], ",", "135", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "235"}], ",", "231", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "233"}], ",", "316", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "196"}], ",", "362", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "146"}], ",", "405", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "486", ",", "190"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "76", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "40"}], ",", "97", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "76"}], ",", "158", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "148"}], ",", "202", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "176"}], ",", "273", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "143"}], ",", "362", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "96"}], ",", "393", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "52"}], ",", "416", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "433", ",", "230"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "131", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "36"}], ",", "147.5`", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "61.6`"}], ",", "170", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "65.6`"}], ",", "195.5`", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "93"}], ",", "211", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "114.4`"}], ",", "268.5`", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "93.6`"}], ",", "331.5`", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "60.8`"}], ",", "361", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "389", ",", "260"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "199", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "18.4`"}], ",", "223", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "32"}], ",", "251", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "219", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "35.2`"}], ",", "279.5`", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "33.6`"}], ",", "280.5`", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "306", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", "313", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "330", ",", "300"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "261", ",", "320"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.461958871484375*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "10", ",", "10"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "8", ",", "8"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461958293796875*^9, 3.461958311109375*^9}, {3.461958789421875*^9, 3.4619588011875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"g1", "=", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"a1", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"a2", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.4619583174375*^9, 3.461958317515625*^9}, { 3.461958366140625*^9, 3.46195836896875*^9}, 3.461958400421875*^9, { 3.461958454921875*^9, 3.46195849540625*^9}, {3.461958813546875*^9, 3.461958844953125*^9}, {3.461958876953125*^9, 3.461958893359375*^9}, { 3.46195933596875*^9, 3.461959339015625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"a3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "11.5", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "11.5", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "11.5", ",", "140"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "20"}], ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "16", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "71", ",", "165"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "15", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "15", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "15", ",", "190"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.4619589164375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"a4", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "11.5", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "11.5", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "11.5", ",", "140"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "20"}], ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "32"}], ",", "16", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "37"}], ",", "71", ",", "165"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "15", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "15", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "15", ",", "190"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.461958937359375*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "2"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461958293796875*^9, 3.461958311109375*^9}, {3.461958789421875*^9, 3.4619588011875*^9}, { 3.461958965046875*^9, 3.4619589670625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"g2", "=", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"a3", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"a4", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.4619583174375*^9, 3.461958317515625*^9}, { 3.461958366140625*^9, 3.46195836896875*^9}, 3.461958400421875*^9, { 3.461958454921875*^9, 3.46195849540625*^9}, {3.461958813546875*^9, 3.461958844953125*^9}, {3.461958876953125*^9, 3.461958893359375*^9}, { 3.461958948328125*^9, 3.461958980515625*^9}, {3.46195934425*^9, 3.461959347140625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"a5", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"98.6", ",", "113", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"98.6", ",", "113", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"98.6", ",", "113", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"98.6", ",", "113", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"98.6", ",", "113", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"98.6", ",", "113", ",", "140"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50.6", ",", "117", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{"78.6", ",", "89.5", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{"112.6", ",", "91.5", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{"127.2", ",", "111", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{"123.2", ",", "144", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{"114.6", ",", "157.5", ",", "165"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"98.6", ",", "113", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"98.6", ",", "113", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"98.6", ",", "113", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"98.6", ",", "113", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"98.6", ",", "113", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"98.6", ",", "113", ",", "140"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"a6", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "98.6"}], ",", "113", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "98.6"}], ",", "113", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "98.6"}], ",", "113", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "98.6"}], ",", "113", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "98.6"}], ",", "113", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "98.6"}], ",", "113", ",", "140"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "50.6"}], ",", "117", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "78.6"}], ",", "89.5", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "112.6"}], ",", "91.5", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "127.2"}], ",", "111", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "123.2"}], ",", "144", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "114.6"}], ",", "157.5", ",", "165"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "98.6"}], ",", "113", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "98.6"}], ",", "113", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "98.6"}], ",", "113", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "98.6"}], ",", "113", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "98.6"}], ",", "113", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "98.6"}], ",", "113", ",", "140"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.461959017765625*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "5", ",", "5"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461958293796875*^9, 3.461958311109375*^9}, {3.461958789421875*^9, 3.4619588011875*^9}, { 3.461958965046875*^9, 3.4619589670625*^9}, 3.4619590453125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"g3", "=", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"a5", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"a6", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.4619583174375*^9, 3.461958317515625*^9}, { 3.461958366140625*^9, 3.46195836896875*^9}, 3.461958400421875*^9, { 3.461958454921875*^9, 3.46195849540625*^9}, {3.461958813546875*^9, 3.461958844953125*^9}, {3.461958876953125*^9, 3.461958893359375*^9}, { 3.461958948328125*^9, 3.461958980515625*^9}, {3.461959050328125*^9, 3.46195906628125*^9}, {3.461959120328125*^9, 3.461959120703125*^9}, { 3.461959325796875*^9, 3.4619593549375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"a7", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"112.6", ",", "298", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{"150", ",", "260", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{"157", ",", "270", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{"145", ",", "303.5", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{"160", ",", "333", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{"181.2", ",", "356", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{"160", ",", "372", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{"126.6", ",", "352", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{"116.6", ",", "335.5", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{"112.6", ",", "298", ",", "220"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"143", ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"143", ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"143", ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"143", ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"143", ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"143", ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"143", ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"143", ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"143", ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{"143", ",", "337", ",", "320"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"a8", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "112.6`"}], ",", "298", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "150"}], ",", "260", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "157"}], ",", "270", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "145"}], ",", "303.5`", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "160"}], ",", "333", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "181.2`"}], ",", "356", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "160"}], ",", "372", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "126.6`"}], ",", "352", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "116.6`"}], ",", "335.5`", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "112.6`"}], ",", "298", ",", "220"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "143"}], ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "143"}], ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "143"}], ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "143"}], ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "143"}], ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "143"}], ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "143"}], ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "143"}], ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "143"}], ",", "337", ",", "320"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "143"}], ",", "337", ",", "320"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.461959096671875*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "9", ",", "9"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461958293796875*^9, 3.461958311109375*^9}, {3.461958789421875*^9, 3.4619588011875*^9}, { 3.461958965046875*^9, 3.4619589670625*^9}, 3.4619590453125*^9, { 3.4619591561875*^9, 3.4619591679375*^9}, {3.461959424171875*^9, 3.461959424671875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"g4", "=", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "1.4", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"a7", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"a8", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.4619583174375*^9, 3.461958317515625*^9}, { 3.461958366140625*^9, 3.46195836896875*^9}, 3.461958400421875*^9, { 3.461958454921875*^9, 3.46195849540625*^9}, {3.461958813546875*^9, 3.461958844953125*^9}, {3.461958876953125*^9, 3.461958893359375*^9}, { 3.461958948328125*^9, 3.461958980515625*^9}, {3.461959050328125*^9, 3.46195906628125*^9}, {3.461959120328125*^9, 3.461959144609375*^9}, { 3.4619591755625*^9, 3.461959202484375*^9}, {3.461959244453125*^9, 3.461959245765625*^9}, {3.46195930665625*^9, 3.4619593081875*^9}, 3.461959431765625*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Gato", "Subsection", CellChangeTimes->{{3.46195950659375*^9, 3.461959507375*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"g1", ",", "g2", ",", "g3", ",", "g4"}], "]"}]], "Input", CellChangeTimes->{{3.46195953325*^9, 3.4619595336875*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Trompo", "Section", CellChangeTimes->{{3.46189564515625*^9, 3.461895645859375*^9}, 3.4618967231875*^9, {3.461958024390625*^9, 3.461958025484375*^9}, { 3.46195850771875*^9, 3.461958509984375*^9}, {3.461958656296875*^9, 3.46195865734375*^9}, {3.461959676*^9, 3.46195967709375*^9}}], Cell["Chiroque L\[AAcute]zaro, V\[IAcute]ctor Manuel", "Text", CellChangeTimes->{{3.461959694546875*^9, 3.461959713515625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun2d", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4.5"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "4.5"}], "}"}], ",", RowBox[{"{", RowBox[{"3.26", ",", "4.34"}], "}"}], ",", RowBox[{"{", RowBox[{"3.91", ",", "3.91"}], "}"}], ",", RowBox[{"{", RowBox[{"4.34", ",", "3.26"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "2.5"}], "}"}], ",", RowBox[{"{", RowBox[{"4.34", ",", "1.73"}], "}"}], ",", RowBox[{"{", RowBox[{"3.91", ",", "1.08"}], "}"}], ",", RowBox[{"{", RowBox[{"2.93", ",", "0.06"}], "}"}], ",", RowBox[{"{", RowBox[{"1.9`", ",", RowBox[{"-", "0.96"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.97", ",", RowBox[{"-", "1.98"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "3"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4602113660625*^9, 3.4602114785*^9}, { 3.46021156890625*^9, 3.4602115693125*^9}, {3.460211992828125*^9, 3.4602120409375*^9}, 3.46195988259375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"punto3D", "[", RowBox[{"punto_List", ",", "cantidadpuntos_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", FractionBox[ RowBox[{"2", "Pi"}], "cantidadpuntos"]}], ";", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"punto", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", RowBox[{ RowBox[{"punto", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", RowBox[{"punto", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", "Pi"}], ",", "\[Sigma]"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "punto", "]"}]}], "}"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4485651474229927`*^9, 3.4485652739073677`*^9}, { 3.4485653494698677`*^9, 3.4485654615636177`*^9}, {3.46021225521875*^9, 3.460212263578125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pun3d", "=", RowBox[{ RowBox[{"punto3D", "[", RowBox[{"pun2d", ",", "16"}], "]"}], "//", "N"}]}], ";"}]], "Input", CellChangeTimes->{{3.46021152615625*^9, 3.46021154384375*^9}, { 3.460211577578125*^9, 3.460211586296875*^9}, 3.46195991309375*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"uk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "13", ",", "13"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vk", "=", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "15", ",", "15"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.460168745394065*^9, 3.460168782284065*^9}, { 3.46188060634375*^9, 3.461880618640625*^9}, {3.461958293796875*^9, 3.461958311109375*^9}, {3.461958789421875*^9, 3.4619588011875*^9}, { 3.461959956265625*^9, 3.461959965796875*^9}}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "3.5"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Directive", "[", RowBox[{"Orange", ",", RowBox[{"Specularity", "[", RowBox[{"Cyan", ",", "20"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BSplineSurface", "[", RowBox[{"pun3d", ",", RowBox[{"SplineKnots", "\[Rule]", RowBox[{"{", RowBox[{"uk", ",", "vk"}], "}"}]}], ",", RowBox[{"SplineDegree", "\[Rule]", "2"}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.163680591954594"}], ",", RowBox[{"-", "2.602527374182229"}], ",", "1.8228271301855141`"}], "}"}]}], ",", RowBox[{"ViewVertical", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.022985872706826754`"}], ",", RowBox[{"-", "0.03708710241789154"}], ",", "1.0578151532698081`"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.461880642046875*^9, 3.461880679453125*^9}, { 3.461880713546875*^9, 3.461880757265625*^9}, {3.46188082596875*^9, 3.4618808434375*^9}, {3.461880878859375*^9, 3.461880885578125*^9}, { 3.461880918296875*^9, 3.46188098265625*^9}, {3.461881057578125*^9, 3.46188107075*^9}, {3.4619583174375*^9, 3.461958317515625*^9}, { 3.461958366140625*^9, 3.46195836896875*^9}, 3.461958400421875*^9, { 3.461958454921875*^9, 3.46195849540625*^9}, {3.461958813546875*^9, 3.461958844953125*^9}, {3.461958876953125*^9, 3.461958893359375*^9}, { 3.46195933596875*^9, 3.461959339015625*^9}, {3.461959974375*^9, 3.4619601144375*^9}}] }, Closed]] }, Open ]] }, WindowSize->{1270, 679}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 310, 9, 127, "Title"], Cell[880, 33, 1057, 31, 335, "Text"], Cell[CellGroupData[{ Cell[1962, 68, 144, 2, 71, "Section"], Cell[2109, 72, 1322, 23, 65, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[3468, 100, 161, 2, 71, "Section"], Cell[3632, 104, 297, 4, 29, "Text"], Cell[3932, 110, 716, 25, 32, "Text"], Cell[4651, 137, 582, 20, 29, "Text"], Cell[5236, 159, 651, 22, 29, "Text"], Cell[5890, 183, 355, 11, 29, "Text"], Cell[6248, 196, 405, 11, 70, "Text"], Cell[6656, 209, 224, 4, 70, "Text"], Cell[6883, 215, 726, 23, 70, "Text"], Cell[7612, 240, 1069, 35, 70, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[8718, 280, 90, 1, 70, "Section"], Cell[8811, 283, 77, 1, 70, "Text"], Cell[8891, 286, 5656, 158, 70, "Input"], Cell[14550, 446, 561, 15, 70, "Input"], Cell[15114, 463, 1458, 36, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[16609, 504, 86, 1, 70, "Section"], Cell[16698, 507, 79, 1, 70, "Text"], Cell[CellGroupData[{ Cell[16802, 512, 88, 1, 70, "Subsection"], Cell[16893, 515, 4968, 150, 70, "Input"], Cell[21864, 667, 4018, 118, 70, "Input"], Cell[25885, 787, 4531, 129, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[30453, 921, 101, 1, 70, "Subsection"], Cell[30557, 924, 2030, 62, 70, "Input"], Cell[32590, 988, 2191, 71, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[34818, 1064, 91, 1, 70, "Subsection"], Cell[34912, 1067, 4505, 141, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[39454, 1213, 152, 2, 70, "Subsection"], Cell[39609, 1217, 835, 27, 70, "Input"], Cell[40447, 1246, 1033, 34, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[41517, 1285, 90, 1, 70, "Subsection"], Cell[41610, 1288, 1010, 33, 70, "Input"], Cell[42623, 1323, 1106, 35, 70, "Input"], Cell[43732, 1360, 714, 23, 70, "Input"], Cell[44449, 1385, 814, 27, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[45300, 1417, 99, 1, 70, "Subsection"], Cell[45402, 1420, 1358, 37, 70, "Input"], Cell[46763, 1459, 1271, 39, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[48071, 1503, 98, 1, 70, "Subsection"], Cell[48172, 1506, 4257, 130, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[52466, 1641, 98, 1, 70, "Subsection"], Cell[52567, 1644, 2703, 74, 70, "Input"], Cell[55273, 1720, 2827, 79, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[58137, 1804, 100, 1, 70, "Subsection"], Cell[58240, 1807, 2284, 75, 70, "Input"], Cell[60527, 1884, 2556, 85, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[63120, 1974, 92, 1, 70, "Subsection"], Cell[63215, 1977, 2315, 65, 70, "Input"], Cell[65533, 2044, 2623, 75, 70, "Input"], Cell[68159, 2121, 2686, 81, 70, "Input"], Cell[70848, 2204, 2773, 88, 70, "Input"], Cell[73624, 2294, 1747, 49, 70, "Input"], Cell[75374, 2345, 2191, 67, 70, "Input"], Cell[77568, 2414, 2215, 67, 70, "Input"], Cell[79786, 2483, 2663, 85, 70, "Input"], Cell[82452, 2570, 903, 21, 70, "Input"], Cell[83358, 2593, 957, 22, 70, "Input"], Cell[84318, 2617, 1010, 23, 70, "Input"], Cell[85331, 2642, 1013, 23, 70, "Input"], Cell[86347, 2667, 1060, 23, 70, "Input"], Cell[87410, 2692, 1182, 25, 70, "Input"], Cell[88595, 2719, 1229, 26, 70, "Input"], Cell[89827, 2747, 1274, 26, 70, "Input"], Cell[91104, 2775, 1323, 27, 70, "Input"], Cell[92430, 2804, 1328, 27, 70, "Input"], Cell[93761, 2833, 1327, 27, 70, "Input"], Cell[95091, 2862, 1327, 27, 70, "Input"], Cell[96421, 2891, 1465, 29, 70, "Input"], Cell[97889, 2922, 1372, 28, 70, "Input"], Cell[99264, 2952, 1411, 28, 70, "Input"], Cell[100678, 2982, 1460, 29, 70, "Input"], Cell[102141, 3013, 1509, 30, 70, "Input"], Cell[103653, 3045, 1555, 30, 70, "Input"], Cell[105211, 3077, 1604, 31, 70, "Input"], Cell[106818, 3110, 1626, 32, 70, "Input"], Cell[108447, 3144, 1719, 33, 70, "Input"], Cell[110169, 3179, 1668, 32, 70, "Input"], Cell[111840, 3213, 1769, 34, 70, "Input"], Cell[113612, 3249, 1810, 34, 70, "Input"], Cell[115425, 3285, 1858, 35, 70, "Input"], Cell[117286, 3322, 1858, 35, 70, "Input"], Cell[119147, 3359, 1854, 35, 70, "Input"], Cell[121004, 3396, 1418, 38, 70, "Input"], Cell[122425, 3436, 1821, 29, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[124283, 3470, 97, 1, 70, "Subsection"], Cell[124383, 3473, 513, 14, 70, "Input"], Cell[124899, 3489, 1668, 39, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[126604, 3533, 97, 1, 70, "Subsection"], Cell[126704, 3536, 513, 14, 70, "Input"], Cell[127220, 3552, 1389, 32, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[128646, 3589, 92, 1, 70, "Subsection"], Cell[128741, 3592, 513, 14, 70, "Input"], Cell[129257, 3608, 1112, 25, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[130406, 3638, 104, 1, 70, "Subsection"], Cell[130513, 3641, 504, 12, 70, "Input"], Cell[131020, 3655, 2237, 54, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[133294, 3714, 149, 2, 70, "Subsection"], Cell[133446, 3718, 512, 13, 70, "Input"], Cell[133961, 3733, 2287, 55, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[136285, 3793, 100, 1, 70, "Subsection"], Cell[136388, 3796, 612, 14, 70, "Input"], Cell[137003, 3812, 1316, 29, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[138356, 3846, 98, 1, 70, "Subsection"], Cell[138457, 3849, 618, 15, 70, "Input"], Cell[139078, 3866, 1656, 38, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[140771, 3909, 99, 1, 70, "Subsection"], Cell[140873, 3912, 700, 16, 70, "Input"], Cell[141576, 3930, 1699, 38, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[143312, 3973, 92, 1, 70, "Subsection"], Cell[143407, 3976, 762, 17, 70, "Input"], Cell[144172, 3995, 3786, 93, 70, "Input"], Cell[147961, 4090, 692, 15, 70, "Input"], Cell[148656, 4107, 243, 5, 70, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[148948, 4118, 139, 2, 70, "Section"], Cell[149090, 4122, 101, 1, 70, "Text"], Cell[CellGroupData[{ Cell[149216, 4127, 99, 1, 70, "Subsection"], Cell[149318, 4130, 13868, 346, 70, "Input"], Cell[163189, 4478, 722, 18, 70, "Input"], Cell[163914, 4498, 1112, 25, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[165063, 4528, 148, 2, 70, "Subsection"], Cell[165214, 4532, 16749, 458, 70, "Input"], Cell[181966, 4992, 767, 18, 70, "Input"], Cell[182736, 5012, 1162, 26, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[183935, 5043, 191, 3, 70, "Subsection"], Cell[184129, 5048, 1242, 30, 70, "Input"], Cell[185374, 5080, 1168, 29, 70, "Input"], Cell[186545, 5111, 218, 6, 70, "Input"], Cell[186766, 5119, 1364, 33, 70, "Input"], Cell[188133, 5154, 1290, 32, 70, "Input"], Cell[189426, 5188, 271, 6, 70, "Input"], Cell[189700, 5196, 1294, 31, 70, "Input"], Cell[190997, 5229, 1221, 30, 70, "Input"], Cell[192221, 5261, 270, 6, 70, "Input"], Cell[192494, 5269, 1344, 33, 70, "Input"], Cell[193841, 5304, 1267, 32, 70, "Input"], Cell[195111, 5338, 168, 5, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[195316, 5348, 83, 1, 70, "Subsection"], Cell[195402, 5351, 323, 7, 70, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[195774, 5364, 135, 2, 70, "Section"], Cell[195912, 5368, 139, 2, 70, "Text"], Cell[196054, 5372, 2303, 81, 70, "Input"], Cell[198360, 5455, 1311, 34, 70, "Input"], Cell[199674, 5491, 1004, 29, 70, "Input"], Cell[200681, 5522, 1052, 30, 70, "Input"], Cell[201736, 5554, 1101, 31, 70, "Input"], Cell[202840, 5587, 1146, 31, 70, "Input"], Cell[203989, 5620, 1194, 32, 70, "Input"], Cell[205186, 5654, 1241, 33, 70, "Input"], Cell[206430, 5689, 676, 16, 70, "Input"], Cell[207109, 5707, 1265, 28, 70, "Input"], Cell[208377, 5737, 750, 18, 70, "Input"], Cell[209130, 5757, 1293, 29, 70, "Input"], Cell[210426, 5788, 750, 18, 70, "Input"], Cell[211179, 5808, 1292, 29, 70, "Input"], Cell[212474, 5839, 724, 17, 70, "Input"], Cell[213201, 5858, 1289, 29, 70, "Input"], Cell[214493, 5889, 793, 18, 70, "Input"], Cell[215289, 5909, 1337, 29, 70, "Input"], Cell[216629, 5940, 771, 18, 70, "Input"], Cell[217403, 5960, 1337, 29, 70, "Input"], Cell[218743, 5991, 771, 18, 70, "Input"], Cell[219517, 6011, 1336, 29, 70, "Input"], Cell[220856, 6042, 208, 5, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[221101, 6052, 195, 3, 70, "Section"], Cell[221299, 6057, 106, 1, 70, "Text"], Cell[221408, 6060, 1832, 58, 70, "Input"], Cell[223243, 6120, 392, 8, 70, "Input"], Cell[223638, 6130, 277, 6, 70, "Input"], Cell[223918, 6138, 325, 7, 70, "Input"], Cell[224246, 6147, 279, 6, 70, "Input"], Cell[224528, 6155, 185, 5, 70, "Input"], Cell[224716, 6162, 183, 5, 70, "Input"], Cell[224902, 6169, 183, 5, 70, "Input"], Cell[225088, 6176, 1535, 48, 70, "Input"], Cell[226626, 6226, 500, 13, 70, "Input"], Cell[227129, 6241, 409, 12, 70, "Input"], Cell[227541, 6255, 635, 15, 70, "Input"], Cell[228179, 6272, 583, 14, 70, "Input"], Cell[228765, 6288, 543, 14, 70, "Input"], Cell[229311, 6304, 535, 14, 70, "Input"], Cell[229849, 6320, 410, 12, 70, "Input"], Cell[230262, 6334, 410, 12, 70, "Input"], Cell[230675, 6348, 410, 12, 70, "Input"], Cell[231088, 6362, 455, 12, 70, "Input"], Cell[231546, 6376, 707, 17, 70, "Input"], Cell[232256, 6395, 656, 16, 70, "Input"], Cell[232915, 6413, 608, 15, 70, "Input"], Cell[233526, 6430, 607, 15, 70, "Input"], Cell[234136, 6447, 475, 13, 70, "Input"], Cell[234614, 6462, 478, 13, 70, "Input"], Cell[235095, 6477, 479, 13, 70, "Input"], Cell[235577, 6492, 528, 14, 70, "Input"], Cell[236108, 6508, 429, 10, 70, "Input"], Cell[236540, 6520, 958, 20, 70, "Input"], Cell[237501, 6542, 1184, 26, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[238722, 6573, 232, 3, 70, "Section"], Cell[238957, 6578, 109, 1, 70, "Text"], Cell[239069, 6581, 1650, 52, 70, "Input"], Cell[240722, 6635, 161, 4, 70, "Input"], Cell[240886, 6641, 160, 4, 70, "Input"], Cell[241049, 6647, 158, 4, 70, "Input"], Cell[241210, 6653, 1281, 40, 70, "Input"], Cell[242494, 6695, 444, 13, 70, "Input"], Cell[242941, 6710, 491, 13, 70, "Input"], Cell[243435, 6725, 537, 14, 70, "Input"], Cell[243975, 6741, 535, 14, 70, "Input"], Cell[244513, 6757, 576, 15, 70, "Input"], Cell[245092, 6774, 444, 13, 70, "Input"], Cell[245539, 6789, 467, 14, 70, "Input"], Cell[246009, 6805, 468, 14, 70, "Input"], Cell[246480, 6821, 467, 14, 70, "Input"], Cell[246950, 6837, 466, 14, 70, "Input"], Cell[247419, 6853, 456, 10, 70, "Input"], Cell[247878, 6865, 864, 20, 70, "Input"], Cell[248745, 6887, 1234, 27, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[250016, 6919, 277, 4, 70, "Section"], Cell[250296, 6925, 140, 2, 70, "Text"], Cell[CellGroupData[{ Cell[250461, 6931, 94, 1, 70, "Subsection"], Cell[250558, 6934, 2751, 71, 70, "Input"], Cell[253312, 7007, 714, 16, 70, "Input"], Cell[254029, 7025, 1505, 32, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[255571, 7062, 143, 2, 70, "Subsection"], Cell[255717, 7066, 2701, 67, 70, "Input"], Cell[258421, 7135, 714, 16, 70, "Input"], Cell[259138, 7153, 1543, 32, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[260718, 7190, 192, 3, 70, "Subsection"], Cell[260913, 7195, 2776, 68, 70, "Input"], Cell[263692, 7265, 714, 16, 70, "Input"], Cell[264409, 7283, 1594, 33, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[266040, 7321, 235, 3, 70, "Subsection"], Cell[266278, 7326, 2802, 68, 70, "Input"], Cell[269083, 7396, 714, 16, 70, "Input"], Cell[269800, 7414, 1647, 34, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[271484, 7453, 280, 4, 70, "Subsection"], Cell[271767, 7459, 2900, 72, 70, "Input"], Cell[274670, 7533, 714, 16, 70, "Input"], Cell[275387, 7551, 1692, 34, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[277116, 7590, 283, 4, 70, "Subsection"], Cell[277402, 7596, 3415, 92, 70, "Input"], Cell[280820, 7690, 714, 16, 70, "Input"], Cell[281537, 7708, 1734, 35, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[283308, 7748, 330, 5, 70, "Subsection"], Cell[283641, 7755, 3412, 89, 70, "Input"], Cell[287056, 7846, 714, 16, 70, "Input"], Cell[287773, 7864, 1782, 36, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[289592, 7905, 373, 5, 70, "Subsection"], Cell[289968, 7912, 3435, 91, 70, "Input"], Cell[293406, 8005, 714, 16, 70, "Input"], Cell[294123, 8023, 1782, 36, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[295942, 8064, 87, 1, 70, "Subsection"], Cell[296032, 8067, 2818, 82, 70, "Input"], Cell[298853, 8151, 755, 18, 70, "Input"], Cell[299611, 8171, 1852, 37, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[301500, 8213, 92, 1, 70, "Subsection"], Cell[301595, 8216, 231, 5, 70, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[301875, 8227, 278, 4, 70, "Section"], Cell[302156, 8233, 147, 2, 70, "Text"], Cell[302306, 8237, 2166, 62, 70, "Input"], Cell[304475, 8301, 791, 17, 70, "Input"], Cell[305269, 8320, 1900, 37, 70, "Input"], Cell[307172, 8359, 2392, 72, 70, "Input"], Cell[309567, 8433, 791, 17, 70, "Input"], Cell[310361, 8452, 1947, 38, 70, "Input"], Cell[312311, 8492, 2625, 82, 70, "Input"], Cell[314939, 8576, 791, 17, 70, "Input"], Cell[315733, 8595, 1945, 38, 70, "Input"], Cell[317681, 8635, 2417, 73, 70, "Input"], Cell[320101, 8710, 791, 17, 70, "Input"], Cell[320895, 8729, 1947, 38, 70, "Input"], Cell[322845, 8769, 1373, 41, 70, "Input"], Cell[324221, 8812, 805, 17, 70, "Input"], Cell[325029, 8831, 2138, 41, 70, "Input"], Cell[327170, 8874, 533, 16, 70, "Input"], Cell[327706, 8892, 239, 4, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[327982, 8901, 328, 5, 70, "Section"], Cell[328313, 8908, 203, 3, 70, "Text"], Cell[328519, 8913, 1582, 46, 70, "Input"], Cell[330104, 8961, 815, 17, 70, "Input"], Cell[330922, 8980, 1947, 38, 70, "Input"], Cell[332872, 9020, 1751, 51, 70, "Input"], Cell[334626, 9073, 815, 17, 70, "Input"], Cell[335444, 9092, 1948, 38, 70, "Input"], Cell[337395, 9132, 2827, 73, 70, "Input"], Cell[340225, 9207, 895, 20, 70, "Input"], Cell[341123, 9229, 1996, 39, 70, "Input"], Cell[343122, 9270, 2855, 86, 70, "Input"], Cell[345980, 9358, 895, 20, 70, "Input"], Cell[346878, 9380, 2037, 39, 70, "Input"], Cell[348918, 9421, 3192, 94, 70, "Input"], Cell[352113, 9517, 924, 20, 70, "Input"], Cell[353040, 9539, 2082, 40, 70, "Input"], Cell[355125, 9581, 3867, 121, 70, "Input"], Cell[358995, 9704, 924, 20, 70, "Input"], Cell[359922, 9726, 2131, 41, 70, "Input"], Cell[362056, 9769, 1170, 35, 70, "Input"], Cell[363229, 9806, 196, 4, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[363462, 9815, 374, 5, 70, "Section"], Cell[363839, 9822, 257, 3, 70, "Text"], Cell[364099, 9827, 1697, 35, 70, "Input"], Cell[365799, 9864, 271, 8, 70, "Input"], Cell[366073, 9874, 1862, 42, 70, "Input"], Cell[367938, 9918, 270, 8, 70, "Input"], Cell[368211, 9928, 260, 6, 70, "Input"], Cell[368474, 9936, 5156, 143, 70, "Input"], Cell[373633, 10081, 634, 17, 70, "Input"], Cell[374270, 10100, 2131, 61, 70, "Input"], Cell[376404, 10163, 2720, 68, 70, "Input"], Cell[379127, 10233, 2159, 49, 70, "Input"], Cell[381289, 10284, 1984, 54, 70, "Input"], Cell[383276, 10340, 2393, 58, 70, "Input"], Cell[385672, 10400, 2195, 62, 70, "Input"], Cell[387870, 10464, 415, 11, 70, "Input"], Cell[388288, 10477, 1300, 36, 70, "Input"], Cell[389591, 10515, 1351, 37, 70, "Input"], Cell[390945, 10554, 1015, 21, 70, "Input"], Cell[391963, 10577, 2538, 51, 70, "Input"], Cell[394504, 10630, 1214, 32, 70, "Input"], Cell[395721, 10664, 1116, 18, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[396874, 10687, 417, 6, 70, "Section"], Cell[397294, 10695, 298, 4, 70, "Text"], Cell[CellGroupData[{ Cell[397617, 10703, 91, 1, 70, "Subsection"], Cell[397711, 10706, 10624, 257, 70, "Input"], Cell[408338, 10965, 10955, 308, 70, "Input"], Cell[419296, 11275, 1128, 22, 70, "Input"], Cell[420427, 11299, 2632, 52, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[423096, 11356, 89, 1, 70, "Subsection"], Cell[423188, 11359, 969, 29, 70, "Input"], Cell[424160, 11390, 1070, 32, 70, "Input"], Cell[425233, 11424, 1001, 20, 70, "Input"], Cell[426237, 11446, 2681, 53, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[428955, 11504, 99, 1, 70, "Subsection"], Cell[429057, 11507, 402, 12, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[429496, 11524, 94, 1, 70, "Subsection"], Cell[429593, 11527, 1702, 24, 70, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[431344, 11557, 462, 7, 70, "Section"], Cell[431809, 11566, 340, 5, 70, "Text"], Cell[CellGroupData[{ Cell[432174, 11575, 91, 1, 70, "Subsection"], Cell[432268, 11578, 551, 16, 70, "Input"], Cell[432822, 11596, 1010, 26, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[433869, 11627, 86, 1, 70, "Subsection"], Cell[433958, 11630, 203, 5, 70, "Input"], Cell[434164, 11637, 353, 8, 70, "Input"], Cell[434520, 11647, 309, 7, 70, "Input"], Cell[434832, 11656, 377, 10, 70, "Input"], Cell[435212, 11668, 308, 7, 70, "Input"], Cell[435523, 11677, 395, 11, 70, "Input"], Cell[435921, 11690, 328, 11, 70, "Input"], Cell[436252, 11703, 469, 11, 70, "Input"], Cell[436724, 11716, 207, 6, 70, "Input"], Cell[436934, 11724, 206, 6, 70, "Input"], Cell[437143, 11732, 212, 6, 70, "Input"], Cell[437358, 11740, 332, 10, 70, "Input"], Cell[437693, 11752, 312, 7, 70, "Input"], Cell[438008, 11761, 292, 9, 70, "Input"], Cell[438303, 11772, 328, 11, 70, "Input"], Cell[438634, 11785, 335, 9, 70, "Input"], Cell[438972, 11796, 209, 6, 70, "Input"], Cell[439184, 11804, 211, 6, 70, "Input"], Cell[439398, 11812, 212, 6, 70, "Input"], Cell[439613, 11820, 4627, 111, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[444277, 11936, 92, 1, 70, "Subsection"], Cell[444372, 11939, 607, 14, 70, "Input"], Cell[444982, 11955, 587, 15, 70, "Input"], Cell[445572, 11972, 510, 13, 70, "Input"], Cell[446085, 11987, 555, 14, 70, "Input"], Cell[446643, 12003, 1808, 50, 70, "Input"], Cell[448454, 12055, 2227, 67, 70, "Input"], Cell[450684, 12124, 1193, 24, 70, "Input"], Cell[451880, 12150, 2775, 54, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[454692, 12209, 137, 2, 70, "Subsection"], Cell[454832, 12213, 475, 13, 70, "Input"], Cell[455310, 12228, 2146, 55, 70, "Input"], Cell[457459, 12285, 1177, 23, 70, "Input"], Cell[458639, 12310, 2435, 45, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[461111, 12360, 90, 1, 70, "Subsection"], Cell[461204, 12363, 634, 19, 70, "Input"], Cell[461841, 12384, 974, 26, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[462852, 12415, 91, 1, 70, "Subsection"], Cell[462946, 12418, 540, 11, 70, "Input"], Cell[463489, 12431, 299, 8, 70, "Input"], Cell[463791, 12441, 878, 21, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[464706, 12467, 130, 2, 70, "Subsection"], Cell[464839, 12471, 591, 18, 70, "Input"], Cell[465433, 12491, 461, 14, 70, "Input"], Cell[465897, 12507, 532, 16, 70, "Input"], Cell[466432, 12525, 266, 6, 70, "Input"], Cell[466701, 12533, 212, 5, 70, "Input"], Cell[466916, 12540, 727, 22, 70, "Input"], Cell[467646, 12564, 1204, 23, 70, "Input"], Cell[468853, 12589, 2475, 45, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[471365, 12639, 92, 1, 70, "Subsection"], Cell[471460, 12642, 1413, 28, 70, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[472922, 12676, 520, 7, 70, "Section"], Cell[473445, 12685, 117, 1, 70, "Text"], Cell[CellGroupData[{ Cell[473587, 12690, 107, 1, 70, "Subsection"], Cell[473697, 12693, 787, 15, 70, "Input"], Cell[474487, 12710, 363, 10, 70, "Input"], Cell[474853, 12722, 505, 15, 70, "Input"], Cell[475361, 12739, 678, 17, 70, "Input"], Cell[476042, 12758, 604, 16, 70, "Input"], Cell[476649, 12776, 501, 15, 70, "Input"], Cell[477153, 12793, 450, 14, 70, "Input"], Cell[477606, 12809, 686, 17, 70, "Input"], Cell[478295, 12828, 316, 9, 70, "Input"], Cell[478614, 12839, 221, 5, 70, "Input"], Cell[478838, 12846, 272, 6, 70, "Input"], Cell[479113, 12854, 327, 7, 70, "Input"], Cell[479443, 12863, 274, 6, 70, "Input"], Cell[479720, 12871, 221, 5, 70, "Input"], Cell[479944, 12878, 601, 14, 70, "Input"], Cell[480548, 12894, 448, 12, 70, "Input"], Cell[480999, 12908, 344, 10, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[481380, 12923, 91, 1, 70, "Subsection"], Cell[481474, 12926, 421, 13, 70, "Input"], Cell[481898, 12941, 681, 16, 70, "Input"], Cell[482582, 12959, 735, 17, 70, "Input"], Cell[483320, 12978, 733, 17, 70, "Input"], Cell[484056, 12997, 758, 17, 70, "Input"], Cell[484817, 13016, 1121, 24, 70, "Input"], Cell[485941, 13042, 1057, 30, 70, "Input"], Cell[487001, 13074, 945, 27, 70, "Input"], Cell[487949, 13103, 1051, 29, 70, "Input"], Cell[489003, 13134, 2240, 62, 70, "Input"], Cell[491246, 13198, 1848, 46, 70, "Input"], Cell[493097, 13246, 453, 9, 70, "Input"], Cell[493553, 13257, 141, 3, 70, "Input"], Cell[493697, 13262, 141, 3, 70, "Input"], Cell[493841, 13267, 141, 3, 70, "Input"], Cell[493985, 13272, 2334, 69, 70, "Input"], Cell[496322, 13343, 2399, 71, 70, "Input"], Cell[498724, 13416, 750, 17, 70, "Input"], Cell[499477, 13435, 903, 19, 70, "Input"], Cell[500383, 13456, 182, 5, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[500602, 13466, 141, 2, 70, "Subsection"], Cell[500746, 13470, 1337, 31, 70, "Input"], Cell[502086, 13503, 1049, 26, 70, "Input"], Cell[503138, 13531, 1102, 27, 70, "Input"], Cell[504243, 13560, 818, 20, 70, "Input"], Cell[505064, 13582, 1202, 24, 70, "Input"], Cell[506269, 13608, 2415, 45, 70, "Input"], Cell[508687, 13655, 1166, 23, 70, "Input"], Cell[509856, 13680, 3192, 64, 70, "Input"], Cell[513051, 13746, 1256, 24, 70, "Input"], Cell[514310, 13772, 2506, 46, 70, "Input"], Cell[516819, 13820, 410, 12, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[517266, 13837, 97, 1, 70, "Subsection"], Cell[517366, 13840, 822, 20, 70, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[518237, 13866, 113, 2, 70, "Section"], Cell[518353, 13870, 111, 1, 70, "Text"], Cell[CellGroupData[{ Cell[518489, 13875, 187, 3, 70, "Subsection"], Cell[518679, 13880, 988, 23, 70, "Input"], Cell[519670, 13905, 931, 22, 70, "Input"], Cell[520604, 13929, 443, 11, 70, "Input"], Cell[521050, 13942, 334, 8, 70, "Input"], Cell[521387, 13952, 356, 10, 70, "Input"], Cell[521746, 13964, 356, 10, 70, "Input"], Cell[522105, 13976, 359, 10, 70, "Input"], Cell[522467, 13988, 352, 10, 70, "Input"], Cell[522822, 14000, 307, 8, 70, "Input"], Cell[523132, 14010, 218, 5, 70, "Input"], Cell[523353, 14017, 264, 6, 70, "Input"], Cell[523620, 14025, 214, 5, 70, "Input"], Cell[523837, 14032, 218, 5, 70, "Input"], Cell[524058, 14039, 261, 6, 70, "Input"], Cell[524322, 14047, 215, 5, 70, "Input"], Cell[524540, 14054, 1343, 32, 70, "Input"], Cell[525886, 14088, 763, 19, 70, "Input"], Cell[526652, 14109, 863, 20, 70, "Input"], Cell[527518, 14131, 559, 14, 70, "Input"], Cell[528080, 14147, 557, 14, 70, "Input"], Cell[528640, 14163, 557, 14, 70, "Input"], Cell[529200, 14179, 557, 14, 70, "Input"], Cell[529760, 14195, 726, 17, 70, "Input"], Cell[530489, 14214, 464, 13, 70, "Input"], Cell[530956, 14229, 409, 11, 70, "Input"], Cell[531368, 14242, 362, 10, 70, "Input"], Cell[531733, 14254, 362, 10, 70, "Input"], Cell[532098, 14266, 359, 10, 70, "Input"], Cell[532460, 14278, 296, 9, 70, "Input"], Cell[532759, 14289, 310, 8, 70, "Input"], Cell[533072, 14299, 1189, 24, 70, "Input"], Cell[534264, 14325, 2341, 43, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[536642, 14373, 91, 1, 70, "Subsection"], Cell[536736, 14376, 523, 17, 70, "Input"], Cell[537262, 14395, 485, 15, 70, "Input"], Cell[537750, 14412, 354, 11, 70, "Input"], Cell[538107, 14425, 543, 17, 70, "Input"], Cell[538653, 14444, 423, 13, 70, "Input"], Cell[539079, 14459, 497, 15, 70, "Input"], Cell[539579, 14476, 479, 14, 70, "Input"], Cell[540061, 14492, 204, 5, 70, "Input"], Cell[540268, 14499, 200, 5, 70, "Input"], Cell[540471, 14506, 200, 5, 70, "Input"], Cell[540674, 14513, 205, 5, 70, "Input"], Cell[540882, 14520, 205, 5, 70, "Input"], Cell[541090, 14527, 205, 5, 70, "Input"], Cell[541298, 14534, 203, 5, 70, "Input"], Cell[541504, 14541, 433, 12, 70, "Input"], Cell[541940, 14555, 475, 12, 70, "Input"], Cell[542418, 14569, 437, 12, 70, "Input"], Cell[542858, 14583, 414, 11, 70, "Input"], Cell[543275, 14596, 412, 11, 70, "Input"], Cell[543690, 14609, 501, 9, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[544228, 14623, 90, 1, 70, "Subsection"], Cell[544321, 14626, 703, 16, 70, "Input"], Cell[545027, 14644, 389, 12, 70, "Input"], Cell[545419, 14658, 700, 16, 70, "Input"], Cell[546122, 14676, 723, 16, 70, "Input"], Cell[546848, 14694, 1842, 50, 70, "Input"], Cell[548693, 14746, 2270, 67, 70, "Input"], Cell[550966, 14815, 1189, 24, 70, "Input"], Cell[552158, 14841, 2398, 44, 70, "Input"], Cell[554559, 14887, 816, 21, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[555412, 14913, 93, 1, 70, "Subsection"], Cell[555508, 14916, 556, 14, 70, "Input"], Cell[556067, 14932, 576, 15, 70, "Input"], Cell[556646, 14949, 908, 24, 70, "Input"], Cell[557557, 14975, 927, 24, 70, "Input"], Cell[558487, 15001, 338, 7, 70, "Input"], Cell[558828, 15010, 518, 14, 70, "Input"], Cell[559349, 15026, 797, 21, 70, "Input"], Cell[560149, 15049, 861, 23, 70, "Input"], Cell[561013, 15074, 1054, 26, 70, "Input"], Cell[562070, 15102, 1061, 26, 70, "Input"], Cell[563134, 15130, 1102, 26, 70, "Input"], Cell[564239, 15158, 493, 9, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[564769, 15172, 93, 1, 70, "Subsection"], Cell[564865, 15175, 564, 15, 70, "Input"], Cell[565432, 15192, 1932, 58, 70, "Input"], Cell[567367, 15252, 2090, 60, 70, "Input"], Cell[569460, 15314, 810, 21, 70, "Input"], Cell[570273, 15337, 866, 22, 70, "Input"], Cell[571142, 15361, 1188, 32, 70, "Input"], Cell[572333, 15395, 1459, 37, 70, "Input"], Cell[573795, 15434, 923, 23, 70, "Input"], Cell[574721, 15459, 972, 24, 70, "Input"], Cell[575696, 15485, 748, 13, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[576481, 15503, 93, 1, 70, "Subsection"], Cell[576577, 15506, 649, 18, 70, "Input"], Cell[577229, 15526, 718, 20, 70, "Input"], Cell[577950, 15548, 907, 25, 70, "Input"], Cell[578860, 15575, 955, 25, 70, "Input"], Cell[579818, 15602, 375, 8, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[580230, 15615, 93, 1, 70, "Subsection"], Cell[580326, 15618, 439, 11, 70, "Input"], Cell[580768, 15631, 536, 16, 70, "Input"], Cell[581307, 15649, 510, 13, 70, "Input"], Cell[581820, 15664, 606, 18, 70, "Input"], Cell[582429, 15684, 939, 23, 70, "Input"], Cell[583371, 15709, 1016, 26, 70, "Input"], Cell[584390, 15737, 989, 24, 70, "Input"], Cell[585382, 15763, 1063, 26, 70, "Input"], Cell[586448, 15791, 390, 9, 70, "Input"], Cell[586841, 15802, 622, 16, 70, "Input"], Cell[587466, 15820, 616, 17, 70, "Input"], Cell[588085, 15839, 201, 5, 70, "Input"], Cell[588289, 15846, 1074, 22, 70, "Input"], Cell[589366, 15870, 2433, 45, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[591836, 15920, 94, 1, 70, "Subsection"], Cell[591933, 15923, 1998, 62, 70, "Input"], Cell[593934, 15987, 1753, 53, 70, "Input"], Cell[595690, 16042, 1135, 22, 70, "Input"], Cell[596828, 16066, 2477, 45, 70, "Input"], Cell[599308, 16113, 801, 21, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[600146, 16139, 117, 2, 70, "Subsection"], Cell[600266, 16143, 1074, 24, 70, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[601389, 16173, 221, 3, 70, "Section"], Cell[601613, 16178, 146, 2, 70, "Text"], Cell[CellGroupData[{ Cell[601784, 16184, 94, 1, 70, "Subsection"], Cell[601881, 16187, 21830, 787, 70, "Input"], Cell[623714, 16976, 2786, 68, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[626537, 17049, 103, 1, 70, "Subsection"], Cell[626643, 17052, 709, 17, 70, "Input"], Cell[627355, 17071, 1493, 35, 70, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[628897, 17112, 256, 4, 70, "Section"], Cell[629156, 17118, 185, 3, 70, "Text"], Cell[CellGroupData[{ Cell[629366, 17125, 94, 1, 70, "Subsection"], Cell[629463, 17128, 8716, 226, 70, "Input"], Cell[638182, 17356, 10466, 296, 70, "Input"], Cell[648651, 17654, 694, 16, 70, "Input"], Cell[649348, 17672, 1704, 37, 70, "Input"], Cell[651055, 17711, 1022, 31, 70, "Input"], Cell[652080, 17744, 1074, 33, 70, "Input"], Cell[653157, 17779, 577, 14, 70, "Input"], Cell[653737, 17795, 1751, 38, 70, "Input"], Cell[655491, 17835, 1749, 47, 70, "Input"], Cell[657243, 17884, 2249, 67, 70, "Input"], Cell[659495, 17953, 638, 15, 70, "Input"], Cell[660136, 17970, 1848, 39, 70, "Input"], Cell[661987, 18011, 1860, 49, 70, "Input"], Cell[663850, 18062, 2417, 71, 70, "Input"], Cell[666270, 18135, 757, 18, 70, "Input"], Cell[667030, 18155, 2093, 45, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[669160, 18205, 88, 1, 70, "Subsection"], Cell[669251, 18208, 164, 3, 70, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[669464, 18217, 297, 4, 70, "Section"], Cell[669764, 18223, 128, 1, 70, "Text"], Cell[669895, 18226, 1349, 40, 70, "Input"], Cell[671247, 18268, 1437, 39, 70, "Input"], Cell[672687, 18309, 298, 7, 70, "Input"], Cell[672988, 18318, 887, 20, 70, "Input"], Cell[673878, 18340, 2180, 52, 70, "Input"] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)