Spline's3D.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     24250,        605]
NotebookOptionsPosition[     23772,        584]
NotebookOutlinePosition[     24116,        599]
CellTagsIndexPosition[     24073,        596]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"S", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"6.5`", ",", 
       RowBox[{"-", "1.`"}], ",", 
       RowBox[{"-", "0.5`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.75`", ",", 
       RowBox[{"-", "1.`"}], ",", 
       RowBox[{"-", "0.5`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.75`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.75`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.75`", ",", 
       RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.75`", ",", 
       RowBox[{"-", "1.`"}], ",", "3.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.`", ",", 
       RowBox[{"-", "1.`"}], ",", "3.8`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", 
       RowBox[{"-", "1.`"}], ",", "3.825`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.`", ",", 
       RowBox[{"-", "1.`"}], ",", "3.8`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.25`", ",", 
       RowBox[{"-", "1.`"}], ",", "3.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.25`", ",", 
       RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.25`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.25`", ",", 
       RowBox[{"-", "1.`"}], ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.25`", ",", 
       RowBox[{"-", "1.`"}], ",", 
       RowBox[{"-", "0.5`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", 
       RowBox[{"-", "1.`"}], ",", 
       RowBox[{"-", "0.5`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "0.`", ",", 
       RowBox[{"-", "0.25`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.5`", ",", "0.`", ",", 
       RowBox[{"-", "0.25`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.5`", ",", "0.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.5`", ",", "0.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.5`", ",", "0.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.5`", ",", "0.`", ",", "3.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.`", ",", "0.`", ",", "3.6`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "0.`", ",", "3.625`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.`", ",", "0.`", ",", "3.6`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.`", ",", "0.`", ",", "3.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.`", ",", "0.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.`", ",", "0.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.`", ",", "0.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.`", ",", "0.`", ",", 
       RowBox[{"-", "0.25`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "0.`", ",", 
       RowBox[{"-", "0.25`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "2.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.25`", ",", "2.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.25`", ",", "2.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.`", ",", "2.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.25`", ",", "2.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.25`", ",", "2.`", ",", "3.25`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.`", ",", "2.`", ",", "3.3`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "2.`", ",", "5.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.`", ",", "2.`", ",", "3.3`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.75`", ",", "2.`", ",", "3.25`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.75`", ",", "2.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"13.`", ",", "2.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.75`", ",", "2.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.75`", ",", "2.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "2.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "3.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "3.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "3.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.75`", ",", "3.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "3.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "3.`", ",", "2.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.`", ",", "3.`", ",", "3.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "3.`", ",", "5.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.`", ",", "3.`", ",", "3.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "3.`", ",", "2.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "3.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"12.25`", ",", "3.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "3.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "3.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "3.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "11.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "11.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "11.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.`", ",", "11.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "11.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "11.`", ",", "2.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.`", ",", "11.`", ",", "2.55`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "11.`", ",", "2.6`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.`", ",", "11.`", ",", "2.55`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "11.`", ",", "2.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "11.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.`", ",", "11.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "11.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "11.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "11.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "13.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "13.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "13.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "13.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "13.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.`", ",", "13.`", ",", "2.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.`", ",", "13.`", ",", "2.55`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "13.`", ",", "2.6`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.`", ",", "13.`", ",", "2.55`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "13.`", ",", "2.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "13.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "13.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "13.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.`", ",", "13.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "13.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "14.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.5`", ",", "14.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.5`", ",", "14.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.5`", ",", "14.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.5`", ",", "14.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.5`", ",", "14.`", ",", "2.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.`", ",", "14.`", ",", "2.05`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "14.`", ",", "2.1`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.`", ",", "14.`", ",", "2.05`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.5`", ",", "14.`", ",", "2.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.5`", ",", "14.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.5`", ",", "14.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.5`", ",", "14.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.5`", ",", "14.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "14.`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.`", ",", "15.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.`", ",", "15.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.`", ",", "15.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.`", ",", "15.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.`", ",", "15.`", ",", "1.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.25`", ",", "15.`", ",", "1.77`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.`", ",", "1.8`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.75`", ",", "15.`", ",", "1.77`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.`", ",", "15.`", ",", "1.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.`", ",", "15.`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.`", ",", "15.`", ",", "0.75`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.`", ",", "15.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.`", ",", "15.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.`", ",", "0.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5`", ",", "15.5`", ",", "1.`"}], "}"}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5418535649022217`*^9, 3.5418535760718412`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "S", "]"}]], "Input",
 CellChangeTimes->{{3.4980719649811645`*^9, 3.4980719724545918`*^9}, {
  3.4982330613456435`*^9, 3.4982330618916445`*^9}, {3.500554447117837*^9, 
  3.500554447788638*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"135", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.4980719738156695`*^9, 3.498072455584225*^9, 
  3.498075858502861*^9, 3.4980770176061583`*^9, 3.498079429931135*^9, 
  3.498079580468745*^9, 3.4980798497711487`*^9, 3.4982328021643867`*^9, 
  3.498233062780846*^9, 3.4982331267721586`*^9, 3.4982338101625586`*^9, 
  3.4982346660736623`*^9, 3.4982347414373946`*^9, 3.4982354622210608`*^9, 
  3.498235919707464*^9, 3.498236110558199*^9, 3.4982363315169873`*^9, 
  3.498245454907646*^9, 3.498308480363077*^9, 3.4983108689113693`*^9, 
  3.4983177163801413`*^9, 3.5005544491146407`*^9, 3.5005546806502476`*^9, 
  3.5005547920968432`*^9, 3.500558602905307*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"color", ",", 
       RowBox[{"Specularity", "[", 
        RowBox[{"White", ",", "50"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"BSplineSurface", "[", 
        RowBox[{"partes", ",", 
         RowBox[{"SplineDegree", "\[Rule]", 
          RowBox[{"Floor", "[", "grados", "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{"malla", ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Dashed", ",", "Blue", ",", 
           RowBox[{"Line", "[", "partes", "]"}], ",", 
           RowBox[{"Line", "[", 
            RowBox[{"Transpose", "[", "partes", "]"}], "]"}], ",", "Red", ",", 
           RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
           RowBox[{"Point", "/@", "partes"}]}], "}"}], ",", 
         RowBox[{"{", "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
     RowBox[{"Lighting", "\[Rule]", "\"\<Neutral\>\""}], ",", 
     RowBox[{"RotationAction", "\[Rule]", "\"\<Clip\>\""}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2"}], ",", 
        RowBox[{"-", "2"}], ",", "2"}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Row", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Control", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"grados", ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"14", ",", "7"}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"140", ",", "70"}], "}"}]}]}], "}"}], "]"}], ",", 
       RowBox[{"Dynamic", "[", 
        RowBox[{"Floor", "[", "grados", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"Spacer", "[", "10", "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Row", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Control", "[", 
        RowBox[{"{", 
         RowBox[{"color", ",", 
          RowBox[{"ColorData", "[", 
           RowBox[{"\"\<HTML\>\"", ",", "\"\<GoldenRod\>\""}], "]"}]}], "}"}],
         "]"}], ",", 
       RowBox[{"Control", "[", 
        RowBox[{"{", 
         RowBox[{"malla", ",", 
          RowBox[{"{", 
           RowBox[{"False", ",", "True"}], "}"}]}], "}"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"Spacer", "[", "10", "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Initialization", "\[RuleDelayed]", 
    RowBox[{"(", 
     RowBox[{"partes", "=", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "15"}], "]"}], "]"}], ",", 
        RowBox[{"S", "[", 
         RowBox[{"[", 
          RowBox[{"16", ";;", "30"}], "]"}], "]"}], ",", 
        RowBox[{"S", "[", 
         RowBox[{"[", 
          RowBox[{"31", ";;", "45"}], "]"}], "]"}], ",", 
        RowBox[{"S", "[", 
         RowBox[{"[", 
          RowBox[{"46", ";;", "60"}], "]"}], "]"}], ",", 
        RowBox[{"S", "[", 
         RowBox[{"[", 
          RowBox[{"61", ";;", "75"}], "]"}], "]"}], ",", 
        RowBox[{"S", "[", 
         RowBox[{"[", 
          RowBox[{"76", ";;", "90"}], "]"}], "]"}], ",", 
        RowBox[{"S", "[", 
         RowBox[{"[", 
          RowBox[{"91", ";;", "105"}], "]"}], "]"}], ",", 
        RowBox[{"S", "[", 
         RowBox[{"[", 
          RowBox[{"106", ";;", "120"}], "]"}], "]"}], ",", 
        RowBox[{"S", "[", 
         RowBox[{"[", 
          RowBox[{"121", ";;", "135"}], "]"}], "]"}]}], "\[IndentingNewLine]",
        "}"}]}], ")"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4973535590673757`*^9, 3.497353716462187*^9}, 
   3.497353850077531*^9, {3.4980719930617704`*^9, 3.4980720371172905`*^9}, {
   3.498072072829333*^9, 3.4980720840309734`*^9}, {3.498072134482859*^9, 
   3.4980721914631186`*^9}, {3.498075167819356*^9, 3.498075174825757*^9}, {
   3.4980758704195423`*^9, 3.4980758739937468`*^9}, {3.4980770557463393`*^9, 
   3.4980770562563686`*^9}, {3.498079444469967*^9, 3.4980794789539385`*^9}, {
   3.498079532666011*^9, 3.4980795452817326`*^9}, {3.4980799601724634`*^9, 
   3.498079972147148*^9}, {3.4982328208532195`*^9, 3.4982328215240207`*^9}, {
   3.498232960819067*^9, 3.4982330358083987`*^9}, {3.49823313925218*^9, 
   3.4982331879086657`*^9}, {3.49823395323041*^9, 3.4982340014812946`*^9}, {
   3.4982346755740786`*^9, 3.498234692546909*^9}, {3.4982354765262856`*^9, 
   3.4982354851999006`*^9}, {3.4983084980223083`*^9, 3.49830863015454*^9}, {
   3.4983112648088646`*^9, 3.4983112655108657`*^9}, {3.4983177673610315`*^9, 
   3.498317793381877*^9}, {3.500554457304655*^9, 3.5005545047131386`*^9}, {
   3.500558612140523*^9, 3.5005586914822626`*^9}, {3.541853678145793*^9, 
   3.5418536789257946`*^9}, {3.541853840040107*^9, 3.541853852423815*^9}, 
   3.541853883108612*^9, {3.612794016021866*^9, 3.612794169304633*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`color$$ = RGBColor[
    0.006286717021438926, 0.006286717021438926, 
     0.006286717021438926], $CellContext`grados$$ = {1, 
    1}, $CellContext`malla$$ = True, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`grados$$], {1, 1}}, {1, 1}, {14, 7}}, {
      Hold[
       Row[{
         Manipulate`Place[1], 
         Dynamic[
          Floor[$CellContext`grados$$]]}, 
        Spacer[10]]], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[$CellContext`color$$], 
      RGBColor[
      0.8549019607843137, 0.6470588235294118, 0.12549019607843137`]}, {
      Hold[$CellContext`malla$$], {False, True}}, {
      Hold[
       Row[{
         Manipulate`Place[2], 
         Manipulate`Place[3]}, 
        Spacer[10]]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`grados$11416$$ = {0, 
    0}, $CellContext`malla$11417$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     2, StandardForm, 
      "Variables" :> {$CellContext`color$$ = 
        RGBColor[
         0.8549019607843137, 0.6470588235294118, 
          0.12549019607843137`], $CellContext`grados$$ = {1, 
         1}, $CellContext`malla$$ = False}, "ControllerVariables" :> {
        Hold[$CellContext`grados$$, $CellContext`grados$11416$$, {0, 0}], 
        Hold[$CellContext`malla$$, $CellContext`malla$11417$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{$CellContext`color$$, 
         Specularity[White, 50], 
         BSplineSurface[$CellContext`partes, SplineDegree -> 
          Floor[$CellContext`grados$$]], 
         If[$CellContext`malla$$, {Dashed, Blue, 
           Line[$CellContext`partes], 
           Line[
            Transpose[$CellContext`partes]], Red, 
           PointSize[Medium], 
           Map[Point, $CellContext`partes]}, {}]}, Boxed -> False, Lighting -> 
        "Neutral", RotationAction -> "Clip", ViewPoint -> {-2, -2, 2}], 
      "Specifications" :> {{{$CellContext`grados$$, {1, 1}}, {1, 1}, {14, 7}, 
         ImageSize -> {140, 70}, ControlPlacement -> 1}, 
        Row[{
          Manipulate`Place[1], 
          Dynamic[
           Floor[$CellContext`grados$$]]}, 
         Spacer[10]], {$CellContext`color$$, 
         RGBColor[
         0.8549019607843137, 0.6470588235294118, 0.12549019607843137`], 
         ControlPlacement -> 2}, {$CellContext`malla$$, {False, True}, 
         ControlPlacement -> 3}, 
        Row[{
          Manipulate`Place[2], 
          Manipulate`Place[3]}, 
         Spacer[10]]}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {267., 272.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>($CellContext`partes = {
        Part[$CellContext`S, 
         Span[1, 15]], 
        Part[$CellContext`S, 
         Span[16, 30]], 
        Part[$CellContext`S, 
         Span[31, 45]], 
        Part[$CellContext`S, 
         Span[46, 60]], 
        Part[$CellContext`S, 
         Span[61, 75]], 
        Part[$CellContext`S, 
         Span[76, 90]], 
        Part[$CellContext`S, 
         Span[91, 105]], 
        Part[$CellContext`S, 
         Span[106, 120]], 
        Part[$CellContext`S, 
         Span[121, 135]]}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.498072087515173*^9, 3.4980721923441687`*^9, 3.4980724565142784`*^9, 
   3.4980729255531063`*^9, 3.4980750325116167`*^9, 3.4980758752978215`*^9, 
   3.498077019317256*^9, 3.4980770601915936`*^9, 3.4980794484171925`*^9, 
   3.4980794805570307`*^9, 3.4980795470028315`*^9, 3.498079581461802*^9, 
   3.498079851737261*^9, 3.4980798867142615`*^9, 3.4980799732122087`*^9, 
   3.4982321947533064`*^9, {3.4982328076399965`*^9, 3.4982328220076213`*^9}, {
   3.4982330117999563`*^9, 3.49823303676*^9}, 3.4982331281449614`*^9, 
   3.498233189094268*^9, 3.498233812346563*^9, 3.4982340030880976`*^9, 
   3.4982347046213303`*^9, 3.4982347447758007`*^9, {3.498235463625063*^9, 
   3.4982354878051057`*^9}, 3.4982359206590657`*^9, 3.4982361122898026`*^9, 
   3.498236331594988*^9, 3.4982454550168467`*^9, 3.498308631652143*^9, 
   3.4983108701125712`*^9, 3.498311266587268*^9, 3.498317716426942*^9, 
   3.498317798358286*^9, 3.5005545060391407`*^9, 3.5005546815394487`*^9, 
   3.5005547928456445`*^9, 3.5005549493295193`*^9, 3.5005586923402643`*^9, 
   3.5418536497693434`*^9, 3.541853679986596*^9, {3.5418538565729656`*^9, 
   3.5418538854486165`*^9}, 3.6127936591104517`*^9, {3.6127940311767325`*^9, 
   3.6127940902321105`*^9}, {3.6127941205678453`*^9, 3.6127941695586476`*^9}}]
}, Open  ]]
},
WindowSize->{701, 819},
WindowMargins->{{5, Automatic}, {Automatic, 16}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 11670, 299, 892, "Input"],
Cell[CellGroupData[{
Cell[12252, 323, 235, 4, 31, "Input"],
Cell[12490, 329, 699, 11, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13226, 345, 5210, 120, 352, "Input"],
Cell[18439, 467, 5317, 114, 589, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)