(* 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[     38278,       1005]
NotebookOptionsPosition[     19519,        651]
NotebookOutlinePosition[     36255,        951]
CellTagsIndexPosition[     36212,        948]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
TAREA 6\.aa:
C\[AAcute]lculo diferencial e integral\
\>", "Title",
 CellChangeTimes->{
  3.427778666641778*^9, {3.467914451796875*^9, 3.467914464328125*^9}}],

Cell[TextData[{
 "Ejercicio 1\.ba. Se considera la funci\[OAcute]n : f(x)=",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"1", "-", 
     RowBox[{"Exp", "[", 
      RowBox[{"x", "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}]}], "]"}]}]], "."}]],
  CellChangeTimes->{{3.46764812421875*^9, 3.467648192765625*^9}, {
   3.467648231078125*^9, 3.46764830290625*^9}}],
 " Estudiar la existencia de los l\[IAcute]mites en x=0 y en x=1."
}], "Text",
 CellChangeTimes->{{3.467648359625*^9, 3.467648410015625*^9}, {
  3.467914380828125*^9, 3.46791441475*^9}, {3.467914475125*^9, 
  3.46791448109375*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305536234375*^9}],

Cell[TextData[{
 "Ejercicio 2 \.ba.- Calcular los siguientes l\[IAcute]mites:\n\t1) ",
 Cell[BoxData[
  FormBox[
   UnderscriptBox["lim", 
    RowBox[{"x", "\[RightArrow]", "\[Infinity]"}]], TraditionalForm]]],
 " ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"sen", "(", 
       FractionBox["1", "x"], ")"}], "+", 
      RowBox[{"cos", "(", 
       FractionBox["1", "x"], ")"}]}], ")"}], "x"], TraditionalForm]]],
 "\n\t2) ",
 Cell[BoxData[
  FormBox[
   UnderscriptBox["lim", 
    RowBox[{"x", "\[RightArrow]", "0"}]], TraditionalForm]]],
 " ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     RowBox[{"cos", "(", 
      RowBox[{"x", "\[CenterDot]", " ", 
       SuperscriptBox["e", "x"]}], ")"}], "-", 
     RowBox[{"cos", "(", 
      RowBox[{"x", "\[CenterDot]", " ", 
       SuperscriptBox["e", 
        RowBox[{"-", "x"}]]}], ")"}]}], 
    SuperscriptBox["x", "3"]], TraditionalForm]]],
 "\n\t3)  ",
 Cell[BoxData[
  FormBox[
   UnderscriptBox["lim", 
    RowBox[{"x", "\[RightArrow]", "\[Infinity]"}]], TraditionalForm]]],
 " ",
 Cell[BoxData[
  FractionBox[
   RowBox[{
    RadicalBox["x", "5"], "+", 
    RadicalBox["x", "4"], "+", 
    RadicalBox["x", "3"]}], 
   RadicalBox[
    RowBox[{
     RowBox[{"2", "x"}], "+", "1"}], "3"]]],
  CellChangeTimes->{{3.467687267265625*^9, 3.467687367140625*^9}}],
 "\n\t4) ",
 Cell[BoxData[
  FormBox[
   UnderscriptBox["lim", 
    RowBox[{"x", "\[RightArrow]", "a"}]], TraditionalForm]]],
 " ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"4", "-", 
      FractionBox[
       RowBox[{"3", "x"}], "a"]}], ")"}], 
    RowBox[{"tg", "(", 
     FractionBox["\[Pi]x", 
      RowBox[{"2", "a"}]], ")"}]], TraditionalForm]]],
 " "
}], "Text",
 CellChangeTimes->{{3.46791450353125*^9, 3.4679148143125*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305543*^9}],

Cell[TextData[{
 "Ejercicio 3\.ba.- Estudiar la continuidad de las siguientes funciones :\n\
f(x) =",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Piecewise]", "\[NoBreak]", GridBox[{
      {
       SuperscriptBox["xe", 
        RowBox[{"1", "/", "x"}]], 
       RowBox[{"x", "\[NotEqual]", "0"}]},
      {"0", 
       RowBox[{"x", "=", "0"}]}
     }]}], TraditionalForm]]],
 "\nf(x) = ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Piecewise]", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        SuperscriptBox["e", 
         RowBox[{"1", "/", "x"}]], 
        RowBox[{"sin", "(", 
         RowBox[{"\[Pi]", "/", "x"}], ")"}]}], 
       RowBox[{"x", "\[NotEqual]", "0"}]},
      {"0", 
       RowBox[{"x", "=", "0"}]}
     }]}], TraditionalForm]]],
 "\nf(x) = ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Piecewise]", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        SuperscriptBox["x", "a"], 
        RowBox[{"sin", "(", 
         RowBox[{"1", "/", "x"}], ")"}]}], 
       RowBox[{"x", "\[NotEqual]", "0"}]},
      {"0", 
       RowBox[{"x", "=", "0"}]}
     }]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.46769056125*^9, 3.4676905839375*^9}, {
  3.46769065909375*^9, 3.467690853796875*^9}, {3.4679148240625*^9, 
  3.4679148280625*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.4723055590625*^9}],

Cell[TextData[{
 "Ejercicio 4\.ba.- Estudiar la derivabilidad en su campo de \
definici\[OAcute]n de las siguientes funciones :\nf(x) = ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", 
    RowBox[{"-", 
     RowBox[{"|", "x", "|"}]}]], TraditionalForm]]],
 " \nf(x) = ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"|", "x", "|"}], ")"}], 
    RowBox[{"1", "/", "2"}]], TraditionalForm]]],
 "\nf(x) = ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Piecewise]", "\[NoBreak]", GridBox[{
      {
       SuperscriptBox["e", 
        FractionBox[
         RowBox[{"-", "1"}], 
         RowBox[{"1", "-", 
          SuperscriptBox["x", "2"]}]]], 
       RowBox[{"|", "x", "|", 
        RowBox[{"<", "1"}]}]},
      {"9", 
       RowBox[{"|", "x", "|", 
        RowBox[{"\[GreaterEqual]", " ", "1"}]}]}
     }]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.46769098178125*^9, 3.46769124471875*^9}, {
  3.467914831859375*^9, 3.467914836140625*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305587359375*^9}],

