(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 62699, 1729] NotebookOptionsPosition[ 55942, 1484] NotebookOutlinePosition[ 56318, 1500] CellTagsIndexPosition[ 56275, 1497] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Fun\[CCedilla]\[OTilde]es puras, sele\[CCedilla]\[ATilde]o/filtragem, importa\ \[CCedilla]\[ATilde]o de dados e um pouco sobre strings\ \>", "Title", CellChangeTimes->{{3.6685258642079964`*^9, 3.6685258856980267`*^9}}], 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.6685262653485003`*^9, 3.668526289038533*^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.668526335592599*^9, 3.6685263423546095`*^9}, { 3.6685320673580713`*^9, 3.668532084938096*^9}, {3.668532129318158*^9, 3.668532146698182*^9}}], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{"x", ",", SuperscriptBox["x", "2"]}], "]"}]], "Output", CellChangeTimes->{3.6685263439946117`*^9, 3.6687555998180885`*^9, 3.6687557241505756`*^9, 3.668755982164798*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "[", RowBox[{"a", "+", "b"}], "]"}]], "Input", CellChangeTimes->{{3.6685263874286723`*^9, 3.668526390828677*^9}}], Cell[BoxData[ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "2"]], "Output", CellChangeTimes->{3.6685263918886786`*^9, 3.668755599853347*^9, 3.668755724366605*^9, 3.66875598221168*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["agora, com runas", "Section", CellChangeTimes->{{3.6685264570197873`*^9, 3.6685264612997932`*^9}}], 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", " ", "operamdo"}], " ", "-", " ", "o"}], " ", "&"}], " ", "\[EAcute]", " ", "fundamental", " ", "para", " ", "avisar", " ", "o", " ", "programa", " ", "que", " ", "essa", " ", "\[EAcute]", " ", "uma", " ", "fun\[CCedilla]\[ATilde]o", " ", "pura"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6685264704268064`*^9, 3.6685264969148445`*^9}, { 3.6685321560581956`*^9, 3.6685322134982758`*^9}}], Cell[BoxData[ RowBox[{ SuperscriptBox["#1", "2"], "&"}]], "Output", CellChangeTimes->{3.668526544052911*^9, 3.668755599884599*^9, 3.668755724366605*^9, 3.66875598221168*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "[", RowBox[{"c", "+", "d"}], "]"}]], "Input", CellChangeTimes->{{3.6685265640429397`*^9, 3.6685265696129475`*^9}}], Cell[BoxData[ SuperscriptBox[ RowBox[{"(", RowBox[{"c", "+", "d"}], ")"}], "2"]], "Output", CellChangeTimes->{3.6685265702929482`*^9, 3.668755599884599*^9, 3.668755724366605*^9, 3.668755982227306*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Sele\[CCedilla]\[ATilde]o de valores de uma lista", "Section", CellChangeTimes->{{3.6685265876229734`*^9, 3.668526592072979*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"teste", "=", RowBox[{"RandomVariate", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"10", ",", "4"}], "]"}], ",", "1000"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6685266009529915`*^9, 3.668526625753027*^9}, 3.668526987291542*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Select", "[", RowBox[{"teste", ",", RowBox[{ RowBox[{"#", "<", "0"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.668526654593068*^9, 3.668526688443116*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.404711601467703`"}], ",", RowBox[{"-", "0.2287018409953987`"}], ",", RowBox[{"-", "2.963852930391589`"}], ",", RowBox[{"-", "0.8828459967768243`"}], ",", RowBox[{"-", "0.3102549839771811`"}]}], "}"}]], "Output", CellChangeTimes->{3.6685267235031652`*^9, 3.668526993841552*^9, 3.66875560062351*^9, 3.668755724388239*^9, 3.6687559828284225`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"menorQueZero", "[", "x_", "]"}], ":=", RowBox[{"x", "<", "0"}]}]], "Input", CellChangeTimes->{{3.6685267321131773`*^9, 3.668526747082199*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Select", "[", RowBox[{"teste", ",", "menorQueZero"}], "]"}]], "Input", CellChangeTimes->{{3.668526764422223*^9, 3.6685267754322395`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.404711601467703`"}], ",", RowBox[{"-", "0.2287018409953987`"}], ",", RowBox[{"-", "2.963852930391589`"}], ",", RowBox[{"-", "0.8828459967768243`"}], ",", RowBox[{"-", "0.3102549839771811`"}]}], "}"}]], "Output", CellChangeTimes->{{3.6685267711222334`*^9, 3.66852677607224*^9}, 3.66875560062351*^9, 3.668755724388239*^9, 3.668755982844208*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", " ", RowBox[{"Select", "[", RowBox[{"teste", ",", RowBox[{ RowBox[{"2", "<", "#", "<", "6"}], "&"}]}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.6685268601323624`*^9, 3.6685269145824394`*^9}}], Cell[BoxData["135"], "Output", CellChangeTimes->{{3.6685268866823997`*^9, 3.6685269150024395`*^9}, 3.6685269970415564`*^9, 3.6687556006395645`*^9, 3.668755724404049*^9, 3.668755982844208*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "teste", "]"}]], "Input", CellChangeTimes->{{3.6685269234514523`*^9, 3.6685269243914533`*^9}, { 3.6685269576115007`*^9, 3.668526961291506*^9}}], Cell[BoxData["1000"], "Output", CellChangeTimes->{3.6685269617315063`*^9, 3.6685270013015623`*^9, 3.6687556006395645`*^9, 3.668755724404049*^9, 3.6687559828606787`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Uma digress\[ATilde]o - como construir um histograma sem plotar", \ "Section", CellChangeTimes->{{3.6685271707208023`*^9, 3.6685271967408395`*^9}, { 3.6687556732350087`*^9, 3.6687556760830064`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinCounts", "[", RowBox[{"teste", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "16", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.668527036731612*^9, 3.668527093761693*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "4", ",", "15", ",", "37", ",", "98", ",", "141", ",", "181", ",", "192", ",", "164", ",", "100"}], "}"}]], "Output", CellChangeTimes->{{3.668527054701638*^9, 3.6685270942516937`*^9}, 3.6687556006551905`*^9, 3.668755724404049*^9, 3.6687559828661823`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinCounts", "[", RowBox[{"teste", ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "2", ",", "6", ",", "10", ",", "20"}], "}"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.668527128201742*^9, 3.668527142340762*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"15", ",", "135", ",", "322", ",", "519"}], "}"}]], "Output", CellChangeTimes->{3.668527142810763*^9, 3.6687556006708174`*^9, 3.668755724419675*^9, 3.6687559828661823`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Lendo um arquivo do disco e lidando com os dados", "Section", CellChangeTimes->{{3.668527228820885*^9, 3.668527236900896*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NotebookDirectory", "[", "]"}]], "Input"], Cell[BoxData["\<\"H:\\\\TEDFE_2016\\\\AulaMath\\\\\"\>"], "Output", CellChangeTimes->{3.6685272849309645`*^9, 3.6687556006864433`*^9, 3.668755724419675*^9, 3.668755982881812*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileNameJoin", "[", " ", RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], " ", ",", "\"\\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.668527263290934*^9, 3.668527278360955*^9}, { 3.6685273248510213`*^9, 3.6685273386310406`*^9}}], Cell[BoxData["\<\"H:\\\\TEDFE_2016\\\\AulaMath\\\\muge.dat\"\>"], "Output", CellChangeTimes->{3.668527339521042*^9, 3.6687556007020693`*^9, 3.6687557244353013`*^9, 3.668755982897439*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"file", "=", RowBox[{"Import", "[", " ", RowBox[{"FileNameJoin", "[", " ", RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], " ", ",", "\"\\""}], "}"}], "]"}], " ", "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"arquivos", " ", ".", "dat"}], " ", "s\[ATilde]o", " ", "lidos", " ", "como", " ", "tabela"}], ",", " ", RowBox[{"automaticamente", ";", " ", RowBox[{ "se", " ", "a", " ", "extens\[ATilde]o", " ", "for", " ", "outra"}]}], ",", " ", RowBox[{ "\[EAcute]", " ", "preciso", " ", "usar", " ", "a", " ", "op\[CCedilla]\[ATilde]o", " ", "\"\\""}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6685273928101177`*^9, 3.6685274017101297`*^9}, { 3.6685275728603725`*^9, 3.668527574720375*^9}, {3.668532299228396*^9, 3.6685323452484603`*^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.668527402510131*^9, 3.6685275752803764`*^9, 3.668755600855441*^9, 3.668755724535577*^9, 3.66875598298208*^9}] }, Open ]], Cell["\<\ uma maneira simolista de separar os n\[UAcute]meros neste caso \[EAcute] usar \ \[IAcute]ndices absolutos\ \>", "Text", CellChangeTimes->{{3.6685323604784813`*^9, 3.6685323799985094`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Most", "[", " ", RowBox[{"file", "[", RowBox[{"[", RowBox[{"7", ";;"}], "]"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.668527580520384*^9, 3.6685276004304113`*^9}, { 3.668527633239458*^9, 3.668527637139464*^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.6685275828103867`*^9, 3.668527603019416*^9}, 3.6685276376794643`*^9, 3.6687556011529083`*^9, 3.668755724535577*^9, 3.668755982997707*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["usando lacunas para separar os campos num\[EAcute]ricos", "Section", CellChangeTimes->{{3.668527709238566*^9, 3.6685277183385787`*^9}}], Cell["\<\ um _ identifica uma lacuna que, seguido de Real, significa \ \[OpenCurlyDoubleQuote]qualquer numero real\[CloseCurlyDoubleQuote] (podia \ ser _Integer, _Complex, _Rational,_String)\ \>", "Text", CellChangeTimes->{{3.6685324118685536`*^9, 3.6685324853786564`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"padrao", "=", RowBox[{"{", RowBox[{ "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real"}], "}"}], " ", RowBox[{"(*", RowBox[{ "significa", " ", "qualquer", " ", "lista", " ", "de", " ", "8", " ", "numeros", " ", "reais"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.668527730346596*^9, 3.668527792089683*^9}, { 3.66853249475867*^9, 3.668532506888687*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real", ",", "_Real"}], "}"}]], "Output", CellChangeTimes->{3.668527793479685*^9, 3.668755601174543*^9, 3.6687557245512085`*^9, 3.66875598301344*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"dados", "=", RowBox[{"Cases", "[", RowBox[{"file", ",", "padrao"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6685278028596983`*^9, 3.6685278126097116`*^9}, { 3.6685279129608526`*^9, 3.6685279173228593`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", "dados", "]"}]], "Input", CellChangeTimes->{{3.6685279263328714`*^9, 3.6685279315648813`*^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.668527932094882*^9, 3.668755601205838*^9, 3.668755724566823*^9, 3.6687559830289593`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Lendo texto", "Section", CellChangeTimes->{{3.6685279817339525`*^9, 3.668527983423955*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"texto", "=", RowBox[{"Import", "[", " ", RowBox[{ RowBox[{"FileNameJoin", "[", " ", RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], " ", ",", "\"\\""}], "}"}], "]"}], " ", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.6685279993239775`*^9, 3.668528028243018*^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.6685280311530223`*^9, 3.6687556013222313`*^9, 3.6687557245884595`*^9, 3.6687559831136026`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Strings", "Section", CellChangeTimes->{{3.668528119423147*^9, 3.6685281207731485`*^9}}], Cell[CellGroupData[{ Cell["Extraindo um n\[UAcute]mero de detnro do texto lido como tabela", \ "Subsection", CellChangeTimes->{{3.668532534078725*^9, 3.6685325461387415`*^9}}], Cell["\<\ Uma possibilidade \[EAcute] ficar com atabela 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.6685325531287518`*^9, 3.668532597228813*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"file", "[", RowBox[{"[", RowBox[{"1", ",", "9"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6685281492681894`*^9, 3.668528174932225*^9}}], Cell[BoxData["\<\"Z=32\"\>"], "Output", CellChangeTimes->{3.6685281755622263`*^9, 3.6687556013913994`*^9, 3.668755724604384*^9, 3.668755983129228*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringDrop", "[", " ", RowBox[{ RowBox[{"file", "[", RowBox[{"[", RowBox[{"1", ",", "9"}], "]"}], "]"}], ",", "2"}], "]"}], " "}]], "Input"], Cell[BoxData["\<\"32\"\>"], "Output", CellChangeTimes->{3.6685282968284082`*^9, 3.6687556014915214`*^9, 3.668755724604384*^9, 3.668755983129228*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"2", " ", "%"}]], "Input", CellChangeTimes->{{3.6685283054284205`*^9, 3.668528307398423*^9}}], Cell[BoxData[ RowBox[{"2", " ", "\<\"32\"\>"}]], "Output", CellChangeTimes->{3.668528308108424*^9, 3.6687556014915214`*^9, 3.66875572462002*^9, 3.6687559831448565`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NumericQ", "[", " ", RowBox[{"StringDrop", "[", " ", RowBox[{ RowBox[{"file", "[", RowBox[{"[", RowBox[{"1", ",", "9"}], "]"}], "]"}], ",", "2"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.668528235457321*^9, 3.6685282818883867`*^9}}], Cell[BoxData["False"], "Output", CellChangeTimes->{3.6685282500873423`*^9, 3.6685282823483877`*^9, 3.668755601607009*^9, 3.66875572462002*^9, 3.6687559831448565`*^9}] }, Open ]], Cell["\<\ isto transformar\[AAcute] o string em n\[UAcute]mero, finalmente. \ ToExpression[string] interpreta o parametro da mesma forma que o processador \ de entrada de um notebook\ \>", "Text", CellChangeTimes->{{3.6685326252288523`*^9, 3.668532636488868*^9}, { 3.6685326928989472`*^9, 3.6685327288189974`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ToExpression", "[", " ", RowBox[{"StringDrop", "[", " ", RowBox[{ RowBox[{"file", "[", RowBox[{"[", RowBox[{"1", ",", "9"}], "]"}], "]"}], ",", "2"}], "]"}], " ", "]"}], " "}]], "Input", CellChangeTimes->{{3.6685283197484407`*^9, 3.6685283314474573`*^9}, { 3.668532612828835*^9, 3.66853261661884*^9}}], Cell[BoxData["32"], "Output", CellChangeTimes->{3.668528335657463*^9, 3.668755601754158*^9, 3.6687557246356344`*^9, 3.6687559831664896`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NumericQ", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.668528338327467*^9, 3.668528342137472*^9}}], Cell[BoxData["True"], "Output", CellChangeTimes->{3.6685283427474732`*^9, 3.668755601754158*^9, 3.6687557246356344`*^9, 3.6687559831664896`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Melhor localizar as sequencias de caracteres que cercam o valor que se deseja \ extrair\ \>", "Section", CellChangeTimes->{{3.668528377994523*^9, 3.668528398901553*^9}}], Cell[CellGroupData[{ Cell["operador concatena\[CCedilla]\[ATilde]o ~~", "Subsection", CellChangeTimes->{{3.668528423921588*^9, 3.6685284285975943`*^9}, { 3.668532653168892*^9, 3.6685326588088994`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nome", "=", "\"\\""}]], "Input", CellChangeTimes->{{3.6685284370576067`*^9, 3.6685284418876133`*^9}}], Cell[BoxData["\<\"Ivan\"\>"], "Output", CellChangeTimes->{3.6685284428276143`*^9, 3.668755601776295*^9, 3.668755724651261*^9, 3.668755983182332*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nomeCompleto", "=", RowBox[{"nome", "~~", "\"\< Jose\>\""}]}]], "Input", CellChangeTimes->{{3.668528448007622*^9, 3.6685284642926445`*^9}}], Cell[BoxData["\<\"Ivan Jose\"\>"], "Output", CellChangeTimes->{3.668528471492655*^9, 3.668755601776295*^9, 3.668755724651261*^9, 3.668755983367244*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["nomeCompleto"], "Input", CellChangeTimes->{{3.6685284939266863`*^9, 3.6685284955266886`*^9}}], Cell[BoxData["\<\"Ivan Jose\"\>"], "Output", CellChangeTimes->{3.66852849599669*^9, 3.668755601791922*^9, 3.668755724651261*^9, 3.668755983382871*^9}] }, Open ]], Cell["isto n\[ATilde]o funciona", "Text", CellChangeTimes->{{3.6685326747989216`*^9, 3.6685326769989247`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringCases", "[", RowBox[{"texto", ",", RowBox[{"\"\\"", "~~", "atomo__", "~~", "\"\<\\n\>\""}]}], "]"}]], "Input"], 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.668755601891708*^9, 3.668755724666887*^9, 3.668755983382871*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringCases", "[", RowBox[{"texto", ",", RowBox[{"\"\\"", "~~", "atomo__", "~~", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.668528563911785*^9, 3.6685285853718147`*^9}, { 3.6685286205328655`*^9, 3.6685286687719336`*^9}, {3.668528715746*^9, 3.6685287379460306`*^9}, {3.6685287897071037`*^9, 3.6685287950971117`*^9}}], Cell[BoxData[ RowBox[{"{", "\<\"Z=32\\n PHOTON\"\>", "}"}]], "Output", CellChangeTimes->{ 3.6685286797619486`*^9, {3.668528734906027*^9, 3.6685287385360317`*^9}, 3.6685287989671173`*^9, 3.6687556020235195`*^9, 3.668755724682518*^9, 3.6687559833984966`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"StringCases", "[", RowBox[{"texto", ",", RowBox[{ RowBox[{"\"\\"", "~~", "atomo__", "~~", "\"\\""}], " ", ":>", RowBox[{"ToExpression", "[", "atomo", "]"}]}]}], "]"}], " "}]], "Input", CellChangeTimes->{{3.6685288547041955`*^9, 3.6685289454763236`*^9}}], Cell[BoxData[ RowBox[{"{", "32", "}"}]], "Output", CellChangeTimes->{3.668528862434206*^9, 3.668528948026327*^9, 3.6687556020764103`*^9, 3.668755724688528*^9, 3.6687559833984966`*^9}] }, Open ]], Cell["\<\ Assim como := \[EAcute] a atribui\[CCedilla]\[ATilde]o retardada (s\[OAcute] \ avalia o valor no momento da execu\[CCedilla]\[ATilde]o), :> \[EAcute] a \ regra retardada - s\[OAcute] determina o valor no momento de \ aplica\[CCedilla]\[ATilde]o da regra\ \>", "Text", CellChangeTimes->{{3.668532746949023*^9, 3.668532800119097*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"22", " ", RowBox[{"%", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6685290711505003`*^9, 3.6685290775525093`*^9}}], Cell[BoxData["704"], "Output", CellChangeTimes->{3.6685290781825104`*^9, 3.6687556020764103`*^9, 3.668755724688528*^9, 3.6687559834141235`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z", "=", RowBox[{ RowBox[{"StringCases", "[", RowBox[{"texto", ",", RowBox[{ RowBox[{"\"\\"", "~~", "atomo__", "~~", "\"\\""}], " ", ":>", RowBox[{"ToExpression", "[", "atomo", "]"}]}]}], "]"}], " ", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6685291224015727`*^9, 3.6685291277215805`*^9}}], Cell[BoxData["32"], "Output", CellChangeTimes->{3.668529128841582*^9, 3.6687556021389546`*^9, 3.668755724704496*^9, 3.6687559834141235`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"x", ",", "x", ",", "x"}], "}"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}]}]], "Input", CellChangeTimes->{{3.668529157808623*^9, 3.668529173512645*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.7614932331330151`", ",", "0.7614932331330151`", ",", "0.7614932331330151`"}], "}"}]], "Output", CellChangeTimes->{3.668529174212646*^9, 3.6687556021389546`*^9, 3.668755724704496*^9, 3.6687559834297495`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"x", ",", "x", ",", "x"}], "}"}], "/.", RowBox[{"x", ":>", RowBox[{"RandomReal", "[", "]"}]}]}]], "Input", CellChangeTimes->{{3.668529203305687*^9, 3.668529204925689*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.935188952100956`", ",", "0.7270412077225925`", ",", "0.9027821402511933`"}], "}"}]], "Output", CellChangeTimes->{3.6685292088956947`*^9, 3.6687556021545796`*^9, 3.668755724704496*^9, 3.6687559834297495`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["para comparar strings", "Subsection", CellChangeTimes->{{3.668529260317767*^9, 3.668529263937772*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s1", "=", "\"\\""}]], "Input", CellChangeTimes->{{3.668529267997778*^9, 3.6685292722667837`*^9}}], Cell[BoxData["\<\"Ola\"\>"], "Output", CellChangeTimes->{3.668529272966785*^9, 3.6687556021545796`*^9, 3.6687557247201214`*^9, 3.6687559834453754`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringMatchQ", "[", RowBox[{"s1", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.6685292809867964`*^9, 3.6685293112728386`*^9}}], Cell[BoxData["False"], "Output", CellChangeTimes->{{3.6685293053228307`*^9, 3.6685293117928395`*^9}, 3.668755602174714*^9, 3.6687557247201214`*^9, 3.6687559834453754`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringMatchQ", "[", RowBox[{"s1", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.6685293222328544`*^9, 3.6685293236528563`*^9}}], Cell[BoxData["False"], "Output", CellChangeTimes->{3.668529324322857*^9, 3.6687556021767483`*^9, 3.6687557247357483`*^9, 3.668755983462507*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringMatchQ", "[", RowBox[{"s1", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.6685293421678824`*^9, 3.668529349667893*^9}}], Cell[BoxData["True"], "Output", CellChangeTimes->{3.6685293430178833`*^9, 3.6687556021767483`*^9, 3.6687557247357483`*^9, 3.668755983467512*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringMatchQ", "[", RowBox[{"s1", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.6685293609179087`*^9, 3.6685293612379093`*^9}}], Cell[BoxData["False"], "Output", CellChangeTimes->{3.6685293615779095`*^9, 3.6687556021923757`*^9, 3.6687557247357483`*^9, 3.668755983467512*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringMatchQ", "[", RowBox[{"s1", ",", "\"\\"", ",", RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.668529377340932*^9, 3.668529383690941*^9}}], Cell[BoxData["True"], "Output", CellChangeTimes->{3.6685293842909417`*^9, 3.6687556021923757`*^9, 3.66875572475146*^9, 3.668755983467512*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["um \[UAcute]ltimo exemplo", "Subsection", CellChangeTimes->{{3.6685294049829707`*^9, 3.668529410202978*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"unidades", "=", RowBox[{"StringCases", "[", RowBox[{"texto", ",", RowBox[{"\"\<(\>\"", "~~", "z__", "~~", "\"\<)\>\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.668529462572052*^9, 3.6685295094531183`*^9}}], Cell[BoxData[ RowBox[{"{", "\<\"(MeV) (cm2/g) (cm2/g) (cm2/g) (cm2/g) (cm2/g) \ (cm2/g) (cm2/g)\"\>", "}"}]], "Output", CellChangeTimes->{3.668529512193122*^9, 3.66875560225488*^9, 3.66875572475146*^9, 3.6687559834832954`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"unit", "=", RowBox[{"TextCases", "[", RowBox[{"unidades", ",", "\"\\""}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "este", " ", "parece", " ", "s\[OAcute]", " ", "funcionar", " ", "na", " ", "versao", " ", "10.4"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6685298173595533`*^9, 3.6685298447295914`*^9}, { 3.668755748209338*^9, 3.668755762428455*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"\<\"MeV\"\>", ",", "\<\"cm2/g\"\>", ",", "\<\"cm2/g\"\>", ",", "\<\"cm2/g\"\>", ",", "\<\"cm2/g\"\>", ",", "\<\"cm2/g\"\>", ",", "\<\"cm2/g\"\>", ",", "\<\"cm2/g\"\>"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.6685298459895935`*^9, 3.668755602508812*^9, 3.6687557252051105`*^9, 3.6687559839303102`*^9}] }, Open ]], Cell["\<\ para extrair as unidades em qualquer versao (gentilmente encontrado pelo \ Tiago)\ \>", "Text", CellChangeTimes->{{3.668755770542492*^9, 3.668755803708009*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"unit", "=", RowBox[{"StringCases", "[", RowBox[{"texto", ",", RowBox[{ RowBox[{"Shortest", "[", RowBox[{"\"\<(\>\"", "~~", "xx__", "~~", "\"\<)\>\""}], "]"}], ":>", "xx"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "veja", " ", "que", " ", "dispensou", " ", "a", " ", "primeira", " ", "etapa", " ", "de", " ", "escolher", " ", "a", " ", "linha", " ", "que", " ", "tinha", " ", "as", " ", "unidades"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.668755823288479*^9, 3.668755875286441*^9}, { 3.668756015091126*^9, 3.66875601864085*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"MeV\"\>", ",", "\<\"cm2/g\"\>", ",", "\<\"cm2/g\"\>", ",", "\<\"cm2/g\"\>", ",", "\<\"cm2/g\"\>", ",", "\<\"cm2/g\"\>", ",", "\<\"cm2/g\"\>", ",", "\<\"cm2/g\"\>"}], "}"}]], "Output", CellChangeTimes->{3.668755830645603*^9, 3.668755880782634*^9, 3.6687559839461565`*^9, 3.6687560193249826`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", "10"}]], "Input", CellChangeTimes->{{3.6685305316679173`*^9, 3.668530534637922*^9}}], Cell[BoxData["10"], "Output", CellChangeTimes->{3.6685305351579227`*^9, 3.668755602508812*^9, 3.6687557254433365`*^9, 3.6687559839670753`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToString", "[", "a", "]"}]], "Input", CellChangeTimes->{{3.668530536137924*^9, 3.6685305406579304`*^9}}], Cell[BoxData["\<\"10\"\>"], "Output", CellChangeTimes->{3.668530541147931*^9, 3.668755602508812*^9, 3.6687557254498434`*^9, 3.668755983968076*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", RowBox[{"ToString", "[", "a", "]"}], ",", "\"\<%\>\""}], "]"}]], "Input", CellChangeTimes->{{3.6685306278180523`*^9, 3.668530653038088*^9}}], Cell[BoxData["\<\"X=10%\"\>"], "Output", CellChangeTimes->{3.6685306537480884`*^9, 3.6687556025245156`*^9, 3.6687557254498434`*^9, 3.668755983968076*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1440, 895}, WindowMargins->{{-8, Automatic}, {Automatic, 0}}, Magnification:>1.8 Inherited, FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (February 25, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 229, 4, 417, "Title"], Cell[CellGroupData[{ Cell[834, 30, 244, 4, 197, "Section"], Cell[CellGroupData[{ Cell[1103, 38, 619, 15, 89, "Input"], Cell[1725, 55, 227, 5, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1989, 65, 145, 3, 54, "Input"], Cell[2137, 70, 210, 5, 54, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2396, 81, 105, 1, 124, "Section"], Cell[CellGroupData[{ Cell[2526, 86, 856, 19, 123, "Input"], Cell[3385, 107, 180, 4, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3602, 116, 147, 3, 54, "Input"], Cell[3752, 121, 211, 5, 54, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4012, 132, 136, 1, 124, "Section"], Cell[4151, 135, 315, 8, 54, "Input"], Cell[CellGroupData[{ Cell[4491, 147, 196, 5, 54, "Input"], Cell[4690, 154, 422, 9, 52, "Output"] }, Open ]], Cell[5127, 166, 181, 4, 54, "Input"], Cell[CellGroupData[{ Cell[5333, 174, 165, 3, 54, "Input"], Cell[5501, 179, 422, 9, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5960, 193, 256, 6, 54, "Input"], Cell[6219, 201, 200, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6456, 209, 184, 3, 54, "Input"], Cell[6643, 214, 172, 2, 52, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6864, 222, 207, 3, 124, "Section"], Cell[CellGroupData[{ Cell[7096, 229, 236, 6, 54, "Input"], Cell[7335, 237, 325, 6, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7697, 248, 265, 7, 54, "Input"], Cell[7965, 257, 215, 4, 52, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8229, 267, 133, 1, 124, "Section"], Cell[CellGroupData[{ Cell[8387, 272, 65, 1, 54, "Input"], Cell[8455, 275, 182, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8674, 282, 301, 7, 54, "Input"], Cell[8978, 291, 190, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9205, 298, 908, 23, 123, "Input"], Cell[10116, 323, 8358, 199, 1480, "Output"] }, Open ]], Cell[18489, 525, 200, 4, 53, "Text"], Cell[CellGroupData[{ Cell[18714, 533, 260, 6, 54, "Input"], Cell[18977, 541, 7076, 174, 1320, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26102, 721, 142, 1, 124, "Section"], Cell[26247, 724, 274, 5, 87, "Text"], Cell[CellGroupData[{ Cell[26546, 733, 469, 11, 89, "Input"], Cell[27018, 746, 284, 6, 52, "Output"] }, Open ]], Cell[27317, 755, 260, 6, 54, "Input"], Cell[CellGroupData[{ Cell[27602, 765, 136, 2, 54, "Input"], Cell[27741, 769, 4429, 91, 1123, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32219, 866, 98, 1, 124, "Section"], Cell[CellGroupData[{ Cell[32342, 871, 374, 10, 54, "Input"], Cell[32719, 883, 4215, 56, 1461, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36983, 945, 94, 1, 124, "Section"], Cell[CellGroupData[{ Cell[37102, 950, 155, 2, 87, "Subsection"], Cell[37260, 954, 353, 6, 87, "Text"], Cell[CellGroupData[{ Cell[37638, 964, 172, 4, 54, "Input"], Cell[37813, 970, 154, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38004, 977, 199, 7, 54, "Input"], Cell[38206, 986, 152, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38395, 993, 117, 2, 54, "Input"], Cell[38515, 997, 173, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38725, 1005, 294, 8, 54, "Input"], Cell[39022, 1015, 170, 2, 52, "Output"] }, Open ]], Cell[39207, 1020, 317, 6, 87, "Text"], Cell[CellGroupData[{ Cell[39549, 1030, 371, 10, 54, "Input"], Cell[39923, 1042, 144, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40104, 1049, 127, 2, 54, "Input"], Cell[40234, 1053, 148, 2, 52, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40443, 1062, 180, 4, 197, "Section"], Cell[CellGroupData[{ Cell[40648, 1070, 183, 2, 87, "Subsection"], Cell[CellGroupData[{ Cell[40856, 1076, 133, 2, 54, "Input"], Cell[40992, 1080, 152, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41181, 1087, 167, 3, 54, "Input"], Cell[41351, 1092, 155, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41543, 1099, 108, 1, 54, "Input"], Cell[41654, 1102, 154, 2, 52, "Output"] }, Open ]], Cell[41823, 1107, 111, 1, 53, "Text"], Cell[CellGroupData[{ Cell[41959, 1112, 155, 4, 54, "Input"], Cell[42117, 1118, 4126, 56, 1461, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46280, 1179, 377, 7, 54, "Input"], Cell[46660, 1188, 277, 5, 85, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46974, 1198, 328, 7, 54, "Input"], Cell[47305, 1207, 188, 3, 52, "Output"] }, Open ]], Cell[47508, 1213, 343, 6, 87, "Text"], Cell[CellGroupData[{ Cell[47876, 1223, 172, 4, 54, "Input"], Cell[48051, 1229, 147, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48235, 1236, 390, 9, 54, "Input"], Cell[48628, 1247, 144, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48809, 1254, 235, 6, 54, "Input"], Cell[49047, 1262, 259, 6, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49343, 1273, 230, 6, 54, "Input"], Cell[49576, 1281, 260, 6, 52, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49885, 1293, 109, 1, 87, "Subsection"], Cell[CellGroupData[{ Cell[50019, 1298, 128, 2, 54, "Input"], Cell[50150, 1302, 155, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50342, 1309, 169, 3, 54, "Input"], Cell[50514, 1314, 176, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50727, 1321, 171, 3, 54, "Input"], Cell[50901, 1326, 147, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51085, 1333, 167, 3, 54, "Input"], Cell[51255, 1338, 148, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51440, 1345, 169, 3, 54, "Input"], Cell[51612, 1350, 149, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51798, 1357, 217, 4, 54, "Input"], Cell[52018, 1363, 145, 2, 52, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[52212, 1371, 115, 1, 87, "Subsection"], Cell[CellGroupData[{ Cell[52352, 1376, 245, 5, 54, "Input"], Cell[52600, 1383, 246, 4, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52883, 1392, 411, 9, 54, "Input"], Cell[53297, 1403, 378, 7, 52, "Output"] }, Open ]], Cell[53690, 1413, 171, 4, 53, "Text"], Cell[CellGroupData[{ Cell[53886, 1421, 614, 14, 89, "Input"], Cell[54503, 1437, 350, 6, 85, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54890, 1448, 118, 2, 54, "Input"], Cell[55011, 1452, 146, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55194, 1459, 129, 2, 54, "Input"], Cell[55326, 1463, 150, 2, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55513, 1470, 217, 4, 54, "Input"], Cell[55733, 1476, 157, 2, 52, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)