(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 97455, 2371] NotebookOptionsPosition[ 91742, 2168] NotebookOutlinePosition[ 92139, 2185] CellTagsIndexPosition[ 92096, 2182] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Patterns, leitura de arquivos e fun\[CCedilla]\[OTilde]es puras", \ "Subsubtitle", CellChangeTimes->{{3.59143742261386*^9, 3.591437437177579*^9}}], Cell[CellGroupData[{ Cell["Escolhendo os campos de um arquivo", "Section", CellChangeTimes->{{3.5914234604783115`*^9, 3.5914234861367035`*^9}, 3.5914376579616337`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"file", "=", RowBox[{"Import", "[", RowBox[{"FileNameJoin", "[", " ", RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\\""}], "}"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.5914235052476735`*^9, 3.5914235192488422`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"Partial\"\>", ",", "\<\"Interaction\"\>", ",", "\<\"Coefficients\"\>", ",", "\<\"and\"\>", ",", "\<\"Total\"\>", ",", "\<\"Attenuation\"\>", ",", "\<\"Coefficients\"\>", ",", "\<\"Ge\"\>", ",", "\<\"Z=32\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"PHOTON\"\>", ",", "\<\"SCATTERING\"\>", ",", "\<\"PHOTO-\"\>", ",", "\<\"PAIR\"\>", ",", "\<\"PRODUCTION\"\>", ",", "\<\"TOTAL\"\>", ",", "\<\"ATTENUATION\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ENERGY\"\>", ",", "\<\"COHERENT\"\>", ",", "\<\"INCOHER.\"\>", ",", "\<\"ELECTRIC\"\>", ",", "\<\"IN\"\>", ",", "\<\"IN\"\>", ",", "\<\"WITH\"\>", ",", "\<\"WITHOUT\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABSORPTION\"\>", ",", "\<\"NUCLEAR\"\>", ",", "\<\"ELECTRON\"\>", ",", "\<\"COHERENT\"\>", ",", "\<\"COHERENT\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"FIELD\"\>", ",", "\<\"FIELD\"\>", ",", "\<\"SCATT.\"\>", ",", "\<\"SCATT.\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"(MeV)\"\>", ",", "\<\"(cm2/g)\"\>", ",", "\<\"(cm2/g)\"\>", ",", "\<\"(cm2/g)\"\>", ",", "\<\"(cm2/g)\"\>", ",", "\<\"(cm2/g)\"\>", ",", "\<\"(cm2/g)\"\>", ",", "\<\"(cm2/g)\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0111`", ",", "1.446`", ",", "0.07614`", ",", "196.6`", ",", "0.`", ",", "0.`", ",", "198.2`", ",", "196.7`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.015`", ",", "0.9878`", ",", "0.09049`", ",", "90.4`", ",", "0.`", ",", "0.`", ",", "91.48`", ",", "90.49`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.02`", ",", "0.6767`", ",", "0.1027`", ",", "41.44`", ",", "0.`", ",", "0.`", ",", "42.22`", ",", "41.54`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.03`", ",", "0.3804`", ",", "0.1161`", ",", "13.35`", ",", "0.`", ",", "0.`", ",", "13.85`", ",", "13.47`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.04`", ",", "0.2411`", ",", "0.1223`", ",", "5.843`", ",", "0.`", ",", "0.`", ",", "6.206`", ",", "5.965`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.05`", ",", "0.1664`", ",", "0.1248`", ",", "3.044`", ",", "0.`", ",", "0.`", ",", "3.335`", ",", "3.169`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.06`", ",", "0.1223`", ",", "0.1254`", ",", "1.775`", ",", "0.`", ",", "0.`", ",", "2.023`", ",", "1.9`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.08`", ",", "0.07468`", ",", "0.1239`", ",", "0.7515`", ",", "0.`", ",", "0.`", ",", "0.9501`", ",", "0.8754`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.1`", ",", "0.05045`", ",", "0.121`", ",", "0.3835`", ",", "0.`", ",", "0.`", ",", "0.555`", ",", "0.5045`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.15`", ",", "0.02408`", ",", "0.1125`", ",", "0.1125`", ",", "0.`", ",", "0.`", ",", "0.2491`", ",", "0.225`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.2`", ",", "0.014`", ",", "0.1048`", ",", "0.04732`", ",", "0.`", ",", "0.`", ",", "0.1661`", ",", "0.1521`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.3`", ",", "0.006433`", ",", "0.09231`", ",", "0.01437`", ",", "0.`", ",", "0.`", ",", "0.1131`", ",", "0.1067`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.4`", ",", "0.003675`", ",", "0.08319`", ",", "0.006412`", ",", "0.`", ",", "0.`", ",", "0.09327`", ",", "0.0896`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.5`", ",", "0.002372`", ",", "0.0762`", ",", "0.003541`", ",", "0.`", ",", "0.`", ",", "0.08212`", ",", "0.07975`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.6`", ",", "0.001655`", ",", "0.07063`", ",", "0.002238`", ",", "0.`", ",", "0.`", ",", "0.07452`", ",", "0.07287`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.8`", ",", "0.0009364`", ",", "0.06218`", ",", "0.001144`", ",", "0.`", ",", "0.`", ",", "0.06426`", ",", "0.06332`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.`", ",", "0.0006006`", ",", "0.05596`", ",", "0.000712`", ",", "0.`", ",", "0.`", ",", "0.05727`", ",", "0.05667`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.022`", ",", "0.0005752`", ",", "0.05537`", ",", "0.0006766`", ",", "0.`", ",", "0.`", ",", "0.05662`", ",", "0.05605`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.25`", ",", "0.0003851`", ",", "0.05008`", ",", "0.0004572`", ",", "0.00008899`", ",", "0.`", ",", "0.05101`", ",", "0.05062`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.5`", ",", "0.0002676`", ",", "0.04553`", ",", "0.0003291`", ",", "0.0004412`", ",", "0.`", ",", "0.04657`", ",", "0.0463`"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.`", ",", "0.0001507`", ",", "0.03887`", ",", "0.0002021`", ",", "0.001635`", ",", "0.`", ",", "0.04086`", ",", "0.04071`"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.044`", ",", "0.0001443`", ",", "0.03839`", ",", "0.0001952`", ",", "0.001755`", ",", "0.`", ",", "0.04049`", ",", "0.04034`"}], "}"}], ",", RowBox[{"{", RowBox[{ "3.`", ",", "0.00006701`", ",", "0.0306`", ",", "0.000109`", ",", "0.00446`", ",", "0.00001071`", ",", "0.03524`", ",", "0.03518`"}], "}"}], ",", RowBox[{"{", RowBox[{ "4.`", ",", "0.0000377`", ",", "0.02552`", ",", "0.00007309`", ",", "0.007071`", ",", "0.0000437`", ",", "0.03275`", ",", "0.03271`"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.`", ",", "0.00002413`", ",", "0.02204`", ",", "0.00005454`", ",", "0.009372`", ",", "0.000087`", ",", "0.03158`", ",", "0.03156`"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.`", ",", "0.00001676`", ",", "0.01948`", ",", "0.00004334`", ",", "0.0114`", ",", "0.0001336`", ",", "0.03107`", ",", "0.03105`"}], "}"}], ",", RowBox[{"{", RowBox[{ "7.`", ",", "0.00001232`", ",", "0.01752`", ",", "0.00003587`", ",", "0.0132`", ",", "0.00018`", ",", "0.03095`", ",", "0.03094`"}], "}"}], ",", RowBox[{"{", RowBox[{ "8.`", ",", "9.43`*^-6", ",", "0.01594`", ",", "0.00003056`", ",", "0.01483`", ",", "0.000225`", ",", "0.03104`", ",", "0.03103`"}], "}"}], ",", RowBox[{"{", RowBox[{ "9.`", ",", "7.45`*^-6", ",", "0.01466`", ",", "0.00002661`", ",", "0.01631`", ",", "0.0002681`", ",", "0.03126`", ",", "0.03126`"}], "}"}], ",", RowBox[{"{", RowBox[{ "10.`", ",", "6.035`*^-6", ",", "0.01358`", ",", "0.00002355`", ",", "0.01764`", ",", "0.000309`", ",", "0.03156`", ",", "0.03155`"}], "}"}], ",", RowBox[{"{", RowBox[{ "11.`", ",", "4.987`*^-6", ",", "0.01266`", ",", "0.00002111`", ",", "0.01886`", ",", "0.0003478`", ",", "0.0319`", ",", "0.03189`"}], "}"}], ",", RowBox[{"{", RowBox[{ "12.`", ",", "4.191`*^-6", ",", "0.01188`", ",", "0.00001913`", ",", "0.01997`", ",", "0.0003845`", ",", "0.03226`", ",", "0.03225`"}], "}"}], ",", RowBox[{"{", RowBox[{ "13.`", ",", "3.57`*^-6", ",", "0.01119`", ",", "0.00001748`", ",", "0.02101`", ",", "0.000419`", ",", "0.03264`", ",", "0.03263`"}], "}"}], ",", RowBox[{"{", RowBox[{ "14.`", ",", "3.079`*^-6", ",", "0.01058`", ",", "0.00001609`", ",", "0.02196`", ",", "0.0004519`", ",", "0.03302`", ",", "0.03301`"}], "}"}], ",", RowBox[{"{", RowBox[{ "15.`", ",", "2.682`*^-6", ",", "0.01005`", ",", "0.0000149`", ",", "0.02285`", ",", "0.0004831`", ",", "0.0334`", ",", "0.0334`"}], "}"}], ",", RowBox[{"{", RowBox[{ "16.`", ",", "2.357`*^-6", ",", "0.009571`", ",", "0.00001388`", ",", "0.02369`", ",", "0.0005127`", ",", "0.03379`", ",", "0.03378`"}], "}"}], ",", RowBox[{"{", RowBox[{ "18.`", ",", "1.863`*^-6", ",", "0.008742`", ",", "0.0000122`", ",", "0.02521`", ",", "0.0005678`", ",", "0.03454`", ",", "0.03453`"}], "}"}], ",", RowBox[{"{", RowBox[{ "20.`", ",", "1.509`*^-6", ",", "0.008065`", ",", "0.00001088`", ",", "0.02658`", ",", "0.0006179`", ",", "0.03528`", ",", "0.03528`"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.591423520858351*^9, 3.5914359390679474`*^9, 3.5914377976295404`*^9, 3.5914395397666035`*^9, 3.5914584431260552`*^9, 3.5914589963893547`*^9, 3.6198067290984335`*^9, 3.6198075155673985`*^9}] }, Open ]], Cell["\<\ Uma maneira simplista de separar os n\[UAcute]meros neste caso \[EAcute] usar \ \[IAcute]ndices absolutos \ \>", "Text", CellChangeTimes->{{3.5914368720991597`*^9, 3.5914369167278852`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"file", "[", RowBox[{"[", RowBox[{"7", ";;", RowBox[{ RowBox[{"Length", "[", "file", "]"}], "-", "1"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.591436919743762*^9, 3.5914369714824553`*^9}, { 3.5914590103712015`*^9, 3.591459010949375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0111`", ",", "1.446`", ",", "0.07614`", ",", "196.6`", ",", "0.`", ",", "0.`", ",", "198.2`", ",", "196.7`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.015`", ",", "0.9878`", ",", "0.09049`", ",", "90.4`", ",", "0.`", ",", "0.`", ",", "91.48`", ",", "90.49`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.02`", ",", "0.6767`", ",", "0.1027`", ",", "41.44`", ",", "0.`", ",", "0.`", ",", "42.22`", ",", "41.54`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.03`", ",", "0.3804`", ",", "0.1161`", ",", "13.35`", ",", "0.`", ",", "0.`", ",", "13.85`", ",", "13.47`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.04`", ",", "0.2411`", ",", "0.1223`", ",", "5.843`", ",", "0.`", ",", "0.`", ",", "6.206`", ",", "5.965`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.05`", ",", "0.1664`", ",", "0.1248`", ",", "3.044`", ",", "0.`", ",", "0.`", ",", "3.335`", ",", "3.169`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.06`", ",", "0.1223`", ",", "0.1254`", ",", "1.775`", ",", "0.`", ",", "0.`", ",", "2.023`", ",", "1.9`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.08`", ",", "0.07468`", ",", "0.1239`", ",", "0.7515`", ",", "0.`", ",", "0.`", ",", "0.9501`", ",", "0.8754`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.1`", ",", "0.05045`", ",", "0.121`", ",", "0.3835`", ",", "0.`", ",", "0.`", ",", "0.555`", ",", "0.5045`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.15`", ",", "0.02408`", ",", "0.1125`", ",", "0.1125`", ",", "0.`", ",", "0.`", ",", "0.2491`", ",", "0.225`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.2`", ",", "0.014`", ",", "0.1048`", ",", "0.04732`", ",", "0.`", ",", "0.`", ",", "0.1661`", ",", "0.1521`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.3`", ",", "0.006433`", ",", "0.09231`", ",", "0.01437`", ",", "0.`", ",", "0.`", ",", "0.1131`", ",", "0.1067`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.4`", ",", "0.003675`", ",", "0.08319`", ",", "0.006412`", ",", "0.`", ",", "0.`", ",", "0.09327`", ",", "0.0896`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.5`", ",", "0.002372`", ",", "0.0762`", ",", "0.003541`", ",", "0.`", ",", "0.`", ",", "0.08212`", ",", "0.07975`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.6`", ",", "0.001655`", ",", "0.07063`", ",", "0.002238`", ",", "0.`", ",", "0.`", ",", "0.07452`", ",", "0.07287`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.8`", ",", "0.0009364`", ",", "0.06218`", ",", "0.001144`", ",", "0.`", ",", "0.`", ",", "0.06426`", ",", "0.06332`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.`", ",", "0.0006006`", ",", "0.05596`", ",", "0.000712`", ",", "0.`", ",", "0.`", ",", "0.05727`", ",", "0.05667`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.022`", ",", "0.0005752`", ",", "0.05537`", ",", "0.0006766`", ",", "0.`", ",", "0.`", ",", "0.05662`", ",", "0.05605`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.25`", ",", "0.0003851`", ",", "0.05008`", ",", "0.0004572`", ",", "0.00008899`", ",", "0.`", ",", "0.05101`", ",", "0.05062`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.5`", ",", "0.0002676`", ",", "0.04553`", ",", "0.0003291`", ",", "0.0004412`", ",", "0.`", ",", "0.04657`", ",", "0.0463`"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.`", ",", "0.0001507`", ",", "0.03887`", ",", "0.0002021`", ",", "0.001635`", ",", "0.`", ",", "0.04086`", ",", "0.04071`"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.044`", ",", "0.0001443`", ",", "0.03839`", ",", "0.0001952`", ",", "0.001755`", ",", "0.`", ",", "0.04049`", ",", "0.04034`"}], "}"}], ",", RowBox[{"{", RowBox[{ "3.`", ",", "0.00006701`", ",", "0.0306`", ",", "0.000109`", ",", "0.00446`", ",", "0.00001071`", ",", "0.03524`", ",", "0.03518`"}], "}"}], ",", RowBox[{"{", RowBox[{ "4.`", ",", "0.0000377`", ",", "0.02552`", ",", "0.00007309`", ",", "0.007071`", ",", "0.0000437`", ",", "0.03275`", ",", "0.03271`"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.`", ",", "0.00002413`", ",", "0.02204`", ",", "0.00005454`", ",", "0.009372`", ",", "0.000087`", ",", "0.03158`", ",", "0.03156`"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.`", ",", "0.00001676`", ",", "0.01948`", ",", "0.00004334`", ",", "0.0114`", ",", "0.0001336`", ",", "0.03107`", ",", "0.03105`"}], "}"}], ",", RowBox[{"{", RowBox[{ "7.`", ",", "0.00001232`", ",", "0.01752`", ",", "0.00003587`", ",", "0.0132`", ",", "0.00018`", ",", "0.03095`", ",", "0.03094`"}], "}"}], ",", RowBox[{"{", RowBox[{ "8.`", ",", "9.43`*^-6", ",", "0.01594`", ",", "0.00003056`", ",", "0.01483`", ",", "0.000225`", ",", "0.03104`", ",", "0.03103`"}], "}"}], ",", RowBox[{"{", RowBox[{ "9.`", ",", "7.45`*^-6", ",", "0.01466`", ",", "0.00002661`", ",", "0.01631`", ",", "0.0002681`", ",", "0.03126`", ",", "0.03126`"}], "}"}], ",", RowBox[{"{", RowBox[{ "10.`", ",", "6.035`*^-6", ",", "0.01358`", ",", "0.00002355`", ",", "0.01764`", ",", "0.000309`", ",", "0.03156`", ",", "0.03155`"}], "}"}], ",", RowBox[{"{", RowBox[{ "11.`", ",", "4.987`*^-6", ",", "0.01266`", ",", "0.00002111`", ",", "0.01886`", ",", "0.0003478`", ",", "0.0319`", ",", "0.03189`"}], "}"}], ",", RowBox[{"{", RowBox[{ "12.`", ",", "4.191`*^-6", ",", "0.01188`", ",", "0.00001913`", ",", "0.01997`", ",", "0.0003845`", ",", "0.03226`", ",", "0.03225`"}], "}"}], ",", RowBox[{"{", RowBox[{ "13.`", ",", "3.57`*^-6", ",", "0.01119`", ",", "0.00001748`", ",", "0.02101`", ",", "0.000419`", ",", "0.03264`", ",", "0.03263`"}], "}"}], ",", RowBox[{"{", RowBox[{ "14.`", ",", "3.079`*^-6", ",", "0.01058`", ",", "0.00001609`", ",", "0.02196`", ",", "0.0004519`", ",", "0.03302`", ",", "0.03301`"}], "}"}], ",", RowBox[{"{", RowBox[{ "15.`", ",", "2.682`*^-6", ",", "0.01005`", ",", "0.0000149`", ",", "0.02285`", ",", "0.0004831`", ",", "0.0334`", ",", "0.0334`"}], "}"}], ",", RowBox[{"{", RowBox[{ "16.`", ",", "2.357`*^-6", ",", "0.009571`", ",", "0.00001388`", ",", "0.02369`", ",", "0.0005127`", ",", "0.03379`", ",", "0.03378`"}], "}"}], ",", RowBox[{"{", RowBox[{ "18.`", ",", "1.863`*^-6", ",", "0.008742`", ",", "0.0000122`", ",", "0.02521`", ",", "0.0005678`", ",", "0.03454`", ",", "0.03453`"}], "}"}], ",", RowBox[{"{", RowBox[{ "20.`", ",", "1.509`*^-6", ",", "0.008065`", ",", "0.00001088`", ",", "0.02658`", ",", "0.0006179`", ",", "0.03528`", ",", "0.03528`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.591436939823563*^9, 3.591436971951245*^9}, 3.5914377976607943`*^9, 3.5914395397978573`*^9, 3.5914584431653295`*^9, { 3.5914589964129953`*^9, 3.5914590118557005`*^9}, 3.6198067291765647`*^9, 3.619807515614278*^9}] }, Open ]], Cell[CellGroupData[{ Cell["usando patterns para separar os campos num\[EAcute]ricos", \ "Subsubsection", CellChangeTimes->{{3.5914369914528728`*^9, 3.5914369995160456`*^9}}], Cell["\<\ um _ identifica um pattern e, seguido de Real, significa \ \[OpenCurlyDoubleQuote]qualquer n\[UAcute]mero real\[CloseCurlyDoubleQuote] \ (podia ser _Integer, _Complex, _Rational, _String)\ \>", "Text", CellChangeTimes->{{3.5914365777777166`*^9, 3.5914366407048445`*^9}, { 3.591436690865281*^9, 3.591436749573307*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"patData", "=", RowBox[{"{", RowBox[{ "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real"}], "}"}], " ", RowBox[{"(*", " ", RowBox[{ "qualquer", " ", "lista", " ", "de", " ", "8", " ", "n\[UAcute]meros", " ", "reais"}], " ", "*)"}]}]], "Input", CellChangeTimes->{ 3.591423557955204*^9, {3.5914368237044954`*^9, 3.591436840409011*^9}, { 3.591437014251651*^9, 3.591437014829824*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real"}], "}"}]], "Output", CellChangeTimes->{3.5914235586271396`*^9, 3.5914359390679474`*^9, 3.59143779767642*^9, 3.5914395398134828`*^9, 3.5914584431809607`*^9, 3.591458996440707*^9, 3.6198067291765647`*^9, 3.619807515629904*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "=", RowBox[{"Cases", "[", RowBox[{"file", ",", "patData"}], "]"}]}]], "Input", CellChangeTimes->{{3.591423570581251*^9, 3.5914235726282988`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0111`", ",", "1.446`", ",", "0.07614`", ",", "196.6`", ",", "0.`", ",", "0.`", ",", "198.2`", ",", "196.7`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.015`", ",", "0.9878`", ",", "0.09049`", ",", "90.4`", ",", "0.`", ",", "0.`", ",", "91.48`", ",", "90.49`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.02`", ",", "0.6767`", ",", "0.1027`", ",", "41.44`", ",", "0.`", ",", "0.`", ",", "42.22`", ",", "41.54`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.03`", ",", "0.3804`", ",", "0.1161`", ",", "13.35`", ",", "0.`", ",", "0.`", ",", "13.85`", ",", "13.47`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.04`", ",", "0.2411`", ",", "0.1223`", ",", "5.843`", ",", "0.`", ",", "0.`", ",", "6.206`", ",", "5.965`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.05`", ",", "0.1664`", ",", "0.1248`", ",", "3.044`", ",", "0.`", ",", "0.`", ",", "3.335`", ",", "3.169`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.06`", ",", "0.1223`", ",", "0.1254`", ",", "1.775`", ",", "0.`", ",", "0.`", ",", "2.023`", ",", "1.9`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.08`", ",", "0.07468`", ",", "0.1239`", ",", "0.7515`", ",", "0.`", ",", "0.`", ",", "0.9501`", ",", "0.8754`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.1`", ",", "0.05045`", ",", "0.121`", ",", "0.3835`", ",", "0.`", ",", "0.`", ",", "0.555`", ",", "0.5045`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.15`", ",", "0.02408`", ",", "0.1125`", ",", "0.1125`", ",", "0.`", ",", "0.`", ",", "0.2491`", ",", "0.225`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.2`", ",", "0.014`", ",", "0.1048`", ",", "0.04732`", ",", "0.`", ",", "0.`", ",", "0.1661`", ",", "0.1521`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.3`", ",", "0.006433`", ",", "0.09231`", ",", "0.01437`", ",", "0.`", ",", "0.`", ",", "0.1131`", ",", "0.1067`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.4`", ",", "0.003675`", ",", "0.08319`", ",", "0.006412`", ",", "0.`", ",", "0.`", ",", "0.09327`", ",", "0.0896`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.5`", ",", "0.002372`", ",", "0.0762`", ",", "0.003541`", ",", "0.`", ",", "0.`", ",", "0.08212`", ",", "0.07975`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.6`", ",", "0.001655`", ",", "0.07063`", ",", "0.002238`", ",", "0.`", ",", "0.`", ",", "0.07452`", ",", "0.07287`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.8`", ",", "0.0009364`", ",", "0.06218`", ",", "0.001144`", ",", "0.`", ",", "0.`", ",", "0.06426`", ",", "0.06332`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.`", ",", "0.0006006`", ",", "0.05596`", ",", "0.000712`", ",", "0.`", ",", "0.`", ",", "0.05727`", ",", "0.05667`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.022`", ",", "0.0005752`", ",", "0.05537`", ",", "0.0006766`", ",", "0.`", ",", "0.`", ",", "0.05662`", ",", "0.05605`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.25`", ",", "0.0003851`", ",", "0.05008`", ",", "0.0004572`", ",", "0.00008899`", ",", "0.`", ",", "0.05101`", ",", "0.05062`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.5`", ",", "0.0002676`", ",", "0.04553`", ",", "0.0003291`", ",", "0.0004412`", ",", "0.`", ",", "0.04657`", ",", "0.0463`"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.`", ",", "0.0001507`", ",", "0.03887`", ",", "0.0002021`", ",", "0.001635`", ",", "0.`", ",", "0.04086`", ",", "0.04071`"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.044`", ",", "0.0001443`", ",", "0.03839`", ",", "0.0001952`", ",", "0.001755`", ",", "0.`", ",", "0.04049`", ",", "0.04034`"}], "}"}], ",", RowBox[{"{", RowBox[{ "3.`", ",", "0.00006701`", ",", "0.0306`", ",", "0.000109`", ",", "0.00446`", ",", "0.00001071`", ",", "0.03524`", ",", "0.03518`"}], "}"}], ",", RowBox[{"{", RowBox[{ "4.`", ",", "0.0000377`", ",", "0.02552`", ",", "0.00007309`", ",", "0.007071`", ",", "0.0000437`", ",", "0.03275`", ",", "0.03271`"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.`", ",", "0.00002413`", ",", "0.02204`", ",", "0.00005454`", ",", "0.009372`", ",", "0.000087`", ",", "0.03158`", ",", "0.03156`"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.`", ",", "0.00001676`", ",", "0.01948`", ",", "0.00004334`", ",", "0.0114`", ",", "0.0001336`", ",", "0.03107`", ",", "0.03105`"}], "}"}], ",", RowBox[{"{", RowBox[{ "7.`", ",", "0.00001232`", ",", "0.01752`", ",", "0.00003587`", ",", "0.0132`", ",", "0.00018`", ",", "0.03095`", ",", "0.03094`"}], "}"}], ",", RowBox[{"{", RowBox[{ "8.`", ",", "9.43`*^-6", ",", "0.01594`", ",", "0.00003056`", ",", "0.01483`", ",", "0.000225`", ",", "0.03104`", ",", "0.03103`"}], "}"}], ",", RowBox[{"{", RowBox[{ "9.`", ",", "7.45`*^-6", ",", "0.01466`", ",", "0.00002661`", ",", "0.01631`", ",", "0.0002681`", ",", "0.03126`", ",", "0.03126`"}], "}"}], ",", RowBox[{"{", RowBox[{ "10.`", ",", "6.035`*^-6", ",", "0.01358`", ",", "0.00002355`", ",", "0.01764`", ",", "0.000309`", ",", "0.03156`", ",", "0.03155`"}], "}"}], ",", RowBox[{"{", RowBox[{ "11.`", ",", "4.987`*^-6", ",", "0.01266`", ",", "0.00002111`", ",", "0.01886`", ",", "0.0003478`", ",", "0.0319`", ",", "0.03189`"}], "}"}], ",", RowBox[{"{", RowBox[{ "12.`", ",", "4.191`*^-6", ",", "0.01188`", ",", "0.00001913`", ",", "0.01997`", ",", "0.0003845`", ",", "0.03226`", ",", "0.03225`"}], "}"}], ",", RowBox[{"{", RowBox[{ "13.`", ",", "3.57`*^-6", ",", "0.01119`", ",", "0.00001748`", ",", "0.02101`", ",", "0.000419`", ",", "0.03264`", ",", "0.03263`"}], "}"}], ",", RowBox[{"{", RowBox[{ "14.`", ",", "3.079`*^-6", ",", "0.01058`", ",", "0.00001609`", ",", "0.02196`", ",", "0.0004519`", ",", "0.03302`", ",", "0.03301`"}], "}"}], ",", RowBox[{"{", RowBox[{ "15.`", ",", "2.682`*^-6", ",", "0.01005`", ",", "0.0000149`", ",", "0.02285`", ",", "0.0004831`", ",", "0.0334`", ",", "0.0334`"}], "}"}], ",", RowBox[{"{", RowBox[{ "16.`", ",", "2.357`*^-6", ",", "0.009571`", ",", "0.00001388`", ",", "0.02369`", ",", "0.0005127`", ",", "0.03379`", ",", "0.03378`"}], "}"}], ",", RowBox[{"{", RowBox[{ "18.`", ",", "1.863`*^-6", ",", "0.008742`", ",", "0.0000122`", ",", "0.02521`", ",", "0.0005678`", ",", "0.03454`", ",", "0.03453`"}], "}"}], ",", RowBox[{"{", RowBox[{ "20.`", ",", "1.509`*^-6", ",", "0.008065`", ",", "0.00001088`", ",", "0.02658`", ",", "0.0006179`", ",", "0.03528`", ",", "0.03528`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5914235735971255`*^9, 3.5914359390835752`*^9, 3.59143779767642*^9, 3.591439539829108*^9, 3.5914584431851616`*^9, 3.591458996456336*^9, 3.6198067291765647`*^9, 3.619807515629904*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "//", "TableForm"}]], "Input", CellChangeTimes->{{3.5914235835979643`*^9, 3.591423588660887*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"0.0111`", "1.446`", "0.07614`", "196.6`", "0.`", "0.`", "198.2`", "196.7`"}, {"0.015`", "0.9878`", "0.09049`", "90.4`", "0.`", "0.`", "91.48`", "90.49`"}, {"0.02`", "0.6767`", "0.1027`", "41.44`", "0.`", "0.`", "42.22`", "41.54`"}, {"0.03`", "0.3804`", "0.1161`", "13.35`", "0.`", "0.`", "13.85`", "13.47`"}, {"0.04`", "0.2411`", "0.1223`", "5.843`", "0.`", "0.`", "6.206`", "5.965`"}, {"0.05`", "0.1664`", "0.1248`", "3.044`", "0.`", "0.`", "3.335`", "3.169`"}, {"0.06`", "0.1223`", "0.1254`", "1.775`", "0.`", "0.`", "2.023`", "1.9`"}, {"0.08`", "0.07468`", "0.1239`", "0.7515`", "0.`", "0.`", "0.9501`", "0.8754`"}, {"0.1`", "0.05045`", "0.121`", "0.3835`", "0.`", "0.`", "0.555`", "0.5045`"}, {"0.15`", "0.02408`", "0.1125`", "0.1125`", "0.`", "0.`", "0.2491`", "0.225`"}, {"0.2`", "0.014`", "0.1048`", "0.04732`", "0.`", "0.`", "0.1661`", "0.1521`"}, {"0.3`", "0.006433`", "0.09231`", "0.01437`", "0.`", "0.`", "0.1131`", "0.1067`"}, {"0.4`", "0.003675`", "0.08319`", "0.006412`", "0.`", "0.`", "0.09327`", "0.0896`"}, {"0.5`", "0.002372`", "0.0762`", "0.003541`", "0.`", "0.`", "0.08212`", "0.07975`"}, {"0.6`", "0.001655`", "0.07063`", "0.002238`", "0.`", "0.`", "0.07452`", "0.07287`"}, {"0.8`", "0.0009364`", "0.06218`", "0.001144`", "0.`", "0.`", "0.06426`", "0.06332`"}, {"1.`", "0.0006006`", "0.05596`", "0.000712`", "0.`", "0.`", "0.05727`", "0.05667`"}, {"1.022`", "0.0005752`", "0.05537`", "0.0006766`", "0.`", "0.`", "0.05662`", "0.05605`"}, {"1.25`", "0.0003851`", "0.05008`", "0.0004572`", "0.00008899`", "0.`", "0.05101`", "0.05062`"}, {"1.5`", "0.0002676`", "0.04553`", "0.0003291`", "0.0004412`", "0.`", "0.04657`", "0.0463`"}, {"2.`", "0.0001507`", "0.03887`", "0.0002021`", "0.001635`", "0.`", "0.04086`", "0.04071`"}, {"2.044`", "0.0001443`", "0.03839`", "0.0001952`", "0.001755`", "0.`", "0.04049`", "0.04034`"}, {"3.`", "0.00006701`", "0.0306`", "0.000109`", "0.00446`", "0.00001071`", "0.03524`", "0.03518`"}, {"4.`", "0.0000377`", "0.02552`", "0.00007309`", "0.007071`", "0.0000437`", "0.03275`", "0.03271`"}, {"5.`", "0.00002413`", "0.02204`", "0.00005454`", "0.009372`", "0.000087`", "0.03158`", "0.03156`"}, {"6.`", "0.00001676`", "0.01948`", "0.00004334`", "0.0114`", "0.0001336`", "0.03107`", "0.03105`"}, {"7.`", "0.00001232`", "0.01752`", "0.00003587`", "0.0132`", "0.00018`", "0.03095`", "0.03094`"}, {"8.`", "9.43`*^-6", "0.01594`", "0.00003056`", "0.01483`", "0.000225`", "0.03104`", "0.03103`"}, {"9.`", "7.45`*^-6", "0.01466`", "0.00002661`", "0.01631`", "0.0002681`", "0.03126`", "0.03126`"}, {"10.`", "6.035`*^-6", "0.01358`", "0.00002355`", "0.01764`", "0.000309`", "0.03156`", "0.03155`"}, {"11.`", "4.987`*^-6", "0.01266`", "0.00002111`", "0.01886`", "0.0003478`", "0.0319`", "0.03189`"}, {"12.`", "4.191`*^-6", "0.01188`", "0.00001913`", "0.01997`", "0.0003845`", "0.03226`", "0.03225`"}, {"13.`", "3.57`*^-6", "0.01119`", "0.00001748`", "0.02101`", "0.000419`", "0.03264`", "0.03263`"}, {"14.`", "3.079`*^-6", "0.01058`", "0.00001609`", "0.02196`", "0.0004519`", "0.03302`", "0.03301`"}, {"15.`", "2.682`*^-6", "0.01005`", "0.0000149`", "0.02285`", "0.0004831`", "0.0334`", "0.0334`"}, {"16.`", "2.357`*^-6", "0.009571`", "0.00001388`", "0.02369`", "0.0005127`", "0.03379`", "0.03378`"}, {"18.`", "1.863`*^-6", "0.008742`", "0.0000122`", "0.02521`", "0.0005678`", "0.03454`", "0.03453`"}, {"20.`", "1.509`*^-6", "0.008065`", "0.00001088`", "0.02658`", "0.0006179`", "0.03528`", "0.03528`"} }, 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.5914235894890795`*^9, 3.5914359390992017`*^9, 3.591437797692046*^9, 3.591439539844735*^9, 3.5914584432047977`*^9, 3.5914589964759707`*^9, 3.619806729192191*^9, 3.619807515645529*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Lendo texto", "Subsubsection", CellChangeTimes->{{3.591437042300867*^9, 3.5914370473794165`*^9}, { 3.5914376838700466`*^9, 3.5914376840575624`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dadosString", "=", RowBox[{"Import", "[", RowBox[{ RowBox[{"FileNameJoin", "[", " ", RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\\""}], "}"}], "]"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5914238139140644`*^9, 3.591423829009074*^9}}], Cell[BoxData["\<\" Partial Interaction Coefficients and Total \ Attenuation Coefficients Ge Z=32\\n PHOTON SCATTERING \ PHOTO- PAIR PRODUCTION TOTAL ATTENUATION\\n ENERGY COHERENT \ INCOHER. ELECTRIC IN IN WITH WITHOUT\\n \ ABSORPTION NUCLEAR ELECTRON COHERENT COHERENT\\n \ FIELD FIELD SCATT. \ SCATT.\\n (MeV) (cm2/g) (cm2/g) (cm2/g) (cm2/g) (cm2/g) \ (cm2/g) (cm2/g)\\n 1.110E-02 1.446E+00 7.614E-02 1.966E+02 0.000E+00 \ 0.000E+00 1.982E+02 1.967E+02\\n 1.500E-02 9.878E-01 9.049E-02 \ 9.040E+01 0.000E+00 0.000E+00 9.148E+01 9.049E+01\\n 2.000E-02 \ 6.767E-01 1.027E-01 4.144E+01 0.000E+00 0.000E+00 4.222E+01 4.154E+01\\n \ 3.000E-02 3.804E-01 1.161E-01 1.335E+01 0.000E+00 0.000E+00 1.385E+01 \ 1.347E+01\\n 4.000E-02 2.411E-01 1.223E-01 5.843E+00 0.000E+00 \ 0.000E+00 6.206E+00 5.965E+00\\n 5.000E-02 1.664E-01 1.248E-01 \ 3.044E+00 0.000E+00 0.000E+00 3.335E+00 3.169E+00\\n 6.000E-02 \ 1.223E-01 1.254E-01 1.775E+00 0.000E+00 0.000E+00 2.023E+00 1.900E+00\\n \ 8.000E-02 7.468E-02 1.239E-01 7.515E-01 0.000E+00 0.000E+00 9.501E-01 \ 8.754E-01\\n 1.000E-01 5.045E-02 1.210E-01 3.835E-01 0.000E+00 \ 0.000E+00 5.550E-01 5.045E-01\\n 1.500E-01 2.408E-02 1.125E-01 \ 1.125E-01 0.000E+00 0.000E+00 2.491E-01 2.250E-01\\n 2.000E-01 \ 1.400E-02 1.048E-01 4.732E-02 0.000E+00 0.000E+00 1.661E-01 1.521E-01\\n \ 3.000E-01 6.433E-03 9.231E-02 1.437E-02 0.000E+00 0.000E+00 1.131E-01 \ 1.067E-01\\n 4.000E-01 3.675E-03 8.319E-02 6.412E-03 0.000E+00 \ 0.000E+00 9.327E-02 8.960E-02\\n 5.000E-01 2.372E-03 7.620E-02 \ 3.541E-03 0.000E+00 0.000E+00 8.212E-02 7.975E-02\\n 6.000E-01 \ 1.655E-03 7.063E-02 2.238E-03 0.000E+00 0.000E+00 7.452E-02 7.287E-02\\n \ 8.000E-01 9.364E-04 6.218E-02 1.144E-03 0.000E+00 0.000E+00 6.426E-02 \ 6.332E-02\\n 1.000E+00 6.006E-04 5.596E-02 7.120E-04 0.000E+00 \ 0.000E+00 5.727E-02 5.667E-02\\n 1.022E+00 5.752E-04 5.537E-02 \ 6.766E-04 0.000E+00 0.000E+00 5.662E-02 5.605E-02\\n 1.250E+00 \ 3.851E-04 5.008E-02 4.572E-04 8.899E-05 0.000E+00 5.101E-02 5.062E-02\\n \ 1.500E+00 2.676E-04 4.553E-02 3.291E-04 4.412E-04 0.000E+00 4.657E-02 \ 4.630E-02\\n 2.000E+00 1.507E-04 3.887E-02 2.021E-04 1.635E-03 \ 0.000E+00 4.086E-02 4.071E-02\\n 2.044E+00 1.443E-04 3.839E-02 \ 1.952E-04 1.755E-03 0.000E+00 4.049E-02 4.034E-02\\n 3.000E+00 \ 6.701E-05 3.060E-02 1.090E-04 4.460E-03 1.071E-05 3.524E-02 3.518E-02\\n \ 4.000E+00 3.770E-05 2.552E-02 7.309E-05 7.071E-03 4.370E-05 3.275E-02 \ 3.271E-02\\n 5.000E+00 2.413E-05 2.204E-02 5.454E-05 9.372E-03 \ 8.700E-05 3.158E-02 3.156E-02\\n 6.000E+00 1.676E-05 1.948E-02 \ 4.334E-05 1.140E-02 1.336E-04 3.107E-02 3.105E-02\\n 7.000E+00 \ 1.232E-05 1.752E-02 3.587E-05 1.320E-02 1.800E-04 3.095E-02 3.094E-02\\n \ 8.000E+00 9.430E-06 1.594E-02 3.056E-05 1.483E-02 2.250E-04 3.104E-02 \ 3.103E-02\\n 9.000E+00 7.450E-06 1.466E-02 2.661E-05 1.631E-02 \ 2.681E-04 3.126E-02 3.126E-02\\n 1.000E+01 6.035E-06 1.358E-02 \ 2.355E-05 1.764E-02 3.090E-04 3.156E-02 3.155E-02\\n 1.100E+01 \ 4.987E-06 1.266E-02 2.111E-05 1.886E-02 3.478E-04 3.190E-02 3.189E-02\\n \ 1.200E+01 4.191E-06 1.188E-02 1.913E-05 1.997E-02 3.845E-04 3.226E-02 \ 3.225E-02\\n 1.300E+01 3.570E-06 1.119E-02 1.748E-05 2.101E-02 \ 4.190E-04 3.264E-02 3.263E-02\\n 1.400E+01 3.079E-06 1.058E-02 \ 1.609E-05 2.196E-02 4.519E-04 3.302E-02 3.301E-02\\n 1.500E+01 \ 2.682E-06 1.005E-02 1.490E-05 2.285E-02 4.831E-04 3.340E-02 3.340E-02\\n \ 1.600E+01 2.357E-06 9.571E-03 1.388E-05 2.369E-02 5.127E-04 3.379E-02 \ 3.378E-02\\n 1.800E+01 1.863E-06 8.742E-03 1.220E-05 2.521E-02 \ 5.678E-04 3.454E-02 3.453E-02\\n 2.000E+01 1.509E-06 8.065E-03 \ 1.088E-05 2.658E-02 6.179E-04 3.528E-02 3.528E-02\\n\"\>"], "Output", CellChangeTimes->{ 3.591423830087287*^9, {3.5914359332393384`*^9, 3.591435939114828*^9}, 3.591437797770177*^9, 3.591439539922867*^9, 3.5914584432953477`*^9, 3.591458996558516*^9, 3.619806729270321*^9, 3.6198075157236595`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"unities", " ", "=", " ", RowBox[{"StringCases", "[", RowBox[{"dadosString", ",", RowBox[{"\"\<(\>\"", "~~", "z__", "~~", "\"\<)\>\""}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"o", " ", "pattern", " ", "Z__"}], ",", " ", RowBox[{"com", " ", "dois", " ", "_"}], ",", " ", RowBox[{ RowBox[{ RowBox[{ "significa", " ", "qualquer", " ", "sequencia", " ", "de", " ", "caracteres"}], ";"}], " ", "~~", " ", RowBox[{ "\[EAcute]", " ", "o", " ", "operador", " ", "que", " ", "concatena", " ", "Strings"}]}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.591437070318831*^9, 3.5914371629515605`*^9}, { 3.5914380084908943`*^9, 3.591438044071989*^9}, {3.591438088200672*^9, 3.5914381061084175`*^9}}], Cell[BoxData[ RowBox[{"{", "\<\"(MeV) (cm2/g) (cm2/g) (cm2/g) (cm2/g) (cm2/g) \ (cm2/g) (cm2/g)\"\>", "}"}]], "Output", CellChangeTimes->{3.591438010022272*^9, 3.5914381161717553`*^9, 3.5914395399384933`*^9, 3.5914584432993484`*^9, 3.5914589965625215`*^9, 3.6198067293015738`*^9, 3.6198075157236595`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Extraindo n\[UAcute]mero de dentro do texto lido como tabela", \ "Subsubsection", CellChangeTimes->{{3.5914376989025517`*^9, 3.5914377112785845`*^9}, { 3.5914381931469336`*^9, 3.5914381968503675`*^9}}], Cell["\<\ Uma possibilidade \[EAcute] ficar com a tabela e extrair com o conhecimento \ detalhado das posi\[CCedilla]\[OTilde]es e propriedades... sujeito a enganos \ de contagem e d\[AAcute] errado com qualquer varia\[CCedilla]\[ATilde]o no \ texto, por pequena que seja\ \>", "Text", CellChangeTimes->{{3.591437976519476*^9, 3.591438002193494*^9}, { 3.5914381393611937`*^9, 3.5914381728952427`*^9}, {3.591458477117965*^9, 3.5914584772898545`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"file", "[", RowBox[{"[", RowBox[{"1", ",", "9"}], "]"}], "]"}]], "Input"], Cell[BoxData["\<\"Z=32\"\>"], "Output", CellChangeTimes->{3.5914382009757094`*^9, 3.591439539954119*^9, 3.591458443318983*^9, 3.591458996586156*^9, 3.6198067293484507`*^9, 3.6198075157392855`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringDrop", "[", RowBox[{ RowBox[{"file", "[", RowBox[{"[", RowBox[{"1", ",", "9"}], "]"}], "]"}], ",", "2"}], "]"}]], "Input"], Cell[BoxData["\<\"32\"\>"], "Output", CellChangeTimes->{3.591438218289657*^9, 3.5914382489172115`*^9, 3.5914395399697456`*^9, 3.591458443334614*^9, 3.5914589965901575`*^9, 3.6198067294109554`*^9, 3.6198075157392855`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", " ", "2", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "veja", " ", "que", " ", "ainda", " ", "\[EAcute]", " ", "um", " ", "string"}], "..."}], "*)"}]}]], "Input", CellChangeTimes->{3.5914382466982784`*^9}], Cell[BoxData[ RowBox[{"2", " ", "\<\"32\"\>"}]], "Output", CellChangeTimes->{3.591438251308038*^9, 3.5914395399853725`*^9, 3.5914584433466234`*^9, 3.5914589966097927`*^9, 3.6198067294109554`*^9, 3.6198075157392855`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToExpression", "[", RowBox[{"StringDrop", "[", RowBox[{ RowBox[{"file", "[", RowBox[{"[", RowBox[{"1", ",", "9"}], "]"}], "]"}], ",", "2"}], "]"}], "]"}]], "Input"], Cell[BoxData["32"], "Output", CellChangeTimes->{3.5914382711378193`*^9, 3.5914395399853725`*^9, 3.5914584433622556`*^9, 3.5914589966254215`*^9, 3.619806729489087*^9, 3.6198075157549114`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", " ", "2", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "agora", " ", "\[EAcute]", " ", "um", " ", "n\[UAcute]mero", " ", "de", " ", "verdade"}], "..."}], " ", "*)"}]}]], "Input"], Cell[BoxData["64"], "Output", CellChangeTimes->{3.591438289608108*^9, 3.5914395400009995`*^9, 3.5914584433662605`*^9, 3.591458996629425*^9, 3.619806729489087*^9, 3.6198075157549114`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Melhor localizar as sequ\[EHat]ncias de caracteres que cercam o valor que se \ deseja extrair\ \>", "Subsubsection", CellChangeTimes->{{3.5914383063751345`*^9, 3.5914383228452597`*^9}, { 3.5914512464392357`*^9, 3.591451247314309*^9}, {3.5914584841306334`*^9, 3.5914585035499973`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringCases", "[", RowBox[{"dadosString", ",", RowBox[{"\"\\"", "~~", "pat__", "~~", "\"\<\\n\>\""}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"\\n", " ", "\[EAcute]", " ", "newline"}], ";", " ", RowBox[{ RowBox[{"esta", " ", "forma", " ", "n\[ATilde]o", " ", "funcionou"}], "..."}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.5914363894338665`*^9, 3.591436391559047*^9}, { 3.5914364458760815`*^9, 3.591436455658148*^9}, {3.5914512682535534`*^9, 3.5914512684098196`*^9}, {3.591458532960908*^9, 3.591458567605627*^9}}], Cell[BoxData[ RowBox[{"{", "\<\"Z=32\\n PHOTON SCATTERING PHOTO- \ PAIR PRODUCTION TOTAL ATTENUATION\\n ENERGY COHERENT INCOHER. \ ELECTRIC IN IN WITH WITHOUT\\n \ ABSORPTION NUCLEAR ELECTRON COHERENT COHERENT\\n \ FIELD FIELD SCATT. SCATT.\\n \ (MeV) (cm2/g) (cm2/g) (cm2/g) (cm2/g) (cm2/g) (cm2/g) \ (cm2/g)\\n 1.110E-02 1.446E+00 7.614E-02 1.966E+02 0.000E+00 0.000E+00 \ 1.982E+02 1.967E+02\\n 1.500E-02 9.878E-01 9.049E-02 9.040E+01 \ 0.000E+00 0.000E+00 9.148E+01 9.049E+01\\n 2.000E-02 6.767E-01 \ 1.027E-01 4.144E+01 0.000E+00 0.000E+00 4.222E+01 4.154E+01\\n \ 3.000E-02 3.804E-01 1.161E-01 1.335E+01 0.000E+00 0.000E+00 1.385E+01 \ 1.347E+01\\n 4.000E-02 2.411E-01 1.223E-01 5.843E+00 0.000E+00 \ 0.000E+00 6.206E+00 5.965E+00\\n 5.000E-02 1.664E-01 1.248E-01 \ 3.044E+00 0.000E+00 0.000E+00 3.335E+00 3.169E+00\\n 6.000E-02 \ 1.223E-01 1.254E-01 1.775E+00 0.000E+00 0.000E+00 2.023E+00 1.900E+00\\n \ 8.000E-02 7.468E-02 1.239E-01 7.515E-01 0.000E+00 0.000E+00 9.501E-01 \ 8.754E-01\\n 1.000E-01 5.045E-02 1.210E-01 3.835E-01 0.000E+00 \ 0.000E+00 5.550E-01 5.045E-01\\n 1.500E-01 2.408E-02 1.125E-01 \ 1.125E-01 0.000E+00 0.000E+00 2.491E-01 2.250E-01\\n 2.000E-01 \ 1.400E-02 1.048E-01 4.732E-02 0.000E+00 0.000E+00 1.661E-01 1.521E-01\\n \ 3.000E-01 6.433E-03 9.231E-02 1.437E-02 0.000E+00 0.000E+00 1.131E-01 \ 1.067E-01\\n 4.000E-01 3.675E-03 8.319E-02 6.412E-03 0.000E+00 \ 0.000E+00 9.327E-02 8.960E-02\\n 5.000E-01 2.372E-03 7.620E-02 \ 3.541E-03 0.000E+00 0.000E+00 8.212E-02 7.975E-02\\n 6.000E-01 \ 1.655E-03 7.063E-02 2.238E-03 0.000E+00 0.000E+00 7.452E-02 7.287E-02\\n \ 8.000E-01 9.364E-04 6.218E-02 1.144E-03 0.000E+00 0.000E+00 6.426E-02 \ 6.332E-02\\n 1.000E+00 6.006E-04 5.596E-02 7.120E-04 0.000E+00 \ 0.000E+00 5.727E-02 5.667E-02\\n 1.022E+00 5.752E-04 5.537E-02 \ 6.766E-04 0.000E+00 0.000E+00 5.662E-02 5.605E-02\\n 1.250E+00 \ 3.851E-04 5.008E-02 4.572E-04 8.899E-05 0.000E+00 5.101E-02 5.062E-02\\n \ 1.500E+00 2.676E-04 4.553E-02 3.291E-04 4.412E-04 0.000E+00 4.657E-02 \ 4.630E-02\\n 2.000E+00 1.507E-04 3.887E-02 2.021E-04 1.635E-03 \ 0.000E+00 4.086E-02 4.071E-02\\n 2.044E+00 1.443E-04 3.839E-02 \ 1.952E-04 1.755E-03 0.000E+00 4.049E-02 4.034E-02\\n 3.000E+00 \ 6.701E-05 3.060E-02 1.090E-04 4.460E-03 1.071E-05 3.524E-02 3.518E-02\\n \ 4.000E+00 3.770E-05 2.552E-02 7.309E-05 7.071E-03 4.370E-05 3.275E-02 \ 3.271E-02\\n 5.000E+00 2.413E-05 2.204E-02 5.454E-05 9.372E-03 \ 8.700E-05 3.158E-02 3.156E-02\\n 6.000E+00 1.676E-05 1.948E-02 \ 4.334E-05 1.140E-02 1.336E-04 3.107E-02 3.105E-02\\n 7.000E+00 \ 1.232E-05 1.752E-02 3.587E-05 1.320E-02 1.800E-04 3.095E-02 3.094E-02\\n \ 8.000E+00 9.430E-06 1.594E-02 3.056E-05 1.483E-02 2.250E-04 3.104E-02 \ 3.103E-02\\n 9.000E+00 7.450E-06 1.466E-02 2.661E-05 1.631E-02 \ 2.681E-04 3.126E-02 3.126E-02\\n 1.000E+01 6.035E-06 1.358E-02 \ 2.355E-05 1.764E-02 3.090E-04 3.156E-02 3.155E-02\\n 1.100E+01 \ 4.987E-06 1.266E-02 2.111E-05 1.886E-02 3.478E-04 3.190E-02 3.189E-02\\n \ 1.200E+01 4.191E-06 1.188E-02 1.913E-05 1.997E-02 3.845E-04 3.226E-02 \ 3.225E-02\\n 1.300E+01 3.570E-06 1.119E-02 1.748E-05 2.101E-02 \ 4.190E-04 3.264E-02 3.263E-02\\n 1.400E+01 3.079E-06 1.058E-02 \ 1.609E-05 2.196E-02 4.519E-04 3.302E-02 3.301E-02\\n 1.500E+01 \ 2.682E-06 1.005E-02 1.490E-05 2.285E-02 4.831E-04 3.340E-02 3.340E-02\\n \ 1.600E+01 2.357E-06 9.571E-03 1.388E-05 2.369E-02 5.127E-04 3.379E-02 \ 3.378E-02\\n 1.800E+01 1.863E-06 8.742E-03 1.220E-05 2.521E-02 \ 5.678E-04 3.454E-02 3.453E-02\\n 2.000E+01 1.509E-06 8.065E-03 \ 1.088E-05 2.658E-02 6.179E-04 3.528E-02 3.528E-02\\n\"\>", "}"}]], "Output", CellChangeTimes->{3.5914584433858995`*^9, 3.5914589966570606`*^9, 3.619806729535965*^9, 3.6198075157549114`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringCases", "[", RowBox[{"dadosString", ",", RowBox[{"\"\\"", "~~", "pat__", "~~", "\"\\""}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"este", " ", RowBox[{"funcionou", "!"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.5914383603171377`*^9, 3.591438361707879*^9}, { 3.591451052016753*^9, 3.591451059939293*^9}, {3.591451167432641*^9, 3.591451167588904*^9}, {3.5914585811943626`*^9, 3.591458587893546*^9}}], Cell[BoxData[ RowBox[{"{", "\<\"Z=32\\n PHOTON\"\>", "}"}]], "Output", CellChangeTimes->{ 3.5914383626142044`*^9, 3.5914395400322523`*^9, {3.5914510461412635`*^9, 3.59145106265827*^9}, 3.591451169745332*^9, 3.5914584434055414`*^9, 3.5914589966726913`*^9, 3.619806729567217*^9, 3.6198075157705383`*^9}] }, Open ]], Cell["\<\ ToExpression[string] interpreta o par\[AHat]metro da mesma forma que o \ processador de entrada de um notebook\ \>", "Text", CellChangeTimes->{{3.5914586017402506`*^9, 3.591458677942258*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringCases", "[", RowBox[{"dadosString", ",", RowBox[{ RowBox[{"\"\\"", "~~", "pat__", "~~", "\"\\""}], ":>", RowBox[{"ToExpression", "[", "pat", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.591451121335043*^9, 3.5914511231945734`*^9}}], Cell[BoxData[ RowBox[{"{", "32", "}"}]], "Output", CellChangeTimes->{3.5914511241790304`*^9, 3.5914584434135437`*^9, 3.5914589966766977`*^9, 3.6198067295984697`*^9, 3.6198075157861643`*^9}] }, Open ]], Cell["\<\ como gerou uma lista, \[EAcute] preciso extrair o n\[UAcute]mero de dentro da \ lista\ \>", "Text", CellChangeTimes->{{3.5914586908672433`*^9, 3.591458704375928*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z", "=", RowBox[{ RowBox[{"StringCases", "[", RowBox[{"dadosString", ",", RowBox[{ RowBox[{"\"\\"", "~~", "pat__", "~~", "\"\\""}], ":>", RowBox[{"ToExpression", "[", "pat", "]"}]}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.5914511569942694`*^9, 3.5914511644167643`*^9}}], Cell[BoxData["32"], "Output", CellChangeTimes->{3.591451176886551*^9, 3.591458443429175*^9, 3.59145899669633*^9, 3.619806729629722*^9, 3.6198075157861643`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["para comparar strings", "Subsubsection", CellChangeTimes->{{3.591451319398451*^9, 3.5914513234612904`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s1", "=", "\"\\""}]], "Input", CellChangeTimes->{{3.591451344494296*^9, 3.5914513500728865`*^9}}], Cell[BoxData["\<\"Ola\"\>"], "Output", CellChangeTimes->{3.591451351494877*^9, 3.591458443433181*^9, 3.59145899671196*^9, 3.619806729629722*^9, 3.6198075157861643`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringMatchQ", "[", RowBox[{"s1", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.5914513552764425`*^9, 3.5914513808879595`*^9}}], Cell[BoxData["False"], "Output", CellChangeTimes->{3.5914513823724566`*^9, 3.5914584434528255`*^9, 3.5914589967239656`*^9, 3.619806729629722*^9, 3.619807515801791*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringMatchQ", "[", RowBox[{"s1", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.591451384966425*^9, 3.591451400795867*^9}}], Cell[BoxData["False"], "Output", CellChangeTimes->{3.5914514013584175`*^9, 3.5914584434528255`*^9, 3.5914589967395945`*^9, 3.619806729645347*^9, 3.619807515801791*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringMatchQ", "[", RowBox[{"s1", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.5914514119217997`*^9, 3.5914514356269035`*^9}}], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.5914514233758764`*^9, 3.5914514363144608`*^9}, 3.591458443476467*^9, 3.5914589967435985`*^9, 3.619806729645347*^9, 3.619807515801791*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringMatchQ", "[", RowBox[{"s1", ",", "\"\\""}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "as", " ", "fun\[CCedilla]\[OTilde]es", " ", "de", " ", "string", " ", "costumam", " ", "ser", " ", "sens\[IAcute]veis", " ", "\[AGrave]", " ", "caixa", " ", "do", " ", "caracter"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.591458718183985*^9, 3.591458742637494*^9}}], Cell[BoxData["False"], "Output", CellChangeTimes->{3.5914514382052445`*^9, 3.5914584434804688`*^9, 3.5914589967632337`*^9, 3.619806729645347*^9, 3.619807515801791*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringMatchQ", "[", RowBox[{"s1", ",", "\"\\"", ",", RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.591451448346715*^9, 3.591451455144154*^9}}], Cell[BoxData["True"], "Output", CellChangeTimes->{3.59145145587859*^9, 3.5914584435001063`*^9, 3.5914589967788663`*^9, 3.619806729645347*^9, 3.619807515817416*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Fun\[CCedilla]\[OTilde]es puras - para usar quando a fun\[CCedilla]\[ATilde]o \ existe somente para uma opera\[CCedilla]\[ATilde]o espec\[IAcute]fica.\ \>", "Section", CellChangeTimes->{{3.5914514831933737`*^9, 3.5914514870374446`*^9}, { 3.591458753632032*^9, 3.5914588062071047`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Function", "[", RowBox[{"x", ",", RowBox[{"x", "^", "2"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "primeiro", " ", "par\[AHat]metro", " ", "\[EAcute]", " ", "a", " ", "vari\[AAcute]vel", " ", "muda"}], ",", " ", RowBox[{ "que", " ", "\[EAcute]", " ", "transformada", " ", "de", " ", "acordo", " ", "com", " ", "o", " ", "segundo"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.5914514915846996`*^9, 3.5914514996166196`*^9}, { 3.5914516931015205`*^9, 3.591451721572647*^9}, {3.6198066124890056`*^9, 3.6198066166924314`*^9}}], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{"x", ",", SuperscriptBox["x", "2"]}], "]"}]], "Output", CellChangeTimes->{3.5914515320255747`*^9, 3.5914584435157366`*^9, 3.5914589967908726`*^9, 3.6198067296609735`*^9, 3.619807515817416*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "[", RowBox[{"a", "+", "b"}], "]"}]], "Input", CellChangeTimes->{{3.5914515361821685`*^9, 3.591451544292222*^9}}], Cell[BoxData[ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "2"]], "Output", CellChangeTimes->{3.5914515449797773`*^9, 3.591458443519745*^9, 3.5914589968065023`*^9, 3.6198067296609735`*^9, 3.619807515817416*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"#", "^", "2"}], "&"}], " ", RowBox[{"(*", " ", RowBox[{"#", ",", " ", RowBox[{"ou", " ", "#1"}], ",", " ", RowBox[{"\[EAcute]", " ", "o", " ", "par\[AHat]metro"}], ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "de", " ", "modo", " ", "que", " ", "ele", " ", "j\[AAcute]", " ", "est\[AAcute]", " ", "no", " ", "lugar", " ", "do", " ", "operando"}], " ", "-", " ", "o"}], " ", "&"}], " ", "\[EAcute]", " ", "fundamental", " ", "para", " ", "avisar", " ", "o", " ", "programa", " ", "que", " ", "essa", " ", "\[EAcute]", " ", "uma", " ", "fun\[CCedilla]\[ATilde]o", " ", "pura"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.5914516440661745`*^9, 3.5914516479258747`*^9}, { 3.5914517393553815`*^9, 3.5914518172212563`*^9}}], Cell[BoxData[ RowBox[{ SuperscriptBox["#1", "2"], "&"}]], "Output", CellChangeTimes->{3.591451649113471*^9, 3.5914518205809093`*^9, 3.5914584435473857`*^9, 3.5914589968105063`*^9, 3.6198067296609735`*^9, 3.6198075158330426`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "[", RowBox[{"a", "+", "b"}], "]"}]], "Input", CellChangeTimes->{{3.59145165533274*^9, 3.591451658176731*^9}}], Cell[BoxData[ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "2"]], "Output", CellChangeTimes->{3.5914516588017783`*^9, 3.5914584435473857`*^9, 3.591458996830141*^9, 3.6198067296609735`*^9, 3.6198075158330426`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Um uso importante \[EAcute] na sele\[CCedilla]\[ATilde]o de valores de \ uma lista", "Subsubsection", CellChangeTimes->{{3.591451876460576*^9, 3.591451888914741*^9}}], Cell["uma lista de teste", "Text", CellChangeTimes->{{3.5914518958684464`*^9, 3.5914518975560875`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"testList", "=", RowBox[{"data", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.5914518999469085`*^9, 3.5914519101196322`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.0111`", ",", "0.015`", ",", "0.02`", ",", "0.03`", ",", "0.04`", ",", "0.05`", ",", "0.06`", ",", "0.08`", ",", "0.1`", ",", "0.15`", ",", "0.2`", ",", "0.3`", ",", "0.4`", ",", "0.5`", ",", "0.6`", ",", "0.8`", ",", "1.`", ",", "1.022`", ",", "1.25`", ",", "1.5`", ",", "2.`", ",", "2.044`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "10.`", ",", "11.`", ",", "12.`", ",", "13.`", ",", "14.`", ",", "15.`", ",", "16.`", ",", "18.`", ",", "20.`"}], "}"}]], "Output", CellChangeTimes->{3.591451911072838*^9, 3.591458443567021*^9, 3.591458996849778*^9, 3.6198067296765995`*^9, 3.6198075158330426`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Select", "[", RowBox[{"testList", ",", RowBox[{ RowBox[{"#", ">", "1"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.591451920604883*^9, 3.591451961155146*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.022`", ",", "1.25`", ",", "1.5`", ",", "2.`", ",", "2.044`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "10.`", ",", "11.`", ",", "12.`", ",", "13.`", ",", "14.`", ",", "15.`", ",", "16.`", ",", "18.`", ",", "20.`"}], "}"}]], "Output", CellChangeTimes->{{3.591451941747275*^9, 3.591451961905205*^9}, 3.591458443582652*^9, 3.5914589968577795`*^9, 3.6198067296765995`*^9, 3.619807515848668*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Select", "[", RowBox[{"testList", ",", " ", RowBox[{ RowBox[{"0.5", "<", "#", "<", "1"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.5914519676088066`*^9, 3.5914519828288307`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.6`", ",", "0.8`"}], "}"}]], "Output", CellChangeTimes->{3.591451983485132*^9, 3.5914584435866623`*^9, 3.5914589968774166`*^9, 3.6198067296765995`*^9, 3.619807515848668*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Instru\[CCedilla]\[OTilde]es que servem para selecionar caminhos diferentes \ de programa\[CCedilla]\[ATilde]o\ \>", "Subsubsection", CellChangeTimes->{{3.5914567913864713`*^9, 3.5914568488912716`*^9}}], Cell["quando uma fun\[CCedilla]\[ATilde]o \[EAcute] dada em \ peda\[CCedilla]os, use Piecewise", "Text", CellChangeTimes->{{3.591456862642419*^9, 3.591456878971907*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"well", "[", RowBox[{"x_", ",", "v0_", ",", "a_"}], "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "<", RowBox[{"-", "a"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"v0", RowBox[{"(", RowBox[{"x", "-", "a"}], ")"}], RowBox[{"(", RowBox[{"x", "+", "a"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "a"}], "\[LessEqual]", "x", "\[LessEqual]", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", ">", "a"}]}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.591456894379568*^9, 3.591457005623104*^9}, { 3.5914571064283943`*^9, 3.591457163261263*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"well", "[", RowBox[{"x", ",", "10", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.591457009123396*^9, 3.5914570919271803`*^9}, { 3.5914571480881214`*^9, 3.591457155354353*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQrWcv9ur////7GaAgJEu94+cvBL9qqoXa568I/vHX UUnPXiP4CTPm3zpzHcGf+FHj9Mz1CP6XxdZrjOMR/F0ciXnp+/7B+fVnr70+ mPgXzn+5VFLcXOYPnK9134OT/+4vOH+J8OIvN5t+wvmHo0/17rf/AefLzJdR mPHwG5zv7RxdebnzK5wv/zutQdPzC5yvu25uQ9HbT3D+g5KFetdWfITz60xL Pe4uRvBlvnkkPZmH4EeUf5j6aQqCf7HS/i9fI4J/qO7uafdIBH9Jh2TmTk4E 38nzbdMBFgT/AefBOcf/f0DY151x4epXBH9q73bzTw8R/LZJoWzauxD8zDkT F8/JQvC/cHh1mqci+A2lTPmX4hH8aX7FVhyhCP4hhtCLxfYIvm8u73Y+KwT/ xs2jc1aaIPjvNpll3NdE8KVSJf57iSD4Sy9eePKUD8E3sOs81cCJ4B88rVlh yYrgAwDodcYf "]], LineBox[CompressedData[" 1:eJwt2Hk0VV0bAHAURQNfoVDce09KVCqSBu0GaZBUVMjwppIye0OGDBkiIkLm TAkRGSI3nm3KTMZruIYiQ7jXrGT4zrfW99dZv3X2Xvus/Qx7r0M1tLh2j4uD g4Obk4Pjf88nxmn8L2bZ4HFyD6eQWATEr7k3Hz/Fhhln1c66zFjI72staR9i g6Wk0ot3kh9gIChPW7mJDfwpSKrL9QssmEhJOlSwQXBOrv1oRDEInA2fyPjC hrOpBRt/TpXB8XmHZ2Lv2BBaLaHxLbYGQm6dyJ1yZIO6TeI2N7sWSJPPcJWy YoPbt8feXRJtULKBcknfiA17bbzMEisYwALO/qorbLCPUEtwE+oClR3lAnGS bHicWt4j39oHc2OqpuoNLHirbHjjse4QaDlrE2k0FjAdffUURKdgHVYsi9jK gsvZG+znHk9BEefWez4bWXBN4M1QKGMKJD3bkowWxmHdMXbh4+BpmPLVkKY2 jcNDjbPqeP0s+IWrHQh1G4e0gMrVBvPzgHNOIde+MbisIEPvzFkCqdHdtzRj RoErJjP1nvFqbHL5iueP/mF4msxpFBLOj3X+VVdSUBiE673afwwKBPErGL4C n/phXIPPNqFxK0Zc7Tf2cX6HQetPRuY52/DgLv1hgfk+8JA+ZtZZvA37qw3Y T4/1wcPXLjYnGrbhnrCJqPz2PtgUeM6XNbINO8vy9p/O7IPGVS01LPHt+Ivu UYubBn3AO9QTa/FsO35kfoSf07EXtBO/RFhfE8cP20ss304zwWPhdd2TbxLY rPl26eduJhzc7abew5TAlvUcwvUVTDA912F+aEQC25WdoM9FMkFl92hJPwcF e2QWcJ9XZgK90e25kggFx3hnRfwK7oKF10JM/gsU3KwYXyar0AlVf9q8Zd9S cJvcqS3KlE5Y9bwgtiqVgjv39T3Q4iMddH2NQSYF9+0Q53fr6QBt3izsSKdg lkCEdpNXB+iErB5waqTgtSOBrEeMdsikCYxHL1Lw8XC3rQWPGZCxqXjtLXUq VtMJeC1/hwGflRvizmlSsb5YtHCGGgOueI7nyGpTsUt0vmAijQG0gzoXpgyp uCSOLeBf2wZ6R2ekT9lS8blUPV5DShvs45Zp5I6i4mv0Iwu8lS2g6JGQIj1A xXecztl7ZLVA87NsD69hKn6kdP33clQL/A1v7ugeo+IQsJybtmqBiZEzU86z VNxe+m6qW6wFrBR/dj3noWG9WqHRjxbNUBcgHVS1i4aNuye7tLc0wegu/PyH EQ1nWzC5VVY1gRHxKsH0IQ0vc1bIHmQ3QmNSfO2UGQ0H74xy56tohEdn7dSn H9EwtlCRods2wu/vc1vKn9LwVq5Ih21t32D0tXrO+2gafqnmfbBodwN4zxuJ en6j4Z3Wel6hnA0wP1F9NLCZhr+EHuw076iHG9YmJuFtNDzcy3ST8KmHvvWG S9FMGj5pfaDRdbgO5OIkB+yGaXgitNPizLtaKFfhKTRfoWH1vj3plTuqIdpz b5SxNIEv3d31D/pTBQ+6f77fu5fAF4epmz/VVYHImUVRliyBlSeE7RNsq0BK 8cyW24cIrMjBeda5shI4qo54858kMI3SypQzrYBQzypVf00CSyQ2BKSerIAP dMOrvDcJvE2q+jRVqALSVrQ/uWgTeMt+SN5Y9BU0PxrG6OsTeP3JlEcj/F/B gM4cHLhP4FmDJ+vfZJeB/sN/tTc7EHiq3w6EvMug1HlcU9mJwBP3ra39dMtg Q1x5hqUzgX9Z3G+35y4Ddf6X7vSnBO5xuZqoebMU/INeJIj4ErjyjeRxvr/F MC0nUz4fQWAFiGT88igCnR8T/sfyCCy6fvVIjFwR3MgbVyjMJ/CSlunCtR+F wM+h1Ha0gMBlU8e301EhFIw1LewuJLDGzh5D3wU6sA4yuxglBLZ8QWHJWH6G Duu7S1Z1BNbs9F7pFf8Mqe7eotn1BD68a1IguC4fFNeu7JtoIPAyLpZblM4H f9N+Jf0mAvvNGNrX/vwEIvE+07wMAqfcerva7FYOZGLVoje95PvkDcJUvhy4 seH1ldg+cr1Zm12t+dlQUCffGfWdjEeAykUl4Wygp9xv9ukn8NeSoYANjR8h sj5VT26IwKn8V+KKXT7Cvs8+qZuHCfxCNz/LZt9HcNpCZ7FJa855t3b7ZsI1 WSG9qF/kfA1NBd0XH6CnJqmxbJwcP75Du+xXOuhoinR4sMjxz2Yd95xPh5Ar PYyTbAL3F4QWL3KlwclEA3raBIE5aB2Xoh+ngG0+EtWcJnAFPcWCuy0ZenrO MqdJ+193CDKTSwZO+5iQgBkyP3zE2pVYSfB07TlWwSyBj0zo3em5kwh3g20O f58nsGlB4ohdWQL856GIkv5vAsd4jFr8RzIB3HIVDRmkV4nYOykPxkFq+ghf 0R8yvv3A1aMSB3d0HP1lFghsnM7jY/cuFnqdvA+EkA53l5K53hgDFEKoTfcv GY8tnw57B0XDYFIwo4C0YdoZZbpGFJjHBvwWXCTwnlZ9PWpbOFTNzIcVkg58 MPZA83UYRKjf27p+icBzS/a2z7Regyzlct4N0nhnSMB4ZzDE04I0+khL0mlR lKhX4Ko5fkVimcDP1TOTNfSCgLZYaqZDmt2vlOslHgheIsKpgaTfTYS6/wsB kJbWz11O2lIkK6rj1AsIy93jNkP66Om6XFT2HM7KT4pRVgi82mS4/q2KN+RJ HWg7R7r+1arhdVWeMBo0lmFCOuyLOKe1qjt8tyZSfEkb/jwi2l7nCpGVrcXv SN/clmrkFOsEW4JXLQDpX2Z9Yeff2oF2a9rVFtLOIFwjmGoNt/waKwdI02gR C8V6JkD7bGUwSfpCOY+Bzv3bkH7rhdACaRxXt6GmVA1+/7tjdJn0+YQVnCQj j3i5DvetkPaINxrKn9dCXdzlM4ukxT6o8CtbGyErl3qpOdIO3Gat1+UtUZW5 htMo6cFshQQfWRs02KzBZpLWMOSwKpR2QOUfGtyq/7eeQPWJSUkXZLzyVS6H dGjvBa8ggaeorvwIdwTp2k/7zPb4e6A5Tqk5R9Jc/ps1v657hr5nB/LokFa8 9/voPz4+KKDLVkGetMXxbuoCjx/ismd48pFO2lyyNtjDHyn4Zc8wyf03t2me F3Z7iWSF1rm/J514Kb8nczkIGXvvWT5OGuVLNz1RCkYp1nO/Vsj4dxLR5Red QlB607H5ItICf93SBv68RivTiuYHSL83mnnzUTEcXc6daB8g80ulyeiVs10E 0h8j7gSTfpKi6rB1NgpV0hdbh8j83CpUZPZTLgbRNOOLfEnnuO6/nWX9Bp00 LP0qQ3r2Pd+Onb9jUXmv3aF/yHyXcWfzYZsExDZI9Ysg60X32Oa16bRE5BR+ vVGQtN+0AndEQyJ6lTfk+ZysN9Yd55V/dyehu3H4hPEcgbOUN8zs6k5G3jJn 2WNk/fYv7p8UfJ6CTH12ZZ8mLZiryeI8nIqYNRODr6YIbCMZNdz18j3SXT4c IzVJ7i+PTHeA8gfUKxKuKkb2jwdFlzudJj8g0ags/0tkf4mwtWY8iMlAP7iy T9mPkfk2zRymOmWi/zgbz5eR/aj3zo7+v60f0bR0Upwk2c/ilbMZGT45qFLf dHId2R8LKGdv7OzLQbm7Zw7OdBO4ebGtJUohF8l0GA4wmGR95C40+vTnooKf M6GBnQS+J3m69o5SHtLJHT1a30pgKZ5GvGXyM0rbt8PZtIbAJ38YIv9zBej8 adGiddUE1i6aKVwdU4Asjs6bJVWS9Wu7lT55kY702u9try8n8NigQW5N4hdU WC1EHwQCZ1SwUly0APn54Mnj2eR5pL/hiWwKoIEwKM/4SOCNczJXev8A6pdx jRXPJPtVkLzjGzWMGplnH06kETgYW1FXWBg5P+y/fDeJwFe3j5kVHShB6w/d 130RRuBhY8ebwjolqNrZOQqHEtg1h++U+dMSJHvpZj87mMCZqrsFxZtL0JiV mufpQHI9B6OCJ49K0aERVdF8HwJXt/XxKOWVoT9egd4D9mQ/oFlOBPeWIYl1 xfLtdgT+Y7bSMbamHP3alDVUYUPuD7d4epRWObJNb78daUXgZ3K3NBb/lCOd jYrvNj0g7wcvW9/Qj1eg6y7I9jR53hdeqFY8WlKFaOJWku/2k/l0SL50erwK NQlu+j5A3i/EaTFq6SLViC1bPbldhoz3gpUhxaoamTS7bHoqSe7/exE/HkoN smjguLpJlDx/1z/obXpSi1IjtUuucZHf37DGy+RIAxryMLLVaKDhBbqVgOS9 BrSRd6zlbw0NSyd3RfS8bEBxH72931TSsK9rRsbV4QbEa7mG3V5Mw0lh78ci Vb+hkTjRz5tzyPvcBQ3hpwvfEKPj9amU1zQ8mhr/4LJWE3KKGCc0b9HwXKcx V7lZE1q11Odtf5OGOdbJRh5zb0Jnbu00j9CgYWETeq3UhyY0yffuc70qDZ+W aZFdtboZLSm4anIep+Gw99xzeRnNaLA4MNxfjIaV04yfUte0otH4A7cvMKg4 On1f5EwuA5UF3h1Ep6jYfP1Wnz9VDOT9yOZM5HEqPmHCabfczUB3ZcI/TR2m 4h6plmtredrRXSGR3pB9VExJtOfbdqMdPe1cUEwXo+LEiDL7M3Pt6MRuFQHK LAWnPdPRClLoRJntfy8Jk/f5L7e9hPbnMdG6la9LPlMSuEOgu/lnLRPtpd2/ pjUogedALijyBxOlc5hab++UwPvFv29cs7Eb1bMTBP2KJXBC57G1PXe7UUBo 7feFAAn8XGNywXdTD+Ll4XwjLiOBtc7q9g2Z9aJh07lEZx1x7CAY3qq+6Ts6 p7O5NzZ6G6791qLcFNGP3g6dD3y2uBVb1RzeGSA8iE7OSgrtnBTEiQ3KQkaV w2gqxLFLgksA+6XlJa+5NIryuU8JOVVxY85XLRdKuVlIo9T07/TuaViO/mU4 yc9Clu5hF25XT8FCMoeThCgLNd3nP/Th4RTMFO354LiPhY5F9/QPpk7C4C+P TfI3WWixgCuuefcE1J4+1JWYzEIf3EsPHjrzC6rUVGeasljIw9fl8SrXEfiq dXsDZyELtXQ1/n75ZRjA/AXSa2ShuetHUkbkhyAr4meC0AILdWVsrgqkDUDY VIiplyobcc6O8jr0d0HI0nvPnOtsNLJ57/CSZicErS2J+WHARl9LI45xfG0H X3HWtxOP2Mit7e8p16RWcL6ocmg+io3s/FPCu0rqweG67mXJd2zU1DWTXB1d A3b/WN/X+EjOvxge/8muEixtY8Izytkox39c01OqBMzccrK6G9iI/vWo2Lfl QnjoV12zrpONerMv3Q5IzYM78XNL91lsZJSzkTE3/xb+//8Auf///8F/AQmI wqE= "]], LineBox[CompressedData[" 1:eJxFx1koA3AAx/HlLJOkEHKMYSaKLA1rImwiGZKjYQgh8uCKzJkkR7K0EZm5 JiEPaHMkR+TFylFa4sWVm8w1lP6/X3379aGJSgS5BhQKxe+3v1/b9apkG99z Kf+byuqnV5nA3nmefl1UeLJojjNmCTPKONHL1jC9NiH7xhkebtCWGLrDtNaC Gnsm7NRT18sLgG0nlFsjPNjqy54/HAubx7ftDApgA13+njQdvuV5aLpK4c2L IW1NH1zOkLwkXsAHY2I349YH4jQls6Xs7JE4RGYavOH+THzeufhKb3ohnner u6advBKfyiv8jRzfiPcZEeKnSh2xszTCZVv9TiyZTNGxPz+INSthxwtJX8SF a0KqY983sWjwWKIagFNrE13T5TCPHc2WTcP0WVae3QZ8MmS+bv0Ix4iXqi1i 9MThQpbJdDwcFDLTHZsMM94U4+0i2Ki0+8CsClZn5PubjsLznHP1qBKechDy I2dh6WFCZrMKLo/jdhhq4GKfJTv5EZxDZSnCtLBgi6mqv4T5CkUU7Q4ObXTR rD7DgVkyYeY77Mu1udLr4R9KvMZY "]]}, {}}, {{}, {}, {}}}, 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->{{-2, 2}, {-9.999999052729452, 0.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.5914570514706793`*^9, 3.5914570559241753`*^9}, 3.59145709258349*^9, {3.591457150260174*^9, 3.591457166730299*^9}, 3.591458443669215*^9, 3.5914589969443293`*^9, 3.619806730301645*^9, 3.619807516504966*^9}] }, Open ]], Cell["quando se define uma caracter\[IAcute]stica, use Which", "Text", CellChangeTimes->{{3.5914572022645187`*^9, 3.5914572237663136`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"column", "[", "interaction_", "]"}], ":=", RowBox[{"Which", "[", RowBox[{ RowBox[{"StringMatchQ", "[", RowBox[{"interaction", ",", "\"\\"", ",", RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}], ",", " ", "3", ",", RowBox[{"StringMatchQ", "[", RowBox[{"interaction", ",", "\"\\"", ",", RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}], ",", "4", ",", "True", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.59145724390862*^9, 3.5914572876310163`*^9}, { 3.5914573260717287`*^9, 3.591457352417678*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"column", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.5914572907094007`*^9, 3.59145729638175*^9}, { 3.5914573559492226`*^9, 3.5914573638405066`*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{3.5914573648405867`*^9, 3.5914584436968536`*^9, 3.591458996963967*^9, 3.6198067304735327`*^9, 3.619807516520592*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"column", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.591457367465809*^9, 3.591457383185871*^9}}], Cell[BoxData["\<\"unknown\"\>"], "Output", CellChangeTimes->{3.5914573838109236`*^9, 3.5914584436968536`*^9, 3.5914589969876013`*^9, 3.6198067304735327`*^9, 3.619807516520592*^9}] }, Open ]], Cell["\<\ Piecewise gera fun\[CCedilla]\[OTilde]es que derivam corretamente (uma fun\ \[CCedilla]\[ATilde]o t\[ATilde]o simples funciona tamb\[EAcute]m com Which[ \ ])\ \>", "Text", CellChangeTimes->{{3.5914578368643665`*^9, 3.5914578495841784`*^9}, { 3.5914583828627825`*^9, 3.5914584057251387`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"well", "[", RowBox[{"y", ",", "10", ",", "1"}], "]"}], ",", "y"}], "]"}], "/.", RowBox[{"y", "\[Rule]", "x"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5914578526781874`*^9, 3.59145787122661*^9}, { 3.591457915714699*^9, 3.5914579254186335`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF1nk0VfsXAHAikiE/ZUiEcuvGS+49hpT6fqlEiJe5ZLhCSpMGQ+Lqxa9e GkXGlEsUpXr1lIdz8BB6dSPzEFFPLuega7qF57fW+53vXmuvvT5r7bX2/muv rcM5tsd/gZiYWN58/q8aAJXBubk5XOzfcD609uK0CDkiceOab+PINYK9nC8C ZJ/kzPY3Lcg3Rpn1KYXIQt7mAswbuXiR79HAslna0X81C8p9Z2h/zVmuaqrx g7beR2uZJV0i2tlLecK289O0K/fVXcHBFG2NTA3t5N4J2rbb9oU3XhqnrfU9 gLvORkh7/eMMbsjwGO2eU/cMmvNGaUcZn7bu4iFrTFhz+u8gu4eOJI7dQn4f DmYUYpArorrqd3ogZ19cHvRKBtnSZvg8IYncI1OeXjM3guZdPshvGkdOvFJk OtaLHHfTRUq/GDko/QYv/RCycNGuS6b+yNzTC441eCMn7T65aZELcoWYy/uT ANn+iHyRwibk1raq9AdGyOQzk4Mf1yGHa1H2EbrIkvG5mLIWsrq/2tyuZcg5 7/n9nxWQDbdequPKIP/x0OLJCknkeAOh/pEZClfLCNt8YBYjsqT9J7PGKLxa N7M9ZxIjXvY0VbT+TeGnCqrC/x7BiP6bRR7bGyj87R9KLw/1YYToMJMRUUPh kdvM3Ao6MUJxR8pIYQmF69V7Tww3YYT5ZMR/V+RSeFx7gdGJ1xiRuG/ri7Gz FL5l2upp6COMKDAq5DJPUPgQ94jjq/sYUSGvbecVQOGpi25RokyMIHHxvlpH Cheq9q6PuokRVrpVivcYFF5gcvbhhVCMmBiyDXZ4R+Lqpwp5Nywwwj3KY3XB KhKfIlWT8pvYhCyx8c9UNRKXDuMV+7xjE2Xiav6XFEhcRXzDR+VaNsGIbb4f IBrGTZdaMbklbGLsspOeTsMwHmZ6qtiZxybiU+xZSTHD+FQ0v3vmOJsgnlsA bs8QPqV4aa2jHJtgCtbtc74jwKfYopdCSxZxeLdj7Ke+AVyak72mQ2MDsfek wxYTky+4oSPvTWWlPpGADzjiv/fhYdQqxrFsJgEWtLoaiPfi/AVXh8ItGMSh 1orjOd86cYua8ICdaqsI85QYteKwFjx+7t6dAVdN4mDXaIeHagNe7kzuMcxQ IRx6fnr0WrcOZ8mZB8+4KhImeFrL4IUynOtWXq20VIIwG9nv1+2XjcNg4x9N kV9x/V+oxcRpHhjxy5c3dBoAhTXkg2h3HPDNjescbkvAUpu6jZsqaoHq0Si/ A8sVoeBhVtBu9waQ5yIrySFVYMYjgzThixYg6SEqP8HThCW+ccqGRZ1AZeak fNSYDoxYltLkoNQLkj3m6vpcGfAN/8P2htQ+ILZwcXNcDBOeqDddc03lC7Ar q6LY6fow+9125YDXAyBeIik1WmQA4wuK8qTtBKC1PqT2whIWXKNtfpt0FQC1 W7ErXVRYkEggYpt8BcDdM/kkQ5MFv0XUcnih8/1DpZrVeiy416ZDA/DmLS8T Im3Fguu+zF4/IxKANodM9V8jWbBayyr8c94Q6GysP3ztKwv6JNQFvvltCGik dxPeIywoknJw/a1sCHgeGFU2nGRBA9INi/kw3y9UIfiSbJhYEjSsITYMupQ5 y5S02fCAxxVfZ7dh0O02VXLLlQ3FEz7YVC4kQU+HrkJqJRvOZgxyRpeQoCyr oWuilg1FeWKRWuokSA/iPnLis6Gw7KfHZw1I4D7ZYSffxYZfBi8oGbmRgK+U cJk7wYZvLI07svNIQNiIywSuw2Ctva2w4RkJMhQLWys3YLDa3VdevJQEkS2e edomGMSPXgH735Ngo//Lne2WGHyW+pmnLCLBE+6xOHtPDCaPJQbH2VLgblGX hNE1DCbO5Mc+d6HAuajLjdcTMXhzUcWdT94U8NxhxhtOw+DllSR/6ykKqDbe sszNw2DULivjyXQKXCVtY9QrMBjh4rmbkUuB4BfTjqGvMRjqExLo9JQCtpG5 2h/eYvD4mTsphVUUkFosQVzpwOCRmOfPut5RoJ//5NpgLwYPxdfVy7ZToOK2 l/fOAQwG3O7pN+uf389LbkM2iUG/rImZQJICUYziWbFxDPo8klNNmprfbyjw 7f7vGDTw/I8aR3wE/P+eFfim64ZLIesHrmVdl0V+GPxsS64iMjNky64yZWTd c05+Q1rIWee7j0kwkHUuBkWq6yGvTIhOtDZCVn2QX5Ntjaw0o26TZY8s9/Ov dZl7kBdMH/wr1ROZtF7TeP04cvXA3e7IZOQzzKRx5wHk5lzu6oUXR2nvy9eL C/k0Rts8TXpzFUNIu+/aqwndC+O0n6+OFuh0TtDu4YWyJTWnaDcwd3C/hU3T 1krdof26VEQ76aHHtNmP77Qbccu2ly4ztA+Xe8lqJs/S5mS2JZVkIO8957zK k4dsbbbLLO0xsu5T48DlVcidd+UqlceQ7bjFEQp2c7S3eRlLPf4ZeZP5kxv2 bsjMqZy8eA6y5PEbzYvDkUu9D7Kl7yM/39JXej8fuWCFl43VU+TUFief2BLk Mw7gqkQj8pH1xct5rcgHZI1zLLuR99TolcR8RbbJydmpQyHDX7QbCSGyqW+a l48I+d9/k/Y/UjkCbA== "]]}}, 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->{{-2, 2}, {-19.993716923662845`, 19.98190012013616}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5914578721641865`*^9, 3.591457926637483*^9, 3.5914584437637644`*^9, 3.591458997046512*^9, 3.6198067305360374`*^9, 3.6198075165830965`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Um programa mais complicado", "Section", CellChangeTimes->{{3.591452052115864*^9, 3.591452060163411*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"logMu", "[", RowBox[{"table_", ",", " ", "interaction_", ",", "\[Rho]_", ",", "eMax_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "file", ",", "patData", ",", "data", ",", "tableMu", ",", "column"}], "}"}], ",", RowBox[{ RowBox[{"file", "=", RowBox[{"Import", "[", RowBox[{"FileNameJoin", "[", " ", RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", "table"}], "}"}], "]"}], "]"}]}], ";", RowBox[{"patData", "=", RowBox[{"{", RowBox[{ "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"data", "=", RowBox[{"Cases", "[", RowBox[{"file", ",", "patData"}], "]"}]}], ";", " ", RowBox[{"column", "=", RowBox[{"Which", "[", RowBox[{ RowBox[{"StringMatchQ", "[", RowBox[{"interaction", ",", "\"\\"", ",", RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}], ",", " ", "3", ",", RowBox[{"StringMatchQ", "[", RowBox[{"interaction", ",", "\"\\"", ",", RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}], ",", "4", ",", " ", RowBox[{"StringMatchQ", "[", RowBox[{"interaction", ",", "\"\\"", ",", RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}], ",", " ", "7", ",", RowBox[{"StringMatchQ", "[", RowBox[{"interaction", ",", "\"\\"", ",", RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}], ",", " ", "8"}], " ", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"d2", "=", RowBox[{"Cases", "[", RowBox[{"file", ",", "patData"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{ RowBox[{ "energy", " ", "in", " ", "column", " ", "1", " ", "should", " ", "be", " ", "in", " ", "MeV"}], ";", " ", RowBox[{ RowBox[{ "all", " ", "other", " ", "columns", " ", "are", " ", "cross"}], "-", RowBox[{"sections", " ", "in", " ", RowBox[{ RowBox[{"cm", "^", "2"}], "/", "g"}]}]}]}], " ", "*)"}], RowBox[{"tableMu", "=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"1000", " ", RowBox[{"data", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{"Log", "[", RowBox[{"\[Rho]", " ", RowBox[{"data", "[", RowBox[{"[", RowBox[{"All", ",", "column"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ";;", RowBox[{"Length", "[", " ", RowBox[{"Select", "[", RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "<", "eMax"}], "&"}]}], "]"}], " ", "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ "limits", " ", "the", " ", "table", " ", "to", " ", "energies", " ", "below", " ", "eMax", " ", "and", " ", "transforms", " ", "MeV", " ", "to", " ", "keV"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Interpolation", "[", " ", "tableMu", " ", "]"}]}]}], " ", "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.591452064163745*^9, 3.5914520711487026`*^9}, 3.591458418285378*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"logMu", "::", "usage"}], "=", "\"\\""}]], "Input", CellChangeTimes->{{3.591452093650578*^9, 3.5914524518054743`*^9}, { 3.5914588763410397`*^9, 3.5914589705428543`*^9}, {3.5914591302502203`*^9, 3.591459134453697*^9}}], Cell[BoxData["\<\"logMu[table,interaction,\[Rho],eMax] l\[EHat] o arquivo de \ nome 'table', que contem os coeficientes de atenua\[CCedilla]\[ATilde]o de f\ \[OAcute]tons do XCOM, do diret\[OAcute]rio deste Notebook e cria uma \ InterpolatingFunction relativa \[AGrave] intera\[CCedilla]\[ATilde]o \ 'interaction'=[\\\"Incoherent\\\",\\\"Photoelectric\\\",\\\"TotalWithCoherent\ \\\",\\\"TotalNoCoherent\\\"] que d\[AAcute] o coeficiente, em g/cm^2, para \ uma dada energia em keV. \[CapitalEAcute] necess\[AAcute]rio fornecer a \ densidade de massa \[Rho] em g/cm^3 e a energia m\[AAcute]xima 'eMax' da \ faixa de energia de interpola\[CCedilla]\[ATilde]o, que come\[CCedilla]a na \ menor energia tabelada.\"\>"], "Output", CellChangeTimes->{3.5914524524305296`*^9, 3.5914584437833996`*^9, 3.591458997062143*^9, 3.591459135823824*^9, 3.619806730551662*^9, 3.61980751677061*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"logmuGe", "=", RowBox[{"logMu", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "5.3", ",", "500.0"}], "]"}]}]], "Input", CellChangeTimes->{{3.5914520816964583`*^9, 3.5914520818370953`*^9}}], Cell[BoxData[ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwBsQNO/CFib1JlAgAAADoAAAACAAAAbDPUenyyhUDDvwZsCiETwNeGFaOQ 4I9AzwmVFVWBFsDx+58d0P2UQB2hQWzNkhjA0Ip80Pp4mkAqJpnFmkEawLtK cISBlp9AZo6GcstsG8B/sJWP1ZCiQBfG2xvVaxzAXtrGg3lJpUBy8DGBMTsd wMOcg3hL06dAcf9//AbsHcBUCqTg7pOqQNU5Kj08jB7AaxBQScAlrUCUihLc 8A0fwD+1z9igqq9Ag9ywOQF/H8CggtltKTOxQBneCI0n8B/A4/aQb5l5skAx dETbzicgwLxA+ipy27NA+eMMuR1XIMD0Wc150ja1QEj9cPM0giDAbz/myMl6 tkDFTjAvaqcgwID6sNEp2rdAU9IMHRPNIMDUgcHaICK5QAqc3NYp7iDAvt6D nYCFukCyjgWvzw8hwAcLsPNn4rtAwEnxn+suIcCSAyJK5ie9QC2MwqhwSiHA tNFFWs2IvkAN6D6gtWYhwBlsr2pL0r9AgpMKE8p/IcDvakGHqIrAQEBntWJE lyHAnAoEtt85wUD5v9qYlK8hwGqQ6WRi3cFAR+0tklDFIcADAahwmY7CQBWO Xvvu2yHATFkbRpQ8w0B9uYQsO/EhwLaXsZva3sNAuCu+oV8EIsDrwCBO1Y7E QEi/p11lGCLAQtCygBszxUCPDuc7aSoiwEjH+Xwl1MVAb7zBO3Y7IsAZqRnW 44LGQGkObzdUTSLADHFcr+0lx0DktHcNdl0iwMojeOWr1sdAqqnQ9HFuIsCp vLabtXvIQNy6tAHbfSLANz2qG4MdyUB5ImLSiowiwJGodvgEzclAPO6TmQOc IsAM+mVV0nDKQNL3+BoMqiLAUjYuD1Qiy0AQE6gJ2LgiwEdaq5KZ0MtAN5vv 4AHHIsBeZEuWKnPMQHxrk7Pk0yLAQFnE9m8jzUDMW7A0gOEiwEM0YNcAyM1A VOzzV9ftIsD29rCBVWnOQIekn/Og+SLAdKTaiF4Yz0Br2PmOGgYjwBM4JxCz u89AoB1JQ4MRI8A/Wyb6XTbQQKvIKC2gHSPATI4TUUSN0EAvmH3OQSkjwGo0 EmhQ3tBAwq+STeEzI8DtT32tNjbRQK0r7/ApPyPAgd75skKI0UDsDKQRe0kj wHri4uYo4dFAtuBRw25UI8BLWqb/cDjSQGR9jeP2XiPALUV72N6J0kDXl+ee mWgjwHSlvN8m4tJAvzOe/9hyI8DMeA+nlDTTQBsX9Ys8fCPAu/1y+v+H00Da Z5W7kYUjwOkk0/4= "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, -10.200000000000001`}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange -> {{11.1, 20000.}, {-9.760877477634427, -4.782266319190913}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"11.1`", ",", "20000.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwBsQNO/CFib1JlAgAAADoAAAACAAAAbDPUenyyhUDDvwZsCiETwNeGFaOQ 4I9AzwmVFVWBFsDx+58d0P2UQB2hQWzNkhjA0Ip80Pp4mkAqJpnFmkEawLtK cISBlp9AZo6GcstsG8B/sJWP1ZCiQBfG2xvVaxzAXtrGg3lJpUBy8DGBMTsd wMOcg3hL06dAcf9//AbsHcBUCqTg7pOqQNU5Kj08jB7AaxBQScAlrUCUihLc 8A0fwD+1z9igqq9Ag9ywOQF/H8CggtltKTOxQBneCI0n8B/A4/aQb5l5skAx dETbzicgwLxA+ipy27NA+eMMuR1XIMD0Wc150ja1QEj9cPM0giDAbz/myMl6 tkDFTjAvaqcgwID6sNEp2rdAU9IMHRPNIMDUgcHaICK5QAqc3NYp7iDAvt6D nYCFukCyjgWvzw8hwAcLsPNn4rtAwEnxn+suIcCSAyJK5ie9QC2MwqhwSiHA tNFFWs2IvkAN6D6gtWYhwBlsr2pL0r9AgpMKE8p/IcDvakGHqIrAQEBntWJE lyHAnAoEtt85wUD5v9qYlK8hwGqQ6WRi3cFAR+0tklDFIcADAahwmY7CQBWO Xvvu2yHATFkbRpQ8w0B9uYQsO/EhwLaXsZva3sNAuCu+oV8EIsDrwCBO1Y7E QEi/p11lGCLAQtCygBszxUCPDuc7aSoiwEjH+Xwl1MVAb7zBO3Y7IsAZqRnW 44LGQGkObzdUTSLADHFcr+0lx0DktHcNdl0iwMojeOWr1sdAqqnQ9HFuIsCp vLabtXvIQNy6tAHbfSLANz2qG4MdyUB5ImLSiowiwJGodvgEzclAPO6TmQOc IsAM+mVV0nDKQNL3+BoMqiLAUjYuD1Qiy0AQE6gJ2LgiwEdaq5KZ0MtAN5vv 4AHHIsBeZEuWKnPMQHxrk7Pk0yLAQFnE9m8jzUDMW7A0gOEiwEM0YNcAyM1A VOzzV9ftIsD29rCBVWnOQIekn/Og+SLAdKTaiF4Yz0Br2PmOGgYjwBM4JxCz u89AoB1JQ4MRI8A/Wyb6XTbQQKvIKC2gHSPATI4TUUSN0EAvmH3OQSkjwGo0 EmhQ3tBAwq+STeEzI8DtT32tNjbRQK0r7/ApPyPAgd75skKI0UDsDKQRe0kj wHri4uYo4dFAtuBRw25UI8BLWqb/cDjSQGR9jeP2XiPALUV72N6J0kDXl+ee mWgjwHSlvN8m4tJAvzOe/9hyI8DMeA+nlDTTQBsX9Ys8fCPAu/1y+v+H00Da Z5W7kYUjwOkk0/4= "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, -10.200000000000001`}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange -> {{11.1, 20000.}, {-9.760877477634427, -4.782266319190913}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"11.1`", ",", "20000.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("InterpolatingFunction[{{11.1, 20000.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.591437798004572*^9, 3.5914395401103816`*^9, 3.5914520826652875`*^9, 3.591458443826685*^9, 3.591458997093796*^9, 3.6198067305985413`*^9, 3.6198075168643665`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"graf", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"logmuGe", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "20", ",", "500"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.591439549720562*^9, 3.5914395505956354`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVj38803kcx2fFMNt3zK/rdOmOEtbqrC6n2RuLTUgbaiKGJAyd+RG2ORT9 elyp/CpdP4iO0u2BrrTbh07nV3fHHiSudCWRH2dzI8e52/3xerz+ez2fr/VR ybxDeBwOF6PL/71hg6AKh2OAzyrt6wPnLaAoajDvnj0DQksN2S9yLGDi6j5h 5G4GjG86m1cQZwH1ViGfoBIGVNDY6Z5gAS5G/DIZbRtcfvvWT6Q2B5jyO7MS uh36O5+HEkLNIVQO4uWmHSBSn7MuBio8mlHy6od3QNDBruEndCqsdWJtDdNz BZs3u5Mp66jw6iZzpsXPFVKt8t6O/GMGhy99GZf9xhUKhF98JnxkBuJMRtjf FDfQONcUpu00g2/cHdgfEpjAod+mOu0yhdyj4tuqi0xwOX9x8jbDFFKqELlB wQQTxeJ6mp0p8IwFzw9h7mA9Sig/u8oULAdOJqnk7pBVvWJxv50CV0WTZXcX WbDXVVv1wJ8CIQHP0uVeHvBjWIOx3jMyxEgquuN6veAg7a8CYT0RmotNZ7JH vWC400ARUkIEw9oiyjcLXrDP1bo4MpcIdX3pwU1r2TD/1KllfRARNBv5I3rx bPjIt4votWwMuX3EuQr8LqjHVNP0QGOo3ChZ89TFG2LUJMmcvhEM9EYc2VrC Afc1fxMcbhpANoneNlrLAf7xforwvAHYclfWlLVwoNTGc3ONzAAS0JWelVcc eOIzyAoNMwBcw3N6jxMX2h9olhctDMDxDH8+tpULQarxJ4TT+iDx9sm/MuUL juqgonXS1WDXsrmS4OUPAbupMYXH8UBzCwiucdwLL3dNTp+I+4eluWA3kFnE h69bpyzXMRdYdcFdj/EfhcD73On92QI1q+8Pcc6Fyv1QtZwVWOY2zrKbcKf3 zYfChtd1P/CXXrLiBYMBnXnh8IMjeaSgrZs1zD4fl/QmAnKHH5Ii7E8rwyU1 G0g2QqhKafJW4J4qn5gk7VFGREFf3clHl4Z+V7YL2GkdZ6Nh4DH5F4/8UaX7 gbxeWn8M2BuJxNGS98qZVs8LJZaxMJfo76bUn1W6jJnxQjwPQ+K0WawqX6PU /Ojr81VhHGhe8rg0B63SJ7jY9W3zEXhj578gkS0oLa95RDX+Gw/IOVFbM7yo tAlMnT3hmQjBQ+VF0eRl5X1FY/a9ZBFEEp1j7+qtKHtGwpnbm5Mg/t40lYfH oXSl5bLZu2RQu24MsHyHQ874TecWi1Ig3Ovndw4KPTQkzVJYOR2FA3v8VG0V eMQf4h8Rth0FzlXTY3siVyEjinCLIPYrGJssur+JthqFZtK/4xFSYafw1E4P 9Wrd/vEbGZWpcCLzMGVbtT769RXW7AtiaDgxKNcTGqC5V+s53EExOAkkpBYj ApJTtWe4ojSw3jdo73mbgO7aLk8tkNMhUKJtWBtoiNJMTnf3VqfDCOPFoPuY ITrW598u4GaAQ59+nm++EeJklDFJrzNgbcG3nWMUYyQPqIpry8gE528bA/eW GiMBbvSu/ZpjcCNJWEuwJ6Luc3Wpjd8fg2LFSu5PNUSUtXSLrw7OgtiCyGTG VhP0U1n0GH0hC0YuFk7hG03Qc/PahfKz2bAu6dNPpI4k5JRgayffkgM5uaMi zxoS4lyz/VXbkQMfurfhj1iTEc7wtbPbQQl0VZR8LyggIy33WfVmnBTUn5fe Yc+TUVN8UKV/qRTcVpjU++EYQvjm2NlyKQTy6tTSCAz1VFhtuXBFCgPTS5e9 hRga7RpqG7wuBZV5RlB/DIbMnITj0fVSIA7Yh8wmYChlUuSS1SqFna3vb9lk YcgxsbDz1qQU7liz+gJKMLR99UQxd0YKL9uFbEoZhjyu+IZNzUrhcuF4fm85 hvb3kP7cOi8FQRQvgV+JoULni+YKnAyiHcZ/D6rS8aeuRagsZHC4+HpwgBxD swX4TenWMhCfrL1p0oihJZsYjfXHMihbUim7mnR+/huPH7SVQW98R5T3Ax3v zp3vJhxlkOaQGeSGMOS3CxOfocmgtW7O/EOrjv8ihUnfIgPRi7mbjY91f0iM 38TbZHDqkJxG+xlDOdWXyq12yKCno8hhokPnx1yIevilDCh/UTVVXRgq7t/v HM7U7U1HnIrswdBV0UPtvywZ+DzKVH/8C4b+Awxy3AM= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{100., 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->{{20, 500}, {-3.975639235016874, 5.391952081875224}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.5914377980514517`*^9, {3.591439540157262*^9, 3.5914395512988167`*^9}, 3.5914520857749195`*^9, 3.591458443830673*^9, 3.591458997113432*^9, 3.619806730614168*^9, 3.619807516911246*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1253, 848}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, Magnification->1.4000000953674316`, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 153, 2, 45, "Subsubtitle"], Cell[CellGroupData[{ Cell[757, 28, 151, 2, 96, "Section"], Cell[CellGroupData[{ Cell[933, 34, 315, 8, 42, "Input"], Cell[1251, 44, 8440, 200, 1114, "Output"] }, Open ]], Cell[9706, 247, 200, 4, 42, "Text"], Cell[CellGroupData[{ Cell[9931, 255, 291, 8, 42, "Input"], Cell[10225, 265, 7154, 175, 989, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17416, 445, 153, 2, 54, "Subsubsection"], Cell[17572, 449, 330, 6, 70, "Text"], Cell[CellGroupData[{ Cell[17927, 459, 494, 12, 70, "Input"], Cell[18424, 473, 383, 7, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18844, 485, 185, 4, 42, "Input"], Cell[19032, 491, 7117, 174, 989, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26186, 670, 129, 2, 42, "Input"], Cell[26318, 674, 4526, 92, 877, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[30893, 772, 157, 2, 54, "Subsubsection"], Cell[CellGroupData[{ Cell[31075, 778, 360, 9, 42, "Input"], Cell[31438, 789, 4333, 58, 1142, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35808, 852, 806, 19, 70, "Input"], Cell[36617, 873, 327, 5, 41, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36993, 884, 210, 3, 54, "Subsubsection"], Cell[37206, 889, 455, 8, 70, "Text"], Cell[CellGroupData[{ Cell[37686, 901, 104, 3, 42, "Input"], Cell[37793, 906, 203, 3, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38033, 914, 169, 5, 42, "Input"], Cell[38205, 921, 227, 3, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38469, 929, 253, 7, 42, "Input"], Cell[38725, 938, 227, 4, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38989, 947, 215, 7, 42, "Input"], Cell[39207, 956, 197, 3, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39441, 964, 224, 6, 42, "Input"], Cell[39668, 972, 193, 3, 41, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39910, 981, 300, 6, 54, "Subsubsection"], Cell[CellGroupData[{ Cell[40235, 991, 613, 13, 70, "Input"], Cell[40851, 1006, 4154, 56, 1142, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45042, 1067, 491, 11, 42, "Input"], Cell[45536, 1080, 322, 5, 67, "Output"] }, Open ]], Cell[45873, 1088, 202, 4, 42, "Text"], Cell[CellGroupData[{ Cell[46100, 1096, 296, 6, 42, "Input"], Cell[46399, 1104, 194, 3, 41, "Output"] }, Open ]], Cell[46608, 1110, 177, 4, 42, "Text"], Cell[CellGroupData[{ Cell[46810, 1118, 382, 9, 42, "Input"], Cell[47195, 1129, 163, 2, 41, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47407, 1137, 114, 1, 54, "Subsubsection"], Cell[CellGroupData[{ Cell[47546, 1142, 128, 2, 42, "Input"], Cell[47677, 1146, 172, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47886, 1153, 169, 3, 42, "Input"], Cell[48058, 1158, 171, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48266, 1165, 167, 3, 42, "Input"], Cell[48436, 1170, 171, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48644, 1177, 169, 3, 42, "Input"], Cell[48816, 1182, 199, 3, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49052, 1190, 428, 9, 70, "Input"], Cell[49483, 1201, 171, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49691, 1208, 217, 4, 42, "Input"], Cell[49911, 1214, 167, 2, 41, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[50139, 1223, 298, 5, 152, "Section"], Cell[CellGroupData[{ Cell[50462, 1232, 625, 15, 70, "Input"], Cell[51090, 1249, 251, 5, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51378, 1259, 145, 3, 42, "Input"], Cell[51526, 1264, 237, 5, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51800, 1274, 857, 19, 97, "Input"], Cell[52660, 1295, 238, 5, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52935, 1305, 142, 3, 42, "Input"], Cell[53080, 1310, 239, 5, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53356, 1320, 173, 2, 54, "Subsubsection"], Cell[53532, 1324, 104, 1, 42, "Text"], Cell[CellGroupData[{ Cell[53661, 1329, 208, 5, 42, "Input"], Cell[53872, 1336, 722, 12, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54631, 1353, 199, 5, 42, "Input"], Cell[54833, 1360, 504, 9, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55374, 1374, 220, 5, 42, "Input"], Cell[55597, 1381, 218, 4, 41, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[55864, 1391, 213, 4, 54, "Subsubsection"], Cell[56080, 1397, 170, 2, 42, "Text"], Cell[56253, 1401, 808, 25, 42, "Input"], Cell[CellGroupData[{ Cell[57086, 1430, 347, 9, 42, "Input"], Cell[57436, 1441, 7711, 139, 333, "Output"] }, Open ]], Cell[65162, 1583, 140, 1, 42, "Text"], Cell[65305, 1586, 636, 13, 70, "Input"], Cell[CellGroupData[{ Cell[65966, 1603, 199, 3, 42, "Input"], Cell[66168, 1608, 167, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66372, 1615, 137, 2, 42, "Input"], Cell[66512, 1619, 183, 2, 41, "Output"] }, Open ]], Cell[66710, 1624, 304, 6, 42, "Text"], Cell[CellGroupData[{ Cell[67039, 1634, 464, 13, 42, "Input"], Cell[67506, 1649, 3687, 71, 333, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[71254, 1727, 112, 1, 96, "Section"], Cell[71369, 1730, 3718, 95, 448, "Input"], Cell[CellGroupData[{ Cell[75112, 1829, 952, 15, 232, "Input"], Cell[76067, 1846, 885, 12, 192, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76989, 1863, 251, 6, 42, "Input"], Cell[77243, 1871, 10869, 214, 103, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88149, 2090, 275, 7, 42, "Input"], Cell[88427, 2099, 3275, 64, 333, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)