Cell[TextData[{
 "Ejercicio 5\.ba.- Calcular las derivadas de las siguientes funciones :\n\t1\
\.ba.- arctg",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{"x", "-", "1"}]], TraditionalForm]]],
 "-arcsin",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    FractionBox[
     RowBox[{"x", "-", "1"}], "x"]], TraditionalForm]]],
 "\n\t2\.ba.- ",
 Cell[BoxData[
  FormBox[
   RowBox[{"log", "(", 
    FractionBox[
     RowBox[{
      SqrtBox[
       RowBox[{"1", "+", "x"}]], "+", 
      SqrtBox[
       RowBox[{"1", "-", "x"}]]}], 
     RowBox[{
      SqrtBox[
       RowBox[{"1", "+", "x"}]], "-", 
      SqrtBox[
       RowBox[{"1", "-", "x"}]]}]], ")"}], TraditionalForm]]],
 "\n\t3\.ba.- ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"arctgx", "+", "arcsinx"}], ")"}], "n"], TraditionalForm]]],
 "\n\t4\.ba.- ",
 Cell[BoxData[
  FormBox[
   RadicalBox[
    FractionBox[
     RowBox[{"1", "+", "tghx"}], 
     RowBox[{"1", "-", "tghx"}]], "4"], TraditionalForm]]],
 "\n\t5\.ba.- ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["cos", "n"], "(", "x", ")"}], 
    RowBox[{"cos", "(", "nx", ")"}]}], TraditionalForm]]],
 "   , n\[Element]",
 "\[DoubleStruckCapitalN]"
}], "Text",
 CellChangeTimes->{{3.467691265171875*^9, 3.4676915789375*^9}, {
  3.467691843625*^9, 3.467691843625*^9}, {3.46791484*^9, 
  3.4679148444375*^9}, {3.46791490053125*^9, 3.467914904390625*^9}}],

Cell["1 \.ba.- ", "Text",
 CellChangeTimes->{{3.46867625053125*^9, 3.4686762535*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.4723055933125*^9}],

Cell["2 \.ba.- ", "Text",
 CellChangeTimes->{{3.46867625053125*^9, 3.4686762535*^9}, 3.4718458373125*^9}
  ],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305595609375*^9}],

Cell["3 \.ba.- ", "Text",
 CellChangeTimes->{{3.46867625053125*^9, 3.4686762535*^9}, 3.4718458373125*^9,
    3.471845994875*^9}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305597671875*^9}],

Cell["4 \.ba.- ", "Text",
 CellChangeTimes->{{3.46867625053125*^9, 3.4686762535*^9}, 3.4718458373125*^9,
    3.471846126390625*^9}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305600234375*^9}],

Cell["5 \.ba.- ", "Text",
 CellChangeTimes->{{3.46867625053125*^9, 3.4686762535*^9}, 3.4718458373125*^9,
    3.471846216234375*^9}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.47230560309375*^9}],

Cell[TextData[{
 "Ejercicio 6\.ba.- Calcular los siguientes l\[IAcute]mites mediante la regla \
de L' Hopital:\n\t1) ",
 Cell[BoxData[
  FormBox[
   UnderscriptBox["lim", 
    RowBox[{"x", "\[RightArrow]", 
     RowBox[{"\[Pi]", "/", "2"}]}]], TraditionalForm]]],
 "(\[Pi]-2x)tgx\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"2", ")"}], 
    RowBox[{
     UnderscriptBox["lim", 
      RowBox[{"x", "\[RightArrow]", "0"}]], 
     FractionBox[
      RowBox[{
       RowBox[{"log", "(", 
        RowBox[{"1", "+", "x"}], ")"}], "-", "x"}], 
      RowBox[{"1", "-", 
       SqrtBox[
        RowBox[{"1", "-", " ", 
         SuperscriptBox["x", "2"]}]]}]]}]}], TraditionalForm]]],
 "\n\t3) ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox["lim", 
     RowBox[{"x", "\[RightArrow]", "0"}]], 
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["sen", "2"], "x"}]], "-", 
      FractionBox["1", 
       RowBox[{"1", "-", "cosx"}]]}], ")"}]}], TraditionalForm]]],
 "\n\t4) ",
 Cell[BoxData[
  FormBox[
   UnderscriptBox["lim", 
    RowBox[{"x", "\[RightArrow]", "\[Infinity]"}]], TraditionalForm]]],
 " ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      FractionBox["2", "\[Pi]"], "arctgx"}], ")"}], "x"], TraditionalForm]]],
 "\t"
}], "Text",
 CellChangeTimes->{{3.467912697203125*^9, 3.46791269959375*^9}, {
   3.4679128036875*^9, 3.467913196296875*^9}, {3.46791324946875*^9, 
   3.467913266609375*^9}, {3.467914848796875*^9, 3.4679148536875*^9}, 
   3.46791491203125*^9}],

