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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     61906,       1834]
NotebookOptionsPosition[     54378,       1559]
NotebookOutlinePosition[     54754,       1575]
CellTagsIndexPosition[     54711,       1572]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " b\[AAcute]sico - 15/3/2016"
}], "Title",
 CellChangeTimes->{{3.667057205075306*^9, 3.6670572148253193`*^9}}],

Cell[CellGroupData[{

Cell["Vetores e Matrizes", "Section",
 CellChangeTimes->{{3.667057232325344*^9, 3.667057235825349*^9}}],

Cell[CellGroupData[{

Cell["Vetores s\[ATilde]o listas de um \[UAcute]nico n\[IAcute]vel", \
"Subsection",
 CellChangeTimes->{{3.6670572548853755`*^9, 3.667057262745386*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"Range", "[", 
   RowBox[{"11", ",", "14"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.667057534705767*^9, 3.667057541495777*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}]], "Output",
 CellChangeTimes->{3.6670575534657936`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "A maioria das fun\[CCedilla]\[OTilde]es do ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " gera listas quando aplicadas a listas"
}], "Subsection",
 CellChangeTimes->{{3.6670572740354023`*^9, 3.6670572979254355`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"b", "=", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Pi", "/", "5"}], ",", 
      RowBox[{"Pi", "/", "4"}], ",", 
      RowBox[{"Pi", "/", "7"}], ",", 
      RowBox[{"Pi", "/", "9"}]}], "}"}], "]"}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.6670577628660865`*^9, 3.6670578372061906`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.5877852522924731`", ",", "0.7071067811865475`", ",", 
   "0.4338837391175581`", ",", "0.3420201433256687`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.667057780966112*^9, {3.667057819096165*^9, 3.667057838796193*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "-", "10"}]], "Input",
 CellChangeTimes->{{3.667057864736229*^9, 3.6670578665662317`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.667057868866235*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"10", "a"}]], "Input",
 CellChangeTimes->{{3.667057890136265*^9, 3.6670578921562676`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"110", ",", "120", ",", "130", ",", "140"}], "}"}]], "Output",
 CellChangeTimes->{3.6670578929962687`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["a"], "Input",
 CellChangeTimes->{3.667057898296276*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}]], "Output",
 CellChangeTimes->{3.667057898786277*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Extraindo elementos da lista", "Subsection",
 CellChangeTimes->{{3.6670573071154485`*^9, 3.6670573111454544`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", "=", 
  RowBox[{"Range", "[", 
   RowBox[{"11", ",", "111", ",", "10"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.66705792214631*^9, 3.6670579311463223`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "11", ",", "21", ",", "31", ",", "41", ",", "51", ",", "61", ",", "71", ",",
    "81", ",", "91", ",", "101", ",", "111"}], "}"}]], "Output",
 CellChangeTimes->{3.6670579318163233`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.667057938756333*^9, 3.6670579420263376`*^9}}],

Cell[BoxData["21"], "Output",
 CellChangeTimes->{3.6670579429863386`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", "[", 
  RowBox[{"[", 
   RowBox[{"-", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.667057946726344*^9, 3.667057950066349*^9}}],

Cell[BoxData["101"], "Output",
 CellChangeTimes->{3.6670579506363497`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", "[", 
  RowBox[{"[", 
   RowBox[{"2", ";;", "4"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6670579658063707`*^9, 3.667057971746379*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"21", ",", "31", ",", "41"}], "}"}]], "Output",
 CellChangeTimes->{3.667057978306388*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"c", "[", 
   RowBox[{"[", 
    RowBox[{"5", ";;", "8"}], "]"}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.6670580048664255`*^9, 3.667058014746439*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.66705801554644*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["c"], "Input",
 CellChangeTimes->{3.667058027366457*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "11", ",", "21", ",", "31", ",", "41", ",", "51", ",", "61", ",", "71", ",",
    "81", ",", "91", ",", "101", ",", "111"}], "}"}]], "Output",
 CellChangeTimes->{3.6670580282564583`*^9}]
}, Open  ]],

Cell["c\[AAcute]lculo da mediana de um conjunto de valores", "Text",
 CellChangeTimes->{{3.6670580478564854`*^9, 3.6670580573564987`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d", "=", 
  RowBox[{"RandomReal", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "100"}], "}"}], ",", "11"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.667058064436509*^9, 3.667058084846537*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "25.114765834316216`", ",", "62.92365421621983`", ",", "77.43073403818073`",
    ",", "17.77208994093759`", ",", "71.10735788705983`", ",", 
   "11.086211488855355`", ",", "2.3531196200658115`", ",", 
   "94.33566781648344`", ",", "8.31861738256299`", ",", "42.847240334422`", 
   ",", "58.93135537957312`"}], "}"}]], "Output",
 CellChangeTimes->{3.667058090546545*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ds", "=", 
  RowBox[{"Sort", "[", "d", "]"}]}]], "Input",
 CellChangeTimes->{{3.667058111736575*^9, 3.667058141516617*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.3531196200658115`", ",", "8.31861738256299`", ",", "11.086211488855355`",
    ",", "17.77208994093759`", ",", "25.114765834316216`", ",", 
   "42.847240334422`", ",", "58.93135537957312`", ",", "62.92365421621983`", 
   ",", "71.10735788705983`", ",", "77.43073403818073`", ",", 
   "94.33566781648344`"}], "}"}]], "Output",
 CellChangeTimes->{{3.667058115946581*^9, 3.667058142856619*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ds", "[", 
  RowBox[{"[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Length", "[", "ds", "]"}], "+", "1"}], ")"}], "/", "2"}], 
   "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6670581491966276`*^9, 3.6670581728466606`*^9}}],

Cell[BoxData["42.847240334422`"], "Output",
 CellChangeTimes->{{3.667058155426636*^9, 3.667058173986662*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sort", "[", "d", "]"}], "[", 
  RowBox[{"[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Length", "[", "d", "]"}], "+", "1"}], ")"}], "/", "2"}], "]"}],
   "]"}]], "Input",
 CellChangeTimes->{3.6670581974466953`*^9, 3.6670582873768206`*^9}],

Cell[BoxData["42.847240334422`"], "Output",
 CellChangeTimes->{3.6670581993266973`*^9, 3.6670582882868223`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["somando os elementos de uma lista", "Subsubsection",
 CellChangeTimes->{{3.6670583313768826`*^9, 3.6670583357468886`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "[", "d", "]"}]], "Input",
 CellChangeTimes->{{3.6670583435268993`*^9, 3.667058346606904*^9}}],

Cell[BoxData["472.2208139386769`"], "Output",
 CellChangeTimes->{3.6670583488469067`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "[", " ", 
  RowBox[{"d", "[", 
   RowBox[{"[", 
    RowBox[{"2", ";;", 
     RowBox[{"-", "2"}]}], "]"}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.6670583796869497`*^9, 3.6670583889869633`*^9}}],

Cell[BoxData["388.17469272478763`"], "Output",
 CellChangeTimes->{3.667058403926984*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "+", 
  RowBox[{"First", "[", "d", "]"}], "+", 
  RowBox[{"Last", "[", "d", "]"}]}]], "Input",
 CellChangeTimes->{{3.6670584205570073`*^9, 3.6670584291870193`*^9}}],

Cell[BoxData["472.220813938677`"], "Output",
 CellChangeTimes->{3.6670584303970213`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"e", "=", 
  RowBox[{"RandomReal", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "100"}], "}"}], ",", "10"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6670585292171593`*^9, 3.667058537517171*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "49.872104341786695`", ",", "15.564308674373166`", ",", 
   "49.48124056966802`", ",", "78.29631194860275`", ",", "29.49526125860632`",
    ",", "30.92744966212865`", ",", "73.42420018001499`", ",", 
   "0.19095901492929102`", ",", "68.37519567858331`", ",", 
   "79.64284484555782`"}], "}"}]], "Output",
 CellChangeTimes->{3.6670585383371725`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Total", "[", 
   RowBox[{
    RowBox[{"Sort", "[", "e", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"5", ";;", "6"}], "]"}], "]"}], " ", "]"}], "/", "2"}]], "Input",
 CellChangeTimes->{{3.667058548977187*^9, 3.6670585776172276`*^9}}],

Cell[BoxData["49.676672455727356`"], "Output",
 CellChangeTimes->{3.667058578587229*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Median", "[", "e", "]"}]], "Input",
 CellChangeTimes->{{3.667058693407389*^9, 3.6670586959573927`*^9}}],

Cell[BoxData["49.676672455727356`"], "Output",
 CellChangeTimes->{3.6670586964473934`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sort", "[", "e", "]"}]], "Input",
 CellChangeTimes->{{3.6670585843472366`*^9, 3.66705858684724*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.19095901492929102`", ",", "15.564308674373166`", ",", 
   "29.49526125860632`", ",", "30.92744966212865`", ",", "49.48124056966802`",
    ",", "49.872104341786695`", ",", "68.37519567858331`", ",", 
   "73.42420018001499`", ",", "78.29631194860275`", ",", 
   "79.64284484555782`"}], "}"}]], "Output",
 CellChangeTimes->{3.6670585873972406`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["mais uma opera\[CCedilla]\[ATilde]o: m\[OAcute]dulo do vetor", \
"Subsubsection",
 CellChangeTimes->{{3.6670587271274366`*^9, 3.6670587363574495`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u", "=", 
  RowBox[{"{", 
   RowBox[{"u1", ",", "u2", ",", "u3"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.6670587414374566`*^9, 3.6670587531474733`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"u1", ",", "u2", ",", "u3"}], "}"}]], "Output",
 CellChangeTimes->{3.667058754687475*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Norm", "[", "u", "]"}]], "Input",
 CellChangeTimes->{{3.6670587602674828`*^9, 3.667058771317498*^9}}],

