(* 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[ 93806, 2520] NotebookOptionsPosition[ 86258, 2251] NotebookOutlinePosition[ 86870, 2275] CellTagsIndexPosition[ 86784, 2270] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " b\[AAcute]sico" }], "Title", CellChangeTimes->{{3.6673162239278927`*^9, 3.667316249997929*^9}}], Cell[CellGroupData[{ Cell["Opera\[CCedilla]\[OTilde]s com listas e matrizes", "Section", CellChangeTimes->{{3.6673162597279425`*^9, 3.6673162702279577`*^9}}], Cell[CellGroupData[{ Cell["matrizes quadradas", "Subsection", CellChangeTimes->{{3.667316327138037*^9, 3.6673163333880463`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"m", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m11", ",", "m12"}], "}"}], ",", RowBox[{"{", RowBox[{"m21", ",", "m22"}], "}"}]}], "}"}]}], ";", RowBox[{"m", "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.6673163675180936`*^9, 3.667316383398116*^9}, { 3.6673165066082883`*^9, 3.6673165552983565`*^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.6673164961382737`*^9, 3.6673165563983583`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Inverse", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.667316567728374*^9, 3.6673165710283785`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["m22", RowBox[{ RowBox[{ RowBox[{"-", "m12"}], " ", "m21"}], "+", RowBox[{"m11", " ", "m22"}]}]], ",", RowBox[{"-", FractionBox["m12", RowBox[{ RowBox[{ RowBox[{"-", "m12"}], " ", "m21"}], "+", RowBox[{"m11", " ", "m22"}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["m21", RowBox[{ RowBox[{ RowBox[{"-", "m12"}], " ", "m21"}], "+", RowBox[{"m11", " ", "m22"}]}]]}], ",", FractionBox["m11", RowBox[{ RowBox[{ RowBox[{"-", "m12"}], " ", "m21"}], "+", RowBox[{"m11", " ", "m22"}]}]]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6673165717483797`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"m", ".", RowBox[{"Inverse", "[", "m", "]"}]}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.667316575438385*^9, 3.667316611528435*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.667316592568409*^9, 3.6673166121784363`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.667316626338456*^9, 3.667316638358473*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.667316639028474*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Inverse", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.6673166415984774`*^9, 3.6673166445184813`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["11", "5"]}], ",", FractionBox["6", "5"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["21", "10"], ",", RowBox[{"-", FractionBox["11", "10"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.667316645398483*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m", ".", "%"}]], "Input", CellChangeTimes->{{3.667316651878492*^9, 3.667316654208495*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.667316655128496*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"N", "[", "m", "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"N", "[", "m", "]"}], " ", "]"}], " "}]}]], "Input", CellChangeTimes->{{3.667316661758506*^9, 3.6673166917685475`*^9}, { 3.66731674332862*^9, 3.667316752518633*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.105427357601002`*^-15", ",", "0.9999999999999964`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.667316668258515*^9, 3.6673166931985493`*^9}, 3.6673167545986357`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Chop", "[", " ", RowBox[{ RowBox[{"N", "[", "m", "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"N", "[", "m", "]"}], " ", "]"}]}], " ", "]"}]], "Input", CellChangeTimes->{{3.667316765778651*^9, 3.667316770318658*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.9999999999999964`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6673167709286585`*^9}] }, Open ]], Cell["autovalores e autovetores", "Text", CellChangeTimes->{{3.667316796938695*^9, 3.6673168009987006`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eigenvalues", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.6673168060687075`*^9, 3.667316810058713*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"33", "+", SqrtBox["1129"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"33", "-", SqrtBox["1129"]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.6673168108787146`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eigenvectors", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.667316812648717*^9, 3.667316818568725*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "42"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", SqrtBox["1129"]}], ")"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "42"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "-", SqrtBox["1129"]}], ")"}]}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.667316819248726*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "=", RowBox[{"Eigensystem", "[", "m", "]"}]}]], "Input", CellChangeTimes->{{3.667316821178729*^9, 3.6673168412187567`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"33", "+", SqrtBox["1129"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"33", "-", SqrtBox["1129"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "42"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", SqrtBox["1129"]}], ")"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "42"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "-", SqrtBox["1129"]}], ")"}]}], ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.6673168280287385`*^9, 3.6673168420387583`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.667316874158803*^9, 3.6673168753988047`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"33", "+", SqrtBox["1129"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"33", "-", SqrtBox["1129"]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.6673168760288057`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6673168776388083`*^9, 3.6673168788388095`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "42"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", SqrtBox["1129"]}], ")"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "42"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "-", SqrtBox["1129"]}], ")"}]}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.66731687950881*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", RowBox[{"{", RowBox[{"v1", ",", "v2"}], "}"}]}], "}"}], "=", RowBox[{"Eigensystem", "[", "m", "]"}]}]], "Input", CellChangeTimes->{{3.667316903238844*^9, 3.6673169143488593`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"33", "+", SqrtBox["1129"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"33", "-", SqrtBox["1129"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "42"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", SqrtBox["1129"]}], ")"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "42"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "-", SqrtBox["1129"]}], ")"}]}], ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6673169153288608`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"m", ".", "v1"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.667317025289015*^9, 3.6673170267390165`*^9}, { 3.6673170626390667`*^9, 3.6673170659590716`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "42"], " ", RowBox[{"(", RowBox[{"383", "+", RowBox[{"11", " ", SqrtBox["1129"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"33", "+", SqrtBox["1129"]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.667317027569018*^9, 3.6673170665790725`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", RowBox[{"[", "1", "]"}], "]"}], "v1"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.6673170410390368`*^9, 3.6673170738590827`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "42"], " ", RowBox[{"(", RowBox[{"383", "+", RowBox[{"11", " ", SqrtBox["1129"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"33", "+", SqrtBox["1129"]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.6673170422790384`*^9, 3.6673170746290836`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["gerando novos vetores e novas matrizes a partir de listas", "Subsection", CellChangeTimes->{{3.6673171131291375`*^9, 3.6673171280991583`*^9}}], Cell["juntar duas listas \[EAcute] f\[AAcute]cil", "Text", CellChangeTimes->{{3.6673171475991864`*^9, 3.6673171596092033`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Range", "[", RowBox[{"11", ",", "14"}], "]"}]}]], "Input", CellChangeTimes->{{3.667317162969208*^9, 3.667317170679219*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.6673171713392196`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b", "=", RowBox[{"Pi", " ", RowBox[{"Range", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"7", "/", "8"}], ",", RowBox[{"1", "/", "8"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.667317174549224*^9, 3.6673172060092683`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "2"], ",", FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "8"], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "4"], ",", FractionBox[ RowBox[{"7", " ", "\[Pi]"}], "8"]}], "}"}]], "Output", CellChangeTimes->{{3.667317191559248*^9, 3.667317206569269*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Join", "[", RowBox[{"a", ",", "b"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"junta", " ", "na", " ", "mesma", " ", "linha"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.667317232259305*^9, 3.667317272949362*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14", ",", FractionBox["\[Pi]", "2"], ",", FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "8"], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "4"], ",", FractionBox[ RowBox[{"7", " ", "\[Pi]"}], "8"]}], "}"}]], "Output", CellChangeTimes->{3.6673172385993137`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], " ", RowBox[{"(*", " ", RowBox[{ "gera", " ", "uma", " ", "matriz", " ", "de", " ", "2", " ", "linhas"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6673172811893735`*^9, 3.6673172968993955`*^9}, { 3.6673173297394414`*^9, 3.6673173315694437`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "2"], ",", FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "8"], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "4"], ",", FractionBox[ RowBox[{"7", " ", "\[Pi]"}], "8"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.667317297379396*^9, 3.6673173331594462`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.667317303019404*^9, 3.667317305809408*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"11", "12", "13", "14"}, { FractionBox["\[Pi]", "2"], FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "8"], FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "4"], FractionBox[ RowBox[{"7", " ", "\[Pi]"}], "8"]} }, 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.667317306439409*^9}] }, Open ]], Cell["\[EAcute] poss\[IAcute]vel juntar eliminando \ repeti\[CCedilla]\[OTilde]es", "Text", CellChangeTimes->{{3.667317352089473*^9, 3.6673173609694853`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"i1", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "20"}], "}"}], ",", "10"}], "]"}]}]], "Input", CellChangeTimes->{{3.6673173681994953`*^9, 3.6673173848695183`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "13", ",", "3", ",", "14", ",", "4", ",", "16", ",", "13", ",", "8", ",", "4", ",", "18", ",", "11"}], "}"}]], "Output", CellChangeTimes->{3.6673173854295197`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"i2", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "20"}], "}"}], ",", "10"}], "]"}]}]], "Input", CellChangeTimes->{{3.6673173967595353`*^9, 3.6673173969395356`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "18", ",", "5", ",", "1", ",", "8", ",", "9", ",", "4", ",", "20", ",", "10", ",", "15", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.6673173974995365`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Join", "[", RowBox[{"i1", ",", "i2"}], "]"}]], "Input", CellChangeTimes->{{3.66731740745955*^9, 3.6673174113295555`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "13", ",", "3", ",", "14", ",", "4", ",", "16", ",", "13", ",", "8", ",", "4", ",", "18", ",", "11", ",", "18", ",", "5", ",", "1", ",", "8", ",", "9", ",", "4", ",", "20", ",", "10", ",", "15", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.6673174120295563`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Union", "[", RowBox[{"i1", ",", "i2"}], "]"}]], "Input", CellChangeTimes->{{3.667317415749562*^9, 3.6673174196995673`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "4", ",", "5", ",", "8", ",", "9", ",", "10", ",", "11", ",", "13", ",", "14", ",", "15", ",", "16", ",", "18", ",", "20"}], "}"}]], "Output", CellChangeTimes->{3.667317420329568*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Adicionar uma coluna a uma matriz \[EAcute] encrencado", "Subsection", CellChangeTimes->{{3.6673174882996635`*^9, 3.6673174980696774`*^9}, { 3.6673180040003853`*^9, 3.6673180067603893`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"retangular", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"10", "i"}], "+", "j"}], ",", RowBox[{"{", RowBox[{"i", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "2"}], "}"}]}], "]"}]}], ";", RowBox[{"retangular", "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.6673175024196835`*^9, 3.6673175340897274`*^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.6673175352597294`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{"Range", "[", RowBox[{"31", ",", "34"}], "]"}]}]], "Input", CellChangeTimes->{{3.6673175439897413`*^9, 3.6673175524897532`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}]], "Output", CellChangeTimes->{3.667317553049754*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Join", "[", RowBox[{"retangular", ",", RowBox[{"Transpose", "[", RowBox[{"{", "f", "}"}], "]"}], ",", "2"}], "]"}]}], ";", RowBox[{"t", "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.6673175649797707`*^9, 3.6673176249198546`*^9}, { 3.6673176633099084`*^9, 3.667317682069935*^9}, {3.6673177270799975`*^9, 3.6673177601200438`*^9}, {3.667317805950108*^9, 3.66731780728011*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"11", "12", "31"}, {"21", "22", "32"}, {"31", "32", "33"}, {"41", "42", "34"} }, 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.667317585349799*^9, 3.667317625899856*^9}, { 3.667317670329918*^9, 3.6673176826399355`*^9}, {3.667317728119999*^9, 3.6673177606600447`*^9}, 3.667317808110111*^9}] }, Open ]], Cell["\[EAcute] possivel eliminar dimens\[OTilde]es", "Text", CellChangeTimes->{{3.6673177783700695`*^9, 3.667317787370082*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "=", RowBox[{"Flatten", "[", "t", "]"}]}]], "Input", CellChangeTimes->{{3.6673177922100887`*^9, 3.6673177961500945`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "11", ",", "12", ",", "31", ",", "21", ",", "22", ",", "32", ",", "31", ",", "32", ",", "33", ",", "41", ",", "42", ",", "34"}], "}"}]], "Output", CellChangeTimes->{{3.6673177970300956`*^9, 3.667317812870118*^9}}] }, Open ]], Cell["e agrupar de novo", "Text", CellChangeTimes->{{3.6673178364601507`*^9, 3.6673178427401595`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Partition", "[", RowBox[{"s", ",", "4"}], "]"}]], "Input", CellChangeTimes->{{3.6673178470501657`*^9, 3.6673178513501716`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "31", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "32", ",", "31", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "41", ",", "42", ",", "34"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.667317852050173*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Partition", "[", RowBox[{"s", ",", "3"}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.667317863740189*^9, 3.6673178923102293`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"11", "12", "31"}, {"21", "22", "32"}, {"31", "32", "33"}, {"41", "42", "34"} }, 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.6673178785502095`*^9, 3.6673178926602297`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Partition", "[", RowBox[{"s", ",", "5"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "\[EAcute]", " ", "preciso", " ", "usar", " ", "op\[CCedilla]oes", " ", "para", " ", "n\[ATilde]o", " ", "jogar", " ", "fora", " ", "o", " ", "que", " ", "n\[ATilde]o", " ", "cabe", " ", "na", " ", "matriz", " ", "retangular"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.66731790000024*^9, 3.6673179454703035`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "31", ",", "21", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "31", ",", "32", ",", "33", ",", "41"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.667317901200241*^9, 3.66731790732025*^9}, 3.6673179459603043`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Como definir uma fun\[CCedilla]\[ATilde]o", "Section", CellChangeTimes->{{3.667318048140447*^9, 3.6673180542204556`*^9}}], Cell[CellGroupData[{ Cell[BoxData["f"], "Input", CellChangeTimes->{3.667318058170461*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}]], "Output", CellChangeTimes->{3.667318058790462*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.667318077220488*^9, 3.667318080230492*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"2", RowBox[{"Sin", "[", "x", "]"}], RowBox[{"x", "^", "3"}]}]}]], "Input", CellChangeTimes->{{3.667318106010528*^9, 3.667318146040584*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{"Pi", "/", "3"}], "]"}]], "Input", CellChangeTimes->{{3.6673182521707325`*^9, 3.66731825703074*^9}}], Cell[BoxData[ FractionBox[ SuperscriptBox["\[Pi]", "3"], RowBox[{"9", " ", SqrtBox["3"]}]]], "Output", CellChangeTimes->{3.66731825767074*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "10.34", "]"}]], "Input", CellChangeTimes->{{3.667318260710745*^9, 3.6673182633207483`*^9}}], Cell[BoxData[ RowBox[{"-", "1752.6667798310873`"}]], "Output", CellChangeTimes->{3.667318263960749*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["a"], "Input", CellChangeTimes->{3.6673183487008677`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.6673183491408687`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "a", "]"}]], "Input", CellChangeTimes->{{3.667318266860753*^9, 3.667318267940755*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"2662", " ", RowBox[{"Sin", "[", "11", "]"}]}], ",", RowBox[{"3456", " ", RowBox[{"Sin", "[", "12", "]"}]}], ",", RowBox[{"4394", " ", RowBox[{"Sin", "[", "13", "]"}]}], ",", RowBox[{"5488", " ", RowBox[{"Sin", "[", "14", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.667318268480756*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["b"], "Input", CellChangeTimes->{3.6673183699108973`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "2"], ",", FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "8"], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "4"], ",", FractionBox[ RowBox[{"7", " ", "\[Pi]"}], "8"]}], "}"}]], "Output", CellChangeTimes->{3.667318370280898*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "b", "]"}]], "Input", CellChangeTimes->{{3.667318276140766*^9, 3.6673182774407682`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ SuperscriptBox["\[Pi]", "3"], "4"], ",", RowBox[{ FractionBox["125", "256"], " ", SuperscriptBox["\[Pi]", "3"], " ", RowBox[{"Cos", "[", FractionBox["\[Pi]", "8"], "]"}]}], ",", FractionBox[ RowBox[{"27", " ", SuperscriptBox["\[Pi]", "3"]}], RowBox[{"32", " ", SqrtBox["2"]}]], ",", RowBox[{ FractionBox["343", "256"], " ", SuperscriptBox["\[Pi]", "3"], " ", RowBox[{"Sin", "[", FractionBox["\[Pi]", "8"], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.6673182779407687`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "c", "]"}]], "Input", CellChangeTimes->{{3.6673182805607724`*^9, 3.6673182821407747`*^9}}], Cell[BoxData[ RowBox[{"2", " ", SuperscriptBox["c", "3"], " ", RowBox[{"Sin", "[", "c", "]"}]}]], "Output", CellChangeTimes->{3.6673182826607757`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{ RowBox[{"-", "0.05"}], "Pi"}], ",", RowBox[{"0.05", "Pi"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.667318393640931*^9, 3.6673184198009677`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw1mmc4F37UxrPLTllFWSkyy0p+35OREdnRkBCSlL33yMpeySh7772/VmbK SMuIiBQK2eT5P9f1PG/OuT4vznXd580594ub08Ra24z40KFDXv+V/+0Z0p8s hE924uzIlDT6SR1g0H3DS8HSicf2tTxeDemA7+PW2cnjnfjOySlBsdc6YJSW ZxRB24kpRxWorIt04BS5680lok7ckOPgwe+uAy+GWJULf3TgW0FOmTWsOhBl cefs2ZoObBabbcl8Rxs8Eya/n9LqwFKyrVsJy5owk+UnT+fUjjMfj6MgOTWI 1I9Y9s9vw40HeX1fSpRg6W5L++5UK9bTcp7naZeHUaYwZweKVpz1J1KR49gV IP/ht/bNpQXXbVsb8F+RhgCfF9+I7VqwVrJhYvA5aSBmLRvietSCRynbuzfo pWFfZaLU5G4LPhSnOEv87RL8LZS0+ibbgju8Lql9DrgE36wXZ6cpWzD3RESK y4AU4M0bH6ZSmnHe7Pk6DUtJcKHgq59sbcITC4dHPw2KQVx7cNuphibsSdA/ d6tZDEo9f/QaVjZh0RM0QvP5YjC3lvtlMrsJP7NnlhTwFwOdKd69ydAm7HJl KOyWhBgI1fPAV90mzO1OUn351UWYseR4/fVHIx5OP1q74nYB1N8yD03RN2Ki 7iPq3TdFIKzr224cZSOWludQTlIRgd6WYl4V0kYc8VpsxFlaBBRK5T3KNxtw PEdnsDabCEhHWZ/1m2zAfNbGQ1RtwsCr3e3JXdSA/1Rx27WOCsG/USd+c6UG 7HzR28+PVhBKJ0b9f3nW4045n3CdRj7w6ciuZnaux/8t+WjkFR9o5zvOy9vU 441bSO9hAB9sODCqppjUY28eZs6P1/kAUd9guK5Uj2+aaF6tnz4Hb6Tfp5XQ 1+OH/gph4TTn4Ofz4WbbzDqs8dfgC48j73963m1u9tTi84+NxiJ8ueGEI6Va YnstFj37MbLCihtoE6+mSTXVYjUTSqJ5fW7YmGhUdi2txZNmM+u+QtzQ9TDv xU58Lf5qGinsPc4F5r6+l/dNanHFB3q2yMtckFt20Zt4vwaLy1JwdJNxwjm6 RHIa0Rp8dLo+4X40OzTosjkM8NfgYOVTS3w27KCalDYdzlOD27yklKg12OHJ mfwmWpYa7E2e0c1Dww7Vlxvs6A+qsW91j2xmKBvIWYxPHhuoxuLv8eOe0JNg 0MZRe+JhNfbWvMWu9IoVlsmzecZMqnE+z7t2a19W8Fbji0k2qMZNeWseFfdZ IeOj6GM2zWq8UBe++vQcKywsyXGfkqzGd7wnpe9XsoDTCbNITrJqrKjPTvNz gBki7fMfnEuvwpzR4xStjExQlXNh3CipCjPCtmHfFiN8+dyo+SK2CqsIREis jDEC75W3lygDq/Be8j22uAxGaKFeo1q0rML1VcV1AqKMsJwtU1YqVoU5om5t Jeoch+uf3m1J9FTiavPRjfEiBrCjuvXYuq0S0wy5JunEMkAi+jad21CJE2b5 HGZdGWA2628fS3Elrurc9NVVYgAPW9bUnehKzE1ZyGA1cxSKKO/LttypxOrU zs4POY4CFWEj5OrvCjwzdpFW4TYd6Bb/5Fj9UYF3la+RuIjQQQr719qX3yqw /Opk/yg5HQj86/6+OVqBr1T/eUBbRQtq+IVsQVMFvmTV1GpDTwthsoRt2tAK zOkR1Dg9SA20igEWn3gq/tMT96fKmhL0alwOAk5VYIEvbttL1yjhJe/jBFGW CqzJsWZ5nZcShCj0OkOpKnCYcj6b98QR0Og5y0FYLcduIimDBdePQNS1/o/p uBxL1j1VoBY/DAwaDEqPbpdjgWD1GDhNDstFVN8jdcpxPhEhzGiPDPopyfyr 1MpxBKfMm4LPZBDQtdmyj8pxoB5vSkMcGWwQJiSiuMsxUVf4cgc1GXwWyOOt XizDQ749p4xJSSGNEpEfeJVhMhlHvTl6YvCwkMzidinD7zVCfq6sEsGtLhE5 ZdsyPGmz0Mc1SgQMftxe0ffLsPhU6d+1F0QQsH14g1v5Pw49GqZ5hgge/Bj5 rny0DKvNnlj9KHcI7oaNhJ5RKsXFQle3EkT2kXb4ze2SS6V4PHPc3vXfHlKM mHggJVCK3+xzRaS82UNCUfMKqkdLMdWMc2vmwz30L3b3n81YCXY5nURTlrOL XiZz2zdZl+BhzgauKIEdNFlgf0cnsRg3/7g0u2K2iYYLt3rHQ4uxBu+mutfl TdRV5Cll7lmMf1BXxyoc3UQlJUGMribFmP3e2CfP5g3kVZH87qVAMZ6Ty0lI ZdlApxo65H+2FmFVWd4bpp//IsPeYwK+C4X4+5loy1z/VZSgYP11dbwQB61e rLE2WUXvcF+M6WAhJuv79tpUdhVdqfHdVqotxJwiVlHvD1YQZ+bvLtqnhfjE Fz3rLq8VNOvRb5zCUYgj5U+7Dgb8QZYi/s9r9Qtw4+rq+VGjJZRROHmNT7UA 8xQZ++yfW0JjvNL/klABJhtSiXFcWURq7CumXmcK8Hn6/BYd/0UkSHnvwtW1 fDxZ5b2KC36hPzPSA8MR+Zhu4DQp0+GfyOn5KvHy6zwseYTobMXOHPq4pN+p UZeHn/zco9fvmUNSCs1Pywvy8OWnx+bVE+bQzp+gw46Refi6LO0v8YtzyOsa O+3ezTw8qJpi9tHmOwraV2KlXMzFAQzhpqy7MyjxfqowL0MuLlzJ7hdUmUbb 9cQrQaS52NyF3sCfYxrdpreoWNjIwY69RO85tqYQW/MF8eKxHDyzTHL2Qt4U SmPqkRbLzsHOTqps2VRTKK939aqcVA6m3Ti9T4YnUL2wsoGhYTZWUCb3brb9 jAwPBZjkaWXjkr+CEo/EPyPSIWyxqpCN85YkLAO2PyF1O0nHwPPZeGrIS2XT 7xOareKNKNnKwl9XwrYHkz4iemmy1n8xWVgWalq+T4yiGkrZLuXALJz9uXaV Lm8U3RnzeBPjmoWt0017Uu1GUY7H30+8RlnY7d0dq2+HR9FlPLOiLpiFV9+V iBBLv0fmCu3cr7ozMTmNmoNoyTCiZvzHt9CQicHxoMjAaxiVf78kcrEkEyt+ 1N6aUR9Ge4HlMt1xmVhE0HeJdGUIRfem3fhtnIk73GRs/S8NoSZ17yDYy8C3 Lz7JYq15h47dkvn1VSQDFx5/62TU0Ie+kfodsHJn4O2q4Mb+h32orKz7mC5j Bj5TWlG/xNqH1A7ryPRsp+PIU+qRWh69KKD2YXhZezr+ymET7KbSg/4yPhf2 1U3Hly6GF9wn7ULtbePyjYrpONS90Kuh5TWKesx1c10qHS/03jtd6/oaCbwu 9nnIno5J7jPkpa50IjOHziGtuTRMF3VDmGShA30YXrHncknDSeHbYdfX21CW l2SwgWUaXpqvUw2qb0N2/J4pCQZpOO+bY5OeVxui9Tv8mlI2DRuuEPdVHGlD iqKnmdaOpOHscS5DhbOt6MnpFzZBkq8wf+ho5+J2ExJ5ob7d65WK/zFd9DjK Uovk3P8FttxPxQVzc0UjHTXoxt2S45XKqZipg+iMp00NcuOkFUlhSMXav/dU vN9Uo878AfMnOSn4e3+ANkNkFdJvUHvP8DYZaxV8bKIgVCDLlD1jispkbDLq muG2UY48vIp+7z5PxgGsGzsNZeUoTY6a6rtxMlbwGepMPVuOfvb1y9auJ+Fm y1Wd1lNlyGvsWukd9iRc/N5JQdGkCEU178hoEidhsn794YdLhSjzVUGfwvwL LFx+pHDTtRD13KecEyx/gTvOsfsqPi9ARxd72Q5dfYH5rUaU733LQ1l7yqFZ Von4LRjH7dZmo5rJLeYXWolYDGlzWd7MRr2tednhEonYeDPmCeNOFloOONzm dCgRV2RPqjDLZiEpmp5N5bjn2LCxf8l9IgP1syuZLTUm4OumCqR219OQ+d9M j4qMBOwkoiUfRpaGiPsPxTmHJOATjCKl/J6vkJRLQzuRfgIeyGN69NH8Jcoa FuRgWo3H9h+dfb9qpCDPoONj6Fw8NuX12uBwTEQshrarJHTxePpYiYoyUSKq Ent7pHc9Ds8U3qSliXyOfk4HSel0xOFuhgPve6UJSE9mN/6BYRzmC+A+1kwc j4RXpjWj4mKx4/mGNIaVaNTXjSxuuMdijrfim6rx0cj8ZbL3CZNY/FKQ4dy8 dDRKUb1RkiUci6FGbVQsNAodzumhqu+LwXf9qujibSNQpscZbq/yGNyVtO94 7104Qjp+0vKJMTj3pL19tXA4cjgk83DALAZrKPKN/th8hqZvl3ZNH4rByaOp maXZIchDlHoyZz4aK6wrrbIwhyCWww/XH72Nxq9vJVN9Cg1G6tVcPBvJ0Zh0 l86C4BqEGugSfCklo3H69oLOb5unKLbTQ+bi4yiM/JhaTLp8kY/WkvUnraj/ /OOmHreWL7KavJvpKRGFE9UCm89P+qDQP57How4icVvFUZpf+95oWZ+4rJ4n El/qLKoQr/ZA3bYzTKTLEfg5l1VJxJI7SnvW6aleG4EvW6zxH+J3R9o4UHVG JQJPq3QerJa4ompeqnlq63AcJj7HEzrvhCKuLF7XlwrHQ6epfP5zd8j89kBV OlE4dqT+nKee5IhYIiL9JOLCcMRiyh/3Ow7IY/3YKaP6Z7j7fsY7Ewo7dINu PaDA7xkmLXhxp9bNFgnxffj1V/UZLiEteKiyYoOmDBLrQyZDsX8od9L3d9ZI oZPtRiVJKG5CwmfW1h4h9sn9xv03IVjFUrKxjOoR2tic5FJOCMFGd9PCOfks Ud759D/j50LwiLTsUJODBaKOPRNGrh6MI2JpHiuomaHvReRrmszB+FNVPQtZ pClq6Zq/lTwVhKv1bA+3fLiPbHbyz4rYB2HKSjcy7GCC3hsLddxKDMTLZIv9 fEP3ULE7HX+WcSAWlI12upNuiALj/0Qt8wfioZA/+pxud5FUb4Whf/NT7Krz TLRD4Q46OhP7eiDwKZ4LuT2jJnEb/dxzEGDRfIqb/amgS/gWShGR3Cn6FoAF q0vezl/SR47XWIw3CwPwM3LBP1eu6SF10+1uWccAzPo8O+GX8Q10KLEx/gNF AJa1ZalOztFB9w9A9JCgP056QeKk4quJ1IndC39t+2ErMi7+63kaSIqs5szH Lj9M9ef5bvdNdURNJXCixMgP62hKZrF+VkUbNA/iXgj6YV2NfF7vvGtomj6D 9umOL64coYht91VBNUwsJAZxvphLqUuUQksJpbHqeCoZ+2IL5ealZEVF9Iwt YvOCkC8eV3mXI371KjLiIl080uODVSt5RrMN5BGDwVS+9aY35nU8f6F2AtC8 sd5LxWhv3PazfmbxOkJND97EsJ/3xhRkMsokAzLIzL7Ovd/QCw//LszR3biE pF2FbDK2PLHin4mFkVdSiNY7y9Q1xhMXhobZNelJorrQqOtnuzxwxzXHa/d+ iaHwKHK5f/c8cOVW3asHPReRSYKHxOi2Ox6dDFN0LL+AqDMsTvsLuuNyypgt lRwRNJ07eex2txsmYpUIHzIRRjXFuodFjd2wWkjPR5cIQXSv/srKZJwrXuFj UfXi5kdiuOZ7tZArJt4WtX/17Bw6/FrgS1iPCw58EqhcRn4WVQyydEjvOeP0 3a1W2Ys8KOhDRO3RBGfM9UpkInGGCxmMkxb9EHbGE0sfEsOyOBH5jz9xCfed 8JqmsCZ30Sk0tmQe8njfEYvWCU2wPmNDZWvjngrPHXGNRobDSuAJdOugx3y1 zwGTlD1j5xxiQkJkcKfX1AFPCHgfdmBnRMRU1Rpp/+zxxMRMWarfMVTElC6l fsEez8WLeKTF0iNfNmbBM2/ssL5p1ycJd1qkxxXOuWdmh2t0Lj803qZC/OdI mEYObPFBptO7nVdH0IGgK2XBC1v8+wXfsuJjCvT+4u9/Phdt8SMnIrPYe2Qo 75LZmv6ADXYazIuSdCRB2le1xsmIbPDcIiU/I+khpJ4QkV4vbo3Noi6QGvzd I2ymu4U+ePgEd6TJdjec2CGkFZvbM6Y+xhEHmXV6LpuEa/XaBh2DVjgAdT7W oVwn/O1EV21JrfCrEZaN+YFVQuogv9BpqUd4SJN3zLD1D0FxnIl54JElNmQh kRVoWSL8mSc+5P7qIZa3zQz6p/6ToKZ0jEHgowX2JxVJQ4R5Qm4ON88ErQU+ dSPkhL7dLIGYXEwiQvEBHtVPTphZmCYYmikog5c5piLZuKcEXwkNnbq3/1Sb 4ZP0I7vrp8YITDxmVulLpjiIrpT3m+VHgp2/o5f2GVOccGJw3+Tke8LAt6dR JHfv41GK+XhmviHCObmEjKo4E2zKyb8xwDpACEjPqTJ7Y4y3vL8ZH/LpIUwd qu1iIjXGT7VPmlU5dxJkjLo/dV82wl7DW7MP/rYShL1LR1fmDLFJk9YjrfeN hDnC4LaO3l18S/qTGF9yDSF17w97zes7eN+K8KzibAVBt/GoHIv4bXzxPvH9 ob4iApXbBXO3rJuYV2s9esA3h9AupRM6fkwfr7C+zXinkU5w27QvQf438BU8 mXniTBJBtCZuOG1VB/MbeIhu6cQSfjhUbxCbaONOop81CtPPCGkXP5wwG9LE RyRvMpAH+xNKZpc8I3zVsczCNTvaJ24EdhPhLm0jVdxMean3Io8tIeyrDS0z KGOlugnayyxmhB2DCr0x9qt4t2rrS+HVm4SHX9ZevtqTxVnUspZ94SqE0lLL t901BPwlgm5Suk+SEFawZKjpIIl9jdupzVy4CJbZNr8/iYrie5eZSe7qkxEi rswftE+ewTIxIb/Fl8Zkoqy+yOZVMuCn09N8qRPhMouvzP+M3txGMZmthQGi fDKBTTTSx4xOQ0q86LW+mGaZ4B+HPLbEBCD7xrnMQK01mQeunsVrBmJQd0vk G+v+cUKo1w7bo1fS4EVGlKWSL0T40HZZccXmCtBP1jMNfJAlWCjs7AvEyMPt 6xfIk39oEba76qotKhWBI/HF5ANxI0KoivPjrPcqQJilaCEWeERgeyN+Zmpd DaZMOUTCnR0JemfdlsOpNIGW6njtQyEfwiuLW33nU7RAjpjjcK5bEOFHvlRO r4AOyHnwoVSfKILIL2a/B8268PUYhefv+ASCq8DmXTJ1Pchj0xbKlXhJaH/8 4VLmpD5oGB66qzmYSaAqrWaUtb4F71WOEbE9yyfo/olbmTy4DbUeZSwxkmWE FFGHAY8oA0iyMBag0qoifLfTyT/BaQiFAw/e/T5TTxCquvC0rvwefPeYtNfr byE07gSLnE83gqluuuqGwnaCUbLLKbeHxqBZdctmyKaLQCpjQd0ragKyj07b 8bf1EfLG9XeYd0wgSKiuNCr/HeG6p9IP8/b7sHq2MbA0eZiwyi75oTrUFGQ9 1IWvNI0SElp4O0l1zEC8raCilvCZIH2PqULnpDnMiWo/TD47QZg8IEvLmDGH A8vnWuOtUwS/tPXwlcIHkKLQpcPAP0M4K/vd/YqDBcyYhdx+OfKdcEVYMiTi +kNQs7PX7SFdINxmD0kY57UEUWa1CsewRYID1Vgm/6FHQFU8HaQo9YcQsS1Q 7vL5Eei/7rOOvbNKyJv3aumqsIL6b+3VipV/CW2jg/3Hwx7DCx4By5dym4S/ 5Q5zZcgabg+obpcy7hMoNGdcD6hsgFWZWUlU5BA6rhTmk+NiA6QOP/1ubBEh DiQedP27Dbiw75JyfSdBguKT4X+1bGHz/dhzny0yJC0QFJfcYguiGu/dH4gd RorcIsly5+2gIu2r+eckSmR01C8vitQeohiinXJ/06HHh8+XStrag/fY23xu 26PI7WCkenLCHgZF5d/vkRxDgRseTU+vOQC572ijd/lxFLt0pkOg1gG2C0LY RtyYUNrs294RbkfYc5BY4jZmQUVjzoNuUY7w2SXgXrbZCdTV2zvR89AJdi/V M/K+PYVGWu1mrT84gT3Bx/ZGEgeaqj35i0neGd6M6VSIf+VEO9mPt0zZXMCm WzvSOY0HUaQyHVCFuIAl670xsVO86HgcJqtcdwHPSwbGSmVnkaDf0WNE71xh 11+y5erx8//9+wbWvMtuYDVzTCRnXgAp2tzn0MhzA8Pz40evDgshI8NqwVRf d7B3EnrH4yKKHt8wFFNYdgfGhfAHL2MuIDc1isu/bntA0eGFZoWGiyhO+pby JTFPEArkVKu5IIHSRYk1ptI8YZnUvUk3QBKVnCu8EUTjBXRV3Xe6ZqVQN9O+ yeicF3R6FdZ/GbmMPF0HW+rUfKD0WtvxmMuyiHSdR47a3weGnr4p+3BGDoXa uL6+V+8DVir+1Zqs8ijhAdcbcl5fOMifL/rMdhWxzThp3Dbwhf2smV+mgooo 07B/uDjGF5IczgqcUlZCZTccPuse+EKuZefnk6kqSGKoxyBP3A+4/Gjffvt4 DTWrsU/tPvKD2i++Q+PsaqhPvmsu45MfmCndzXJ+o45mRFn+/in3B+OfRVUL d7XRzU4G08xZfyALDGL9zq6D3ujRvL/BHABKV1WNKmZ0UI07cVWDRwC4yW2d lPa9gUJfL9oHKD2FuTr5SB2KW+hAf35Gwu0pTBtUiItu30IOP6d1FoqegoTE kvvHldvIkO7jRXWGQPgiV/3t36YBunCrbY15IhCu3BCAvGIjlPur8X4fXRD0 dthfDpA3RmxeNSMeckHw7w71LZUJY0SeWVg5nfsfH5sQes92H31ZjLcvtAuG kYwWis8DZkjDO2rmbnYwrD9927MQYI46jz7Tof8UDIpsO8u2Vx6gEgmfi46E ECA/7HL7wmsL5OdjuYYOh4KX8oCPL4UV2mQwu78iHQp7httit2etkFX2vZHM x6HwVlGDVK7rMdLr0608PBIKgqpmqeEvrBH/cbAfTn0G9CtdA5yttuhVzqWZ gMFnwDti7Tstb4eOXxLTkSQJA+Hn3XqufXbo312+iykWYZC958V8Z8oeDeUe WzO7GA6h630LtCJOSFGa9j6LeTjUU1qdru13Qg1vDo/0JYYDF8vnjjBLZ5S1 sl8h/C8cTPYjzBfLXZDL5R922z0RgNx8Y6st3FHUA0NXReEomGN41iHV6oNc d5Ti8bUoeC03kMZ80ReZhIuWS5lHAfGblwayeb5IrJJ0gT81CsL1JPzjXvih z/8KbtJRRcOG/adFxhcBqD06ziGYNxrqnQ86zp5+iop4vKKI5KLh2k3qtY7c p8jrmlbPmks0EH85TtPUGoi4EjYlP81FQ6ui2FYMQwii4pvW0SKOARW6vJ3J 4hD0t7HPuo89BgSygX5LNRR1TafmNunGwEIieV9l1DP0SFCBOb09BtinO7IV CBGoqjNq4+HLWBAbO86kzBiDUvXdGGbqY2FvOID/gXsMCvx5X8hgNBY2c3zM xWZi0E16SXN16jggk4nnWKyNRft3JkYvuMXB1WbZpBtO8WhuuWulMD4OHjAF N1j+jEeDvmU0Z8rjwKk3S07XKAFl5PpfZf4RBw4dV3nrtJ4jxTW+6t0b8RB1 iu3XddUXSDjw2JCDbTxsiTi8iXr7ArGw7i8uhcWD7zDeeKeThH6hQZ6pjniw WPWI0TdNRlGhTnGdogmQhlRV2F6mos+cHfbhNM8hLJz+eKhMOlLjD+YPPPcc 5olkotrC01HLhevTXvLP4UCIoplpKh1lyX9Ut3F9DojyQwJPcAayMfvFp/P9 OWhNcm4zz2Wiw/nHpliaE8Fnj3KkaiwHuZd/Sjj6KRGk31iHkl/JRcv1qdcp 1xIhYyCTMj07F73vO9u4e+4FcO7cjm90yEOvFi8nTMa9gGva/m9GuQqQhIip WpZVEsz4GNpytBWjfCk+ktSgJLhdkRSne7kEscku18dnJMGDptmXBzUliFjb 5WzQpySgIRDf7qooRQP2YcSWCslQWZ6tJz5Zhkxrq+qE2VLgCp+C2V2aSvQR u1qfk0yBreh/f2f1KtG1HsTLqZ0C3HraoVfSK5HI555YhuAUcGsUPu0mVYV2 d8afrK+lQK6uYh23bTWKQWRnGvtTIfG1zlAjdR3y0GbXnplNBc5DiuK3DeuQ ubm4N9W/VFgWK8rqLqtDlyPMPt8ReQktydknGG/Wo9mJ1+F7cS8B81CPppU1 IHHPwA2C4SvY+84yXBHajDiiX3KbO7+CAIX+3fmFZkSZXaMZEfUKfqd/DCa+ 1oIm38wVTLa/grMtu6FL1BjJR2SW4mNp8PZH+eC0eitanCAxNXJJgzxfqLyz 0Yam5yPd/gakQeRoaaWLYDv6sHIyOjg6DTLHjvMcN2tHrWRiLWUFadCZqXGz d7QdxQmashBNpAFaD1WSa+5ABM/ON+my6VBtJLjAmv0aRbA9FZ+hzIAXsT9c xiZ60W1VChTEkgHhJXczHwn0obNuIYrneTPgrdeAZIl7H2r9GK5vL5sBVlz6 79XZ+tFKTIIriUsGqAuY+pw0f4N0j+Q1c3/PgDeKDobDbO8QhxR/V/dqBiw1 ETMfcX6HlsyL3j46lAl38o9ZkQy/Q4GdZV8rT2bC62qiAu6rg6jOu55IQTsT mvLSohiJh9DJjb6rpjgT7KbGm4Qih9EPnuvqhwcygehf8s/89mFUpfNOr+jL f/Mz67ORG8NIrXzkwd/1TCBJmQ57eW8EeVmNhwQIZMHrwOCJDxLv0bdvSwNZ L7Jg8Af7Y4mdUZT3jl7vu302SF5sujHx6TMSCWhiTffJhp2GnEZrpi+oTspi wiA8GyJ+O09Y635BPenY9H1ONvzxFL7bOPQF/bB/Yt/xORv89owSw4fGEB/L m6h0yAFJ2iHdmLkJVGAU1H+XKhcMVB4UzohNowuMFyNZWXKB+8DO5cidadTQ O6k9ypMLR/UORzzxnUZ9FyS+qKFcaNPmL9h8O41+kn7/cdk2F2h2z2jTPP6G zufLkZ/4mAvvjgcQAqpnUNHK/pUPGXnwVvKk7HPXObRtxDysVZoH9ORxGQq5 c0hxUOT+QGMemA2KekqOzqGpkvtPO9/nAW0ZTe2y6Dw6btXbW0GeD3wbd9YL lueR+1ycdqRlPpzf/jeY6LiAro2dN1W+UACEt3ELco2L6Pm1q+sdqAACN0yA f3URzdYbBoJqAaxJy5804ltCXonReRKmBZAaxBxVl7iEym9sLvIkFABZ1cd0 HvdlxDLY7ki0UwA0sauN8Wf/oPnOW0ENbYWQdYL8K9nJVUR96yGl4rtC4K22 +uaAVpHIkkv40HghsFmE9jObrCIXxsTYH5uFwK8mwLqTv4qOmH94xSRUBKRD AsISMmvoPIVOnV1SEVitex/UWf5F1ipqC/z2xXAmvfmQ7soGipu4Y1XjUwy1 Nj0+mSc3UZ3to9+yEcWwKyfxQFBxEx1KCl2/mV8Mkrs1hJXkTRT9s4co6Gsx XGGm/IuubaHKZ1dPzKiWgPhz5kXOim20OYBUk3lKYTZzhRBYtoc+zDuHINFS qHqaaCbydQ/VEJV3TxNKIV+2z/AY7T5yEudWOKdfChHcc54BVvtoI4WCUB1S CkLEle4sAv/QxqNBoXfLpbC7ts4sUnOAdkhFQ3wNykBmMv5mpTsR/Iy+fm7E pAxUqrN72xOI4Mspy26eh2Xwm9UzfqWcCBqkMsl6HMvgqKPQy+IfROBmxehH G1kGp0J1T2ToE8P2yLZbclsZKM/3H425TAJbGe1W1bzl/93jMH9pNjLQlftC GilYDvl2mJgMkUHp9EqKhVg5lHEs/Nu8RwbmHJwDJ+XKweTPhd/6WWQwmuot 6He3HMaU5y6RCJNDRaLMsnpcOXAOjqxxq1GAVUSN9Q+iCrByfezskHMEegTf UrQfrgA2w9+UEQNHgHvg+6tkugq4XiEv8/7vEfhCxTiozl4BjFSjB3PylKAS Yi9SLVUBT557tvHNUgJvgMiKr3UFkO/00ckJUsNX1wK7kxMVcIiX2aP0Gy2w jOv98JmpgG81hI1MajrQRiSGcwsVYGJz+2SHBB10EhuolG9UQMmZ+c++z+ig 4BkNhxJ9JexbXOHzO0kPTqk2A3bylZBPFKh1sp8eqNskzvXlVwLZ+3VuussM IH24Y8LFqQpezne/ljNmhA9KvNItHlWQeey2p487I9gFhSSQ+FfB+xEa7Q/x jFBArqkREVkFGcr94X19jMBKNtGamVcF/wRFFj+IM8EW0Wbm2y9VsH5tBMLo maFml9+SB6rB1WWPbPgTC4j+jtl4R1ED3Sss3afq2EBKdkU1lbYGzp/WKUgf Y4MrsRrplow1sEHz1urqARtoSlKrkXH/x3a2U78V2eGJ99N0aVQDCV/FG4Y/ skMBnYtatkMNpE1wUX47OAVcIncz3KZrQGNhz2WsigOO2Z5VP9NYCy1B/4zM dblh6+kJX6+2Wnhv57nD+pAbJpNoqj5218ITfgXBSU9uyOtcYw19Xwsco1R+ ibncgFhavy8v1cK+ZsPU6C43WOCbnnUcdSA6++Oyey4PtNCEFqkG1kGS0z2h UipeeFiwSGmnVQ/9dz/21x/hg4ahLxI6N+sBP+38tc7DB9TbPSZi9+pB7t53 KeUrfFCilN2wYVUPXzTaQoWd+WB19q6le3A9qPpH3qWc4wO30+96A3A9vBey 0djt5ofQuPLg54INML4T/ux0qgAUeDmRNx9phHcGPhExSiJg6H+S1Yu+EX7Y dNJ+1heBo8Gt54G5EdynuJrPW4iASzSlVhtPIyhbPWhaDxYBxayXya+hEcjM l5fZ+kVgurdL5K1jI1SV9To3a4kCCyPzna/TjUCnxEVmZ3EBggprS4kamsCF pEONrFkMPkXytRCut8AwaYLrxcJLEEpRRiZD1AoZu5eMA/8CfMuYmdQdaAXL g3vr0+byEPxzNcIyvg0IEsW1v+WVINPb1ND7STuQBL+xsjyuBi42T6boLnXA QltKPVGyJqQxRxkmynTA5znxELFcTehtKR/nuNIBAy0fqJ9UasIJmvVPokod sPFw9dJ6vyY057sP6dzogOD9fWvdfU0gngluf27bAQ/ML9jcNNaC8BuZWacL OmBEnfpfkJA21Ox1cuUVd8B2K/fRhMvaMJk5lyZS3gGa1AJnC5W1QWSVL1W2 rgNu8hwx/2miDcMRZfH3uzpAhnPGofm5NrD0NAfmfuuACr0lijpiHbhi/ZVU ZK4DXIeuOEnS68BDJiL/uoUO6Hj7kq6FXQcaTBW8e/90QE5b5MCUlA7cJep3 /vWvAxiy15o8rHUgMG9x3Z64E8Q0FPvEPXWgRIPWYY+sE0YDPjNthOrAoZda NjQ0naDWPOsclqMD567aL8fTd8LQA+tokyod0FqMszp1vBNUl+79hXYdcIut +ZnD3AmLlVcyeQZ14P/yfPD/eb7/Acxqd70= "]]}}, 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->{{-0.15707963267948966`, 0.15707963267948966`}, {0., 0.001212612378773217}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6673184205709686`*^9}] }, Open ]], Cell["a linha de codigo pode ser complicada", "Text", CellChangeTimes->{{3.6673184369909916`*^9, 3.667318444861003*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"w", "[", RowBox[{"\[Theta]_", ",", "a_"}], "]"}], ":=", RowBox[{"a", ".", RowBox[{"Table", "[", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"2", "i"}], ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Length", "[", "a", "]"}], "-", "1"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6673184499910097`*^9, 3.6673184999810796`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"w", "[", RowBox[{"q", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "Pi"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.667318510551094*^9, 3.6673185314111233`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw12nk8lN/3AHBmRkay76k+drJUJEk4t5KKCFlapLKmUhFSaaNdISWpRGXL FlkqZMtaSLIkEZpnxjqTZcaM9Xe/f/z8wev9mnmee+855577zLwou5928CLx 8fG9wL/+95dcvrT57wZ/89LF//2wQElWSWPVwz1gZfQmbg6b3RNt2xVzGAaN aW4T2H4/qTUSOT4Q87PUqR+7b0vDQFHMaXhfaxnagP2m3YIvp+QsGMcmtGZg uy9Vj+LLOQdWRbR9N7BXgMCqvUkXwTh0h9h+7PazRFZKzBU4psBjq2PvaBtY GVp1DSYSDUVGF1iQzHTwSikJh4f8Zk6Z2HxCn7OaC26AldihZg/sQ6rrp6az b4H0eUaIDHax2evNyml34GWTkVPFPAtk90mFWyVFwPj5bA9P7JZ7kxIJMVFA +lsp/2SOBY9/5On+rYmGnCbrCk3s6j7flnNVD4B0ov1Z7iwLlGe75F6WPITH D2THs2dYYEeNKdnw4RFIr+adUMG+LGN1+EtBLARE6q+M5rHg19ri1MnsOHAy t1N34bKAahZgdTvjCZzyTLqUO82CjVbazBVp8WAoulyMjP3I8+kGy6RncJCW 3/eQzQKb+AvVT2ISYYzs5uw5wQLzvQoFj3ckQUhDYtStcRyv/WyB/pokKI3U Fkr+xwKyT/aboKqXMOANlfVMFhy5tnL8Rclr2Oqt4Fk5zILpW7ytQ5uS4eS9 /8pyhlgQGdn+aP2HZDBZFnY0dpAFpc/uG9cXpEB03vk7tnQWKBTNXxnPToPr cYXhZ/pZkFva9X2zbjpEyg3baPWxYOfnQtWbGemg2nPlZFcvC4Jb/OqWp72B +RZaluZvFrQO94haJGWCXHO3d2AHC/CwCY9j3sLxL3MmLQ0ssPz6TL9CJBdK kw0Qr44FtTf3SW9wyIWjSk5Ry2tZUDf/vWtVdy40KD6RsaxiQf1ItefEaB48 NxgR3lLMgi91GRfixQtguetn8YZ0FliF+xwSdSqAX+cF5s+l4tfN1VB4fAFk nfx+5L9kFnwtTBDwUymEjPCuZy6JLGh8HR2NDIvgh0325lOxLGi6EpzKcPkA bnViahuvssB28/o7rs8/wKulnatOX2JBM4d14nvfBzCal25IvIDt56tf4vsR 6icdNo8EYh90LY28WAxZDk8pOr64vjZubd2QWArR+as+2tuxYHh6yeKWsxXw yrFF7YACCxZVbao3PqyA2j2jcUwZFkjbPbyjl18BMWH56pckWQDp/0krTFZA M+nDy9vCuD72Ga/+F1AJ+yuco/fPM8H8o+/eFwFVcNlmjsL4w4QHFxrTZvyr 4aeWwstvSUwwnn9gl3+mHkz66xwHJZlgEno8jhpdD2GkT8JIlAmbZ7f2Hnpb D+5GMTseCuH78SZPUJn14Dge5qHLx4RtbKdbh040gPaeDTWrx8bAdkyhTND7 C7i18As6146BV89LHdeDjXDGMn/386AxaOjdF05SbQHX6Dy9NQ2jgLY6zqa6 t0F/VHP/sTUjcODMrn+F+39CxqotN8qfDUGZsnZYRcpvCH9X67pzmgEzTSZ+ SUW/QftqQO3qcQZsuGC972rdbxgN+BslOsKArNaTa9DQb0gg93kP9DLgWfjb X+W6PdC02VCjoJYBIYTh+vL8HrjAJzMoGMeA9W+A9qmyF9TuMj69NWHAKSe7 bwmtvRATrvFBdAMDMviPFl/62wvDal4GAWsZoHIgLNpM4A8UJEw2WKoxQFy4 xvTTzj+gqzF6XlOUAcyTVrGl3/5AxuTY2eYBOjg+0X7dc6oPTpxlP2ZG0UFw IMuvNLgPjmYoKVpE0KFYZ63xs8t9sP11fdCLm3RQKl/ftC+yD6xcljccvUSH McJ0+kd2H1icfZukeoION9fvsf4yiq8P2dgUv4MOH5rPThYd7wcnsyHyJQod TshzPsUG9IPAuisD5/nosMo95HbghX74O5TsETpHwHV26EqDu/3QvGHUK2aK APsVN3dkv+kH7wN+UmSCgGHfJ89eD/aD1+XeXXO1BCgKfNoW7T0AJeDeGhxF QJv6eQGF0wNg9v6+8VgEAZGWG+penhuAUJeL8iduE0C6nW2Vf3sAzu00PHrp GgGDS1/Yd2QMwAzjRvvcWQKKxK8cXsEaAKuY99p+Bwg4o79ZOWV6AJAP2ufm QoC2w/SAHt9fCGVZHndxJCDh4WlvkPgLXoGHnI7a4vnLHvFzX/8X/go3ctu2 /m/+Wy6mn/sLF6yS+5EeAUvN5k31r/4FlbseFvnaBFQf+rjw8fZf+C0gwNTT IsA4UT/sa/xfMC130TNVJWCVisodZslfiM1YvVCqQMDPrb1W56r/QlGPukmA HAExHk+X8TX9hZUHmcNrZQgQSJGMluj9C0/XramsFidgVJMcZ8hHA2f/M78c qQSk7izf94lKg0MeMi62Swg44ntxuaUEDcjJuoF2FAJ+ZEwmuKjQoKy+PfkU HwHFerTkCxY0+PSOP0CKR4NA2yRvsg0NbOaOXXeYpoHeaVete040yD/5+MhT Ng2SctsyE7xpsNXJ5K7FBA1ura95V3GbBk/f2eiSR2nQsePirg/RNLD/q8p6 OUwDNVf9vrdPaHDD0D105xANqq4niCSm0yDniZtANp0GC+1Bxy7V02CiNtOk rR+PO6yzGNhCg7o66+K8Pho8X+iPPfmTBm3flVXi/tDARNP288FBGlisafhw vocGwSEaq0zwuqMivnm+6KJBzb3fBfo4Lk8+rrpTgq+TfhljvVqegDlyTF5f Jw3eNSyEyOM8xH20XrGtgwb8vQVi4usICD5p4HW1nQZ2E8dTBY0JMPp8qbym jQbM5Z0/ODsIUDq/pvDYDxqYrb1/nLmHgMaXHOfaVhrc27aNn47rppE3KKuL 3e3Ci+s5TMBClCo3/jsNtE++XdPuQ0Bibum8GPb5q141jacJuNpfpR2J11n/ SNG1+hwBl3pNw6SxvT/dupN/iwA7taulm77RoPC7mVImrnvUujblZzMNKPTJ oldxBPiIKVVfwd4788bmaSKu69PrVqzFfiV6hPYgjYCWNONcehMNxlVkL955 S0D0HWp4Kjba2Chx7T0BL/iOxZ3CjrIOSw8pJ0BKTO6fOXbvYWM4U0eA7Jem KDlsvUBmu883AiKcTc9zG2kQejv55OFOApqJpW/7sb8+P0B2+UOA57uu9T+w l+eJP7VlENAwh5Y2YfvW1K6zZBGwifrd8Bv2h67QOrNpvH45yaIubEGmgduG RQK6fK9Hj2I7k4amdAXp8HNjUq0gHj9FNjFCTYwOO3PbD+hgT2k7qayQo8Nq 9r09LtjbQPij1H90SJPXSIvAjtlbuUdYkw7Ky3ke9dj9PufopLV0WPvX6bYI js+6UL1LM0Z0+GhxXfYg9pXov1IT5nQQn/osnofdnByfMWRJB9nbu8+L4fiv /LhnS78tHY4G2zgEY59sEvj505kOQeLMBAK7pL/kVIsbHfiu2bgdwvlbyvEX qPemg0xDWGwP9v6lWs/LT9Hh8qfn271x/tNX9Rq8D8bjUV6dmcbevsPqSCru u05qR2A9rq89/zw7gyJxX624F/wLe3/8Fdvtj+nwLj68+w6uR7+RAlNaCh32 ynzfwI/r99yjb/n52XRQ3Bi7pgH7mtmwdngh7vtRCwfjcb3HRv2noFJDh9bB HQcd8P5INDaJHm+kg//ufes2/6LBm35Hwco2OixNO4V0u3EfWH+XfZhGB+fc j3KaeH8RnVPfE8gMcE7w/3oF70/WVbFdfsIMqBqKepkxQAPeau0KUykGKI9T ynr+0kAk9HBOtwoDWjjUb654f29Q+nJXYSsDnocfPls2QgNooPEP7WJA4VG7 FzpjNNgVsBjywZ4BHCZP/iUT961qQx+Xo/ic9X3EnzKO+8axxG2xVxlQcH2x WJyL61WiuNjzNgOSJilXKnC/ii9u0zeMZoBYq8HTkFkaZC9bqvQjkQHBa3S6 +Bdp0J4bOCdezoAb4c33Q3A/VOftKrw3j8dbr3BgWpaAta88dV0FBmGJ+a1e Xdx/N1lfea0jMghrXRU/H1ckwCah4MGXFYOw370/e/E/AoK2/HeKajoIBekH xCNXE1BzZ0rj+oVB8Kn6oGJmTkCH0K7Y+bBB/Lx0Ps5wCwH0OwnkcxGDMGyf MbTBggDqXcs+3+eDYHjGVt3ZigCru0/i95QNwsPMr6xluI803zVdpkgagpP7 f7ntDSCgd+mDC4+WDkGxgnDgYBABrLvEoIjUEGwL8z906zwB4hGRNXxqQ2DN En0zcJWAvRF9l+nbhyD27ZklYtH4PIm4Pp53ZwjOmLQ0muXi81C467BOzBBc kFZ9frqAAF6EXnPy0yGY+3pSJ/MDAcvvdWTEZQ7BY3XHcKgkwPWeluelJnx/ PrnB360E9N9r7NgpMQycsrjeQbyPh+9Ll/55Mgxvb1CEjXbRIZrfY7EuaRg0 jEsVAO8bo6C8rbnpw7D7RY+X3V46hLnaNlz9MAw53xOzIg7RQUHndofyz2Ew dFmd4xmA93n97D8PuRGYE+0zepFAh1TSX/XB2BGoWLLKQ3GGDruD9X1bEkaA HiTbrMHHgImhK1kfUkbgVZeqgskSBph/X7H+TuEI8HeWbAmRZEB7ojPSbh8B w9jfFxx0GEAx+3LgpPQouEuKeVx0Y8DRc3lR/2JGYckqL/XrXxggWrXpS9iz UbAI42kotjKgeFkVRSZ5FLYst+oo7mKA5KvW85sKR2FnwVtN6SEGVDdOeoR1 joIO3YSjRx0ELRUjY+kVY2A4YqLB2zEIrMbivo0pYyDyXqevqmkQLqlU6195 z4RV1d9Vsv4NAY0/b/dQORPG/s3tFZsZgt39CT5765kwsrLA/Dx5GJYnnUvQ 7GLCU/FIlaOyw/BhpY5QywwTuBZvbK+aDsOUfEyfkjkL0o/dD2TfGYaTYkei qqpZINimYhm+egTWLFzikHz/Af1hYK7L+VGoO7RvUslzHOQjVTsz8PO9/gu/ zkuBE7BB0WbPTuFxsLCvPFAYMAn6IZdUV56aAB1iT43OzSmILfxKze2YhJ++ ulFed6egf8r9/FD3JNxkUvcnRk5BT7ChnFL/JPRNV45Kxk1BZntC7fWRSXi0 1FB6Jm0KKveX+OrwTcHcWnmP+oYpOMRZcXZIawqaL/TxeYmwwWjvktwlIVMQ IO5v+uIRGx73vfStEGbDcOSXM1FP2LCo8qusTYwN7iJqKVefs6H5v28JhBQb 7Jd2ingks+G3p/XInCIb1lHM/mgWsOGeea4Xvy4bmNPUsLwfbDjxNmvYzZoN x/8k1VVLcuBA2biH0y02DByamS2U5cBaZ4t7U3fZcOD33nVpyzmw6lZzR1Qk G3Z1LYm/o8KBSwe9a4tj2aD14+RxWwMOSBYfLul/zQZ6rbHIT3sO7NnC9fQv Z4NHTovDSDQHLIK108Mn2eAmXxemH8sBEwtZfxoH3z/s07tz8RzIgqvb0Awb 7JwzJCmvOGA8Fjo9yMcB04Xw1hX5HPj3YwwWRDggbbvRwbadA59OXb62QZMD Yh/0wh51cSDOnua6XZsDS1XU3v3q4cDJjE+idnoc4OOIS/rQORDo9n7IaT0H RhOGv1+Z5oBUhetqVeBA9ViCfZ7CNNSaz1lUOnGg3OXRtemV0yClMql5aR8H iivv5pmpTMMxca/89Qc5kBt7TuKL9jSs8Z74EH2EA8/N7L8PbJ4GtVYvw6Un OBB0n2Iv7TYNNa8/Z3Ivc0BD74TduVfTwJrbk/sOr2s0unc4MHUanMb2bnye zIF3U/Y3AjKm4X6satvVVA6YlRoX+72bhl/3Y3duzuCAo/USNc+qadh3vpwV mMeBa74vp+0GpsGiTLqHV8YByybpGFv6NCy4VFIeVXBgmf5t3d3D0+AqMLR6 dRUHnnBPHd0xMQ1PonV9LGo4kHPL9KsZiQuCnGW3zb9y4HdK5wttFS7Majdv Rx0ceCVkvUlLgwvslsg3dzo5cMyv7Ie6Nhe+JnznNP3kwKRhClXZgAu7D5zf taMbx7s6IEBuKxe2L4vIm/vDgRZN+jIZSy605JzbtrKfA48j9qdJWnHBTORB kfEAB5T3ot8iDlz4ln3W9AgN53lAxJLizoWPgzLZ/oMcWNh+rY/fmwuXC7zX +A7h/LyZurDoy4UP8Zl3Dg7juvLvfjvjz4VFmy9f1o1ywJvvjcL4NS7klLgf TWBxQNdzRQHzBhey3Uyfn/jHgfG6KNvRO1zIm2NlGI5zIDQqOJzxgAsLl/S2 vJ/gwMNVFmM9L7lQpMM1v8zmQFHj0Lm6FC4Q7wY6/uNw4NeFKFLeGy5UiB/x L8VW6vwldz2PC20Wwll0XEfbblx95VfIhc03wTqQi+ezXkPP5SMXHgZJjcxh Z0X5b9Wu5MKWte3aizwOfDOTa5Kq4UJw53BDyAwHJkZKXebruaAxzPIZw960 k+rX0sIFUTnLxLpZDrhysqc/tnHBPrJvo94cB64m7w17/ZMLtdrzTfexa/kS 44L7uPAq/dI4zHNgKMdC5QiNC2Vndl9+gL3s0HDWrkEuUHXPCvZirxOO3rh+ lAsKX/PuqS9wYO/HDVUr/nFB0r9R5Bh2sE/37iVTXGg9G3E3BfupzLVO1jQX tF1LSL3Ynz5ruHfNckGYrhsssciBPv/G0apFLrzjK6QBNlkp4FwWmQc/mnVt fbE1muVIjwV58CHV/919bKvQT/euCPPAQ9JLIhvbT9tDzleMB1nfRo/XYUf/ pL5ykOKBU8tE2W/sgps5uqZyPFAz8RIZw+40dHyvrsiDMW8jZy72zABvi9h/ PEimucYvYK98kNjIVeGBZ9CPjkVsBNtdBjR4cEYsXnQO23NsuP+rNg9Me3LR JPatZ9EnC9fwwN1MxY/AzthlNP3CgAdJVdyHrdjN093XbhvxoHG9RWEx9njK tWUBJjyoiZD/noAt7agZd9Acr4d3n3EReyOpSXn7Vh4c/FPBdcQ+kBuQtcaS Bzpt3ymrsS+5yW+Ut+LBzEtCmIvjmbSsrJLflgf+luqiVdifiz12j9jz4NXE J+Fb2PRjQp1tTjz4trSfsgNbr8ZxNO0QD7TFXg6/x/m0OzsT/OAoDyyrCjuP YQcqJ/Ff9OJB8ymLSmns4ksjsrZ+PAg9MXb3EK6XHp0HLzf68+CP1MsTM7i+ +H4Z6SoH8SDGi98qBtvSKGzLVCgP9H9o8efjevSlaTb2XMXr/5bxazP2vZgm 57rrPDhhtCe/HNfzD6b8yaf3eHBd8rXHB1zvR9LePkbPedDF97vRD++XJVsm VlxJ4oH5ZZt/FXh/Zf8yfP0pGdcHucBQFHtGpPitSTYPlopqqMZNcuBRYHW9 YRkPqqqsMt3x/jURFdxztooHghmDwzfx/u5P29WeV8uDlX4J9ilMDqzpbu5f 840HDxkNcS24H9Rv6ZrR6uNBxX+EUj/uJ6e6Fa/50HggJ1T/roPBAZkgN8HU QR7c7Np7thafC+7pf6VUx3lgLP/8+iPcj+ZEmborSTPQ7JC+ZAT3s3W/SYcl 1GaA8kXnQRg+dzqCthN7tGZAfawkTrEN51Ps9olI3RkQXX60L6eVA1+2ioQI b5gBveEIs+pvuN7eyD0QsJwBNbagXUYD7sfBup95PjPwzUtNz6uUA+bip3cZ n5yBIlaE0OtiDhBv8r4Fn5kBqU65Ld0fOGDQY/R7MmQG+k68rjcp5EDjti3s sTszMBEwdqIoG+dPwllzIHMGxuL8018mcMA/WUb+59sZ3G/lbDKecWBgYzu1 OX8Gej0WlHPwOVvt5jj8sWQGZJ65e6Thc/hOlkP2g68zEL9LJujIfXyO79yz fsvIDBwSV/RmXuSA2pWdkKQ9C6p5cf038fkYK0ld93jNLEwpRWjyHHB+U+uU 7hnMQqDSSLe3HQcGGy1JISazwB9d9sTQGud7+faaPVaz4GOm8zIeccCoaIv1 ou8snF5/fCwCn9e7xkxc3N7MAnuDgKnKLBvMT8Zte5M9Cxfqty1+nmaDwcjk 2qm8WcikKlYcmWLD8qEs6t3iWeBz0t4ZMcaGUdqq4sKvs/AzZuF78h82RP8m rRRhzkL8mGDvaBUbOr5+GSgxmINxdSe34Rts8Mw4cEqhdA5W3HhmELwwBUVn h6zsKuagN/u62tKZKaCahWjeqp6D52uuGD1lT+G+FNs31TgHEos5X3NGp2Bq qsWhpWcOjvizDDJ+TUE47Nh4a3EOlDYvqxgrnIJXbev52FvnQarburfWFz8X LiyLaWmYh6MOWyo/103Cktp5R/eaBVB9ts3U/vIELPqtXjToWISefztN6/jH wa56l9rp43wooXO/B9mYBfYrd37byuBDlRZCYwfiR6GU/nes8BQ/4k9PkvxG HYa61uen357hRzIGm3TYi0PQWuY0nh7Aj0wTo3SVp4dg8HHd1LNgfkRWPEyK IIZAekfm7LXL/Kh1z9201Cr8uSotQMg2kh89vBOgQ748BCuO8avTs/nR7Yll Hhd4g6DpWJz65y0/0vg8oeM7PggG6KxWVx4/OrIi6Ynb0CDslCd0Ggv50QEZ TsChrkEIrK83ePeJH9m7RFVmfhyERq1odLmJH1n2VhyOujgIF4dWucqO8SPx MkteLAVfb5160ITFjwoWS1/WzzFAOlvvoNs4P5qTYf0gsxmQc8b0QCqbH60V jRh9SDDw8/T+fUYLeH2brt9XrGPA9iWxjs5iJDRwo9GjKQJ/7lUVtnmsT0JK llFDfxQZ8Pt6zO7i9SRUXCyqu0aGAel0hd29G0jo3o/Hz2+IMmBrhpa1hgkJ rX4WrmDHz4BAfctdRVtJKLL/89xeBh264Nr2jr0kdHx7q7RiIR1eu06byQaT UFvITEalCx0cN3+akAkhoc/P3AueOtBhyfLwNJkLJNQzckAr1IYOxztFJWQu k9Cxjdz9+7bRwcBBgyZ1k4TMmCOawWvpULXD6a7EYxIysf0WsEuIDoEaiiDx hITu9i2DDAodNAT6J8WfklAjZSheio8Od6tOHhJ/QUK7ruwl8+HPmw5m19eJ pZJQeelwFxAEDBjkdywrIqH7V28pH/pMwCOJ8xHLPpCQvzojd0c5AZb/zNGy YhK6Nu0wbFJCQEb2lzfCZSQUVTFzZHM+AQFaA6FLa0lI56djePJrAvhXSahS O0ho58WxbPmbBLyb6+gU/InjV6QWHBlGgGf383uCv0joIL/a7LIrBNQ/0eIs 6SWhvSFcc7UQAqKlUIMAHcer/0p1yXEClIROnyZzSCjpaLxblD2+v4jtCt40 CY19bDFOssXzF9drYPLw/DfGhX20JuC1/IjKr3kS2nhI1FvAkgANLZ+OXAEy MhKMOEvaTIDujsNmbjJk9PtHaM0DDQJErM2H98qR0ZkDstmr1Qhg2q6M26VA RgVZEQJflAl469z9z3AlGd1z20ZVW0mAgbdLsrA6GVWafbQxkyZg4409wh8N yagrTeAGhUKA/J01H3KMyEjb7oaDKokA7j0Rr2RjMjq1WuOu1f++L370tSzK lIyS1QQ2vJujgWnyjgBvCzJi3hT1pLNpsDJd4z9XSzKK/J7it3OKBguZAo32 O8koe5LU/W6CBuX5n9XNdpPRkJlVTxKLBls/Q5eUIxnJrp3w6B+igWrdqptC znh8Uvvpm4M0oHydN1h0IaPdUpqd6xk0qGktuTd8kIyU3rvkp9FokNrxdFPf ITK6SqpSP/WXBjd/nae3HyajBr58pukADXYObESVHmRUrDp8efIPDVbTZceK vMjIxOjStu5eGiwdZsdn+ZDR8u51+7/20ODreP5k3AkymksxC6jupoEt/7q0 U2fxfEsl9Zf/pMG/Cz3fI4PIqPf6mniDTho8nLo7l3OOjMYZ1SWOHTT4ySDs WRfJ6KZIo2ZRGw0uHH0YKnaZjCx2d55k/6DBim6UtvYqGTmqx3iYYx9tfjZ3 +joZOQt0uI59x+vduUsz+iYZbZJKPrAXO7WSY597m4z8WjL5Prfg9WxODm25 S0YczaDdptjDBfZp/+6REenYpc3l32hwb83id/EoMnq5feNXa+y16Vlz6x6Q 0Z2+pbz+Zhq0Kh/QtH9IRn21TlXXsAOfCTr4x5KRPO+4mg62rExh6IM4Muoc i1nR20SDj5HuaXnxZMSIFU5/iu1KFW/9/oyM1h+hVh/BXrj2aW48gYyazd75 rcNOmj2uKZlERmKpmq+EsLcGyTsYvCKjzKehbv/7fpfGrAl1SCYjWmZx4k/s W8fOpgWkklH1XJ97M7b2gFJrTDoZue6gJf/v++PGg81z7zJwffTnuHdgn2q/ qPkji4zEy5XiB7HF96x2mMzB8b4gtp2Cx3tX3xEqlUdGZk6WHquxnbZeT1uf T0ZLzW/++9/3xdwS/da9hTj+7TeGorCfbvgzd/Y9GWX5j1t9xzZ9e0/z0Ucy ClA7IbECx+OPlolDQQkZXSi7u+kMdtgrRmjbJzKqbespb8JWWxGbNlWO67OG kWSI410bu7VVugqvp0S5Kxn7mNi/OcNqMrpcNOO5Cucrm2TtEFRPRsdHJX31 cH7tQrmhsV/I6L7ffFcV9gQ7Ja2wkYzabvdEHW2lgdEQ3zy7BedHxrukGNfL T/ccTdkfZHRJy3d1EK6vi78POhi1k9Fmdbkm43YaVHwrSgvuIqOa+eKUblyP 7rs8Wx93k5HD5ZLWYlyvlM8S80U9ZORjGqr+GtfzrqKTDtP9ZHQinK4T9YsG o2uXX5KjkVGPm3VnDK7/yDd1aRvpZPRPkxGX+BvXz3OV+XPDOH8DTTva8P4J lG3RfDJKRsI3b6yZw/tLLvqSwwcmGVVdt1HQ68f1Ev4zjTuB458VOvQG70/C N9Lh/Cy+3nPztCje7yePXDAImiejfMWC917DNJhy9pb0X8T5lzy7vnoEz9fC vPUYmYLq9a7bPGHSQGUV036fMAWVCb9KfI77S4b0L31HEfx61JrmdRwaGAjX StiJUdBr+bonjdM02MJN+L5DioKcLafHl8/S4Eirjf1GRQpqMq7ZIon722D9 Jv31KymoasKxd4BMwOlydYm1/1FQhjuLXSxAwOWs+RYNVQq68tr8xjUhAhJu ZtvJ6lDQ0PGnmT4SBPwyEbFjm1AQf63r5kcqBLjr89aOm1LQdZGsi79wPx7W JMTGzCkogfaDpalJAE/60zfaVgqKDJw68lMH91vWyT1tVhRk9x+vP3IDAU6v G23zD+D1XX+kbmtFQIvwPRv/CxTkr2f/eAKfLwohlplxoRRUi7gW+0PxeDQ+ obLLFFQxuSKjDp9H7NKg6qXhFKSUIhBags+v5acOb06OoCAN0fjzC48I8Gox WN35nILCmh4+G3lHwMyjLopZOQXFf0V/1kwRYMH/yN2jkoIsRAqtLnMJuO9n W3HnMwVFRU1dbpvD55nl54sddRRk2a2nEitAh+3TWROnWygo5fHpQG85OkTv v9r3qp+CeNfZxltN6aC+SrOUShFAqyOenkq+S4cXb2ck1JcIoOblStYpUXSQ 3dLss4UqgJ5oZeRlPsLPE55BUheWCaC6be2z9S/oQH/z+fiItABiqSQ/t8in Q+qGIwrN6gLoo9imCuMeOmjZxAc/3CGAqm7niHUZMkA7VFh/VQT2Y/6zYuMM uC4VxVYSWoIcN7F6c88MwQ7FXL3PD5agZZIVeWtURsDN9Uyhg4QgIond1+lL GYUHYekjllKCyLTLI/FG5ihUp/cpb5YRRJSxIGOtvFHQZttFqioIIunBuXLP 0lGYvq/vM6UkiHZmbvUrbh2F6PIJ+cfrBFHrcHdM68IoVKkEhXbtEUS+NyPP 3HEcA/bO7HdN9oLIQzhPvm7/GGidJgYr9wqifRdsFPkPj0FkiZNThosgmsou lTvuOwYHHY3WXDwsiIL3TliIXR6DqRvTf1acFkRrP5JMX6aOgcbQ+W1HIgWR dvbCZPHUGCjeuDp9OVoQhbnO+f3hjYG48q3MhBhBdJzk+HlhYQx4+x5JdT8W RL+V99D0hJjQWJ/z1ykRr1/5s7nNSiYEpP8Nt84VROcUnx27a8GEMh+baqNW /P6GlcUtkUzIJzuGOLUJoq+Pj5Rue8iE9MQDuoEdgmg4NvxLbhwTHnT6PMr7 JYisfkZPhCQxwXNHmKfuX0EkV5jeWJHHhKWa7ykqU4LIlnB7tvoHE1zoSttF ZKlo3UAj11iCBQaLXjmC8lQ0Lui5LFmaBcvkM+VIy6ko+rbpfiF5FlTs2jDM WUlFWdvbI6tWsUAre1dUnzq+Plp5jqnDAu7ZgK78DVQUWtN8R3c7C1rvvd+a sxG//zbFc9NOFmSlzGWmb6KiYmn9zciaBUc6b15OMKOiy3IOrZvtWdBg8kz1 1nYqslEP3TrsyoKn/NV+B5yoaIcfGCufZUHgcqFORxcqkgxy39UYxALb9bZo z34qKmFYq/iHsIDk9VPS4hAVve5V/S/9EgtO1I++1/Oiojvdh/99ucUC0ygZ En8QFckbzXn2P2WBbPqBE7PBVJQv+yJaM4EF/yoS29ghVLTBRcPZJ5EFyROr 04ZDqehlZHDyj9c4Hs7mu9uuU1HR0odLDmexoGeFz+O0R1TErD35ybyUBc7q psTvxzheVcueOZaxoEVPwlAynopatdAe9woWVJmXfA9NwPEJDF/rVc2C9CNi Ig6pVPTr25Ir1EYWKPvSDt5Kp6K7recrfjfh9ft/zCjNoCJq70xl+jcW3A/z 2Kn5lorO5NfNaP5gQUDy+/C591S0ZPjBfFUXC0ay7rXqF1NRAU2D59jNAs/C o8o+pVSkKWbxsvc3C1xqhcu/V1BR4PZNzJ9/cDwGD8+kNlDRq4oU8CVYUPTP cNfvr1S0Vb/M4wOdBWt5Qk8kmvH6cntVFxksUFlasCG0lYqqsnrPnB1mgaAu 1d++m4rKBqVFppksuGrYU36zh4o85x36SP9YMGP6TrT0DxXxTapuXTLOglEb 1ywNGhU9Vc7KnJxggbez/uxBOhXpfnmS2zPJgj9uS6weDFLRcaNw8/IpXD+n cxmzo1RUrbjt3zEOC6xDbhjps6hoQT1XQn+aBdVXD9zwHqciLQWr9/+w3z+g qH5nU5EypeSuM48F6552+S/hUpH3n4iiOeyMVzkVm2eoSM3vkvvTGRY8z9/n lrqA51NvtrF0lgUypXrZ3XxCyJh9zA3NsSCymjQnThZCSo/8SKXY1KZOK0sB ITTw+onK2nkWXGvPir8oKIQiz20ri8ee6bk2mCskhB6//9E2ix1Id95IFxZC 4e4lXk4LLBhj6txUFBVC8U0hZ1Kxvaf52u3EhVBSyuMpJnbfYrvqTUkhdJKV Ob5mkQX7qZkBJdJCaBvV1ccbu1X8auU/WSEUlursFIu9W8FJXENBCA12uZSU YNcoax8+qIgtrBXfhW2uvZgdvVIIUfieM5nYHwza5mr+E0KjPx6VzGLrb35j PasshP7//zn/D30zM6k= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.62}, 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.650000114466729, 1.4374998466149345`}}, {{ 0, 3.141592653589793}, {0.650000114466729, 1.4374998466149345`}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6673185368011312`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"w", "[", RowBox[{ RowBox[{"q", " ", "Degree"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "180"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.667318693621351*^9, 3.667318710121374*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw12nk4VO/bAHBre0i20ipLslRSyXbfzFgiJcughBkzUyqy5UtJKloopKRE q0pKoahQiUJlKWkRiZoZ+5xsY0m8z++P1x9cn2vGeZZ7ec6ca5ay9jlxJMTE xK6QX//7G1Srr/XkQ615yeT/figY5G9UY9Hvg926u6njxBdSm6LV6SXQYcTz 6ieet2jjyMw1byD5W4lrG/HOQPVcaXo1PKmwjnxLvL1t8tHh7I9glJJRn018 NK43cdzgM9gV8txjie+uadoTUfwNjCJtZD2IPzRX2YhozbBr3uiQBvFwbOGy kOqf0H/VcHbPBAWJyvWT/2W3wTlxM9d7xGo9Vf6FAb/BTnZHrS9xYenLpkED PihEtIcrEtulFG5cMyyA6zXrXEv/UfDDL+dJUHEH9EXk+LKJpeZePiek9YDE 71cqF8cpuNh+VlxvmhAe1NiXahHrlJzct6eaAok9ny/n/iXzNSjWCM3ugwtn lfpyxijoTy/0PHe6HxS0R/eoEZtOzT+XHzAAwQmrFyaNkvU0ZYn3GQyBq7mj htsIBfOtM43kFEUQwL52KHeYAnbu1X0rh0VgKDNfVpJ4OObCD//iEdjOe9R6 boiCRfoxz7po49Ar6cVg91Ow6+LhP9M1/0H426uJJ/ooyJc4qKU9bQJKElZM z/xDgdXXoJSd1ZPwiwuvqoQUrCt9aBScLY6W3HnsV10kHvv1Go6oSuDe04tf POikIHrFvX1nT0ug8ayjzJQOCt6dv307N0ASk/IiTm0WULDDL0OBMpDGmNSC Y4FtJH6LVHMnbkpjgnKXw/JWCm5/umgvozgFl/04vLexhYI/ZueP6g1PwX8f ePe1mimIkY//s6d4GirXNnFDv1Bwrzi8uoM2C3e/Gzf+8JaCKJcd4wdezMKS TAMcraTAsddCd/aG2chc4po4v4IC0aKZp1fry+Bb1YuK1mUULHlVq2E2Sw7T DbpnWhRRsEedyY8VzcH5nuVyb7MoaAh0/le7Rh6/R0j/++82BebPrRRVguTx /t6PPoszKZBjrLDK7pbH7GONl92uknw5MZBZ2zoXPznkmASkUCDWHctWfq+I XpWy6uujKfBbHx7pM00Jb8z4umjfIQrqj+0+f9dKCdf9U3h79QAFtxZseW1S qoRVA04m3aEk3zarqPsUKON9pzQpHT8KUvKyf2ddnYdJjxY92+pIwYrwOpZx 6EK84fJBfds8sp6nhu9CchZixZaeVKEiBYojl1bnCBZi8tFHGofkyXzC2WJL PBZhrcTT6ydnUvD5v9EMafPF6FHKSPL4J4TS4rN7O44twSiHcan2n0LYXVx8 55GDGn5bPu963TXyepHsIrs2DTRuq3TpkBeC0XnrZW7/NPCoxPOZKCOEXP9D y9nzNJG1Ltnm3HQhXF3SbRC1VRNd+o766ooJIep4hU3+K01csWXtG+3eXjBz OhQ0/4YWen0Qn8qo6IWizq7XXSxtDLR+tCl9fy88VqnYE8/TRc+kPD39tz1Q 5j40OQYG2JZY27ZLvxu6fqyzKKhei9mLLGJfXu6E6OiHGjG3NmBsfoWn7XA7 vD0sGXf18QZcER1cod3XDvKH3YRF5RuwJ/h3okx3O2Qemizsa9uAGZKt3F8t 7VB1YIut9yJjrDEx1Hxc0Q6y+6ndxqnGeEBMsWNqajtc8VuZ++ekCarHtT9/ aNwO7buOKcy6aILJxzSfyqxth1W7voZr3THBLnWOQfDKdijjHrbwemOCjzMG 3lqrtwPft67+vbgp6mr2RGjJtIOu176h2wdMMXugN6T2lwCKnR4a79hrhv4h QxeEiQIQyLTmhx4wQ2b2ElV6vADk38vpnD5phjY3q/ZfOS6A3bRg1eJMM7Rz m/+WeUgA8w3Xjqv8MEN6yMNry/YI4IBi8fMGB3Nkh6+vuWQjAKNvFbhpJaCb WafkISkBsM8PP/U1A5RedfhXhJgAkhyXrz5oD8jrzPSNHOdDR9Wppdk7AT+u 7eEkD/Lh4rNNEtOuAe7c5j9Xks+HSIfONuY0RE5Uy8bxCj406e+7uTACsRhY 9WGJfND9W3PyVTSi2ZMzRr3x5P2VugGck4iRbgdV9pzkwyKfLqOcVMRwW0Pm oSN8YJ3l1JoWIo61x34eDyHjD2wf3T6AaJf8ZIX/Nj5sKC1qmRxDxJ3o7uXG h7jT817flLDAQ5T1bjcXMp7G14TuORbICd3hytzMh30MJ/WDqyyQN7N6pMGS D6KntlvS/C3wgF1mG+rxwSb2jqH5fgtUi/OlP1pB1rd1yvxfkRbYLC0t1FtO xusq52mftkCzl256psvI/FXhwLNsC0zJ1p4omceHmvYM7x35Flj4Q8M4WJms 5/E4XbzIAhdsF3atVORD6aYi2Y1vLTBtlf6r13J8kIxae+tbuwUyggK/u0zj g4vd+bhIygK9fBXdNk/hQ6bSwL4lwxYomakb6ijFB+uHuca7pljiy6rPmQFi ZL2tOh+G1S3xeb548NxRHjTdjyu4rGuJDuO7YpyGeaAb0ZkGhpb4aO8Fn7Qh HtTMucM5QbNES1fjOHo/D+Roan+VWJaYlu+gK9nDg3r/fV1Gfpa49fcy6noX D85fLGncFmiJxw1ZkbadPJgnZDy9EmWJDy56SecIeKB2KX6/5mVL7K+4Z9zQ xgNe+Te27Q1LrKy0L8pr5cEdoYbL7ruW2PBxqVrqTzIfeqnBgyeWSNd/+zTi Bw/WUoPU2gZLTIqvY19p5MHIPMufbk2WePHZolPF33hQRE+sjfhlieOSyXmt X3lgnqad8/yPJaY+s19A+8IDsTdh6T+HLTFsrwEn+jMPyqnyePFJS1xXfujl mwYe2Fp57baaTcMlEfoFuz7xYEbgPY+dCjR8f13EqKjnQXXaiO0pVeLRDiVd 4oQ3Vkb31GgolrRs5NJHHmz9k6xVo03Dq7kl/2SJFVRblahVNIxuK1uR8IEH X6z0pswxouGhFtOjCsTbLlfyXKxp6KgeXbKhjgcLKhQawhxoaFG/8ta3Wh78 /MMsv+hCQ67skteHiW+oPswv2k7Dwn2rFqwkZluPX29m0fDDHaNcQQ0PNIM2 np3wo2HSqWnHbhN3XL4QvSSIhlfEdqUGEGdX/N5nGU5DBVnlP+bE/n2rvNmH aaj0riZRmXjVgqjNx4/TMJ5hGjFSzYN+6/dmWWdoWMuf8bCN+HGQit678zRk 5zeu+UQcls5Z0HOZhu/GcUYNsVFl/kyZmzTcMO2jYR3x377JsZXZNIxSli9s JH6xwKFrax4Nv/vFJPUQR9ukNYY8peG39dcqppLxLYPbq1Je0tA29/M2HWKp DMOnTypoqD10eosbcUXlkTuNNTTMUtG8E098qr/2wt8GGi6dP+pbRbxp4YLj C5tpqP/b9eRssj8ytn774TcNn9FjlLYTfwguZDO7aDhnsFwujzg5Q9LlWB8N FU9uipAl++9S5Ui7NUJDnzAHpzBi5YEMg8pJGobJCTP4xN8Xdi/tnEJHsSMO XjtI/NJtjebMlKGj4tujKT+IvUJixfQU6Rj1PN2KS+K/5Eo9tXkBHedI3Qgc Jr41sLc2eQUd3dR9YA3Jrwpd1fqk1XR8Wno67DtxB+ft5wQjOuZdOtZ0iuSj 7jeNH3HWdHRW/LhWnOTv5jkNrScd6Ki6PkX/LfE+u6O84y50dEmc2H6J5Ht+ SUv3URYdP3bYbHci9dEwdJqK9qNj4Cb3VSbfeTCkbzIQFUjHGXcCULeJxOt6 6tiBKDoycp8pa5H6ehnrOD0kjTgj6P1hUp+tLyZmBV2nY1ln4vXsXzyQGLkv ty+Ljkv7pF78+M0D693TVfYU0vGDaFqdJ6nv6s1lmr71dEw/5h3yopsHwhOB K5iNdCxgOl7R6eWB7KtF+t6tdBQJR1WuC3ngtObg2u1COo75nRe/1ceDRmVD uvMMK3wcM1kkN8KDMcdfNlvnWOG1AanDpaRfLYhLst+iYoUy9QZp4X954DPe 42SvaYVh+jqN4pM8ELTeYtIsrTD2WO2ZcNIPB+4qH15zwApFa+ZtG1Yi9+G/ 3xxdfcQKp5ifaNEl/XfdgtDjK09a4UpP1fLdqnw4kPDhjM4FK/RgteVMLuaD WMip9GX5ZD5Z2+QStPkw2/Tvs7ldVriz7KmamTkfdv+mBHf7rMj9UkSqoQUf KuJ4c3HUCru2ZneupfMhqrHGf+80azQM3KzBsOPDn7BrS99oWmPyvffULHL+ NORZnQrztca9Ht+9nIP5sMrDuHDWHmssmjcztGM/H86Irfx9I9gaaUeDdpyI IP18i4pZ3RFrtKdk7v6K5sPTnq4/WtesMeVh4BTZJD6kayW5NzZbY6Dxh2qz XD6M1MbE7uNZ4wGFZen7HvPBNSwiX7rHGsff79W595QPMm9Yswz+WuMFDZdj 8IoP0ay1pXHzbNBeTLmjuZ4P7IzvWqYMGxS9SG3pGCbn41yN4St1NpgXKzVz 3UYBjKlM03/0xQY1jUrmwWYBVC3qZlf+sMHNV35wHJ3J/cGKvHqq2wYffLx6 P36HANItzB7gNFtc56b9gB0sgFmBrpxfaIsTMq3rrmQIoKc69pNGvi2WTVnk qzomgKL6XTOMn9lix36lWk2xdjj5zd5ic6kt3mhcNs94Sjuo8+Y8DKu1RYmv xRbh8u3g+TcjrrKLXD+l+YCTTjtUaxda+C3biGx5Wd+DXu1w77jg4f3zG3Ha Io5GzLt2eDwmK+eRvhHpR0c1VevboSRgQ6B05ka0nG/3paixHWoZp1d5PdqI 9o8fail0tkO/pkGebP1G1BcYi/SmdZB+dyg/WNYOjbqNNUdtOqBiqmKBUZwd yj7RaS2r6YC2k7Si14ftUf31R7X7fzrBbmatvsMJexz8M+4sO9YJ+Wfcb35O sMc/Cx+bR0h2wdFk/9OCDHu8KpegxlTqArX0VK9pJfb4j353c7RpF/g+7JbY NGKP93edCR061QX8z+fsPwVuQpkGNetj2t3QqcZrbmM6YM+50Fy3iB7Y6rHg 4JFlW3BBwrKv2eT+3kg2vCAl1hHXqzpssZ3ZB8Mv9bp1/LaiYfihZQsD+kHe KG9jpbcTpha8n5b7ZQDUara/SvR1wl+DrIjOpgEwYE3Z4L7TCVvCDJWXtA2A 0+ntyzsDnPD+54yKmO4BSG6VnjozygnLPYr9dMQGYe6pba83pzshU7QgpHP5 ICh8l4Qv35xwvfOU3Cnhg6AUyTDkb3XGi63X/UpnDoE3juTudXVG8WXfXzTI DkGWVJreoLszflhcl8GfOwQbzvzQlPRxxha2ffe46hB4XmHPWxrgjAnmuRxx 3SG4WRo84RnnjP4P73d52Q/BKunEqoYyZ9zxos/X9cQQRLxdZeVZ4YyrGfTT g3FDUHam/tXvt864+ETtl8SEIXBWUiru/+CMh7dzK4pShiBMKyNH7qczKhZ5 F7fdHILnG+8lb/rrjE4WI+ygl0Ngl1Dp+XqNC1qFrcg6NjAEuadmCVPXu6AJ XSmIJxoCpdith/eYuOB9iKbh2BD8Pth0XZ7mgka9kcMdYiKI9KMEPk4u2P+p FyZmi+ABXTnoX6ALvgiIOrJWSwQK6CnxMdQFL27leVqtEMEBk+vnMsNdcG/2 cxlHPRHYGOgU2ke7YJjXk07XNSJoXQx/LyW6oEKpp/YyEIH8X27sugcuWGk+ Tn/lKoJw0T2lGfnkdbUBrUPuImjp+3PnR4EL7pbjPFqzXQT3Og68i3nugqu4 /U+TfERA/5Ig+6naBbXqOYYz9oggLK/w0r5uF6y4WX5vJEoEjTunPMha7op/ xrfk5t8g10+2pJvouqJrr/P69EwRKD2P+l6z0hVPpyxriL4tAhf54SkD61zx +5kUW5NsEXwoafc2s3JF94iXVGieCKrmvJ1Tz3RF+guFH6MvRLDTVDqLzXHF CbdXUudLRTBlp4X58C5X9JTu1NYuI/MrebZ7QaArXkzS3Ul/I4JSbnY5N8oV p4pmnTR/L4KnxfH7/6a54t8VtVb4RQRugsqZCVdccehDwt1TX0UgkpO6seSG K77L+Ciq+SYCQ25krdVdV9y0LWKjTZMIcuX8tZKeuKLVrPi88Z8i2GJy97la sSvWPfiPtrBNBEIO37nghSuazT5baPRLBLrFO6K/vyGv54SY+vBEkMXZ3Kje 4IpPOxRzgjpIvJLi9j356oqHHnP1/TpFICiqkLZrcsXCS/dObe8SgbocGOz7 5YqTDu/ereoRwbWilfHP/rhiTjGLmUGJAPh7lm4aJPYyTd/zh8RPNutJy7Ar 5o1T2YZ9IljAWcKTnCT7dUjP4km/CC7KzjHbPJuBhToj5lFDIuC+OvSjVo6B vPxfXxaLRLA2pOvQFgUGlsr5BJUQ138pf+GoysBP9Jn3BcMiuH5ylffHRQw0 OQ72oSMiCDTOmNyqxsBz++d2jxPPvhKGztoMxJWfV0yOiqB5y+/WT7oMDPva 9TZ8TATZ4o5HXFYxULOL2tlLbMvRLnNdz0AZZeurlX9JfihfYH0xZuDWhNb1 euMi4FdJSLqZM7Bixb+aM8RHdZtp7lYMvJF1qA/+icCxxZb3zZaBzwM3RZ0l XpxUEOOxiYFTdUOmthALLdQ0vm9h4Lz3eac1JkRQMpDwZpszA+WDqmfvIo6/ 9ZfTxGBgfUh83C3ibW67pnhuY6C2Z7FEC/Hy6Z9vN+9g4EyBbticSREMF1nY 7GAyMF+sgAfEFXsftP9gk/2p1d3sR3x+kepJr10MfHo7KP8Mse+HE8t/7mGg rzxnTg6xwdHBKu99DLxf17O7kljMkOnXGsxA1w/9L5qJ6/g105lhDFQ35szu Jb6SapzdFsHAXu46xgjx3o137FiHGJjJ87w0QWz8d273r2gGsvd/+jJJPD0n Ot43hoGBspdkxom/efXq8E4w0PRHLg4Q35bbVs2OZyDLTM2fT7y/rGIvP4GB 18pGztUT00PXzOYmM7B6Db2giFhe81qOIIWBb+JVPmYQt32dtXnnJbKe0TPt B4lzT0UI29MZuP1n6YgLcZSJIGHXNQbqNHyU0iZ26HVa2XmTgWPX+TNHyH4u uPqyzu8OA4OsNWTKiLscdQO7skk8+5/PPEH8TOKS3J4HDKyb0SZlQ8zgBm/d W8DAFbLXu56QeGqo/OzrecpA67KCr7uIB9/aJ/uXMLA2gP5KgfisnsangHIG Ru7pjdtB8sXn59kQqoKBP+de3zNG8kv/7MTcwHcMTOaI2yUTVw9+dQn6yMDV n5aLPyL5mHabPtTXQNZfl/3dhNjPPS8l+BsD96zb8uglyecpJXFfQn4yMEb+ pu9Tku8Wx8zcw3oZ2CjWXO1P6kV/r8NsWh8DzaMc/pSS+prvuqNMdojkh+Rj Qxnifs1DunfHGThDRnNZ6oAIbrwrEWue6YZlZXb3WKR+Ex5VF2TJuuHU7I6u 46S+D6Q3794/1w0X+mdsvSUUgVPAeIOMqhuea3+b+oH0Awl507sWK9ywdDF/ SRvpJ8Ixey8ZfTdUnl6V/6VdBN9/b5/btNoNTzY6h1QIRJBfcPBQ6AY33KCS HnOe9COWR/HWO7ZuWOuUNaWb9LPya8Zjs3a6odQ7nbNHP/8vvnYPG3e7oUZv capqgwjSg7exbwe4ocx8ZuuDehGE0g/UQpgb6nXFm72uI/2q49mN4Fg3VB+a 6pj9VgQxKzfYf7vphnUcdT1OCekXKhvFbt1xw0IqfvrNIhF4insUBN1zQ4Wv yhZNT0m//RS+eOYjN2zbc7PKuEAEvLCnA2Zlbtgf3LunMEcEVi/Wp99sdUNh alDW9QwR7P5izljJc0Pz2coO2ZfJ/gmt5Irb3fCn78TSB5dI/i9yiakXuqHi ZZbvnRRSP4cD94r/c8O0jYr7fc6IIBnvmnrPc0cvOVWu8KAIfpbN/zHfyR2X 5aW2HSfno1TT0tTbru44tCRea9SJ9IOB5VsNPNxx/5LuJq6jCIKXrX+z0ccd JZNeXDS0J/kR45wTHuCOu8x0rl9C0v+tTh/6EueOgWt298aT8zqi8t/C5HJ3 HF4rbar2dwhKlLJ6/Crd8WAVbbJ8eAgmOE7FFu/d8f401VKfwSE4KnXHva/e HSVcV9jG9w5BvIXjOcdf7tiYPPEx8+cQZBTfmCYr7oFpvVNbesqG4NVDm4F4 cw/s13D16oodgukXz1bFPvPAhbGXDcImBuFAwN7r9s898FdOjPqMsUHoodsc mPPKA6/pH16XNjQIH/rGdTKqPFBh8sH7Bz2DcNF+V+Ljrx7oG0QZZH8fhOWT 5ozfQx6oZjKrtLdgEKy5Pb/RYBsqNNm3VPgNwlFDm8m/2duQ42TxqrxyAHSu VoWsOb0dNS/TTLdG9cOqj8pzAqM9se2PrWmleB9wPhr0+LN34K2vHr6SRhQc y9jnLKR54Vv69N5tl3pgfNWB3yHrvHFG1jX5umnkfjgub2J8gzeqGWzQGZrs hOm8jnnHzbzR+mqi7tLhTlBKdXO8SPdGOVVviXh+J6z+Z/i8xMkbv2+Ju3O7 rBO4b6kL0vu88dqpYB3JqE74yOTYpd7xxvP9s3wPjHaAe3E6Z8k9b9Qv79fx 6+uAFoWG6LsPvNF/wbWLXp0d0FNp+aS4wBtZiqLgHY0dMEV/iXpruTdud0t8 de9ZB5iOff+3vNUbt7aUeice7ADnjVnuO2b5oMoL69EUqQ64fTblj42MDz6d LLleNd4OI41HTxrI+aC4EvVJcqgd0nfveDpVwQfXysT3nOO3Ay9eXiVf1Qdx Q8wZ1cp2CK2N/DpFxwc7Y6t9a+Lb4bzzVkbuRh/Usk7s/KnaDoLL5sI0ex98 XSSjq6/YDkY8neOxDj6Y/OlCeqxMOzSHTincttUHDS4fm+coTj4vXShWlPbw wdS28nHndgEUfNP47LHLBwOt6hVUCwTwZceYs+QJH/wSPpb9yk0Ar818A2pO +mDFZdbjNCcBPFpYfTI1zgd/dG9bHukggKQfGc91Enxw1/oRD3eaAOx2WGi5 pPigmbBbK2ylAJ57nhzLvOmDppvrgjdOF8B90z6Ffbd8MK51FmRLCSBtwbaV G+74YK1U56W5YgIIa9Zh12T74JbDzpJi5PPmKs+6mqE8sr6Srkbg8yFzu9J1 61IfTIg+sXRHOR+STQ4Xy5X5YJhGe67NSz4cUe34/L3cB48NO3UZF/PBq+nZ jH2VPni2dMzH5BEflLfvCE2t9cFV31yOZd7kQ9y2TJuOZh/cdLA3R+U4H8KN Z7PyW8j1C9XDEo7yYef8sMjIVh/0FFf/O+swH+jfbfLkeD7oEj5irh7OhwmP 7vkbun3wc9vh18W7+RDkYSA8NeqDN5iXvBK3ks/fkY9m2//1QerZB6Nrm/kQ dc1Qb9Y/H0xcn3r0mT0Zv33d3gQxJm7YIcOVtubDzf0mXclTmWg0NT5EwoQP n8/SBZcVmfjzU+Sbs5p88Cx4I71DmYmB25RytNX58OubtcaieUx8cj9e+t1S PggXb2RfW8DEBC/aNPWFfJj6wOFX5jImvjZ75mCmwIcN7xgtOauZ2HhHOlZK ig+lvV//Baxhoq5jrNMyCT5Yz/FYuGotEwO0NePsxPjg5L7dM9+IibfUpdfm j/Ngj8D7eyEwUXhchi0Y4kH/9LbR/yzIeB9v+dsO8iBcjzVvA42JOQMSTfn9 PIgJZbsXWzOx08zuxzWKBxkSfl9eOjBRZWW/b1snD9Q1u4aitzBxhcTnfcc7 eJC9cY+i5VYmbpqr9XVNOw8Kk/xdXrswUe2J26M7PB6YPhaGxDKYeFiiTCPg Nw/Kvu47Z+3OxCqxR0LTXzyoWxRcX7WdiUXLuqIGfvKAYTnQd2oHE43XHaI1 tfCgmRM6x96biapNqzze/+BBx/0wxxoWEydumQW/buKBuMnB2o9+TOwqkV89 /xsPlMYcRp7uYeKPGP1LBl95sOLZErVr/kzsb39d7PKFBy7rK/YHBDHxxOxq rcIGHviJLl51DWGi9aave4c+8SCqYM9b0/1MZGgk+5oTZ62Zs3BmBBPdpL94 9n7kwfP+39b9B0j852ZucyauzysMbIwk+//hnlj5Bx60B55KK41i4rDW/k2m xOMrPV/fiWaixK5DJi/reDCH0hcmHGXidav17+2JNR+Iq4TFMPFU64zRtloe mPg3WOw4zsSWCteyI8SOunf20E+S/R/dra5DzOmOSNGJY+LX3uQFLTU8OJC9 6aX8aSZ2pMzMSiNO9FvcOXqGiYY+0177EGcu75dvS2RinVm+/yriZ+2vTavO MlHuttaN6cS1t1O5D88x8V5apNf/nu/+5uxOupDCRN69oqvfiEfUzYoOpTLx zXgrq5Z4Nk+Wx77ERE8bXub/nh+r3fw1e9NlJiq1PWB9IV7PKli/JoOJc14u udRBvGnpSeb8q0yMPSBrJUXGY7Zuixe/zkRzV2tfbeKwq3oFHTeYOMP8+J// PS+O9xL7WZfJRJfPsZ2JxNcWfpr25DbJz6A+u4/EBc23DK5kMTFYfc+cBWQ/ 3l0O94zNZmL4i7gNgf97/r7N/vje+2S+DT9e1hAPzluU6/yA5Oeb9muGZL+n N/5pNM4l9VW8tDGTeNHFckm1fCZGFY6xF5F42Sr5uf0pYOLuHnk/PRLfHZ9N jnx9wsQz/v8ay4iDz8vce/GMiQ0nfyQy63mQLv944vRzEh9FbnERyZe8j8eX h75k4qHlftr7SX5VJHk4bX/FRBMN5RqjzzygZCZvab8h8/tXdKuJ5KNU7cc6 uUomOkYV1xeRfFU5kzk6XMVErmmkxk2Sz5Yz7Rwqqsl8jgl0Er/zwO3dgv9y apnY5GX/NZnk/95T1LXzH5hIabWnXm3mwYWpKYOsBib+/lVj00Dq517FzkV2 X8j+Ho/VHyf1VRprbLv6GxNfxTjM02vjQZdk6+XJJiZOux/ZeZfUp7mYDi39 NxN/sU2GZUi9U4wIisVnYp7q4yecLhKPnMrL2u1M3C4fsuZ1Nw8kt7MHC7uY WKEX43BRyIOqgoxbH/uY+HzmjavppL8cmNWz9eIAEysT9WtXiXig42s84TVE 8l+l8mL1MA8S5L4yekaY6Go93Df/Lw+c98hNmyrGwmqjNxbypL9JlXk9rhFn 4Yt+l5ZfknwoVMnxOS/JwmwWNVQkzQeVio3Plk5lYdRN89gj0/nQsuTYblMZ FnbsTru3cw4fdn0Zqg5awMKJN54m59X4MF+PHmG0iIUxs+8f/E768ftjyRqT i1l4ifeJ0tLig/7qlVGnl7EwIXTQ55sOHwbid628s4KFmxePtiWsJeeBRdPZ ZiMWlsSc19hsx4dz90sZNq4sDNDbeqGfnC8NV3xmG7qxsAJH6B6RfFA4K/Z6 iQcLSwcWZFeS8+j8flw95snCJbekI4vJ+XXevHRmDpuFmjKXIibOE394WSof ysLomnOXu/OJB1+saElmYcp7/Kk/SK4v8Gp7d56FZrML7KJGyPUbJ1KfXGBh XOJgVMM4ef9zc+mzaSy0aNJTS5EWwPnjL37SbrDw6oV9oVxlAaSovDh/N4+F gzFDRpamArhg+nwi9AML1ePTAjLjBBAQvL/IvZ6FlfOX2N9KFIB1ll6YaQML zy3Pzrt3XgCiuVd6Jb+x8DXt89+qKwJw7Y5qTv7Jwk61zHT6IwEopGFRrpCF j2U3lBr9EEDycPn+nlm++PLkA9lGw3ZIyH/X47vRF0sviIfI9rXDFdkXEWuK fHHrBqolN7ATtjuqXI41ZON0+dI8fbVuWB3uvv3pbTb+lTmj03qrB3aVBOmE Z7FxQ6Pv1dh7PXBNLP7v+mw2SvXuN1qe1wMyp55ffpLDRoWO8Zfskh7ouqTW XPiYjbb3LP2L6nsgs7jHs6CMjfVdTcn1Ez2gNBntld/CRr/jCYGnXHrBgZam H9zKRt+ZeSqVHr0Qc+LRxOpfbHQ84KAq7t0L/bKCK3l8Nv7JKVHe7dcLdUvs f+b2sDHUuZ8uG9ULJy0VfR6OsXHlMwnT67d74W/sXeZ9JQ6uyJkYKBrshVKO gmmyCgejPMf9f472wnGrw0rh8znIlXApn5joBXlp1/e0RRxsWrqFpzddCCti xNY2aXBQYmm5ucNCIXgcdZs2Yy0H/1O9vCuOLoQnUdIPdzpzsPntwqIPCUKI 9Ao85eDKwfcXfEpo54Rgad7ku8aNg4KUY+9yU4VQ+y9XZXIbB+2+JfWHXxOC INLz6AUWB5ULsqpL84SgePCR65sgDm7me13W/iSEkP+Y42pJHFz1q3rEaA4F X4Q2Hh1nOdg3lT0rU4ECI65+Yc45DiadNPWYrkLBuMvffUapHLxv9TmhbBEF sQYpvx2ukP9PWjou1KEgtbfqXfh9Dka+qT2la0XBGPuhlvkDDj44KcXeYEuB Z3NKjGQuB18orDZBewqWvGeZJzwi+6XsVG+ylYK7WeN5N4s46KIRadnlSUGx 76pLtVUctPEHo6UhFCxqUhKde8dB+f2sjdX7KYh2+ufkUc3B4nZ7taBwCugW 72bx6jh4s2XZ4qxDFNQsYkePfuHgqSbvP+9OUPCzMXWnOp+DKuvG2W1pFFhu jXrdKeDgI6UrSVoZFGRWsZc+7ODgWjdNxs6rFOx6srppQw8HryeEZX66SUHf +febtwxwsHDGuSne9ymQdJxce0Cci8KKvc/NSyiYdXSaQ6gkF5PKZl12eUGB wuM57ABpLtYvxy2sUgo0VdSTWdO5GBl6bCXnNQV2rbZCuzlc/F435fC0agqc 5Z2kreZyMa4+orS5huwXffsCUOTijJaxV1l1FPhn+dutmcfFwEeVY1qfKEgK TL6tupSLU7rO/itrpODSjcvPFZdx8TFPc9SliYIbDZkNshpc1JKlX29ppuCR 0RMJKW0uhlptEH77SeIt1uzVs4qLN0pvgR+f7I8Bf7/AgIuWq1/4PhVQ0MEW nm41JOvLbVk22U7BaJVYcYMRF8vutwSGdFGw4KyG8nPk4osOhdnDQgo0yvX1 n1hykf3PqVXiDwX6Q+ut8uhcFBtYZjmljwLwsAu5ZcvFtKX37w30U2Ab7xx3 1Y6Luu8u5v4YoMDxuef1S5u4uHvdMfOXgxSwlu6rO+PIxdeqtD+7RBTscQ4X nHDi4oRG7pzVwxSExh75d8SFi8vn2T35Q3y885xOmDsXl0oVxzFGKUhUzbAM 3MZF7s/4wnHiiw63PXZ7clHd/xArbYzkW97TE14+ZD5VZutL/lKQ//vVFXcW F42GdnnhOAVFiu8LnNhcXHLeX6KEuNymoXoTl4u/bl5UW/mPguqIH7+td3Ex 4T/ai0vEn+8JxnA3Fy88+dTwl7jlBzXHZC8Xj7GKOa4TFLTLji5fG8DFSzXh gbeJ/1hI4MpALl67dWFQSDwaMtNNO5iLe6l7ffqTFEjcVghYFspF2jTPnVzi Gd8Wxi4M4+LR2wzXFOK5M7TSlcO52NHoVlxMvMB01aM5B4hnLr/USKwesOHd zEguSomlC4XEetcs26SjuNjz6XzxX+J19fYjk4e5+P/f5/w/Be/APg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.62}, 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->{{0, 180}, {0.6500001144667291, 1.4374998466149345`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.667318696551355*^9, 3.667318711581376*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"w", "[", RowBox[{"\[Theta]", ",", RowBox[{"{", RowBox[{"a0", ",", "a2", ",", "a4", ",", "a6"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.667318568051175*^9, 3.667318577321188*^9}}], Cell[BoxData[ RowBox[{"a0", "+", RowBox[{ FractionBox["1", "2"], " ", "a2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "8"], " ", "a4", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "16"], " ", "a6", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"105", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "-", RowBox[{"315", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "4"]}], "+", RowBox[{"231", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "6"]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.66731857871119*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "w"}]], "Input", CellChangeTimes->{{3.6673187556014376`*^9, 3.667318756601439*^9}}], Cell[CellGroupData[{ Cell["Global`w", "Print", "PrintUsage", CellChangeTimes->{3.6673187573014402`*^9}, CellTags->"Info3667307957-9392170"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"w", "[", RowBox[{"\[Theta]_", ",", "a_"}], "]"}], ":=", RowBox[{"a", ".", RowBox[{"Table", "[", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"2", " ", "i"}], ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Length", "[", "a", "]"}], "-", "1"}]}], "}"}]}], "]"}]}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`w], Editable->False]], "Print", CellChangeTimes->{3.66731875731144*^9}, CellTags->"Info3667307957-9392170"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Quando uma fun\[CCedilla]\[ATilde]o exige vari\[AAcute]veis \ espec\[IAcute]ficas, \[EAcute] possivel oculta-las com Module[{}]\ \>", "Subsection", CellChangeTimes->{{3.667318848651568*^9, 3.6673188568615794`*^9}, { 3.6673189188016663`*^9, 3.6673189391916943`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "10"}], "]"}]}]], "Input", CellChangeTimes->{{3.667318967321734*^9, 3.667318992311769*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "19.628655281742844`", ",", "23.911195582097996`", ",", "19.80603493984572`", ",", "20.270436020598172`", ",", "22.306833397424356`", ",", "18.745628724357292`", ",", "17.1947860876734`", ",", "19.270077262113855`", ",", "15.351880004381126`", ",", "22.56230573423842`"}], "}"}]], "Output", CellChangeTimes->{{3.667318987351762*^9, 3.66731899295177*^9}, 3.6673190660218725`*^9, 3.667319098791918*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", "u", "]"}], ",", RowBox[{"StandardDeviation", "[", "u", "]"}], ",", RowBox[{ RowBox[{"Max", "[", "u", "]"}], "-", RowBox[{"Min", "[", "u", "]"}]}]}], "}"}]], "Input", CellChangeTimes->{{3.6673189971017756`*^9, 3.667319075101885*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "19.904783303447317`", ",", "2.5587065691082818`", ",", "8.55931557771687`"}], "}"}]], "Output", CellChangeTimes->{{3.6673190757218857`*^9, 3.6673190998219194`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"parms", "[", "n_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "q", "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "n"}], "]"}]}], ";", RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", "q", "]"}], ",", RowBox[{"StandardDeviation", "[", "q", "]"}], ",", RowBox[{ RowBox[{"Max", "[", "q", "]"}], "-", RowBox[{"Min", "[", "q", "]"}]}]}], "}"}]}]}], " ", "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6673191119619365`*^9, 3.667319170712019*^9}, 3.667319258502142*^9, 3.6673192896121855`*^9, {3.66731932912224*^9, 3.667319365932292*^9}, {3.667319403252344*^9, 3.667319423052372*^9}, { 3.6673195026224833`*^9, 3.6673195098924932`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"parms", "[", "10", "]"}]], "Input", CellChangeTimes->{{3.667319262072147*^9, 3.6673192655121517`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "19.480910858107727`", ",", "3.9542891061360055`", ",", "10.509555132250465`"}], "}"}]], "Output", CellChangeTimes->{{3.6673192660921526`*^9, 3.6673193048722067`*^9}, 3.6673194262523766`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"parms", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"{", RowBox[{"10", ",", "100", ",", "1000", ",", "10000"}], "}"}]}], "}"}]}], "]"}], "//", "TableForm"}]], "Input", CellChangeTimes->{{3.66731960609863*^9, 3.667319657148701*^9}, { 3.6673196935487523`*^9, 3.667319700068761*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"18.82619883769784`", "1.9136477205365128`", "5.737883185090229`"}, {"20.013770755626673`", "3.123044997358094`", "16.91608091448034`"}, {"19.975320815850964`", "2.999641932967896`", "18.851103814575048`"}, {"19.97017175093913`", "3.0202353083844407`", "24.13267492067959`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.6673196477486877`*^9, 3.6673196580387025`*^9}, 3.6673197008787622`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"parms", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"{", RowBox[{"10", ",", "100", ",", "1000", ",", "10000"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\[Sigma]\>\"", ",", "\"\\""}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6673197079987726`*^9, 3.667319772568863*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"m\[EAcute]dia\"\>", HoldForm], TagBox["\<\"\[Sigma]\"\>", HoldForm], TagBox["\<\"range\"\>", HoldForm]}, {"17.804971462579253`", "3.0749963543621406`", "9.548205128796972`"}, {"19.781867766156694`", "2.3292007946711455`", "13.645952304956127`"}, {"19.967667148727408`", "2.899618333189304`", "17.656091748260444`"}, {"20.022033434488275`", "2.978778118189053`", "24.214801115082306`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, {"m\[EAcute]dia", "\[Sigma]", "range"}}]]]], "Output", CellChangeTimes->{{3.667319754358837*^9, 3.6673197736988645`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lista", "=", RowBox[{"{", RowBox[{"10", ",", "100", ",", "1000", ",", "10000"}], "}"}]}]], "Input", CellChangeTimes->{{3.6673198036389065`*^9, 3.6673198115489173`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"10", ",", "100", ",", "1000", ",", "10000"}], "}"}]], "Output", CellChangeTimes->{3.6673198119889183`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lista", "=", RowBox[{"10", "^", RowBox[{"Range", "[", "6", "]"}]}]}]], "Input", CellChangeTimes->{{3.6673198152189226`*^9, 3.6673198327989473`*^9}, { 3.667319882089016*^9, 3.6673198824390163`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "10", ",", "100", ",", "1000", ",", "10000", ",", "100000", ",", "1000000"}], "}"}]], "Output", CellChangeTimes->{{3.667319828368941*^9, 3.6673198335889482`*^9}, 3.667319882759017*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"parms", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "lista"}], "}"}]}], "]"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"lista", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\[Sigma]\>\"", ",", "\"\\""}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6673198488789697`*^9, 3.6673198533189754`*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"m\[EAcute]dia\"\>", HoldForm], TagBox["\<\"\[Sigma]\"\>", HoldForm], TagBox["\<\"range\"\>", HoldForm]}, { TagBox["10", HoldForm], "21.170815700923296`", "3.9643146495256505`", "12.889226299308222`"}, { TagBox["100", HoldForm], "19.809316644693887`", "2.9913961870919885`", "14.837714449173557`"}, { TagBox["1000", HoldForm], "20.114055593470457`", "2.9463630716504126`", "17.690730911412253`"}, { TagBox["10000", HoldForm], "19.987552258620962`", "2.9885907783716212`", "22.828217274031566`"}, { TagBox["100000", HoldForm], "20.005715323835908`", "2.9971040792885786`", "25.110689198965872`"}, { TagBox["1000000", HoldForm], "19.99773939696587`", "3.0008963473415418`", "28.538609674545107`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {{10, 100, 1000, 10000, 100000, 1000000}, { "m\[EAcute]dia", "\[Sigma]", "range"}}]]]], "Output", CellChangeTimes->{3.667319854868978*^9, 3.6673198853790207`*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1424, 818}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, 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->{ "Info3667307957-9392170"->{ Cell[75132, 1907, 120, 2, 88, "Print", CellTags->"Info3667307957-9392170"], Cell[75255, 1911, 1253, 35, 46, "Print", CellTags->"Info3667307957-9392170"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3667307957-9392170", 86596, 2262} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 164, 5, 222, "Title"], Cell[CellGroupData[{ Cell[769, 31, 137, 1, 153, "Section"], Cell[CellGroupData[{ Cell[931, 36, 108, 1, 105, "Subsection"], Cell[CellGroupData[{ Cell[1064, 41, 389, 11, 66, "Input"], Cell[1456, 54, 663, 18, 120, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2156, 77, 128, 2, 66, "Input"], Cell[2287, 81, 831, 29, 185, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3155, 115, 185, 4, 66, "Input"], Cell[3343, 121, 239, 7, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3619, 133, 268, 8, 66, "Input"], Cell[3890, 143, 217, 7, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4144, 155, 130, 2, 94, "Input"], Cell[4277, 159, 358, 13, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4672, 177, 115, 2, 94, "Input"], Cell[4790, 181, 213, 7, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5040, 193, 287, 7, 94, "Input"], Cell[5330, 202, 314, 9, 100, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5681, 216, 256, 6, 94, "Input"], Cell[5940, 224, 235, 7, 93, "Output"] }, Open ]], Cell[6190, 234, 109, 1, 65, "Text"], Cell[CellGroupData[{ Cell[6324, 239, 132, 2, 94, "Input"], Cell[6459, 243, 353, 13, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6849, 261, 131, 2, 94, "Input"], Cell[6983, 265, 519, 19, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7539, 289, 155, 3, 94, "Input"], Cell[7697, 294, 936, 34, 183, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8670, 333, 145, 3, 94, "Input"], Cell[8818, 338, 353, 13, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9208, 356, 147, 3, 94, "Input"], Cell[9358, 361, 518, 19, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9913, 385, 263, 7, 94, "Input"], Cell[10179, 394, 910, 34, 183, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11126, 433, 206, 4, 94, "Input"], Cell[11335, 439, 406, 14, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11778, 458, 212, 5, 94, "Input"], Cell[11993, 465, 410, 14, 117, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12452, 485, 149, 1, 105, "Subsection"], Cell[12604, 488, 128, 1, 65, "Text"], Cell[CellGroupData[{ Cell[12757, 493, 173, 4, 94, "Input"], Cell[12933, 499, 141, 3, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13111, 507, 287, 8, 94, "Input"], Cell[13401, 517, 338, 10, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13776, 532, 266, 7, 66, "Input"], Cell[14045, 541, 360, 10, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14442, 556, 342, 9, 94, "Input"], Cell[14787, 567, 474, 14, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15298, 586, 125, 2, 94, "Input"], Cell[15426, 590, 851, 25, 135, "Output"] }, Open ]], Cell[16292, 618, 159, 2, 65, "Text"], Cell[CellGroupData[{ Cell[16476, 624, 237, 6, 94, "Input"], Cell[16716, 632, 210, 5, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16963, 642, 237, 6, 94, "Input"], Cell[17203, 650, 208, 5, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17448, 660, 149, 3, 94, "Input"], Cell[17600, 665, 321, 7, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17958, 677, 151, 3, 94, "Input"], Cell[18112, 682, 253, 6, 93, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18414, 694, 199, 2, 105, "Subsection"], Cell[CellGroupData[{ Cell[18638, 700, 416, 12, 137, "Input"], Cell[19057, 714, 671, 20, 188, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19765, 739, 177, 4, 94, "Input"], Cell[19945, 745, 139, 3, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20121, 753, 466, 10, 94, "Input"], Cell[20590, 765, 843, 22, 188, "Output"] }, Open ]], Cell[21448, 790, 129, 1, 65, "Text"], Cell[CellGroupData[{ Cell[21602, 795, 153, 3, 94, "Input"], Cell[21758, 800, 260, 5, 93, "Output"] }, Open ]], Cell[22033, 808, 103, 1, 65, "Text"], Cell[CellGroupData[{ Cell[22161, 813, 155, 3, 94, "Input"], Cell[22319, 818, 344, 9, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22700, 832, 187, 4, 94, "Input"], Cell[22890, 838, 721, 20, 188, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23648, 863, 467, 10, 137, "Input"], Cell[24118, 875, 337, 9, 93, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24516, 891, 128, 1, 153, "Section"], Cell[CellGroupData[{ Cell[24669, 896, 69, 1, 94, "Input"], Cell[24741, 899, 139, 3, 93, "Output"] }, Open ]], Cell[24895, 905, 124, 2, 94, "Input"], Cell[25022, 909, 223, 6, 94, "Input"], Cell[CellGroupData[{ Cell[25270, 919, 145, 3, 94, "Input"], Cell[25418, 924, 153, 5, 133, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25608, 934, 126, 2, 94, "Input"], Cell[25737, 938, 105, 2, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25879, 945, 71, 1, 94, "Input"], Cell[25953, 948, 141, 3, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26131, 956, 120, 2, 94, "Input"], Cell[26254, 960, 375, 11, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26666, 976, 71, 1, 94, "Input"], Cell[26740, 979, 314, 10, 117, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27091, 994, 122, 2, 94, "Input"], Cell[27216, 998, 611, 20, 133, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27864, 1023, 124, 2, 94, "Input"], Cell[27991, 1027, 158, 4, 95, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28186, 1036, 308, 9, 94, "Input"], Cell[28497, 1047, 14405, 247, 558, "Output"] }, Open ]], Cell[42917, 1297, 121, 1, 65, "Text"], Cell[43041, 1300, 528, 16, 94, "Input"], Cell[CellGroupData[{ Cell[43594, 1320, 352, 10, 94, "Input"], Cell[43949, 1332, 14633, 251, 562, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[58619, 1588, 382, 11, 94, "Input"], Cell[59004, 1601, 14607, 249, 562, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73648, 1855, 223, 5, 94, "Input"], Cell[73874, 1862, 1084, 34, 183, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74995, 1901, 112, 2, 94, "Input"], Cell[CellGroupData[{ Cell[75132, 1907, 120, 2, 88, "Print", CellTags->"Info3667307957-9392170"], Cell[75255, 1911, 1253, 35, 46, "Print", CellTags->"Info3667307957-9392170"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[76557, 1952, 278, 5, 169, "Subsection"], Cell[CellGroupData[{ Cell[76860, 1961, 254, 6, 94, "Input"], Cell[77117, 1969, 463, 9, 134, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77617, 1983, 315, 8, 94, "Input"], Cell[77935, 1993, 212, 5, 93, "Output"] }, Open ]], Cell[78162, 2001, 945, 23, 193, "Input"], Cell[CellGroupData[{ Cell[79132, 2028, 127, 2, 94, "Input"], Cell[79262, 2032, 242, 6, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79541, 2043, 406, 11, 94, "Input"], Cell[79950, 2056, 893, 20, 188, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[80880, 2081, 623, 18, 137, "Input"], Cell[81506, 2101, 1326, 34, 225, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82869, 2140, 200, 4, 94, "Input"], Cell[83072, 2146, 147, 3, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83256, 2154, 231, 5, 94, "Input"], Cell[83490, 2161, 235, 6, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83762, 2172, 536, 15, 137, "Input"], Cell[84301, 2189, 1905, 56, 350, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)