(* 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[ 83906, 2130] NotebookOptionsPosition[ 78191, 1927] NotebookOutlinePosition[ 78591, 1944] CellTagsIndexPosition[ 78548, 1941] 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}] }, 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}}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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]", " ", "trasnformada", " ", "de", " ", "acordo", " ", "com", " ", "o", " ", "segundo"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.5914514915846996`*^9, 3.5914514996166196`*^9}, { 3.5914516931015205`*^9, 3.591451721572647*^9}}], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{"x", ",", SuperscriptBox["x", "2"]}], "]"}]], "Output", CellChangeTimes->{3.5914515320255747`*^9, 3.5914584435157366`*^9, 3.5914589967908726`*^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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQrWcv9ur////7GaAg/6dyx89fCP6GzYZqn78i+EYa vknPXiP45oItt85cR/AdHn88NXM9gh/Ufna1cTyCX36+JTd93z84/8oV7lcH E//C+bIH8kXMZf7A+Vuzj7Dy3/0F5yf0GH642fQTzv8xqbpjv/0POH8x3z3J GQ+/wflzvAyLLnd+hfObchIrND2/wPnVzKvKi95+gvMTG86rXFvxEc4Puznf 7u5iBN/LqCDiyTwE3+SJQM+nKQg+h0fQZ75GBH8d/9WD7pEI/u95t+J2ciL4 H76vqjjAguA/CaiedPz/Bzj/HJPMsatfEfxFabG6nx4i+B56D35r7ULwp+59 OmNOFoIfVzGrzjwVwdcw9k+5FI/g71qxQ58jFMG/N7n7WLE9gr/cz2ENnxWC X8D5deJKEwSfqT4u9r4mgq+eZfjFSwTB/6Dy7OZTPgR/5/1Z+xs4EfyDpzUr LFkRfAD+LMbm "]], LineBox[CompressedData[" 1:eJwt2HdQFEkbB2CSYuAAMSCCsLsjkhRQ0qFIi3pmghIFBDkFPYIiRxBBsqhg ACRnQTISBCX7NklyDktYgogKiLuSg4rfXNX319RT0zXV1f2+v+4a6t+3Llpy sLGxrWNnY/vvee9GNt+TBRb4Hd3Hvl04GqQpDh+SZllwMMdFfTIvEcrDBrP7 vrBg3Mtspko8B0a9co6f6GTBWRm1gQmvcnBYFOS7W8cCy17pfI3oSuCy9R7I LWeBTEz6l6+zNSBlqHdbOI0F9+SXZOiJTeCwfzV+1o0FH/76/tDPpRu4kq9a S95mgcnb0vlhsV4I39miZGbFgv70iv60OjqUcSY2N+iwoHirHd/97YPANfDX aqI4C8bYSkKVe0Yh3D9YX7uNCepim3jumn6B0hFJnmwaE2KeMlVUds2Cuxr7 q+idTAhKu6G7dGcWjkT1az7iZQKUzlRG0GcBXwx4ZrX6DdLa5CNdQ+egrvar ALXzG5QW/C1VybMA3Vk5QuHe32C3Zdiw+dISMF0UJbxGpyHXVjl0sPAXEPxH j+nFfwWPBwo7rG5w4dfSD63HPk4Ao1mqNSyKD4/U5lOUlT8DfSuHzJXSbfjT vrCD8PYjCJrAy+SOnXiLR4ayLPsHsDvoEnyzUAT7v5Ws518ahS8ZXyMGKkXw KjPt0tz0KBQ1iSWqt4ngMfNU9+K+UbjMW/eGOSmCX2skVx3LG4XiZ1sWmaK7 8cV1cVqG5qOQ7xPeeOvBbiwhRG1hcxuBVKkr1Q4XRfE+Zda+lDkGZLnNzt1r F8NWsp6eJUMMYOyocxpmiOGEvXydLXUMwKGbwpQmxbCAoJzLYgwDLoqwej6y UfDS0s3KUycYYMdvGndEiIKrSpj6U6GDcFc1hsl3hoKNjjA95JQHYPVpTrRc CgWHKHl0HKcMQDP3g9cNmRTctJ93j9Em8v3MDiHzPApWF5Vt8Bruh6u7Lne6 lVEw8dtua6d/P1iX+Sy4d1AwE39Lc6T3ga66wlrcTwr2PfGtveQOHfxPSQmZ aFNx1elpbcWrdOBslnl9So+K2TS/tuZo0mHASL1W7hIVu+tPNifT6BAV+PzS 7N9U7Gz1qf5Jcy8Y6K8d0nCm4hsPh7AFpRfaXHtG18VS8fnmlryN9d1Qsz6g WHqcigPam+X8XndDWPiT5/4TVFzf3ZSzFtsNVbIvJoamqfivoYbsudvdIHNn mc1zgYrVmbXpQ8LdoH7r+lTAehqW53+XmH+rC/5mnkxskKDh7Xo5QZcEOyFL nidyzIqGX+8NLP2LsxN8ejrzbK1pWGfl+vgBVgd8+tnTP2tHwwHx1D831XWA Zlew6ZwjDa9NhI6UOndAevzInlofGv58z01WpLcdvHK7cFYcDd/UDo6skGoD KNm99347DafPn50OY28DrjzHk8FdNDwWxXX0Zn8r9EhucInqpWGDcZcvoo9a YWfS+IZ4Bg0jVzNlr4kWkCj4l+UyQcP8yTLdx9Ka4Yb2VN3N3+R8F2v56vc0 goe9auoNaQI/zUyqUl9pAO2ZsTf79xPYxszT6U1LA+S5Tu1hyhF4z/s/B5Oc G0D0xVaqhRKBw8OyUu/V10PK2dZgvqMEvqsYfETBtg6sNnzSe6pHYIMJu+8Z R+tAlOOW8UZDAivEnk2mbK8DS05D8LxE4GlOro28795DgohGmpkZgc26nLsn +N5DRcY91vh1Ah9zMLWJL6iBV7KRFlvvElh0r6ro9oc1cP4Fx+UT7gT+0b+9 I9C0BlyFm4rsPQhcqNGm7LquBjz2OgeW+RB475ZjHHqG1aAUoZglFEjgTXkS URt/VIL+x4vNS9EEThn89GTS7x2Y7t0edriIwAPuOxLiFN7BWArHkYpiAvOK nsq7MFYBsc+PMQ6VEtj5SnpnCaqAtyUlbNIVBD75yVowYLUMPOXvf6BXEXiC yUqUti+Ba/VBHA4tBBYJorweFi0BQ5kUsYJWAuscuFAd0lIMvj83K35vI3Dx v68/rUoXg+dk+zGzTgI/WnaUbvr0FjYyVZY30gkszbFaYGNSCPYv7lYljJDr kyxdK7apELq/vNFLHCVwyAmT3q7iArgVe3w49gOBV/3Llw/vKIDzOgb0Rx8J 3LTZ8whPRz5EjhlZKHwhMNurXC3smQ+F0RI5WycIrKg1au4omw8bKk/PskjH Bmn4MALzQNfI50rsFIH7pDc8vfQkB7zzO7trvhH4qN0/eZVTr0B/UJHhxyRw em5jp9TpV2Dx7+TAURaBXRWfCK5yZIMo88y77O8E3qUu8CL6TgbI8E6I6M0R 2Mfr32qO3nQozhganiP9tar7k7VCOrgViEc+mydw+akI6cPMVMjY8up76QKB L18QKRy8+hIiliNVPyyR9TK3oOpUkwznbPYhs2UCu4e3Aa94MjhpHb5GJx07 6NOk8fkFUK2aeN6tEHifh+mFwZMvICX6fJDMKoHLKMp0x7REiEdnFMJIFzZ1 1mp3xMPkQCHd9AeBu/n9O3xC4kCtg+gvJT2nrzr0RjcWOP/kXd32k8AHRxPm hXujYNpAP7qC9AVxXTbtiEjg5XstxPOLwPbW63l8jCIgRSWg2IB07rwtMTEQ CrID2XqjpFtVKXLCsc9BTG/pgtgagZkeXYe0LoeAn3rFTWPSf9T4n/QWDYbL UWuZwaSNBBxf3oBnkHmtbH0t6YjYgbJWjSdgnTjnPU+6d69Gl2JNACSeTxOh /Cbwtvy0qeiTD+HkP729p0jrHublYG+4D9cWvfJsSIfUOgpdP+cLc3OpGYGk 27UH5VtavGDR4nRVGmnRQt8gq0R3sDtquQqkY+p14GCKC1x69utCN+mdQ7uZ axkOUKS1pWGctMzHHtXwyzYQ4JFoPkN6L499hOx1C2gXzdq+StqrW7JbuFoT AuUOfF0jvY9vyHrdfkVUnHdw9Dfp3hmfBP5lI3QpKXf+J+nv2hKztxys0C2u dMlF0m7PTzbaKNqj5V5h96+k1zxcYxLknNCC0GYW47/vW2fbdknfRVYtTt6N pDkNRo5w7/VEZ2dMFApJV1MePYjj90Ev71dwRZP2C6fZqzz1Q7cCohfcSJ/k KTfq2PwA5f6eXWdMmttHX8Pm0SN09dN7JUXS9UtMqXXcj1Hg4R33N5EOsHso kOD3FIlzfJhjkOufOhN0T8Q7CCmpSvhkkb5+Xdrq7VoIylkW/6VG+jTNxdj3 SCja6T08+Zvcf8mhai0d9zC05Cqw+I701MXLKlMrEYivYtr2AOnGPzJliv6M Qqe4n9PHyfrKql8U83OJRguVhRahpG3VgzaILsSirIfW3V/I+tRcYfycUohH BaFr5YGkZQulZoocEpDcFt5aGdLLoR+mJZcTka9JgsIVst5LNrn1VDklo0il wIBosl8S92/vyqW9RBdUiLZtpP11cttj214ifcEk3wCy3/TCPzY5S6UidQc9 tRuL5P5Qz1dJD6Wj8OeB09Nk/9JPfAbBgAyU/sA47xjpd9e9KrhUMhGXMf/4 81kCB74qLB4OykIJUfIxkjNkfajuzg05kYPM/Y6fFibzg8e0KNtzJgc1WJ8J PE/my5zHhUzb+FzkI6es7jpN4CtjVRcJ9zzUplszV0Pmkazkkuavnnw0x10Q J07mWUOB+Yn8R4VIX3RgejOZj2q1+6olRguR46Sm7PwQgfN6VzTild+goZD0 ETqDPK9WnqPAj29QiJdASPAAga+h+kOWR4qQT12xUmsPgX83yh8QmilB9zi1 79g2EdiB8Sv32alSpFUgX7y5kcCfvzXKro8vRTYaK9dT6wnczG+5b+5sGXqw rC7YWkvgaIMoiZaX5eh4Z2zhZyCw0hi7qLcRoB6FpCm1AnL+pYYz8hmAVoaf vMvNJ9cj5FXN6Aog3Q2Ho0TzCLz5RbZSoiZGqT39f3/PJvBPHSPGbyZGLcZS p66lEngoL1cKDlShbXz8ek8iyfMq1niroHEVehy3NRSHk/30cN2vmz5VSDWz b4AVSubNFZN20a4qpKSe5n4smNwffm4XD8dqlKljsKX4EYET7M1qjhTVoGCx nx7jrmR+mm7MCRupQWbBgjJ9LgSOPF0Y8Y27Fpl7zw/VORE4iLLJJs6oFnEy Zg1jbpP91/5my6+VWlTvxh4n8A+BLeT/MC9Xq0NallY2x8jznvhetnKoqgGd G9USSpMn87rluN/8twb0w6i/e5y8X/RmNvHmCDWiPNbdT7tlyP6yHCSotxvR QRfO9T7iZL0NrGpyU5rQY6bUCYFd5PxrVZO67jWjSI/mwoscBDaOKTprq9qG BPfcuK7bRsOFd1CPuGUbyr7cW/ujiYZ5DerMR4La0Ok3Jq4J9TRcyU93vDjR hsLfZY30VdLwtuNu2rHn2tEjVYuMrYU07FYc7eqz2o7et1MPZETQ8Jnk/hYt o06U7reyRc+Ehr/fz7GqtetE+Ud7nF0NaTjyhu/vw76d6Owsh2m0Lg1P7N9/ QCqnE+1X1ktrPUfDD4u9Qjm5utDbo60a7Go0XN8iYVKc24XoVyj+T4Vp+NSy 0wSVuwfptqidP0Mn75+aApwLb+hIwdCgFWlQ8VOLjTMrDXSkWKYtE6NGxX1O bCNrQ3Q0880kflaFiq3jmaUb1veheMh+HyZLjmc1OogY9KH6rfKUV8Lk+GDf seOLfUjLs2JRbIGCrXvnK0OUB5D81bkDO8j7/DNzupd8EQM9KA+vfDQrhv2n 1dDnZgbKYWffYfRZDHu4Jv2KGWOgyIU2pd0DYvjmc7u73LxDqGQyhh5YKYa1 6jgdh68NIXnO6eTVZ2KYV07++mOBYcRctTUXlRHDT9ceak7YjaCsXzMWHsai uE5r9x86Ah+QjM6GsMQ4EfyNut2jM/ojsp2PVH3wcyd2cpSxeLbjM9pzwiZX fGYbpjP4L1rVTyAnotZSjIMfX3FV+8J9/isK54/e5NawDlfLqARUr2Oiy06m CTNSc2Amp5c8w8dEeuOu02aNs7B88Ha52C4m+vPcWG+W9SzsO5TFdJNlohS2 UN/xzBkIPS2mq2jIRMKb3NQ6pL6DlSW3SEo6E2HZXCP541PA9s8epa7XTLR5 45nYNc9JiLbV0GKvYCKhrju7HpdPQOu/bl6XO5jITzn6/bjiF1DxYY1vX2Wi e4fGhx7TxmFDAv2V/zkWyrspvcX+4yAkJc2/L9RnoW5hka9zegOglrpldMyc hbzTVQ8t1vaB/atzAsiRhVyuLKs4p/ZAfxk4L8Wy0LmwDVfrqlrBERjPxNNY qOdLxj9v45qAt3olXTefhWAlyTjJpR6ONSoM5tayUINx7A97ySpgtOjMD7Wx UKeuqmHaWgU4d9j9wTPAQsr2k4FWmUWQ2ZeGbjBZqOtk3ueXSynw//8HyPf/ /w/+B0c0tJY= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwBGIQffC0ZoUl6wd7BijYW1jvWsmG4Hd95g2awI3gh5fO iVsugOCrfNfK3ieK4O/75d7yRh7B7665NoFZFcGP+JcyV0oLwf/E2LTNwwTB V+Pc82KJB5L8cb2sRb5I5rctfD0/CMEPY2l/NysGwW/9H/hlQgGC/+Tr8/81 MxD8RY+ExUNfIPiye7JdWTs+wvkMv5hWFj36BOd/D9wbd1T1C5x/2yReWrXl K5xfEC4gqHTnG5wvOeVJBIvsDzh/XfSC5Z8rfiLCz7be48TeX3D+xrhcJas/ v+H8H1zOzDtD/8L5QRetzWRn/IPzuay5D+6Zi+AfXHLLO2Yxgm9QUZk4ex2C zye/vUfyKIJ/MsfosegnBN+BQ3MCn89/hP2FP6TWBSL4628fX+objuDLrU/b 3ZOE4P8JXfKMqxLB375Y3pZ9GYKfx/v++LLVCL5a+b4gt40I/hSv2IzWPQh+ 0cdZk5kvI/ha0Vlyi28g+A+PWK50uofgB8y4sa/xJYLPwbTCU/E9gr8/u/zK gS8IftlVt/iEXwi+nr3Yq///EXwAOYPMnw== "]]}, {}}, {{}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{-2, 2}, {-9.999999052226812, 0.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.5914570514706793`*^9, 3.5914570559241753`*^9}, 3.59145709258349*^9, {3.591457150260174*^9, 3.591457166730299*^9}, 3.591458443669215*^9, 3.5914589969443293`*^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}] }, 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}] }, 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[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxN1ntUjFsfB/BuToUuLhNhJIpMlJkn9epw9haRSyTdztFdOr0VKnSRN1Nv 6IRVqA4joukyXdQbDqLaT7pyoqSRatC9ydQ8oybVuPT2rnXeZ5+91m/t9Vm/ 7957rf3HXtvQ96jjIRUlJSXBdP1vNgN6H6emppDSX+Po5IqESQX2f+6xV46O YXNM7H37JdhWc+LbG1qxYc+n59eKsR3PvSggvLAjGuMP/1rxnXZLy6yPlT7f aDPJo/Otlnyl/UdQ9Qyddwra3hfYsra4SdoTl6MTEJigzdd+r3+16zPt9J3s sNe/jdGOC/aJXL1DTjtaNT8ibHiEtg+30eiN4BNtl7aMn97xsXdyQtx6b2Jb 9OpeGEnB1rBzHNWOxS7SEVZu/xn7y812z1JNbNl4fiSpht3rEH25bkpG+6XK klrhGHamv8fakS5sO7POL6zH2KnlfVfTA7E9I3kxVoewTYi9fs1e2I8Fj8w1 nLHfXzlfewxg5+6BhdrW2CGaY5fyLLBVTnt6fFiN/eeGeVtOGmGnyOtMGAbY qwLZ8p3zsWVG/W192tilH3iIq4kdx9ubvVgN+/d8Db3D3yiUEViz1u87QbKW hXVljlBokdNAQ/Y4QZaldhS+HaBQ2ibN4AEZQXZyi7ZsbabQBV37/MAeggz7 vEDnZB2FNBRHdhSKCFItOLa9uIxCcT3J4mEhQa52dQpdnEuhqActK0Prp/Nr FTdHoikU4O7Oj7gznecfDDQJpVC3bYxNaQ5Bpi18sd7Tn0Ke5re6FBkE+UT1 VsMzBwo5q/QaxFyezrfbKm4ZU8hGEJQeHzGdP3vJeW+jFC2Vn0y9tJkgH38w mV24XIpazl87VyDkkKc2Kt/hLZSilzXLCr0bOeSma232v2lLUe1UbhPjGYck HROT/BXD6NGxB/rcMg5ZVyOZa9g8jNIPvC5w4nPIloIi/bTYYeRnqtX0LYRD SiMsVnE7h5D8OXehw2wOuUIX2jjdlCC9mQF5chs2eZeVENjdI0Ze61kzOpaY kx9qSpZZWvYjN6v3gqoqU7JvTSoHPehBzEjrqSNZJuScmDxLM+UulPJuf3XU ZmNyjSW1JntUhESxjI3bFy4n/711uKk0shVlpZrYil2YJMOpKPnnBc1o4WCb 3PyGHnn3c41OvdFzZP64Q/Obiy6Z3dF3cTC+Am3NK56YM0+V9Ni35H7HwSxE Hlpxu/nUICqdGS18eoIPuC/aEon9YrC+W3lprBsC3msr7zr8rgpXyJ5MWj99 BhjhDJGfvi7cwW97scetGejPdoj1lepBW/u5qmN/tIKUzjdbwvhMmOTVyl33 UAQeXz/rEDNiCOv2MLUc5naBk5l+ur0uxnDYkBHTzOsBAYE85rlYE3jiuKlP kl4/uLQvfAORbgpbRbqO/vVioD0/tf+0wgx6R20cUN8tAaI/z8jiddiQ5Vcv lLpIAO+nG7bOemw4usepWugjAW4l93nGTDY8axR8mx8hAS1pPVtrWWxY2Hj9 AOBLQIPP5mvq29hw0vhLY7hCAsrGv25OPMWGl5tLH/UJhkD6iuNXkgbZ0L3c Nrfh3hD4Je282EvGhsaCV6n3KobAAk3+pnXjbPjoX4NhsS1DIEX6aqBJjQPf m+ivZSoNg8RS841zl3Eg63TkbSfXYXByr6Q3xYUDq0ytEqtmSMEv0b6WvCoO 9DR34n/SkQLejfk/jD/jwAlOaJnBIikQoVrh/iYOXGNdII02kwJ3NdMTWu84 MMXOYL+F67Qvjt7jfuZA/0PqS7IFUuCdEc/+dTUBlf5ptP71XSm4VWmpXG1O QF7w5j3K5VLQ2SNuWmZJwJfHorker6bzJvYh7TYEtIqjehkKKThYwii2dyeg RkbrnbO7KOBXlbPGIomAmZny2vvOFMjpc/uanErAjTlzOru9KNCvPqth+DoB Q+7smguOU8B/99GgXAEB256g8PF0CgQIrfIXPSXgcSRKMs6lgGB8MCqinoDa VZOC/SUUEOun72h5SUCb50RHcQ0FAj2VBi92EFD0wkH+rpEC+dy7jz52ETD8 1WGt2e0U+Jjpl7BdTEBdYeJK614KsGr03LKkBMx/mwsCpNPrB+pXKY8R0FZU 7ZY2QYECzehxjy8ElFGyf/gqy8D/37Py0NO2UT9gJ45qOSbPwnY9ke6Zq4tt NM4KqmBgVyi2xw8ZYJ8/9SZZ1Rjb7bvfjUUs7BHluAd2FtgrNcvEWXZ/69eZ BWba/23/s7clGY7YLmrnpDx37DNT++TJIdi9YwNTp65iZ3bPW+AsxmaWBdnO SPhEW0mhkhfWPUJ7fF+5Z42xnHaHhddi4/gx2iGuunOWiz7T1k/pdVNjTtAu OnArdzRyEt/fptN29eUK2iWeh5dbf/1Ce2LmFtVS52+0HV/9aMm8+p32zB9n VZbdwK7Mat/lzsdeFxnlc70IW9vg4QX9GuxnwZwexgg21FidrL17Cp8fOrGo aB92cUddtr0r9tJi/ycXfLG/Omf1z4zCfsg32KSeg31Ei6rLKcBeGVHhuK0E O2WnR8CZMuywT7wrqq+xWQcCl/LfYndVb8izeY/tcPVtRewgtoaKYIchhY2C IlpIOXa4cJuXtwL7r/8m7f8CpCcGSw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{-2, 2}, {-19.993716107079873`, 19.981902568377034`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.5914578721641865`*^9, 3.591457926637483*^9, 3.5914584437637644`*^9, 3.591458997046512*^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}] }, 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[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"11.1`", ",", "20000.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False]], "Output", CellChangeTimes->{3.591437798004572*^9, 3.5914395401103816`*^9, 3.5914520826652875`*^9, 3.591458443826685*^9, 3.591458997093796*^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[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVjHs81PkChse4jIjfuEUtoaULTdiV4zbmNSMxYSvlIMVkaLZIciczHRRd 6LRaYZPLSpxUsqRC88VpUzh7JLFdbCjpclzSmMiyzh/v5/3jeT6P6d6o7WF0 Go0mXNz/f/XqgHIazRabFWVDu87qwcXmY1qNuS1yf5rlvTiih53OpwQhW2zR FxadliHSQ8b25pUkzxbaURrxXOhhUGxaIGFtxOiBFK/ISV1c6HubPR9oh+IO KpARqAutE8kJc/X2+INhov8DdLD2nI5f9TN79D/47umvVjpAcbVtkIIDVtfd j2Qa6+Bg/cBko5cDzr58N/zHn9roHORGpAw7YENNsqmgSRvHHdUFs0wnmL4p ORbnrI259z/xPx9gQ5yvoWW5SQu7livV9Jxjgx45Nlplq4U77hF615vZOC7z MGaZaSGx1PllGOWC/LawvGxFLcj8XsT11LrgKAs6DfeYGGtZWXpthoOpQYWy 295MTHT8N6WW5wp+MaWk0KeJoVLfR6JuHr4UW6YKqtWx/H7fp5RXPLQn2dX7 5alj64dd+mfkPEyxcDLkqDqa7YRB9UZu6JSv+sV0hzryO2JHFPa7gX6xTJE3 pwZv2Y+zhfRN6O069NpqqxpuefSv6vrWHZW+rrFTyktwZjwoxibPA4ebEubX /KyCtBn7zleVHmAq+jAEZ1UQq6hnnt/ogemkerPLEhX463c9mX/pgeEoV7vA IBWYcNiOnZaeeL3GZmpGTwU1OUYK+1o8kfhkoYlxShmPWAM5Fz7wsWz2a7Gx WAm6EcH/YvC84WovCsg8RscDg593X7bYBsVDN54cF/3JifAyeJmY5Qt2WMn8 Sracc6pc8ht9uR+8srM4KQGTHP1zwydyi/xR4V+0It9plJO5w9Pl0XQguLwm H98vA5wYh9LgB2m74WxSzMho7eC4jc8mHxwOBuk2ex5hfkqKi5XWGoYCDD1L X3+X1iU17PMKlAbvReFro7/lPX0u3f958mh7dii0avepcNNfSeWWzAFWrxC/ JQRdDU19J3W8Ul2StywcOY3b/KXKE9JxbX6IH3cfnJ+/T+9J/ygdOh3idzhT BJFTuoi1VibdPJ7g+frm9+CVb9ETS+TSd6GqMXUL+/EiLEqn8tmM1M1Mn57J jUBXW05FqOaclNm1OqcmKhKMNuWMawrz0hVZ17fa3TwI/vi9VdvpNJJn6cDU eROFv3NHg5a9oRFhdknhTNYhsNyiptc2KxBDTUG7vmU05hz7B1sL6URDsSxW 0BqNkc/pmd+FKBKjfxg7B4QfhoZ88N46lhJRNQ+6uZ0RA4PwfVtcJ5UIi738 ekJRDDo3fWu88ZIyiR7QbuMjFollOS0KAhUyNnV6p2d/LOqVjQwblzCIu9Wv hZ6RcRj6McSWW8UgzVNOX+Sa8VjYG3rXaKsqiVz/zdPuS/E4wf/mjcuIKnEe Ez4O8EzASBL+yU9fQtzMDLw1hhIgzG/tG2GqkTVHTya2JiSiht26Z9t5NbIu zEFqviIJ9mlXbzLM1Ynwriij7kYSbJIdzvz7sjq5W/JYOLkzGb/QM1NtbZaS qcoFuZU8GZ3Mgll63VKy1/zKksLsFHwqMF4vttAgExa5drXWR/CDTUcK97IG aSj/MihrPwJZMIP5vYEmCXD7Gk57UuF8yVcakKFJVkRm3t5AE6MoxqXRbVqT 6KpF3PA+L0bXlW6Tht0UKeOlJk8UiDGzjrEgDqaIdWoOL/eCGAFzxlXuAop4 TdT09peK4d5gKegVUuTYE9lMaLUYj+3nBBMHKDJdJuEmt4jRSGfcMEymyO9O uT0V78W4FT3R75NHEVFc+QXPMTGsf3/OZ+Yv+tfqwz5MiBEpYJ3sLqCI9qp+ uc20GA//ZxHtW0QRvqqRYTNNAp2q0cEd5RRpelwh7NGT4IXrJ3+f2kWueYsV byBBb929iqV1FOnf/GDa4CsJnl1rbH1YT5FPd95n7TGRoGLbpjD32xRhlVpf fWshgb2yiZ8TWew9dY0/zVrkoeHLPrcs9nR9OVbWEngcsblU10aR8My47tiN EjTIjm1g3V/skeOF+vYS+ISuWfe2nSJps+dD7zhKcKU89WP5Q4owbavW72ZL YEPOnQzppMjFyDuyBY4Em5sSJ7/6D0X+AtHo1wc= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{100., 0}, Method->{}, PlotRange->{{20, 500}, {-3.975639235016874, 5.391952081875224}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.5914377980514517`*^9, {3.591439540157262*^9, 3.5914395512988167`*^9}, 3.5914520857749195`*^9, 3.591458443830673*^9, 3.591458997113432*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1253, 848}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, Magnification->1.4000000953674316`, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 159, 3, 45, "Subsubtitle"], Cell[CellGroupData[{ Cell[763, 29, 159, 4, 118, "Section"], Cell[CellGroupData[{ Cell[947, 37, 315, 8, 42, "Input"], Cell[1265, 47, 8392, 200, 1116, "Output"] }, Open ]], Cell[9672, 250, 200, 4, 42, "Text"], Cell[CellGroupData[{ Cell[9897, 258, 291, 8, 42, "Input"], Cell[10191, 268, 7104, 174, 1047, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17332, 447, 159, 3, 54, "Subsubsection"], Cell[17494, 452, 330, 6, 70, "Text"], Cell[CellGroupData[{ Cell[17849, 462, 494, 12, 70, "Input"], Cell[18346, 476, 337, 7, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18720, 488, 185, 4, 42, "Input"], Cell[18908, 494, 7071, 174, 991, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26016, 673, 129, 2, 42, "Input"], Cell[26148, 677, 4482, 92, 877, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[30679, 775, 157, 2, 54, "Subsubsection"], Cell[CellGroupData[{ Cell[30861, 781, 360, 9, 42, "Input"], Cell[31224, 792, 4287, 58, 1142, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35548, 855, 806, 19, 70, "Input"], Cell[36357, 876, 276, 4, 41, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36682, 886, 216, 4, 54, "Subsubsection"], Cell[36901, 892, 455, 8, 70, "Text"], Cell[CellGroupData[{ Cell[37381, 904, 104, 3, 42, "Input"], Cell[37488, 909, 152, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37677, 916, 169, 5, 42, "Input"], Cell[37849, 923, 176, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38062, 930, 253, 7, 42, "Input"], Cell[38318, 939, 176, 3, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38531, 947, 215, 7, 42, "Input"], Cell[38749, 956, 148, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38934, 963, 224, 6, 42, "Input"], Cell[39161, 971, 144, 2, 41, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39354, 979, 300, 6, 54, "Subsubsection"], Cell[CellGroupData[{ Cell[39679, 989, 613, 13, 70, "Input"], Cell[40295, 1004, 4105, 55, 1142, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44437, 1064, 491, 11, 42, "Input"], Cell[44931, 1077, 276, 5, 67, "Output"] }, Open ]], Cell[45222, 1085, 202, 4, 42, "Text"], Cell[CellGroupData[{ Cell[45449, 1093, 296, 6, 42, "Input"], Cell[45748, 1101, 146, 3, 41, "Output"] }, Open ]], Cell[45909, 1107, 177, 4, 42, "Text"], Cell[CellGroupData[{ Cell[46111, 1115, 382, 9, 42, "Input"], Cell[46496, 1126, 117, 2, 41, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46662, 1134, 114, 1, 54, "Subsubsection"], Cell[CellGroupData[{ Cell[46801, 1139, 128, 2, 42, "Input"], Cell[46932, 1143, 126, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47095, 1150, 169, 3, 42, "Input"], Cell[47267, 1155, 127, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47431, 1162, 167, 3, 42, "Input"], Cell[47601, 1167, 127, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47765, 1174, 169, 3, 42, "Input"], Cell[47937, 1179, 151, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48125, 1186, 428, 9, 70, "Input"], Cell[48556, 1197, 127, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48720, 1204, 217, 4, 42, "Input"], Cell[48940, 1210, 123, 2, 41, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49124, 1219, 298, 5, 174, "Section"], Cell[CellGroupData[{ Cell[49447, 1228, 572, 14, 70, "Input"], Cell[50022, 1244, 205, 5, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50264, 1254, 145, 3, 42, "Input"], Cell[50412, 1259, 191, 5, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50640, 1269, 857, 19, 97, "Input"], Cell[51500, 1290, 187, 4, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51724, 1299, 142, 3, 42, "Input"], Cell[51869, 1304, 191, 5, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52097, 1314, 181, 4, 54, "Subsubsection"], Cell[52281, 1320, 104, 1, 42, "Text"], Cell[CellGroupData[{ Cell[52410, 1325, 208, 5, 42, "Input"], Cell[52621, 1332, 674, 12, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53332, 1349, 199, 5, 42, "Input"], Cell[53534, 1356, 454, 8, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54025, 1369, 220, 5, 42, "Input"], Cell[54248, 1376, 172, 4, 41, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[54469, 1386, 213, 4, 54, "Subsubsection"], Cell[54685, 1392, 178, 4, 42, "Text"], Cell[54866, 1398, 808, 25, 42, "Input"], Cell[CellGroupData[{ Cell[55699, 1427, 347, 9, 42, "Input"], Cell[56049, 1438, 7205, 127, 336, "Output"] }, Open ]], Cell[63269, 1568, 148, 3, 42, "Text"], Cell[63420, 1573, 636, 13, 70, "Input"], Cell[CellGroupData[{ Cell[64081, 1590, 199, 3, 42, "Input"], Cell[64283, 1595, 121, 2, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64441, 1602, 137, 2, 42, "Input"], Cell[64581, 1606, 137, 2, 41, "Output"] }, Open ]], Cell[64733, 1611, 304, 6, 42, "Text"], Cell[CellGroupData[{ Cell[65062, 1621, 464, 13, 42, "Input"], Cell[65529, 1636, 3177, 59, 336, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[68767, 1702, 112, 1, 118, "Section"], Cell[68882, 1705, 3718, 95, 448, "Input"], Cell[CellGroupData[{ Cell[72625, 1804, 952, 15, 232, "Input"], Cell[73580, 1821, 839, 11, 224, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74456, 1837, 251, 6, 42, "Input"], Cell[74710, 1845, 376, 11, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75123, 1861, 275, 7, 42, "Input"], Cell[75401, 1870, 2750, 52, 335, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)