Cell[BoxData[
 SqrtBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Abs", "[", "u1", "]"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"Abs", "[", "u2", "]"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"Abs", "[", "u3", "]"}], "2"]}]]], "Output",
 CellChangeTimes->{3.667058771897499*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Norm", "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.6670587787575088`*^9, 3.667058781737513*^9}}],

Cell[BoxData[
 RowBox[{"3", " ", 
  SqrtBox["70"]}]], "Output",
 CellChangeTimes->{3.667058782447514*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Matrizes s\[ATilde]o listas de listas", "Subsection",
 CellChangeTimes->{{3.667057326035475*^9, 3.667057337785492*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"m11", ",", "m12"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"m21", ",", "m22"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.667058826737576*^9, 3.6670588440276003`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"m11", ",", "m12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"m21", ",", "m22"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6670588450176015`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "m", "]"}]], "Input",
 CellChangeTimes->{{3.6670588513876104`*^9, 3.66705885813762*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"m11", "m12"},
     {"m21", "m22"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.667058858697621*^9}]
}, Open  ]],

Cell["aten\[CCedilla]\[ATilde]o, h\[AAcute] mais de uma multiplica\[CCedilla]\
\[ATilde]o de listas", "Text",
 CellChangeTimes->{{3.6670588897976646`*^9, 3.6670589024876823`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v", "=", 
  RowBox[{"{", 
   RowBox[{"v1", ",", "v2"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.6670589086776905`*^9, 3.667058913537698*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"v1", ",", "v2"}], "}"}]], "Output",
 CellChangeTimes->{3.6670589142776985`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m", " ", "v"}]], "Input",
 CellChangeTimes->{{3.6670589180477037`*^9, 3.667058920487707*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m11", " ", "v1"}], ",", 
     RowBox[{"m12", " ", "v1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m21", " ", "v2"}], ",", 
     RowBox[{"m22", " ", "v2"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.667058921367708*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m", ".", "v"}]], "Input",
 CellChangeTimes->{{3.6670589400177345`*^9, 3.6670589425677385`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"m11", " ", "v1"}], "+", 
    RowBox[{"m12", " ", "v2"}]}], ",", 
   RowBox[{
    RowBox[{"m21", " ", "v1"}], "+", 
    RowBox[{"m22", " ", "v2"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.66705894366774*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v", ".", "m", "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Mathematica", " ", "n\[ATilde]o", " ", "distingue", " ", "vetor", " ", 
     "linha", " ", "de", " ", "vetor", " ", 
     RowBox[{"coluna", ".", " ", "Estranho"}], " ", "no", " ", 
     "come\[CCedilla]o"}], ",", " ", 
    RowBox[{"mas", " ", "conveniente"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.66705899419781*^9, 3.667058995257812*^9}, {
  3.667059097567955*^9, 3.6670591412580166`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"m11", " ", "v1"}], "+", 
    RowBox[{"m21", " ", "v2"}]}], ",", 
   RowBox[{
    RowBox[{"m12", " ", "v1"}], "+", 
    RowBox[{"m22", " ", "v2"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.6670589962978134`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v", ".", "m", ".", "v", "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"isto", " ", "\[EAcute]", " ", "um", " ", "escalar"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.6670590603979034`*^9, 3.6670590702179165`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"v1", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m11", " ", "v1"}], "+", 
     RowBox[{"m21", " ", "v2"}]}], ")"}]}], "+", 
  RowBox[{"v2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m12", " ", "v1"}], "+", 
     RowBox[{"m22", " ", "v2"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.6670590707579174`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Det", "[", "m", "]"}]], "Input",
 CellChangeTimes->{{3.6670591593380413`*^9, 3.667059161868045*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "m12"}], " ", "m21"}], "+", 
  RowBox[{"m11", " ", "m22"}]}]], "Output",
 CellChangeTimes->{3.6670591626580467`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IdentityMatrix", "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.667059182968075*^9, 3.6670591878380814`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.667059188758083*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.667059191918087*^9, 3.6670591965180936`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.667059197278095*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DiagonalMatrix", "[", "u", "]"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "u", " ", "\[EAcute]", " ", "a", " ", "lista", " ", "que", " ", 
    "dar\[AAcute]", " ", "a", " ", "diagonal", " ", "principal"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.6670592026281023`*^9, 3.6670592099281125`*^9}, {
  3.667059245018162*^9, 3.6670592565481777`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"u1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "u2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "u3"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.667059210468113*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.6670592137081175`*^9, 3.6670592202281265`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"u1", "0", "0"},
     {"0", "u2", "0"},
     {"0", "0", "u3"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.6670592211481285`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Diagonal", "[", "m", "]"}]], "Input",
 CellChangeTimes->{{3.667059274618203*^9, 3.667059277998208*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"m11", ",", "m22"}], "}"}]], "Output",
 CellChangeTimes->{3.6670592785582085`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Matrizes retangulares", "Subsection",
 CellChangeTimes->{{3.667057351445511*^9, 3.6670573713655386`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"retangular", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"10", "i"}], "+", "j"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6670592986582365`*^9, 3.667059343308299*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"11", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21", ",", "22"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31", ",", "32"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41", ",", "42"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6670593450783014`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"xx", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"10", "i"}], "+", "j"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "3"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.66705947284848*^9, 3.667059487878502*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"11", ",", "12", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21", ",", "22", ",", "23"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.667059488178502*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "xx", "]"}]], "Input",
 CellChangeTimes->{{3.667059492528508*^9, 3.667059494778511*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.667059495778513*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.667059348728307*^9, 3.667059352478312*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"11", "12"},
     {"21", "22"},
     {"31", "32"},
     {"41", "42"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.667059353278313*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Length", "[", "retangular", "]"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "isto", " ", "d\[AAcute]", " ", "o", " ", "n\[UAcute]mero", " ", "de", " ",
     "linhas"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.667059430898422*^9, 3.6670594655584707`*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.667059443018439*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "retangular", "]"}]], "Input",
 CellChangeTimes->{{3.667059521428549*^9, 3.667059527278557*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.6670595278785577`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Length", "[", " ", 
   RowBox[{"retangular", "[", 
    RowBox[{"[", "1", "]"}], "]"}], " ", "]"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "isto", " ", "d\[AAcute]", " ", "o", " ", "n\[UAcute]mero", " ", "de", " ",
     "colunas"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.6670596583987403`*^9, 3.6670596835387754`*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.6670596655287504`*^9}]
}, Open  ]],

Cell["extrair uma coluna n\[ATilde]o \[EAcute] evidente - mas fica familiar", \
"Text",
 CellChangeTimes->{{3.667059557448599*^9, 3.6670595692486153`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"retangular", "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6670595729386206`*^9, 3.667059588918643*^9}, {
  3.667059624368693*^9, 3.667059624628693*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"12", ",", "22", ",", "32", ",", "42"}], "}"}]], "Output",
 CellChangeTimes->{3.667059589468644*^9, 3.6670596249686937`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", " ", 
  RowBox[{"retangular", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.6670596319387035`*^9, 3.6670596397987146`*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.667059640318715*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m", ".", "retangular"}]], "Input",
 CellChangeTimes->{{3.6670596974187946`*^9, 3.667059702288802*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"m11", ",", "m12"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"m21", ",", "m22"}], "}"}]}], "}"}], ".", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"11", ",", "12"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"21", ",", "22"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"31", ",", "32"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"41", ",", "42"}], "}"}]}], "}"}]}]], "Output",
 CellChangeTimes->{3.6670597042188044`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MessageList", "[", "55", "]"}]], "Input",
 CellChangeTimes->{{3.6670597488588667`*^9, 3.667059766888892*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  TagBox[
   StyleBox[
    RowBox[{"Dot", "::", "dotsh"}], "MessageName"],
   HoldForm], "}"}]], "Output",
 CellChangeTimes->{3.6670597679488935`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"retangular", ".", "m"}]], "Input",
 CellChangeTimes->{{3.6670597814789124`*^9, 3.6670597849089174`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"11", " ", "m11"}], "+", 
      RowBox[{"12", " ", "m21"}]}], ",", 
     RowBox[{
      RowBox[{"11", " ", "m12"}], "+", 
      RowBox[{"12", " ", "m22"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"21", " ", "m11"}], "+", 
      RowBox[{"22", " ", "m21"}]}], ",", 
     RowBox[{
      RowBox[{"21", " ", "m12"}], "+", 
      RowBox[{"22", " ", "m22"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"31", " ", "m11"}], "+", 
      RowBox[{"32", " ", "m21"}]}], ",", 
     RowBox[{
      RowBox[{"31", " ", "m12"}], "+", 
      RowBox[{"32", " ", "m22"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"41", " ", "m11"}], "+", 
      RowBox[{"42", " ", "m21"}]}], ",", 
     RowBox[{
      RowBox[{"41", " ", "m12"}], "+", 
      RowBox[{"42", " ", "m22"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6670597854889183`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MessageList", "[", "57", "]"}]], "Input",
 CellChangeTimes->{{3.667059789068923*^9, 3.6670597977489357`*^9}}],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.667059798438936*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Transpose", "[", "retangular", "]"}]], "Input",
 CellChangeTimes->{{3.6670598855690584`*^9, 3.6670598984890766`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"11", ",", "21", ",", "31", ",", "41"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "22", ",", "32", ",", "42"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6670598944590707`*^9, 3.6670598990190773`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.667059907399089*^9, 3.6670599105690937`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"11", "21", "31", "41"},
     {"12", "22", "32", "42"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.6670599113190947`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m", ".", 
  RowBox[{"Transpose", "[", "retangular", "]"}]}]], "Input",
 CellChangeTimes->{{3.6670599206291075`*^9, 3.667059954209154*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"11", " ", "m11"}], "+", 
      RowBox[{"12", " ", "m12"}]}], ",", 
     RowBox[{
      RowBox[{"21", " ", "m11"}], "+", 
      RowBox[{"22", " ", "m12"}]}], ",", 
     RowBox[{
      RowBox[{"31", " ", "m11"}], "+", 
      RowBox[{"32", " ", "m12"}]}], ",", 
     RowBox[{
      RowBox[{"41", " ", "m11"}], "+", 
      RowBox[{"42", " ", "m12"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"11", " ", "m21"}], "+", 
      RowBox[{"12", " ", "m22"}]}], ",", 
     RowBox[{
      RowBox[{"21", " ", "m21"}], "+", 
      RowBox[{"22", " ", "m22"}]}], ",", 
     RowBox[{
      RowBox[{"31", " ", "m21"}], "+", 
      RowBox[{"32", " ", "m22"}]}], ",", 
     RowBox[{
      RowBox[{"41", " ", "m21"}], "+", 
      RowBox[{"42", " ", "m22"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6670599299191203`*^9, 3.6670599548091555`*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Um desvio pelas fun\[CCedilla]\[OTilde]es de visualiza\[CCedilla]\
\[ATilde]o", "Section",
 CellChangeTimes->{{3.6670600030792227`*^9, 3.66706001545924*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"seno", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "Pi"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.667060023819252*^9, 3.6670600417292767`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwt2Hk0lVvcB3BDcUyFiAZCokQyRAN9HxRpMOWmQUjTVSlD4aquqYlEJGnW
qFwUpUEUIomiInNJpgznEc7wnHPw7vdd71+/9VnrrH2e8/z2/n33Otq+h9x2
S4iJiUmKi4n9X30j++nXksCVYv9ftaZr6WlecMY8R706DVI5beedmpK9UaiQ
J9VIartNZcez5ENQGPZ6m0tqfXBX1r3kCDx46mOcRGpt/IjS9eREWAVvnL2O
1A2Xw8vSkm8iaN6/f1ySbiJ+zuvrqcmPkPMnPzr03CP08aQmbIKLMTl3//Os
vcVYOpbk8iTgPVSH9p0uXvseld83x0jMrcXAsF9rCbsGlK278L5vHfj3Orqb
ZeuwNcBxKH9LIyoyC4x2lzXgtbZBdPG9VrBdxHzWPWmBe5rBnbaD7eAeeoHy
gB+YNbnI7vyeDlQVdW9ZsfcnTpuV5xWf6YSmt/Tuzfq/sNphrc/9U93wz6sP
nPKsE+Wxo3onwnuxXdNrodiCbvSdUyn8kdaHwuPlffF3erAjNDdxKHkA/o+a
bX8N9OK4TplJxHM27MwWe2+26MOi8eNcCb8h+C1qcDrt2Y+K7ZtHtHb9wSLP
c/PvbhyAyQ3/huOHh1H6Q3ChjhrE+EB4fkjYMETT3GTlVw3iw4ozFw4dG8aX
jN48G4dB+Dbddt5xYhh54TJXMjYMIkWlsWJVyjDefE8t2L51ENw42xdyT4fh
X6o3Izh4EAWhapcvjwzj018LRqm7g1jlWrI1P2gEOZXhxV5ibKSc3W8uGToC
8dQ6ylOSjV/lqlNcj46gssnooocUG9HL95UMxIzAQyT+0kGejZK50+brXhxB
wYBxj4I6Gyu5uzjJz0fQVKSVY2LMxtKrrPMBohGIvU4Kqt/GxsIu5/KFp0ah
Uf+mMDqHjUY/w8TdcaOQG1Ba0/uYjVNs1pabCaOYemDzo3VP2GjnlQwoXxrF
bQt1JfkX5PlkzVUEGaNQRens4BI2RMbqO99XjuKD9NLFzV/Z+BTeLrZbgQPh
BYeFcjw2jk4UfrihxMFNwwNdCxk25p+4nNKoysH58vCQtULye865zV+vyUF9
4evZURNsWKaXOZsZc9CYVHGkTppGevmDG+KuHMRqxS2bpk4jSDHQ6kYKB1uv
GCoMWdDoS/gQkJjGwfiJVWf/W0rDV0H3XuQ1Dmpi9HR3L6fhKtugsPMuB1Lp
bfe+WNNYPMn6h/5TDraNLO5OXUWDzWNF537l4N/qJLsyVxr7fqRXlClzoZge
Vpy7j0bHdoEwfzoXUkKNPYsP0NjaunFxxkwuAkoPzM32p+HYJHU5VocLaSqz
Mz2AxvyvB/Y5mXLxVmVeRGAIje53SxUaXbnwCzkm9jyKxs6cWrf+81x4WbVe
/5JKw0u9ItrkIhcjt+VljNPI+tFFeaGXuRj7oWAWe5mGy6ZM5Um3uRC31Hpr
cY2G1XjMl9lPuNCtaa4NuUVDxcnSzamei4QbHefi/qMx9YVRdEoTF8dtuptL
s2jI6ujmNbdxcaXGtoufTUOMq6i8t5uLwk05Jl6PaQxc7/scwePC89XgfYV8
GmWD111zZ/AwVh03NFFE441HShRPg4eS0+oyKm9oFJTE5Vrr8LD+3OO2ecU0
Hl8MVfpgwINFWG6BbSmNa9aunztW8MA0tNnseEfjyLlJripePJzipx82+URD
z2i/S+htHnIPug1rtJLvP/+97/B9HqZylohaiPNGXU8GZfKgMZwtm9ZGw7pw
aYF/Hg8n7xoukf1Bw32dlO6uUvJ5rXlvvv2kEeV3i+fSwUNq0f7rij007D+q
JDt18zA46N2fQyxvcsZwfR8PG5ZYWa/rpZHGP7jDYZiHaXanBo7/ppFz2qrK
WoKP4GaPsKp+Gq33Gm4Y6PAR+kzFWnqIxm2Zdcvm6/Fhn0qVnyT+2//113kG
fLx/X+Ei8YfGiPk9lrYpH4MOlYEcYtmyoCA1Wz7UYiua347QqNXvlle158NL
KDxmOkoj9eyWDOW1fFivcNW5Say9kWpVcOPj0nK7kCAOjaUdCvaTfPk4XpZo
K86jMb46ql18Dx/Zbipj3sRlD0fDJ/z4cJp2uqCQ2Dmw5ZEgkA+OpdbKAD6N
PWIPZ/yJ4uOjy+m9bxgahrtmP2Wf5KPpW8fSKQIafyoSnQZi+Rj6Lq6wjfhY
YkhMTxIfnSGhRWziC5qrBttu8RHypnTluJDGs+rfoRX3+Aio9mOvENFoDk+U
yH3IR//HyKehxFoNzWoncvmYGTkU85vY7mTkbf98Php9bc/NGSPPY6Zn5PGS
jwU3uFkbibMSA20NSvhIK/vH+BlxjbXax2nlfLCrbJM7iYf7Cz3G3vPhuMtX
TmmcxrI1LP/aWj5iS69Qu4g9udm8l3V8tCTkiOKII+9ujL7TyIciM6XmEfE7
sZuXQtr5kOdmPRsh/p2zSsenk49j/3RXKU+Q/bC9L8uxl485x3bxjIkXy523
NBsg7xvzlq0j3vhySensIT726Ogn7SIO2duyXmqUvK/0vyeOEl9RjWqgeWQ9
996YJOKit3q+TUI+ckfuat4jbg+sHiid4CPC7XrNM2JJraDQLEkGGr61qe+I
9T6pSaRKM5hiYn24jnjtsaL4CDkGM/o79rYT+xvsVPObysClqTiwj/h8I+u2
2zQG8r7fkoaJn57KMbRSYzDMmvueT9xg7v583iwGfQfvq4wRCzoYm6lzGBi4
+YROEGsk3azm6zBYlOAy9L+msNqjQ49BwazQiHHiXYN9P6sMGLQo1ukKiU9f
PX8gfxFZL31vO4c409GCd8OUQcxs0zw28SdeS9QZCwYJf8yudBH/uRclH7Sc
gdV//mnNxCru+pe2rWQwafhH1kdiS4mP2qttGTw8e7bhNfHWx0FZi+wZmG4L
VM8hPu6lbqm+lsGIT/Khq8Tp8q9LxJ0YnCygW08Rvy3Yub7flcGH23E+AcTd
f8s01P3FgB24S+BBbFTuPpCxnUHn8+YAbWKXYEFI0g4GwYHhGySJD2unix/d
zWDbJW/qF9kPBcf7pzv5M3hPi/tdJ25bmHTLMpCBg/PbG6HEYs0WhtpHGEw/
8qXPmdjeItpm9BiDB49+lQvI/vTr1K9ui2Rwq6XP/SNxfPLHTRUnGLiJHAXX
ib+y1Q9ciWfgHj/rzDJin4xHqdQ1Bt47fB9vIedDymZ4dkQ6g9z+k0/ViLOb
ze8U3WVQQ0eGfSXnTaBQ8Gh5NoO4UkVqFXHK4bL35q8ZSIr0P8mS87l8irRz
cCmDjtupn5+R8/0zw7E+9x2D4qvSF32IF7V8+rmohkH+H5ZnNpkH722aBPPb
GVyYat2/kMyLgy2zovZ2MqiUC6TLuTRUj3hJ3+9loOre+mQ7se+DX9Pm/mHQ
5hBy/BSZR6IpbEMNCQFMlBJVisg8W9wq4a2kK8CzggtbXtM0vh1Z3eU8X4BO
s8m7zYmPTz2zP8FQAC1nC5MHbBofbBXC5JYIsFd2Qi52kOy3h2pJk+0FUC1f
U21M5m1aiOFbZq8AWy6ZRSl101ipeMhx6QEB5ideur6zi0bXw9yakAABpjL7
jz7ppGHaZtE6EiZA4fdLR9f/olFtZ8MZjBVgaZ9P4s520j+lTfod/wlg77NL
Ua+ZRuBdVfXGRwKodPh4+zaRPLesZ316IoDdu6KCa41knnq59718JYC5fWWq
XAON2Cy37KQqAdoqo7o+f6WhvMbZzKZfAM3Deb1iH2noRqxBuoEQUsG63b0k
Hy8qsxanLhJijTqnubuQ9Pd+hVa8qRB2dGdbxysavdX2EmHLhWiW9Z1S/5L0
e+bqcue1QlQlXpp1m+StxTObdRN+QrhejOR8J3ntOLjcw+uhED0yijqdJP9X
Hrhk9zBbiBvPFyjGkvuBaf+I8WiuEJ49ci8WXqIx83cWK65ACKf4hCX7Ukie
dmoW5FcJ8cTVo68qgcyPVgkNBbYQ+7Z9ddWJIf2q+tDxylSE3oLBhlnkfvNh
rX6NlKUIGa0C07C/Sd5XxrxyXSGClYX9ui97aDyosErpsRPBw1zpacROGuFv
c1ZP+0sE76E6vzeeZL68Sn6wL1QEpZTIqC9OpL+ZWw/OKBThS4nH6jUmJD+C
f691KRYBM46e3G1Mg2Udpn+6TITwuNKrkUYkD2outo9Wi5AZuGrd4wU0Rkdr
3WrbRPheWPWSo00jBg6WpydE8IrWHlFXJnlcZybGsR1D1ZbE2pIhNn6OyyfX
Vo4h6/Zo5L0MNsZL1JtefxyDefBG85332Jh5Ulcr+/MY6BDjKXPusOEuZ5UT
2zSGcbv+JUk32Hintv+D7e8xaP+9YYv3RTYyF1dK5LPGYaDGmXInmo3DvieD
LzuMY+2O4CWV5P4s9W7M3bd8HCuSXSrTWGxM+C+YMP02gb+m93/bvmIQLmWO
uof2iVFPXs45+nn7AFw11tTY9ohRkdeumO3060dh96/B/IPi1OiyYs+ntn04
+lvTc/qgOGXpKExepvobdzx51tNDJCipHmFZXV4PtGQOHZLkSlAJ7fd3eDt3
w0l8ccbBYEkqqvqpEto60eWX4PaPUJKqP9CjYLTkF2rl4jcEhk+idCvr1d5f
/Il5mvqFrEmTqRWLNWe5RP6AwTE5E82zk6mD1GfL0tIWnJiWyNGSkaL0ZbIG
khY0wmHWY6O3SVLUbseVlO/8Onh5BuS7KUlT79vilY9sqoXe73/sfBKkKXm5
Zd38qZXw6NZarTCdRb2SnqHzMK8YbbP3pmaksKgiDzuVn/dzsWmeVVdrKotq
iwy5tsMnF7VGSubKl1mUqu6rz+0zclG68tXnY9dZ1PoMzuaW+Md44DNVwe0+
i5oTZP0zuisHQXefx4ies6hRo6l/so5lQtqQFejawqJOpP0788LDW4g0b3tz
qo1FfVEJs3OffQsCq7wphT9Y1Ae/PE2VxHQMbPDM0utkUWzfASOt3zfw5dDj
HuEAi2J9WxQ2+u8VXHuy2ev+OIt67fbjtE1mElQLjbJbxGQoK+GyZXcTzyOh
TEKkKClDPaZmOcv1JSCqPuvyUWkZ6uLaEzpxEXHYwxOrd1GUoQ5sedgTkBmF
9on6uaeUZSiJNVk3N/T9iy2s/4JeqchQWh2Sqs8jwrF+xl+KejNkqKirKx1O
ZAaiXNvAe9ssGSrlUb3P54h9WGkwkX1eQ4YaiHBalJa5Ay9M60Tlc2SoM6G+
9q8yXWGy4uE6obYMZWxy7v/+H/gfAo9wDA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->
   NCache[{{0, Pi}, {0., 0.9999999707837952}}, {{0, 3.141592653589793}, {0., 
     0.9999999707837952}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6670600361592693`*^9, 3.6670600423392777`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cosseno", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "Pi"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.667060052939293*^9, 3.667060060229303*^9}, {
  3.667060090839346*^9, 3.6670600942793503`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
    LineBox[CompressedData["
1:eJwt13k0Vd0bB3BD7j23CQ0imUsTlaIJPTuUVIaUIalUhiSZSu8bSQnVW+Ii
maIJhUKmuG8bEYlCZEqZE+7dyDUPv/Ou9TtrnXXWZ62z13rWd3/3H1vhtIup
nZCAgACXfv/7CuO5nzs03HZxZ/97CMhLyCvLhhrD/H+KGP+Z3xJs1Mg+CdFb
paWnaDs3UCXirxxActNc7VHarbs/tmezXeDw+/vnB2i/qNMTeJXvAResUl78
on167qr7Aq8uQ9tVm+HvtFeAiOzheC/wqE05WEW7zqMr5Tn7GuxWYmcU0tav
bZfxLroOuYbiyum0n/FM7Z7n+0G02frER7QFWO9TPmf6w4xVm8Yd2seVtgyP
pgaCfox6jQftPO2nmgqJt2Gjp7L3MdoSlov99sf/A+/P5G7ZTbvq7h/xWPZ9
yJku+sSg/eBrukpHSTB82gYp3TMEilsdqy4XhcBA/OmoYtoKk43LHueHgrVj
YtwV2iYUO18jNwy691Vmm9L2Wbr/ZHlmODAtnzavod20MS/hT2oELDl8zujL
NAFK233/rZcP4XO6TUwc7W371/FWJEYCZ9WiMWfaYbZRGnvjo0HfN6NhDm3D
yCvFD9lxsJ+5B6SnCOw6LJX5QD8eInRcJpsn6byO8kXaSuLBfoFrSRRtYYfU
F5eKHkOskYjfIto212UGH+U/hXnz+c96xwmMBo7r/N7xDNq9DKqiaQcF1YVt
yX0GxrcjWAdoc6LvbS/LfA6ZuuoJT8cISGVPXxtMTYSBvYK3tEcJpHEaqzVV
kuDhzwylnyME9r3PUgp4mQQrc25V+tD2rHIuXZ74AmTe5B7I5ROo6W1ZqBef
DAaudUOLhwnclXsX+4D9Gm73Fg46DxDY+ylarWBBGnB80iq7CIEPAZZLNEzT
wF9+yuYY7dLp6kbZ5jRgG9WkAo9AWV+x7VB/OoSXRLb19xEoL315JVIsEw6X
SuU3dhPY7+dwfKFZJui4NIir0i7ftRL5RWbCdukEeZ8uAp+yYkWcFbOgKSPe
XqqTQMXT4GCkng3G573C1dsIVF7zTPhlkQsq5mF3ppsIGGluuW0dkwtJWV5n
VWh/HiFO1a250FdlOGvZSNvZUS3f8S28/c6zSK6nfcyaE+SVByfq6rLVa+l+
bdOp0YjjAOVwcEdTBYHeUcbsbo8CUNUQLXflEJhVMizeFloAB7S5zx3zCSwx
Cb2t+qYAzi0+GmiTRwCS5JZI/SkAf/sVx/bl0v2w3L52wL0Q+nes2SeQSffh
rePhR+5F4J/sqi+eTCDkSkXihFsx2ASssMqNIJCQsMh5IKQY4kJk5ro/oPe3
xnJzd3oxpJybKFwbTqB7XRenerAYtPwiDULZBHY2T1cnuZVAjWRGntE9Ap2a
G6fM3T6A99amrQ43CGyfDjF541oGstCqJudE/+99LoIKLoOdZ71ePXYkoDmp
8+P46zJIvrjNQPEsPd/4HyeKVwYvd1xolLEjoMs3Czzu9BEMv9o4zJyg8+VK
vWPal0Nw1zwjO1MCdi2P11sfq4C+VWSwfBsBe+sr7ulXKsD3iOUp8a0Ezjab
vmVEVUDdmfFBM3UC5xqF9dMbKiDrjuHlxk0EXOvsTjPMK2GaUl1avpaAd+Xa
yDSTz/D1YFzWIWkCH39Y+gkpVcEynw7DySkemFdsXyqoXgWZXObt5gkedL6V
TJzVq4J19qNhb8d4IBDeUD5lXwXaYdVyLsM82H7ActHoyyow8MwQKejjQUKO
xeO+zdVguvCZ+ngjD24Gm+NanRrYIKSnWZ7JA6RzZDLhdC08f9p5YOAMD8Yk
1mzzc6+FqFOW0R6neJDeN+l+8kYtxMevWcA/wQPF8Ke9y57UgmKMl+XQUR4I
9ww13mqrhVvlWuxvxjz4cC8k95xNHcSslsjao8kDw8bPlzac+AYKuy7WYTEe
WLkaDGQdbYBQn7pylWwuvFNYd6Pg+XfQEZiUJA39cOThuqctF1rBaetJkaM/
+0Ba5F/dYPt22GuuNj+0qRcCt5RkFNzqBM20cqe/n/yGPfr7bRICukF3rEPn
vW0PlNweVr55pQfGps2Hqpb+gt57Szg/H/bCZLLEl6CQLjh1Of3+ALsfNhkJ
V54X74SrisVq13J4cHjXYfU/Vu2wYebqiJDjAMQt6N84E9EKpcct/8jbDsIm
sdc7M0paQO2Rc/3Vi0Nwq+Da+fWDjaB3qNAqy/0PrFaNO2Wn+w3WdxmXrA8Y
BifluoTdG2rAXcxN61EYH0ZG65Yf2FgBZ15VmfYFjwDXsVJyij4HyqpOJpef
jILrjZk/BiQHQmX1uC2Px2A4o7hQUDgebBJfP0Ax4zBc6im1OvgRFhA3X92e
PAEZ02N/54TlYgPuTosTLybBXcG2PmhVMbZ9aXVBijMF2jV3JT+yK3DbzHx2
1cdpEPpmKmZpXYMZH6aPnC6ZgbxY79AmiW941nnt7OZvs1Dm+fufIlYTNik2
WOlyTgB5i+pGf3vUgg/J7Pui80sAyd/UupdzoxVzuju4WRcE0YNV2euQQTv2
+i1rLcEVRIV6TkJ9PzrwU+tRbQlPIVTq/8z/vW8Xlme5uAiPCKFp77WZ/w50
YyPBTYkXPITR2UOL0vfq9uAuxyDTvyeF0f1g0WWyD3/jqnl3Dd2uzEHiW0RC
N3B68SrZ1Rxqjgj6nH7hDr+pD6/znqcm+48Iqv/03nNbXT++ufg+X57FQBrT
WXPwYy5+GuHiozuPgc5G1RuPPuPiImkTpv0CBtJV8/dRTeJigZXiUsniDMTV
ivIPfcXF3uqhWhrLGUi9ylB9bz4XXzKL8DNYz0AjDx3b9tRysX1EnLi7IQM9
CaznpczhYX3pNNX3IQxkmr5pfMFJHj644otTYSgDCa451nL/FA+byPBe4HAG
knYs/CFqy8OWcirKnEgG6vF9sn2uIw+fU0qSzXrMQNaL7PV63Hn47vp40cR0
BroUXhlpEMDDNZrBg3eqGehmiZxafDIPf9N6vfH2VwYychV370rl4Wbtz86B
dQzU1Xv905o0Hu6E+b1+jQzkGW5c+iKTh/m6t9q92xiIY5D9I+xfHpY86Pv1
wiADVfQ1OIt+4eET1q5ZpuJM5FvcuyJ8gIdDbiT17V3MRB1tFXz2EA8XJ7Uq
aC5loiWvRUeChnl4Hd8kSEmKidq1dp2/PsbDo/fUHIblmajnHn+9iQDBwXhI
8sEmJjrc9f1HmCjBRYqXvBuNmYj9b+O+PBWC+ftSMyoPMVH6pHad9waC17h0
9RQeZiI+18VfexPBQflmZi8tmOjERLXJ2y0EHzuydYPXSSY6szMpOGonwcP+
oz9XuDAR1f0hVngfwcq//9a1CWKie04DWi6nCJb29x31CWaio/lnNiw7Q7CY
QmByLJuJ/raI6ePYEjxuGba4+QETlSr/KhM8S3BF2asOszgm+pL8ep7bBYLd
kzr8DqQx0cGSoYddVwh+52BYvLWGiexSI8WV2QS/ET7yl1ktE5leM98TGEpw
UpyVysVvTBT40213dxjBIfUOYelNTJT//RQ7NoJgW/0btiodTDTnuk/YYAzB
c1fnzFEcZqIbC/rmbEwk2KJbfs8CCQp9iP4wNvOW4M2zdq+YkhQ65HQZMfIJ
ni+ZvExoOYVG8q5GzOMQXGCg0TsiQyHzhQc8xN7R+aUa3G9dRaEvYZtahYoI
HvNwb3yjQaFOk0/X73wkuOZujs6rbRQqWx6Z415OcMrzqeSkHRQSGi+ftPxE
sE19gE+sNoVqsOJruUqCP+6MVgrcQ6GbHLmC8CqCowSLna3MKLTSL/baynqC
Ly5n1R+xoJBUklk4l7bRFiNkfJRCFu2PcjMbCBaya1ikd5xCooKZq7WbCHYq
689RtaOQsFd0wtYWgrXuLxUSvEShGJalTEU7wRJJVk6TnhRaLfWa4dlB8EBB
XC3/LwoF57ZPyXQS/GxobWKvN4XM0rNFz3bReZjvOlh7k0IRvuOVnb8Iblnh
8CAxjEKGHkHPfPsJNl+l1fX9AYXaAjdYSnMJrlIVV18USaHZ6CWxb2gX7cqv
9o6lkPKdm03fefT+2YguME2gUJRpnuKiQYIVHDuPBSbR6/uMT0bSjnJ7+5Lz
kkIbur6qyA4RfO/GmX2rX1NoItXnivwfui/PcvymcihUyzf+yeQT3Jdyt0Yt
j54/Xv+JF23brFMKDhwKife28ftpW3yYh6sLKDRvttmobITOo+fkRMJHCj1Z
IVB6aozg7AF1g++fKPTJetXCItobx1kPxT/T81qldsmNE6w4N1PDu4ZC1oof
99TSZqpQboeaKSTt4PFRbpJgX/UWHNBCoeiiAfZ52hNaGQs5PymU0BTTn027
39A6RbmTQozScyZ6UwTbm6tNHuumkH/ddatA2j9PMPaH9ND9WZIxXEq7xiXt
12Q/hS4/39+4e5rgA3/5b1UjFJJPfaHkRbvY18rffpBCbFPRmXTaOSFzlKr5
FErltZyWnCF4U1SjG2OMQgqSwNWn/fLJqwLNCQr90YtgXqId88byRMIMhfZI
yfWX0l7KUU1tFmChAZd92VzaQcVCU2LCLHRwjbWY+CzBVGX9/r0iLPQ52GJC
jfb1upRILyYL/bV6+0UT2hMt13vSWCzUEDl59Tzti93m27rnsdD8krhlAbS5
vPUB0gtZiJOluDuWtv2oQJ2JGAvJJ92YoO9ruHW2TilgEQsJUO90i2kfpZLd
85ewUKrr1xW1tGvEfAsHJFiIlVro30b7oJSZmLIUCwXkBPr00y5RWHfymDQL
KeStZPJp71o3mxosw0IOCx/KTdLO3Vw7VSLHQu7abaUztNU0XxyYVGCh/99f
8f8ACJ+3FA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->
   NCache[{{0, Pi}, {-0.9999999999999979, 0.9999999999999979}}, {{
     0, 3.141592653589793}, {-0.9999999999999979, 0.9999999999999979}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.667060060959304*^9, 3.6670600950793514`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"cosseno", ",", "seno"}], "]"}]], "Input",
 CellChangeTimes->{{3.66706006564931*^9, 3.667060071789319*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwt13k0Vd0bB3BD7j23CQ0imUsTlaIJPTuUVIaUIalUhiSZSu8bSQnVW+Ii
maIJhUKmuG8bEYlCZEqZE+7dyDUPv/Ou9TtrnXXWZ62z13rWd3/3H1vhtIup
nZCAgACXfv/7CuO5nzs03HZxZ/97CMhLyCvLhhrD/H+KGP+Z3xJs1Mg+CdFb
paWnaDs3UCXirxxActNc7VHarbs/tmezXeDw+/vnB2i/qNMTeJXvAResUl78
on167qr7Aq8uQ9tVm+HvtFeAiOzheC/wqE05WEW7zqMr5Tn7GuxWYmcU0tav
bZfxLroOuYbiyum0n/FM7Z7n+0G02frER7QFWO9TPmf6w4xVm8Yd2seVtgyP
pgaCfox6jQftPO2nmgqJt2Gjp7L3MdoSlov99sf/A+/P5G7ZTbvq7h/xWPZ9
yJku+sSg/eBrukpHSTB82gYp3TMEilsdqy4XhcBA/OmoYtoKk43LHueHgrVj
YtwV2iYUO18jNwy691Vmm9L2Wbr/ZHlmODAtnzavod20MS/hT2oELDl8zujL
NAFK233/rZcP4XO6TUwc7W371/FWJEYCZ9WiMWfaYbZRGnvjo0HfN6NhDm3D
yCvFD9lxsJ+5B6SnCOw6LJX5QD8eInRcJpsn6byO8kXaSuLBfoFrSRRtYYfU
F5eKHkOskYjfIto212UGH+U/hXnz+c96xwmMBo7r/N7xDNq9DKqiaQcF1YVt
yX0GxrcjWAdoc6LvbS/LfA6ZuuoJT8cISGVPXxtMTYSBvYK3tEcJpHEaqzVV
kuDhzwylnyME9r3PUgp4mQQrc25V+tD2rHIuXZ74AmTe5B7I5ROo6W1ZqBef
DAaudUOLhwnclXsX+4D9Gm73Fg46DxDY+ylarWBBGnB80iq7CIEPAZZLNEzT
wF9+yuYY7dLp6kbZ5jRgG9WkAo9AWV+x7VB/OoSXRLb19xEoL315JVIsEw6X
SuU3dhPY7+dwfKFZJui4NIir0i7ftRL5RWbCdukEeZ8uAp+yYkWcFbOgKSPe
XqqTQMXT4GCkng3G573C1dsIVF7zTPhlkQsq5mF3ppsIGGluuW0dkwtJWV5n
VWh/HiFO1a250FdlOGvZSNvZUS3f8S28/c6zSK6nfcyaE+SVByfq6rLVa+l+
bdOp0YjjAOVwcEdTBYHeUcbsbo8CUNUQLXflEJhVMizeFloAB7S5zx3zCSwx
Cb2t+qYAzi0+GmiTRwCS5JZI/SkAf/sVx/bl0v2w3L52wL0Q+nes2SeQSffh
rePhR+5F4J/sqi+eTCDkSkXihFsx2ASssMqNIJCQsMh5IKQY4kJk5ro/oPe3
xnJzd3oxpJybKFwbTqB7XRenerAYtPwiDULZBHY2T1cnuZVAjWRGntE9Ap2a
G6fM3T6A99amrQ43CGyfDjF541oGstCqJudE/+99LoIKLoOdZ71ePXYkoDmp
8+P46zJIvrjNQPEsPd/4HyeKVwYvd1xolLEjoMs3Czzu9BEMv9o4zJyg8+VK
vWPal0Nw1zwjO1MCdi2P11sfq4C+VWSwfBsBe+sr7ulXKsD3iOUp8a0Ezjab
vmVEVUDdmfFBM3UC5xqF9dMbKiDrjuHlxk0EXOvsTjPMK2GaUl1avpaAd+Xa
yDSTz/D1YFzWIWkCH39Y+gkpVcEynw7DySkemFdsXyqoXgWZXObt5gkedL6V
TJzVq4J19qNhb8d4IBDeUD5lXwXaYdVyLsM82H7ActHoyyow8MwQKejjQUKO
xeO+zdVguvCZ+ngjD24Gm+NanRrYIKSnWZ7JA6RzZDLhdC08f9p5YOAMD8Yk
1mzzc6+FqFOW0R6neJDeN+l+8kYtxMevWcA/wQPF8Ke9y57UgmKMl+XQUR4I
9ww13mqrhVvlWuxvxjz4cC8k95xNHcSslsjao8kDw8bPlzac+AYKuy7WYTEe
WLkaDGQdbYBQn7pylWwuvFNYd6Pg+XfQEZiUJA39cOThuqctF1rBaetJkaM/
+0Ba5F/dYPt22GuuNj+0qRcCt5RkFNzqBM20cqe/n/yGPfr7bRICukF3rEPn
vW0PlNweVr55pQfGps2Hqpb+gt57Szg/H/bCZLLEl6CQLjh1Of3+ALsfNhkJ
V54X74SrisVq13J4cHjXYfU/Vu2wYebqiJDjAMQt6N84E9EKpcct/8jbDsIm
sdc7M0paQO2Rc/3Vi0Nwq+Da+fWDjaB3qNAqy/0PrFaNO2Wn+w3WdxmXrA8Y
BifluoTdG2rAXcxN61EYH0ZG65Yf2FgBZ15VmfYFjwDXsVJyij4HyqpOJpef
jILrjZk/BiQHQmX1uC2Px2A4o7hQUDgebBJfP0Ax4zBc6im1OvgRFhA3X92e
PAEZ02N/54TlYgPuTosTLybBXcG2PmhVMbZ9aXVBijMF2jV3JT+yK3DbzHx2
1cdpEPpmKmZpXYMZH6aPnC6ZgbxY79AmiW941nnt7OZvs1Dm+fufIlYTNik2
WOlyTgB5i+pGf3vUgg/J7Pui80sAyd/UupdzoxVzuju4WRcE0YNV2euQQTv2
+i1rLcEVRIV6TkJ9PzrwU+tRbQlPIVTq/8z/vW8Xlme5uAiPCKFp77WZ/w50
YyPBTYkXPITR2UOL0vfq9uAuxyDTvyeF0f1g0WWyD3/jqnl3Dd2uzEHiW0RC
N3B68SrZ1Rxqjgj6nH7hDr+pD6/znqcm+48Iqv/03nNbXT++ufg+X57FQBrT
WXPwYy5+GuHiozuPgc5G1RuPPuPiImkTpv0CBtJV8/dRTeJigZXiUsniDMTV
ivIPfcXF3uqhWhrLGUi9ylB9bz4XXzKL8DNYz0AjDx3b9tRysX1EnLi7IQM9
CaznpczhYX3pNNX3IQxkmr5pfMFJHj644otTYSgDCa451nL/FA+byPBe4HAG
knYs/CFqy8OWcirKnEgG6vF9sn2uIw+fU0qSzXrMQNaL7PV63Hn47vp40cR0
BroUXhlpEMDDNZrBg3eqGehmiZxafDIPf9N6vfH2VwYychV370rl4Wbtz86B
dQzU1Xv905o0Hu6E+b1+jQzkGW5c+iKTh/m6t9q92xiIY5D9I+xfHpY86Pv1
wiADVfQ1OIt+4eET1q5ZpuJM5FvcuyJ8gIdDbiT17V3MRB1tFXz2EA8XJ7Uq
aC5loiWvRUeChnl4Hd8kSEmKidq1dp2/PsbDo/fUHIblmajnHn+9iQDBwXhI
8sEmJjrc9f1HmCjBRYqXvBuNmYj9b+O+PBWC+ftSMyoPMVH6pHad9waC17h0
9RQeZiI+18VfexPBQflmZi8tmOjERLXJ2y0EHzuydYPXSSY6szMpOGonwcP+
oz9XuDAR1f0hVngfwcq//9a1CWKie04DWi6nCJb29x31CWaio/lnNiw7Q7CY
QmByLJuJ/raI6ePYEjxuGba4+QETlSr/KhM8S3BF2asOszgm+pL8ep7bBYLd
kzr8DqQx0cGSoYddVwh+52BYvLWGiexSI8WV2QS/ET7yl1ktE5leM98TGEpw
UpyVysVvTBT40213dxjBIfUOYelNTJT//RQ7NoJgW/0btiodTDTnuk/YYAzB
c1fnzFEcZqIbC/rmbEwk2KJbfs8CCQp9iP4wNvOW4M2zdq+YkhQ65HQZMfIJ
ni+ZvExoOYVG8q5GzOMQXGCg0TsiQyHzhQc8xN7R+aUa3G9dRaEvYZtahYoI
HvNwb3yjQaFOk0/X73wkuOZujs6rbRQqWx6Z415OcMrzqeSkHRQSGi+ftPxE
sE19gE+sNoVqsOJruUqCP+6MVgrcQ6GbHLmC8CqCowSLna3MKLTSL/baynqC
Ly5n1R+xoJBUklk4l7bRFiNkfJRCFu2PcjMbCBaya1ikd5xCooKZq7WbCHYq
689RtaOQsFd0wtYWgrXuLxUSvEShGJalTEU7wRJJVk6TnhRaLfWa4dlB8EBB
XC3/LwoF57ZPyXQS/GxobWKvN4XM0rNFz3bReZjvOlh7k0IRvuOVnb8Iblnh
8CAxjEKGHkHPfPsJNl+l1fX9AYXaAjdYSnMJrlIVV18USaHZ6CWxb2gX7cqv
9o6lkPKdm03fefT+2YguME2gUJRpnuKiQYIVHDuPBSbR6/uMT0bSjnJ7+5Lz
kkIbur6qyA4RfO/GmX2rX1NoItXnivwfui/PcvymcihUyzf+yeQT3Jdyt0Yt
j54/Xv+JF23brFMKDhwKife28ftpW3yYh6sLKDRvttmobITOo+fkRMJHCj1Z
IVB6aozg7AF1g++fKPTJetXCItobx1kPxT/T81qldsmNE6w4N1PDu4ZC1oof
99TSZqpQboeaKSTt4PFRbpJgX/UWHNBCoeiiAfZ52hNaGQs5PymU0BTTn027
39A6RbmTQozScyZ6UwTbm6tNHuumkH/ddatA2j9PMPaH9ND9WZIxXEq7xiXt
12Q/hS4/39+4e5rgA3/5b1UjFJJPfaHkRbvY18rffpBCbFPRmXTaOSFzlKr5
FErltZyWnCF4U1SjG2OMQgqSwNWn/fLJqwLNCQr90YtgXqId88byRMIMhfZI
yfWX0l7KUU1tFmChAZd92VzaQcVCU2LCLHRwjbWY+CzBVGX9/r0iLPQ52GJC
jfb1upRILyYL/bV6+0UT2hMt13vSWCzUEDl59Tzti93m27rnsdD8krhlAbS5
vPUB0gtZiJOluDuWtv2oQJ2JGAvJJ92YoO9ruHW2TilgEQsJUO90i2kfpZLd
85ewUKrr1xW1tGvEfAsHJFiIlVro30b7oJSZmLIUCwXkBPr00y5RWHfymDQL
KeStZPJp71o3mxosw0IOCx/KTdLO3Vw7VSLHQu7abaUztNU0XxyYVGCh/99f
8f8ACJ+3FA==
      "]]}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwt2Hk0lVvcB3BDcUyFiAZCokQyRAN9HxRpMOWmQUjTVSlD4aquqYlEJGnW
qFwUpUEUIomiInNJpgznEc7wnHPw7vdd71+/9VnrrH2e8/z2/n33Otq+h9x2
S4iJiUmKi4n9X30j++nXksCVYv9ftaZr6WlecMY8R706DVI5beedmpK9UaiQ
J9VIartNZcez5ENQGPZ6m0tqfXBX1r3kCDx46mOcRGpt/IjS9eREWAVvnL2O
1A2Xw8vSkm8iaN6/f1ySbiJ+zuvrqcmPkPMnPzr03CP08aQmbIKLMTl3//Os
vcVYOpbk8iTgPVSH9p0uXvseld83x0jMrcXAsF9rCbsGlK278L5vHfj3Orqb
ZeuwNcBxKH9LIyoyC4x2lzXgtbZBdPG9VrBdxHzWPWmBe5rBnbaD7eAeeoHy
gB+YNbnI7vyeDlQVdW9ZsfcnTpuV5xWf6YSmt/Tuzfq/sNphrc/9U93wz6sP
nPKsE+Wxo3onwnuxXdNrodiCbvSdUyn8kdaHwuPlffF3erAjNDdxKHkA/o+a
bX8N9OK4TplJxHM27MwWe2+26MOi8eNcCb8h+C1qcDrt2Y+K7ZtHtHb9wSLP
c/PvbhyAyQ3/huOHh1H6Q3ChjhrE+EB4fkjYMETT3GTlVw3iw4ozFw4dG8aX
jN48G4dB+Dbddt5xYhh54TJXMjYMIkWlsWJVyjDefE8t2L51ENw42xdyT4fh
X6o3Izh4EAWhapcvjwzj018LRqm7g1jlWrI1P2gEOZXhxV5ibKSc3W8uGToC
8dQ6ylOSjV/lqlNcj46gssnooocUG9HL95UMxIzAQyT+0kGejZK50+brXhxB
wYBxj4I6Gyu5uzjJz0fQVKSVY2LMxtKrrPMBohGIvU4Kqt/GxsIu5/KFp0ah
Uf+mMDqHjUY/w8TdcaOQG1Ba0/uYjVNs1pabCaOYemDzo3VP2GjnlQwoXxrF
bQt1JfkX5PlkzVUEGaNQRens4BI2RMbqO99XjuKD9NLFzV/Z+BTeLrZbgQPh
BYeFcjw2jk4UfrihxMFNwwNdCxk25p+4nNKoysH58vCQtULye865zV+vyUF9
4evZURNsWKaXOZsZc9CYVHGkTppGevmDG+KuHMRqxS2bpk4jSDHQ6kYKB1uv
GCoMWdDoS/gQkJjGwfiJVWf/W0rDV0H3XuQ1Dmpi9HR3L6fhKtugsPMuB1Lp
bfe+WNNYPMn6h/5TDraNLO5OXUWDzWNF537l4N/qJLsyVxr7fqRXlClzoZge
Vpy7j0bHdoEwfzoXUkKNPYsP0NjaunFxxkwuAkoPzM32p+HYJHU5VocLaSqz
Mz2AxvyvB/Y5mXLxVmVeRGAIje53SxUaXbnwCzkm9jyKxs6cWrf+81x4WbVe
/5JKw0u9ItrkIhcjt+VljNPI+tFFeaGXuRj7oWAWe5mGy6ZM5Um3uRC31Hpr
cY2G1XjMl9lPuNCtaa4NuUVDxcnSzamei4QbHefi/qMx9YVRdEoTF8dtuptL
s2jI6ujmNbdxcaXGtoufTUOMq6i8t5uLwk05Jl6PaQxc7/scwePC89XgfYV8
GmWD111zZ/AwVh03NFFE441HShRPg4eS0+oyKm9oFJTE5Vrr8LD+3OO2ecU0
Hl8MVfpgwINFWG6BbSmNa9aunztW8MA0tNnseEfjyLlJripePJzipx82+URD
z2i/S+htHnIPug1rtJLvP/+97/B9HqZylohaiPNGXU8GZfKgMZwtm9ZGw7pw
aYF/Hg8n7xoukf1Bw32dlO6uUvJ5rXlvvv2kEeV3i+fSwUNq0f7rij007D+q
JDt18zA46N2fQyxvcsZwfR8PG5ZYWa/rpZHGP7jDYZiHaXanBo7/ppFz2qrK
WoKP4GaPsKp+Gq33Gm4Y6PAR+kzFWnqIxm2Zdcvm6/Fhn0qVnyT+2//113kG
fLx/X+Ei8YfGiPk9lrYpH4MOlYEcYtmyoCA1Wz7UYiua347QqNXvlle158NL
KDxmOkoj9eyWDOW1fFivcNW5Say9kWpVcOPj0nK7kCAOjaUdCvaTfPk4XpZo
K86jMb46ql18Dx/Zbipj3sRlD0fDJ/z4cJp2uqCQ2Dmw5ZEgkA+OpdbKAD6N
PWIPZ/yJ4uOjy+m9bxgahrtmP2Wf5KPpW8fSKQIafyoSnQZi+Rj6Lq6wjfhY
YkhMTxIfnSGhRWziC5qrBttu8RHypnTluJDGs+rfoRX3+Aio9mOvENFoDk+U
yH3IR//HyKehxFoNzWoncvmYGTkU85vY7mTkbf98Php9bc/NGSPPY6Zn5PGS
jwU3uFkbibMSA20NSvhIK/vH+BlxjbXax2nlfLCrbJM7iYf7Cz3G3vPhuMtX
TmmcxrI1LP/aWj5iS69Qu4g9udm8l3V8tCTkiOKII+9ujL7TyIciM6XmEfE7
sZuXQtr5kOdmPRsh/p2zSsenk49j/3RXKU+Q/bC9L8uxl485x3bxjIkXy523
NBsg7xvzlq0j3vhySensIT726Ogn7SIO2duyXmqUvK/0vyeOEl9RjWqgeWQ9
996YJOKit3q+TUI+ckfuat4jbg+sHiid4CPC7XrNM2JJraDQLEkGGr61qe+I
9T6pSaRKM5hiYn24jnjtsaL4CDkGM/o79rYT+xvsVPObysClqTiwj/h8I+u2
2zQG8r7fkoaJn57KMbRSYzDMmvueT9xg7v583iwGfQfvq4wRCzoYm6lzGBi4
+YROEGsk3azm6zBYlOAy9L+msNqjQ49BwazQiHHiXYN9P6sMGLQo1ukKiU9f
PX8gfxFZL31vO4c409GCd8OUQcxs0zw28SdeS9QZCwYJf8yudBH/uRclH7Sc
gdV//mnNxCru+pe2rWQwafhH1kdiS4mP2qttGTw8e7bhNfHWx0FZi+wZmG4L
VM8hPu6lbqm+lsGIT/Khq8Tp8q9LxJ0YnCygW08Rvy3Yub7flcGH23E+AcTd
f8s01P3FgB24S+BBbFTuPpCxnUHn8+YAbWKXYEFI0g4GwYHhGySJD2unix/d
zWDbJW/qF9kPBcf7pzv5M3hPi/tdJ25bmHTLMpCBg/PbG6HEYs0WhtpHGEw/
8qXPmdjeItpm9BiDB49+lQvI/vTr1K9ui2Rwq6XP/SNxfPLHTRUnGLiJHAXX
ib+y1Q9ciWfgHj/rzDJin4xHqdQ1Bt47fB9vIedDymZ4dkQ6g9z+k0/ViLOb
ze8U3WVQQ0eGfSXnTaBQ8Gh5NoO4UkVqFXHK4bL35q8ZSIr0P8mS87l8irRz
cCmDjtupn5+R8/0zw7E+9x2D4qvSF32IF7V8+rmohkH+H5ZnNpkH722aBPPb
GVyYat2/kMyLgy2zovZ2MqiUC6TLuTRUj3hJ3+9loOre+mQ7se+DX9Pm/mHQ
5hBy/BSZR6IpbEMNCQFMlBJVisg8W9wq4a2kK8CzggtbXtM0vh1Z3eU8X4BO
s8m7zYmPTz2zP8FQAC1nC5MHbBofbBXC5JYIsFd2Qi52kOy3h2pJk+0FUC1f
U21M5m1aiOFbZq8AWy6ZRSl101ipeMhx6QEB5ideur6zi0bXw9yakAABpjL7
jz7ppGHaZtE6EiZA4fdLR9f/olFtZ8MZjBVgaZ9P4s520j+lTfod/wlg77NL
Ua+ZRuBdVfXGRwKodPh4+zaRPLesZ316IoDdu6KCa41knnq59718JYC5fWWq
XAON2Cy37KQqAdoqo7o+f6WhvMbZzKZfAM3Deb1iH2noRqxBuoEQUsG63b0k
Hy8qsxanLhJijTqnubuQ9Pd+hVa8qRB2dGdbxysavdX2EmHLhWiW9Z1S/5L0
e+bqcue1QlQlXpp1m+StxTObdRN+QrhejOR8J3ntOLjcw+uhED0yijqdJP9X
Hrhk9zBbiBvPFyjGkvuBaf+I8WiuEJ49ci8WXqIx83cWK65ACKf4hCX7Ukie
dmoW5FcJ8cTVo68qgcyPVgkNBbYQ+7Z9ddWJIf2q+tDxylSE3oLBhlnkfvNh
rX6NlKUIGa0C07C/Sd5XxrxyXSGClYX9ui97aDyosErpsRPBw1zpacROGuFv
c1ZP+0sE76E6vzeeZL68Sn6wL1QEpZTIqC9OpL+ZWw/OKBThS4nH6jUmJD+C
f691KRYBM46e3G1Mg2Udpn+6TITwuNKrkUYkD2outo9Wi5AZuGrd4wU0Rkdr
3WrbRPheWPWSo00jBg6WpydE8IrWHlFXJnlcZybGsR1D1ZbE2pIhNn6OyyfX
Vo4h6/Zo5L0MNsZL1JtefxyDefBG85332Jh5Ulcr+/MY6BDjKXPusOEuZ5UT
2zSGcbv+JUk32Hintv+D7e8xaP+9YYv3RTYyF1dK5LPGYaDGmXInmo3DvieD
LzuMY+2O4CWV5P4s9W7M3bd8HCuSXSrTWGxM+C+YMP02gb+m93/bvmIQLmWO
uof2iVFPXs45+nn7AFw11tTY9ohRkdeumO3060dh96/B/IPi1OiyYs+ntn04
+lvTc/qgOGXpKExepvobdzx51tNDJCipHmFZXV4PtGQOHZLkSlAJ7fd3eDt3
w0l8ccbBYEkqqvqpEto60eWX4PaPUJKqP9CjYLTkF2rl4jcEhk+idCvr1d5f
/Il5mvqFrEmTqRWLNWe5RP6AwTE5E82zk6mD1GfL0tIWnJiWyNGSkaL0ZbIG
khY0wmHWY6O3SVLUbseVlO/8Onh5BuS7KUlT79vilY9sqoXe73/sfBKkKXm5
Zd38qZXw6NZarTCdRb2SnqHzMK8YbbP3pmaksKgiDzuVn/dzsWmeVVdrKotq
iwy5tsMnF7VGSubKl1mUqu6rz+0zclG68tXnY9dZ1PoMzuaW+Md44DNVwe0+
i5oTZP0zuisHQXefx4ies6hRo6l/so5lQtqQFejawqJOpP0788LDW4g0b3tz
qo1FfVEJs3OffQsCq7wphT9Y1Ae/PE2VxHQMbPDM0utkUWzfASOt3zfw5dDj
HuEAi2J9WxQ2+u8VXHuy2ev+OIt67fbjtE1mElQLjbJbxGQoK+GyZXcTzyOh
TEKkKClDPaZmOcv1JSCqPuvyUWkZ6uLaEzpxEXHYwxOrd1GUoQ5sedgTkBmF
9on6uaeUZSiJNVk3N/T9iy2s/4JeqchQWh2Sqs8jwrF+xl+KejNkqKirKx1O
ZAaiXNvAe9ssGSrlUb3P54h9WGkwkX1eQ4YaiHBalJa5Ay9M60Tlc2SoM6G+
9q8yXWGy4uE6obYMZWxy7v/+H/gfAo9wDA==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->
   NCache[{{0, Pi}, {-0.9999999999999979, 0.9999999999999979}}, {{
     0, 3.141592653589793}, {-0.9999999999999979, 0.9999999999999979}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.66706007243932*^9, 3.6670601048693657`*^9}]
}, Open  ]]
}, Open  ]],

Cell["\<\
Opera\[CCedilla]\[OTilde]es com listas: gerando novos vetores e novas \
matrizes a partir de listas\
\>", "Section",
 CellChangeTimes->{{3.667057389535564*^9, 3.667057410345593*^9}}]
}, Open  ]]
},
WindowSize->{1440, 818},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>2.2 Inherited,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (December 4, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 176, 5, 222, "Title"],
Cell[CellGroupData[{
Cell[781, 31, 103, 1, 153, "Section"],
Cell[CellGroupData[{
Cell[909, 36, 152, 2, 105, "Subsection"],
Cell[CellGroupData[{
Cell[1086, 42, 173, 4, 66, "Input"],
Cell[1262, 48, 141, 3, 93, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1452, 57, 242, 6, 169, "Subsection"],
Cell[CellGroupData[{
Cell[1719, 67, 357, 10, 66, "Input"],
Cell[2079, 79, 263, 6, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2379, 90, 118, 2, 66, "Input"],
Cell[2500, 94, 135, 3, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2672, 102, 113, 2, 66, "Input"],
Cell[2788, 106, 145, 3, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2970, 114, 69, 1, 66, "Input"],
Cell[3042, 117, 139, 3, 93, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3230, 126, 120, 1, 105, "Subsection"],
Cell[CellGroupData[{
Cell[3375, 131, 186, 4, 66, "Input"],
Cell[3564, 137, 227, 5, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3828, 147, 145, 3, 66, "Input"],
Cell[3976, 152, 73, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4086, 158, 162, 4, 94, "Input"],
Cell[4251, 164, 74, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4362, 170, 170, 4, 94, "Input"],
Cell[4535, 176, 128, 3, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4700, 184, 210, 5, 94, "Input"],
Cell[4913, 191, 69, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5019, 197, 69, 1, 94, "Input"],
Cell[5091, 200, 227, 5, 93, "Output"]
}, Open  ]],
Cell[5333, 208, 138, 1, 65, "Text"],
Cell[CellGroupData[{
Cell[5496, 213, 230, 6, 94, "Input"],
Cell[5729, 221, 411, 8, 134, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6177, 234, 147, 3, 94, "Input"],
Cell[6327, 239, 435, 8, 134, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6799, 252, 265, 8, 94, "Input"],
Cell[7067, 262, 109, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7213, 268, 291, 9, 94, "Input"],
Cell[7507, 279, 111, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7655, 285, 128, 1, 86, "Subsubsection"],
Cell[CellGroupData[{
Cell[7808, 290, 126, 2, 94, "Input"],
Cell[7937, 294, 89, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8063, 300, 237, 6, 94, "Input"],
Cell[8303, 308, 88, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8428, 314, 192, 4, 94, "Input"],
Cell[8623, 320, 88, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8748, 326, 232, 6, 94, "Input"],
Cell[8983, 334, 390, 8, 134, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9410, 347, 268, 7, 94, "Input"],
Cell[9681, 356, 88, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9806, 362, 127, 2, 94, "Input"],
Cell[9936, 366, 90, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10063, 372, 124, 2, 94, "Input"],
Cell[10190, 376, 390, 8, 134, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10629, 390, 157, 2, 86, "Subsubsection"],
Cell[CellGroupData[{
Cell[10811, 396, 179, 4, 94, "Input"],
Cell[10993, 402, 128, 3, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11158, 410, 125, 2, 94, "Input"],
Cell[11286, 414, 288, 9, 110, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11611, 428, 125, 2, 94, "Input"],
Cell[11739, 432, 105, 3, 98, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11905, 442, 125, 1, 105, "Subsection"],
Cell[CellGroupData[{
Cell[12055, 447, 274, 8, 94, "Input"],
Cell[12332, 457, 223, 7, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12592, 469, 130, 2, 94, "Input"],
Cell[12725, 473, 635, 18, 120, "Output"]
}, Open  ]],
Cell[13375, 494, 179, 2, 65, "Text"],
Cell[CellGroupData[{
Cell[13579, 500, 166, 4, 94, "Input"],
Cell[13748, 506, 119, 3, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13904, 514, 117, 2, 94, "Input"],
Cell[14024, 518, 329, 11, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14390, 534, 119, 2, 94, "Input"],
Cell[14512, 538, 274, 9, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14823, 552, 499, 11, 109, "Input"],
Cell[15325, 565, 277, 9, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15639, 579, 241, 5, 94, "Input"],
Cell[15883, 586, 356, 12, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16276, 603, 124, 2, 94, "Input"],
Cell[16403, 607, 167, 5, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16607, 617, 135, 2, 94, "Input"],
Cell[16745, 621, 411, 11, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17193, 637, 127, 2, 94, "Input"],
Cell[17323, 641, 701, 20, 188, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18061, 666, 394, 9, 66, "Input"],
Cell[18458, 677, 305, 9, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18800, 691, 129, 2, 94, "Input"],
Cell[18932, 695, 664, 19, 154, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19633, 719, 127, 2, 94, "Input"],
Cell[19763, 723, 121, 3, 93, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19933, 732, 111, 1, 105, "Subsection"],
Cell[CellGroupData[{
Cell[20069, 737, 341, 10, 94, "Input"],
Cell[20413, 749, 341, 11, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20791, 765, 330, 10, 94, "Input"],
Cell[21124, 777, 239, 7, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21400, 789, 126, 2, 94, "Input"],
Cell[21529, 793, 70, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21636, 799, 125, 2, 94, "Input"],
Cell[21764, 803, 669, 20, 188, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22470, 828, 299, 7, 66, "Input"],
Cell[22772, 837, 70, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22879, 843, 138, 2, 94, "Input"],
Cell[23020, 847, 117, 3, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23174, 855, 366, 9, 66, "Input"],
Cell[23543, 866, 72, 1, 93, "Output"]
}, Open  ]],
Cell[23630, 870, 155, 2, 65, "Text"],
Cell[CellGroupData[{
Cell[23810, 876, 229, 5, 94, "Input"],
Cell[24042, 883, 163, 3, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24242, 891, 227, 5, 94, "Input"],
Cell[24472, 898, 70, 1, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24579, 904, 126, 2, 94, "Input"],
Cell[24708, 908, 530, 18, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25275, 931, 133, 2, 94, "Input"],
Cell[25411, 935, 179, 6, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25627, 946, 128, 2, 94, "Input"],
Cell[25758, 950, 1021, 35, 134, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26816, 990, 133, 2, 94, "Input"],
Cell[26952, 994, 87, 2, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27076, 1001, 141, 2, 94, "Input"],
Cell[27220, 1005, 289, 7, 93, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27546, 1017, 127, 2, 94, "Input"],
Cell[27676, 1021, 657, 18, 120, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28370, 1044, 162, 3, 94, "Input"],
Cell[28535, 1049, 969, 31, 134, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29565, 1087, 163, 2, 153, "Section"],
Cell[CellGroupData[{
Cell[29753, 1093, 269, 7, 94, "Input"],
Cell[30025, 1102, 6283, 114, 546, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36345, 1221, 372, 9, 94, "Input"],
Cell[36720, 1232, 5902, 108, 530, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42659, 1345, 154, 3, 94, "Input"],
Cell[42816, 1350, 11327, 198, 563, "Output"]
}, Open  ]]
}, Open  ]],
Cell[54170, 1552, 192, 4, 243, "Section"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)