Cell["\<\
Con el comando Limit podemos calcular directamente el valor del \
l\[IAcute]mite. En primer lugar aplicaremos el comando Limit a la funci\
\[OAcute]n dada para pasar despu\[EAcute]s a aplicar L' Hopital\
\>", "Text",
 CellChangeTimes->{{3.472283136933854*^9, 3.4722832136697025`*^9}}],

Cell["1)", "Text",
 CellChangeTimes->{{3.4722837243658094`*^9, 3.472283725412698*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305609125*^9}],

Cell["2)", "Text",
 CellChangeTimes->{{3.4722837243658094`*^9, 3.472283725412698*^9}, {
  3.472283851836191*^9, 3.4722838519455676`*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305612984375*^9}],

Cell["3)", "Text",
 CellChangeTimes->{{3.4722837243658094`*^9, 3.472283725412698*^9}, {
  3.472283851836191*^9, 3.4722838519455676`*^9}, {3.472283942462351*^9, 
  3.472283943524865*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.4723056170625*^9}],

Cell["\<\

 4)\
\>", "Text",
 CellChangeTimes->{
  3.46791491378125*^9, {3.4722828105213375`*^9, 3.4722828116932344`*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.47230563003125*^9}],

Cell[TextData[{
 "Ejercicio 7\.ba.- Un canal abierto de fondo horizontal y cuyas paredes \
tienen  una inclinaci\[OAcute]n de 45\.ba ha de tener una secci\[OAcute]n de \
12 ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["m", "2"], TraditionalForm]]],
 ". Determinar las dimensiones de la secci\[OAcute]n que hacen m\[IAcute]nimo \
el per\[IAcute]metro que se encuentra en contacto con el fluido. "
}], "Text",
 CellChangeTimes->{{3.467913349234375*^9, 3.467913486875*^9}, {
  3.467914857703125*^9, 3.467914862109375*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.47230565375*^9}],

Cell[TextData[{
 "Ejercicio 8\.ba.- Determinar un polinomio P(x) tal que P(0)=P(1)=0 y ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "1"], 
    RowBox[{
     RowBox[{"P", "(", "x", ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]]],
 "=1"
}], "Text",
 CellChangeTimes->{{3.467913593171875*^9, 3.467913650046875*^9}, {
  3.467914865671875*^9, 3.467914870375*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305660421875*^9}],

Cell[TextData[{
 "Ejercicio 9\.ba.- Calcular las siguientes integrales :\n\t1) ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "2"], 
    RowBox[{
     FractionBox[
      SuperscriptBox["x", "2"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", " ", 
         SuperscriptBox["x", "2"]}], ")"}], 
       RowBox[{"3", "/", "2"}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]]],
 "\n\t2)",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{"-", "3"}], "3"], 
    RowBox[{"|", 
     RowBox[{
      RowBox[{"x", "(", 
       RowBox[{"x", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"x", "+", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"x", "-", "2"}], ")"}]}], "|", 
     RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.467913748703125*^9, 3.467913940625*^9}, {
  3.46791487375*^9, 3.467914877140625*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305666328125*^9}],

Cell[TextData[{
 "Ejercicio 10\.ba.- Calcular el volumen de la figura engendrada por la \
curva:\n\t\t ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    FractionBox[
     SuperscriptBox["x", "2"], "2"]}], TraditionalForm]]],
 "\ncon x ",
 "\[Element][1,2]"
}], "Text",
 CellChangeTimes->{{3.46791407478125*^9, 3.467914253578125*^9}, {
  3.467914880296875*^9, 3.467914884890625*^9}, {3.4721480065*^9, 
  3.472148011390625*^9}, {3.472148058140625*^9, 3.4721480610625*^9}, {
  3.47214817775*^9, 3.4721482203125*^9}, {3.47214830340625*^9, 
  3.472148317359375*^9}, {3.472148445015625*^9, 3.4721485074375*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305669859375*^9}],

Cell[TextData[{
 "Ejercicio 11 \.ba.- Calcular el \[AAcute]rea de la regi\[OAcute]n del plano \
comprendida entre la hip\[EAcute]rbola de ecuaci\[OAcute]n :\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"\t", 
    RowBox[{
     FractionBox[
      SuperscriptBox["x", "2"], 
      SuperscriptBox["a", "2"]], "-"}]}], TraditionalForm]]],
 Cell[BoxData[
  FormBox[
   FractionBox[
    SuperscriptBox["y", "2"], 
    SuperscriptBox["b", "2"]], TraditionalForm]]],
 "=1\ny la cuerda de ecuaci\[OAcute]n x=h, con h>a."
}], "Text",
 CellChangeTimes->{{3.467914947609375*^9, 3.467915039109375*^9}, {
  3.47214728365625*^9, 3.47214728365625*^9}}],

Cell["\<\
En este caso no podemos hacer la representaci\[OAcute]n gr\[AAcute]fica ya \
que la curva viene dada en funci\[OAcute]n de un par\[AAcute]metro : a y la \
cuerda en funci\[OAcute]n de otro : h. Sin embargo podemos tomar dos valores \
concretos para tener una idea de la representaci\[OAcute]n gr\[AAcute]fica \
del \[AAcute]rea pedida, por ejemplo a=2, b=4 y h=4. Posteriormente se \
resuelve de forma general.\
\>", "Text",
 CellChangeTimes->{{3.472105347875*^9, 3.47210546378125*^9}, {
  3.47214733296875*^9, 3.472147342296875*^9}, {3.4723057075*^9, 
  3.472305719328125*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.47230568221875*^9}],

Cell[TextData[{
 "Ejercicio 12 \.ba.- Calcular el \[AAcute]rea de la regi\[OAcute]n del plano \
acotada por la curva de ecuaci\[OAcute]n :\n\t\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{
     SuperscriptBox["x", "3"], "-", "x"}]}], TraditionalForm]]],
 " \ny su tangente en el punto de abscisa x=1."
}], "Text",
 CellChangeTimes->{{3.46791506575*^9, 3.467915142390625*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305735171875*^9}],

Cell[TextData[{
 "Ejercicio 13 \.ba.- Calcular el \[AAcute]rea de la regi\[OAcute]n del plano \
comprendida entre el eje OX y cada una de las siguientes curvas de \
ecuaciones, representando gr\[AAcute]ficamente las curvas previamente :\n\ta) \
",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["y", "2"], " ", "=", " ", 
    RowBox[{
     RowBox[{"4", 
      SuperscriptBox["x", "2"]}], "-", 
     SuperscriptBox["x", "4"], " "}]}], TraditionalForm]]],
 "   ,  y \[GreaterEqual] 0\n\tb) y= sen(2x)  ,  0\[LessEqual] x \
\[LessEqual]4",
 "\[Pi] ."
}], "Text",
 CellChangeTimes->{{3.4679151575625*^9, 3.46791532846875*^9}, {
  3.47210424284375*^9, 3.47210425903125*^9}}],

Cell["a)", "Text",
 CellChangeTimes->{{3.4723057563125*^9, 3.472305757453125*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.47230574846875*^9}],

Cell["b)", "Text",
 CellChangeTimes->{{3.472104605203125*^9, 3.472104606109375*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.47230577459375*^9}],

Cell[TextData[{
 "Ejercicio 14 \.ba.- Calcular la longitud de las siguientes curvas planas :\n\
\t1) El arco de la par\[AAcute]bola y = ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "2"], TraditionalForm]]],
 " comprendido entre los puntos (0,0) y (1,1)\n\t2) El arco de la cicloide de \
ecuaciones param\[EAcute]tricas : ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Piecewise]", GridBox[{
      {
       RowBox[{
        RowBox[{"x", "(", "t", ")"}], " ", "=", " ", 
        RowBox[{"r", "(", 
         RowBox[{"t", "-", "sent"}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"y", "(", "t", ")"}], " ", "=", " ", 
        RowBox[{"r", "(", 
         RowBox[{"1", "-", "cost"}], ")"}]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.84]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}]}], TraditionalForm]]],
 "  ,  t\[Element][0, 2\[Pi])"
}], "Text",
 CellChangeTimes->{{3.4679153635*^9, 3.467915528046875*^9}, {
  3.472103734796875*^9, 3.4721037395*^9}, {3.472103852265625*^9, 
  3.47210385434375*^9}}],

Cell["1) ", "Text",
 CellChangeTimes->{{3.472102664171875*^9, 3.472102774515625*^9}, 
   3.472103783203125*^9, {3.47210384384375*^9, 3.472103844796875*^9}, 
   3.472305785921875*^9}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305797421875*^9}],

Cell["2) ", "Text",
 CellChangeTimes->{{3.472102942484375*^9, 3.47210304421875*^9}, 
   3.4721037891875*^9, {3.472103830796875*^9, 3.472103831796875*^9}, 
   3.47230579509375*^9}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305799890625*^9}],

Cell[TextData[{
 "Ejercicio 15 \.ba.- Representar las superficies : ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["S", "1"], TraditionalForm]]],
 ": 4",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "2"], TraditionalForm]]],
 " +",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["y", "2"], TraditionalForm]]],
 "- 4 = 0, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["S", "2"], TraditionalForm]]],
 ": y+z-4 = 0.\nCalcular el volumen limitado por las superficies anteriores y \
",
 Cell[BoxData[
  FormBox[
   SubscriptBox["S", "3"], TraditionalForm]]],
 ": z = 0."
}], "Text",
 CellChangeTimes->{{3.467962709265625*^9, 3.46796286734375*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.472305812421875*^9}]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1672, 933},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
DockedCells->FEPrivate`If[
  FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], 
  FEPrivate`Join[{
    Cell[
     BoxData[
      GraphicsBox[
       RasterBox[CompressedData["
1:eJztXXdYFNfaz3O/f+79vudek3vTLKBIEaQpTRC7BgtqLCTWGxNjYsFookE0
NoxRY6oFuyIiWJCO9N4WWHrZpSy7VKkiBo2iy+5+Z/fsHg4zO7NLUZJ4fs/I
Mztz5j3v+87u+zvnPe+Meuu3L1v/P6+99poJ+Gf+t9dek+8LBwiBIHvu/Byd
ManLXMoSE+ExkQoZX+8W641rHWPUaDZZav+BZOoa6ZRVkhkftXrdrC3lg60h
JuGh667nVjNkJjbd4ywfjhzbcP7iQFUiICAgIHiVkHfVO0dHL0tnDFd/XNGH
q/g3bgrz84VFRVmnznAMrGRjDCSjxz6xmCFx3iFZtl/ickC6ZK/U6YtnS7Y/
c/6s23Zpt8V73aaOz8wdn+pbto4yqI2NG2qDCAgICAj+HIBTHn5GRrGhMV9H
r0hXr1hnbKGuQaGlQ6G9U5TJTJ7ZFJneaNnoMd0GZl1rjos3X+7efEn8uafk
k1OSlUfFi78RO30htl/5fOK8p2ZTmnXHNxlbVWVzh9osAgICAoI/ByANVVVU
5DpMKRs1pnS0fumYcTwDywIjh6IJixMcVrWNt5HTkL5Bt/7YR9OXi9yv1+7y
urfLu/1rryfbLnR/7iledUQ8b7vYcUXn+Ol1uhZ1EycLCwuH2iwCAgICgj8B
0AIQ2C9Yv0E4ckyNvmmh8YSs2U6chUvTlq9JcFnDc5pR9t4M/rw5/IULeDMd
M9Z9lrTVLWXLDs7Wr3O3uhVt3sn79Ev+2k2lLmvy5r+fY2JXZjO9qrh4qC0j
ICAgIPijQ4RB/vGAR72OUaHlpIqzhxsCL9QHXq4N9q4L8mryP9d051xT4IWm
oEtNARca75yvC79eG+Fbd9e3/q5vQ4TvvfDrjaE+94KuNgRfFvmdips8jZ+W
wd51VXl5bkCgIENDMwICAgKCvyoA9VSroOShbw7UjbXJ/+KzxqCrLSHhTZFJ
dbEZnRFRv4eGPQqP7IyK64yN74yL7wwP74iOackrbCkobs0taOXmt3FyHyRx
QPv6oIi68IhSz3NRK9bnht2tEgjwHiv4/JykpOgTJyI/3cBdubru7Pnq0tIh
sp7g1YUgNFTg4zPUWhAQvLpA0x9IQDUKyJlIKCxfuqbOYm7RQbfG8KC2pLzG
tIKWhHTeuXPtsUlPsoseZxU+zsp/xC14lMF9lJjSmc7pKK1oLxO2lQjasoub
knKqYzKqIlOrEzOrwuJDxtpfe2fMRSs7/wWLvZe5/DR/wS7HyTuNx/365lvh
7wxvWLuuLi1tqD1B8CoCcBDvtdfAxtfRAfsvqJcMMs0n+OsiIiLC1dX12LFj
PB6vfxJwGgIEVKuAqKKi6OB3FaZzBDPW5Xnsro2+W59e0JKc2ZGUGjppcqrD
NN4V7/a84of5JR25RR25hR0cLjjVEZ/Qnpp2PzWtOT6pNjqxKiy2PCymMjaJ
Fxrx7bsjdg1745dhbx/4xz+//Pv/nvjXsKi33m4Zrts9fkLzZa/B9QkBQZ9Q
sXFj+cqVciYaNqwqOXnQ5efl5Z09e3bQxRIQ/EEARlmBgYF79uzx8tI2mPMz
OKnXrqVcv56flFReVARmPVUCQSWPV87llsbF8QKDC095Zi9akW04JcveJXOB
a46He/XdoObY5N/iku9ncFPmL7ynY1ww0iB5xWp+cFhTblFrTmEzh9uSmtma
kNwaGdUYGlIXHCgM8C+/daPI93pxSFDW7ZtfvPPumRHjfN/R8X9nROUYPamh
kUxPr9vSuj787gv1DwGBlgBkBJiozNFx0CUTGiJ4FeDn5weYSMvGIj6//nYQ
d8VHZ/QND41491drK087uyAb23Rru6yJtlwbB96kqeWWtgJzxxqrWS02Mwr3
bK2/49MWGduWlH4vIztunnOVgUW1qW2Fnmmq/vikbV/yI2JqOTm1yZy6+OS6
qJi64BBRQED5rZulfr55167mBfjzbt3Ot5xeZ+oonjhdamYvNZkg0x/XbTmh
PibmhbpF4OMzWDn/qvx8ubQXlrQhGHKAeRDMzg36OhGhIYJXAWBO5Orq2tf8
c11ymuiLr/JMLTMMxsUYjeNaTOh0mCab5CiznCgzMpTpj5YZjJWNG5/n7iq6
ff1eVEJdQpowNSNyrnOpkWWpmS3PzK7c1DZ/jEnkRLuUI9/zoxOq4lMFEdGV
AcEVN2+X+PkW+Hhnel3m3bnTGp0iXXdIsnibZOpKqe08qYmtxNT6XkiI9qoC
FoAhAmxgHx3nDxumNnTAkS3awEd0Cgx38UEv5SOA8pJdu9CRyiNHUEegJTiF
LoH7PNXbk4AaFH3o0nCxcjlmZnjX8ryQykCYKULKI6PAcRAzgQJgQ8wIdvg6
OmiNA16LhKMYW3n6NHIpaAPtApeUL1gAdYZaIT/TL4S9QK1AG+hAIAfYCCRA
reiug5pQtIJqg66VvjUzg47quQoY6OMD+gI74CDdh7gyFFA0x/0DRIFNfit7
X4hucS85DI6ie4YJ7DQEfrkRERG91ODxduzYAY6jI3CcCY6Av2Afbwwkg+Og
PUzLA1EeHh6uCoCdhIQE1MWvv/4KW1IyJyzC1Z6CCwGoTWBgIPgI/lLsojTT
pke6KyjScOADb2AR9BiwEe8XmA+9ARqDffAX6QncBVwHrwLHQfCER6CLgBzQ
HuyjxQ7cz3gX4MJjx45BlcAOCsJ085F1LB2xeADvCBiFOxyZCQAkI53BFw/I
RzayZMyABNwK+LXRaAjlFOgOfKR8hbSEKC1d9MmGBxNtH9o6dE6Z0WUzWapn
IBujIzMykppPlJnZZbtvLb95XRQZL4hNKk9MCXCal2ZokWlmw1Fsmea2mSZW
EToGd2bNST3pWRoaURYUzPP1LfT25l65zLl0oTImqS456/mus5JPjkmct0om
L5WZTW07ea5PSqLwjkd4nJvwOI/CNdjB9+HZftAQCqTgYE/MHDANocVxxDuU
xkq+UwRtxA7gI+iazr9IMcgIqH2PFTBiq4RDw6EhUCCQIFQ3KaBcqKQShflw
XynEzAxpRXEd1EpOKL3dBfrq4XeFXWBDCoB+oWKwjVofQquZMmm45koOGjZM
LlNHB9Ec/XZQRjVMjqJ7hgkaaYgSw8EPGQYE/COIIaAZ+Iv/0mEEAx/BKRQe
QeQJVADswJYo4oGD4AjORCzCmU5B3sEVUBvf8GZ069T2qJbOcGmBGFC4hhwE
nYCirlDF5iCoIquRfHAKhGV0FZAAgjxkJXgEXIWPBCh+RqaBO4u6QFeBg2rN
R72zdMTkAdgRZB8AyGKoJXAFOILMhF82aD4kengKXM7iW9wKXDiLIZRTSI7a
XjRCJBLVnvR8OnWWxH6a2G6m2Hy6ZKy+TE9XamErnfQex8211Ne7IjyaFxFb
Eh3nPXvOTT3jAGPLO9gWaGJ5W8/44sjRN5a5ZF64WOzrV3DFK/X8uTy/myVx
KRXxaR37Lki2npKs2C+dtqZr6QZh78ptjUDhC//V49yEIgPiJkowR9G+rzSE
ekFkAQLmoNAQOgsb95RsqRbKkTTUEYh7yo5UjSm0AjlLnkJUNaDwFFSbfhZ2
B3coYZ8S6nGTYaeAjCinqOarpk6UflF71BdMfiodrnACOAKjvVquofifAlxz
5cxFNaVCrI2bD52P98XuKHYSROgTDcHoAQe38AgMWagBDDVwnxIH6DMd1AUe
HHAJLMKZTlGCMIj8au1ioiGWHjXSkNpTFIEwigpVY3VICugjlA+ZC51il0Pv
HX0Et5WyGgI+wnvNEr1ZOmLyAL0jaAK9JfInaAAu0Vi6BhrAoQt+EE6c4bXa
0xAwBE5y+10vV1NT0xAdI35vocx8Sre9i3juFrGVg1RXR2ppn+a2pcDnSmnQ
3cKQiILwyDMzZv48Su+0vvGp3hs44qlv/PNw3eO6erfWr088eTL70qXcsOiC
qITSmKR7Hhefu52RfHxEOuPj5tt9SMdBKH/vivhPCXrKpJAqPleePo0HMSEt
edJnGqLNWQYrKYd6h2fxMIhsRNLoasCZCOJfJU8NG8ZkCN4AJzgmrZgk99gY
GorP1yDUzrmQKIpWTCQCnYCSXXBmh5uGQHc4Dlxz+BVCk+KeSZ8qq6nMkSqm
PD1jA1ZH0X2uFn2iIRhG0A8c5tvxgAlTHzD5g8cBekumLpAEFuEsp2CncELB
MvRVSxzs5vSDhugCUUuW+AlYnn5HoNvV9shEQ/RMFwz+7L2zdMTkAXpHTAsx
cKoFbdSmbg1OSClfG3hT4OVa0hCkM8j1THlFjaiurq6trW1MSeuetkhq94Fk
+Tf3N53onDpfNtaQ47al9Oa1irsxpZExJVFx52fNPqVrcM5wvNrtvJHpWX2T
X94aecnCMvG7wwXR8fyk9PL4tFqPC4/czkjXH5HM21yf3OdnKGBwoyymKJdO
0GRHwTtqIxse+vqRlFPS34IFMGQNIg3BnCGM0vBaFAahObBreDlaWFEu4igI
F8VAOv9SKACnD7QPJFM2IX3m1Xt6ghslXxtSjQ2UzsEsQh+RKGHvCRQTDSHe
AUaBLtAMV22JCIuHe5kcGopmeXTfImWA5tCTymkjq6Nw+WrvL4T2NASnQjCL
whRLhQxxgJ62QpkrcBzP9gtV6X0W4RpPwaEvy7hXrQR2c/pBQ/SVC5hAU3sJ
e0cwgAOB9FkAEw3R5WhDgiwdMXlA7XFKwEfrO8hGmKnDQR+lwPtI7xGNMbSk
IXgjgEXgKqYJskZAGgJzoubgMKn1YsnSPR2up0p2nm6fPDvX3VUQ4Fcdm1QZ
l1yekHzDaV6YoXmkmbWazdQ6wnhCtIVV1jLn9N2uCefPlscnizg51enZdR7n
H7if7t70o2zu9par/n3SDUUhtAOPwzAiXxZX7MDB84ugIbhIzcNqHgaLhpRU
oojSMPbK47lCCAzUyikPNgGEjIxvKHnF671iTqcAHpaYogjpkYanxWCVAk0y
Pi3FV/DRpmZyiuaSmFZ06sQ9A3vBN7VVCihHCtkBMhe6cfiFeDkE2np8q1AM
X0iCN5HFURT5TNCehuiJr77SEB1CBhrShmtYTtFlUvByaIh+vN80JMRKHXDv
0UUNkIZYOuorDaGDcLUIr5FQ+2WgC2FKq8JVNnZD8FOgPaIttdlCjRCJRDUq
gP0n63ZIF2x/4npC4Ha26Kufcr/5QhToVx+fIkpKr0zJCJo3P8PQgmtum22m
2FQ7WSbW3PFWJU6zit03JZ79pTAyuja3qCY9q5bDrePkNHx74b7bSfHG49LF
X4udNtRmq0kdMEGZrVIELjxhguI/mhYJBy8ph6JTL00U8wh8jX6ANIR0AztQ
FM6V4KByXoBRiRBVj/v4KCeJlBo2VV9q5kdw/K9ITFHK8HpmHD4+TLxDqdnD
c3HQFnAthXfoBQ94JZ583Ye5/AC5VO7z3ik1HPQRgnwapeIFiuZKmYr7SMko
4glSlKBjd5Sw90IhE7SkITQVEmI/cO2TcpTKLngWDnQp8QdKAO0HkpQDYUeb
2RA+FAeNB5iUw6XBS6DV/UjKsSSsgGQgFmarKDIpH/uXlGPpqH80BJ1ASYXR
6x7VjhxcFZMmeo+Q19gNwU+hry76dtFlsgO9QgHS0MN9x6VzPn/+2Y+NOz0L
913IOexeH3SjKTGtPjVTmJYZNde5zMCy3NS23NRG8de23MS63Hhi9RRHkeva
TM/jKX5+uf53mnLym3MLmzNzmrLzmji5Tfs9H+4+I/74kGSJm8x+RdfSTTV5
BVqq1ysJphqyKlNYihiCNxisEgVY2QWPgFiKD9dhSKSklWDcQzFWOVNADMg8
WkbrIDgNoQkRZUlIrgler06pYeu9Yo56RykyPGbCs6g+nBJdlVUBZmZKpyku
lPsEy7z1kC+WklJTaNebaNRWKSDJOPAjOPVTgN8CNEhAHEq5EJdJKSbEaQip
LSdlVkeh7liYVEsaYqo96FOJAmXtGw50XWklCoiwBlKiwM5E9NkZDE3sJQrs
BQ84oBC4JKF2xZ8lfjIt3+NHWPyMPmosUUDUQAnOTB31j4bU1sZTdENJM7oQ
bWhIrSHID5AH0USsT69TgMDf5CN/m1yloOv9jyWz1ks+PvJw55nyPWdzj+1r
DLvdnpjakp5dz8mOn+dcrW9RPd5GvplYVxtNqJ9o27h2SdEvHlkB/qVhEcVh
d0uDQ1q4+fdzi9oz8zpyCjoyczu2He3c9pN4nYdk/hbptLUyc6dn81fXJado
oyF9mAp++2hHiC3uw/ZaFmzDJ0eUz4Mo6njxbBXKfcHROAzmeME2bIxioLIS
WCVN/tHMDAlheUUMsg6nISE2IcKDHqxwpmiCFnRQaTFavOjRR0cH5bgQK6G1
NiQN+RB9xC9U2qXqpWdZ6sgR+QM1K1fKdVA1BgEfTvHQ0zqwjFzIUIkntwtK
UNRsCxVUqEy1oQemsFIHBDQDRXM3pUDFFJIyXQVdyO0FXwygmMo58JTa0Qvk
LxZHoXU0egU4gjY0hE+FhL3jHlOFMyzTRXMEdBVcEYCn0HNDrqpC7sEt2GZZ
IWJKo7EXbMMlCfqzJ0zShLSCbWis2ksoE09U/wwLtgGQHLzymcnPQk0F2zsU
wAuzoaOYOhL2l4agOej+wpuO13jDXtRSvDZJOSZDmOgYTQm1B+XVpk3B4RLz
Gd3TVkpWHOjaerLB3bPghwMtkYG/JSQ9SM9uzs5NmK+kIZHRxBozq6YlcysO
78i84cNPSL6XlnEvLr4kNLwoOLiVW9CWU3ifk9uRV/woq+Dxp/t+X7VL+sEe
yexPpPbLpDaLZTYLxI7zqry8NWqI103BsTSMJHjQoER7cBZ/YkXt46t4ETge
glBMQ2tP8mdFe69T9KSnsKE46hE+HYk+sj9XgsIdVAzFUjQhoozSKasb8qCN
TVjwDfgKVSmgSI7P8oSKxB3uKDRrQwmrXnadPt3LLqzqTK1/8Ae7cOail89R
1rwQxeNLTiyvHqXogxKDeDEGquvAO8JNpnAZZdbD5Cg0BEIlEHT1tKEhGChQ
PKeEULXPe8IjCCj6oZYocMFQP1iPr+K6wSVpcJa+9s1CHGrFwnkNCKFQT+2l
CbGlFkhhrljBNt6MMqpHDxmBWA31R4pBaoC3g+5nbR5fhTcCPjPrij1KTPEA
3pFwAGtDoF9Y5A+LH5CNUDdKLzi0KVFgMgRPTuLfcHqmVCNwGqrl8Z/OXSIx
myK2X/h8weautYfuu/5c9P3+1siAR3HxD1Mz7mflRM53Lh5rxjOxEs6eLnD7
jHv1XEF4pCghpTktozklpSk2tvJueEFQUHN6dktmXms6tz2n6GFWwf3/7nm8
dPvTmRu6HVaJrRdLzGdLLabLLGdKJ0xt3/xlDSeTST16YS0Kvzw886MqpcOv
VfsyH41JOYqEHk1UKzKMqioa4OvjkMKY2kOggjeKRUIsXNMnAjDA4sJ71b9t
3Ag1wSuK4doNntPDzdRsF94Xg11QDt4F/sgqTJohTdRm4egaMjXGQbmJFOqh
DwbotxId6aU83ck0R+GiKF8ABI00BDkIpwD2qNvXZkzBrX8YXN0Gt9NB7/fF
yVSLftNQv6GxYJsFg+sWxEQPP/28e7zVM3OHbus5YkeXZ4u2ta7en394T1PY
rYfR0Q/iE9tSUv3nOCVbTCj5fFXOmR/ygoOFsQn1iUnC2PjqmNjGmJjau3cr
Q0Jy7vjfi0u6l8Spi0tv4uS1cwoebvjuscuurtmfPrVdKLZ4T2LuJB0/VWZs
JzOeJH9SyXJK20cbqgODhBUVFN3QyBYdQUkh/CDLEjYFfaKhl4CelwaoFiPQ
KWQ7ngViB+XRKnqt9csHvZxMbcwfCChrVWi9RllF0PsZ25cPjTQERpj4VEio
9Q+c5YU5lC4IDQ0EWvp54Hj5NKTx8VUWvAhXV2zcLB5rLDaxemxo0TbOttl8
Vp3DysIFm7MPudcGXGsJCWoJC2uMiAxZOC/tm23ZftfKgsOEkVGCiKiy8IjS
sPDCkJDioKDSO3cKb91Mu36tKiRSEJtWGZVSk5zdmpLzdN13Txdu67JZJjZ9
76nt3IdrtzzYe7j1hGfLxSvNV661el7o2Pvtgx27m05Rf614il6lpzLm4JVa
9GZMUEtDlFK0lww8TUQZbOOntKESuEZPf6eExveevVAAAoLrWRSt2NOVfZJP
yf7hXw+1dX0vExppyJX2Ji7tf+DalCQNIQ3Ra9sG0qk20l7QzAX3M1q+H3S8
fBoSanqZj8YLB64AhIjHa3XdLh6l1zVKr11Hv1HXQDTWtGb8ZJ7V/Jx5GzkH
vxb4Xay+4Su6dav61i3Ozz8WXvctvu1f4u8vCAgUBAYW37qVfv168rVrYMu4
ejXzypXYC+dLfG/zwxL4QbG1iZltabnPluwQO6zsdNnUeupiTXYOoyqCKsoB
EGHQ0rayiSLPQzkIV8O1CWsUGkIpIxCmhmrADF/dqXyjWu8JgnyJSnWqf+/3
1vK9Zy8ZUKvBcjhcBcM3+GgtPEt5WevLh0YaokyFhIM9/B4SGqK/jLR/L71k
ksbk0peQQBsSGqK/mkDtwf6B5dWmLBhEVzf53nruOKtzlF7NOLOaibaVVrZC
m0k8Q9N8HeNsI/u0mavjN3/Gu+lVfsOv3P92xR1/fsCdquBgUWxcbSa3Pr+o
LqegIT2zNia+MiiIc8Mv9qpXrNeVqCuXMq/5VIbHC6OSH1TV1kXEPp+8+vfl
m0T8skHReSCAMR9P36F6hiEcML840O39IwAuu7yc/zgDkdRQ/T8dQ/4fPQxi
vBK+xAxV//AHV48dg3unXjQGxdWi4mKB5/nwj9cH7tmTHxhUmZMjKCkRlpYK
i4srk5MLz5xNfn9VmPX84ElTOD//IORmN1VWtolEbXX1bU3N91va2lsVW3PL
g8bmjsam+w2NrbUNzVXCmoqKSj6/qozfJqp+9OBhe01N8axlT0xmNt64Myi2
ExD8uTDkNERA8IdFVWlpEZdLP44qFspzc8Ns5/jpG9wwNoqYM6dw3cYS96NZ
e49x9hzJ3Hck99BxsHEPHM13P8jf8U32VveUDV8lfOYWu37nTecl+6c6Rs9b
kL9kdan17DaL6Y8MrOvDyH+0SvAqAtYGD7UWBAR/MiAmCpjl9Mub/z45YozA
dq5k44nn+7ybvrsuOOIjOHpN+IOv6Mfrwh98ag9d/H37MeHGw/lr92Ws+zZ9
1cGi5bt8jO02vvF6pZFZnfGEJkPz+7oGNX43h9osAgICAoI/E8rS0o6OHO7x
+ptn39HvmuwiWbZXsun0E7eLD/Z6tRz0bvDwrj10tcbjSsO+i+0bj7as+7Z6
xYHyNYf5y3bxnT6vmvxhpJ55/CjdyrGGVXpG9Tp6Fd8dHWqDCAgICAj+PBAI
kn788cib7+7/v9dTdMdJHN6XzNkgWbZb8slPkq1nn3198fHuK527L993v/Rg
57nfPj32ePV3vy37pn353ntzNtZMcqk0nV5mZJU1Wi911Oji0XplI3XLFi0V
VlEL4QgICAgICNSiSiDITUw8NFLH45+vPzOxlk6cKZm0WDJtjWzWZtnifdI1
30s2/Nq98WT3phPP133/fOWhrkV7njq5ds5c/8hycfPUJTV2s/ijDXOGj4ob
PjJ+pA5nhG6OoXGFuqUoAgICAgICtcgIDV3/93+kDB8pNZkgHW8nM50msXPu
ctny++aDzz50k87cIlm0W7LIXeK8s9tp29MpH/9us/ypyezWo7+IioqFYAsK
Llm5OmXM2MC33ol8e0TcuyNzvTW/QY6AgICAgADiyv59B//1L5m+vsxgnNTM
utP1q7pU5ZPLovKKhx4nZXYrpFP+K53yUbfd8qcWzl2G03775AuKEF5sbMJS
lytv/Mf/P29HOi8ieTkCAgICAm1QJRBstbYSDB8p09Pres+pITqG3qbzKw+Z
zWLpxLkSG+cnxtO6jB3r45PUSuNcunRGR/fCsDdq1ckhICAgICCgICs5+ei/
/y3T0ev48isRwzvuqotKxLOWyl+UbT7tmZH9o8WrhAIBk8Di5OTjxkZx06eT
CREBAQEBgUb8vGVz24jRTZ7n2Js13wyQjbeXmTmKDa3aftXw/kwel/uzpYXo
0uXBU5OAgICA4C+IHA7n0tvD205d0Kbx74s/lBlNkBpb18TFa2zMz8uLcd1a
nZM7YB0JCAgICP6yuPT1zta9h7Vs3HLJS2Zs02ntWFFYqE378sLCCkJDBAQE
BAQMyMrI4B//Rfv2osrKbodZ9xcseXEqERAQEBC8OqgoLu5rFcGTlRu4HwzZ
/25JQEBAQPBHw/8DCp03+A==
        "], {{0, 0}, {557, 41}}, {0, 255}, ColorFunction -> RGBColor], 
       ImageSize -> {557, 41}, PlotRange -> {{0, 557}, {0, 41}}]], 
     "DockedCell", Background -> GrayLevel[0.866682], 
     CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> 
     RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, 
     CellFrameMargins -> 0, ContextMenu -> None, 
     ComponentwiseContextMenu -> {}], 
    Cell[
     BoxData[
      GridBox[{{
         GraphicsBox[
          RasterBox[CompressedData["
1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w
aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0
vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI
xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml
O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd
oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L
pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt
1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n
IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E
SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K
miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1
EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk
JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt
VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA
9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ
GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1
xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa
aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9
Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1
ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw
zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c
POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+
trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm
p4X4X/wDFcRtOg==
           "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], 
          ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], 
         ButtonBox[
          GraphicsBox[
           RasterBox[CompressedData["
1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh
UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs
73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB
Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS
cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp
K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon
fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT
JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY=

            "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], 
           ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], 
          ButtonData -> {
            URL["http://store.wolfram.com/view/app/playerpro/"], None}, 
          ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], 
         GraphicsBox[
          
          RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, {
           171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 
           137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 
           137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{
           138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 
           169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 
           169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {
           171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 
           14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, 
          PlotRange -> {{0, 2}, {0, 14}}], 
         ButtonBox[
          GraphicsBox[
           RasterBox[CompressedData["
1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq
zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O
KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe
ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB
GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi
GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6
SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4
tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO
MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt
0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e
Xf4ArlmHrg==
            "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], 
           ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], 
          ButtonData -> {
            URL[
            "http://www.wolfram.com/solutions/interactivedeployment/\
licensingterms.html"], None}, ButtonNote -> 
          "http://www.wolfram.com/solutions/interactivedeployment/\
licensingterms.html"]}}, ColumnsEqual -> False, 
       GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], 
     "DockedCell", Background -> GrayLevel[0.494118], 
     CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> 
     RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, 
     CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, 
     ComponentwiseContextMenu -> {}, 
     ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
          NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, 
       Evaluator -> None, Method -> "Queued"}]}, 
   FEPrivate`If[
    FEPrivate`SameQ[
     FrontEnd`CurrentValue[
      FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], {
    Inherited}, {}]], Inherited],
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 167, 5, 300, "Title"],
Cell[737, 29, 626, 16, 82, "Text"],
Cell[1366, 47, 87, 1, 127, "Input"],
Cell[1456, 50, 1838, 68, 330, "Text"],
Cell[3297, 120, 81, 1, 127, "Input"],
Cell[3381, 123, 1251, 43, 289, "Text"],
Cell[4635, 168, 85, 1, 127, "Input"],
Cell[4723, 171, 982, 33, 246, "Text"],
Cell[5708, 206, 87, 1, 127, "Input"],
Cell[5798, 209, 1423, 53, 381, "Text"],
Cell[7224, 264, 85, 1, 61, "Text"],
Cell[7312, 267, 85, 1, 127, "Input"],
Cell[7400, 270, 108, 2, 61, "Text"],
Cell[7511, 274, 87, 1, 127, "Input"],
Cell[7601, 277, 128, 2, 61, "Text"],
Cell[7732, 281, 87, 1, 127, "Input"],
Cell[7822, 284, 131, 2, 61, "Text"],
Cell[7956, 288, 87, 1, 127, "Input"],
Cell[8046, 291, 131, 2, 61, "Text"],
Cell[8180, 295, 86, 1, 127, "Input"],
Cell[8269, 298, 1566, 54, 292, "Text"],
Cell[9838, 354, 294, 5, 99, "Text"],
Cell[10135, 361, 86, 1, 61, "Text"],
Cell[10224, 364, 84, 1, 127, "Input"],
Cell[10311, 367, 137, 2, 61, "Text"],
Cell[10451, 371, 87, 1, 127, "Input"],
Cell[10541, 374, 186, 3, 61, "Text"],
Cell[10730, 379, 85, 1, 127, "Input"],
Cell[10818, 382, 122, 5, 99, "Text"],
Cell[10943, 389, 86, 1, 127, "Input"],
Cell[11032, 392, 521, 11, 102, "Text"],
Cell[11556, 405, 83, 1, 127, "Input"],
Cell[11642, 408, 419, 12, 72, "Text"],
Cell[12064, 422, 87, 1, 127, "Input"],
Cell[12154, 425, 977, 32, 189, "Text"],
Cell[13134, 459, 87, 1, 127, "Input"],
Cell[13224, 462, 610, 15, 163, "Text"],
Cell[13837, 479, 87, 1, 127, "Input"],
Cell[13927, 482, 634, 18, 166, "Text"],
Cell[14564, 502, 588, 10, 99, "Text"],
Cell[15155, 514, 86, 1, 127, "Input"],
Cell[15244, 517, 394, 10, 138, "Text"],
Cell[15641, 529, 87, 1, 127, "Input"],
Cell[15731, 532, 679, 18, 138, "Text"],
Cell[16413, 552, 82, 1, 61, "Text"],
Cell[16498, 555, 86, 1, 127, "Input"],
Cell[16587, 558, 84, 1, 61, "Text"],
Cell[16674, 561, 86, 1, 127, "Input"],
Cell[16763, 564, 1460, 39, 172, "Text"],
Cell[18226, 605, 182, 3, 61, "Text"],
Cell[18411, 610, 87, 1, 127, "Input"],
Cell[18501, 613, 179, 3, 61, "Text"],
Cell[18683, 618, 87, 1, 127, "Input"],
Cell[18773, 621, 640, 24, 102, "Text"],
Cell[19416, 647, 87, 1, 127, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature QupoFG5MGqslZCgCz8zYwgCL *)