(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 309285, 6834] NotebookOptionsPosition[ 287876, 6489] NotebookOutlinePosition[ 288259, 6506] CellTagsIndexPosition[ 288216, 6503] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["M\[EAcute]todos computacionais / 2019", "Title", CellChangeTimes->{{3.762026892275013*^9, 3.7620269012290277`*^9}, { 3.7620269647693653`*^9, 3.762026964881485*^9}, {3.762027090556736*^9, 3.762027091422873*^9}},ExpressionUUID->"973bc767-f2df-41af-9e7c-\ 484ae5182fa0"], Cell["\<\ Davi C. Rodrigues Aula 5\ \>", "Subtitle", CellChangeTimes->{{3.7620269314691353`*^9, 3.762026934877864*^9}, { 3.762027045546177*^9, 3.7620270892179117`*^9}, {3.7626481697835207`*^9, 3.7626481698250093`*^9}, {3.763298635607855*^9, 3.763298635663535*^9}, { 3.7644545006677847`*^9, 3.764454500752643*^9}},ExpressionUUID->"67b05413-7922-4ea0-b69f-\ 58e3591cfeec"], Cell["\<\ e-mail: davi@cosmo-ufes.org p\[AAcute]gina do curso: davi.cosmo-ufes.org/mc2019\ \>", "Text", CellChangeTimes->{{3.762027171040923*^9, 3.7620272393847*^9}, { 3.763298630792779*^9, 3.763298630859651*^9}},ExpressionUUID->"e845d481-2cfe-4d4f-bffe-\ 017aa65bedf5"], Cell[CellGroupData[{ Cell["\<\ Dois programas: um de an\[AAcute]lise de dados e outro anal\[IAcute]tico -- \ \[OpenCurlyDoubleQuote]Um cap\[IAcute]tulo\[CloseCurlyDoubleQuote] sem an\ \[AAcute]logo no Paul Welling\ \>", "Chapter", CellChangeTimes->{{3.667659688030293*^9, 3.667659703791535*^9}, { 3.7626484808497677`*^9, 3.762648483403314*^9}, {3.763298612749076*^9, 3.7632986168534307`*^9}, {3.7644545330806932`*^9, 3.764454553231276*^9}, { 3.764455168903468*^9, 3.764455170246513*^9}, {3.764462753163262*^9, 3.764462769562611*^9}},ExpressionUUID->"595a4f7a-c7c2-4004-a6ac-\ e972bf878a08"], Cell["", "Text", CellChangeTimes->{{3.667659730476582*^9, 3.667659738958963*^9}, { 3.667659811851159*^9, 3.667659821050434*^9}, 3.764454542493815*^9},ExpressionUUID->"75de7941-03bd-4318-a0c8-\ e58ea42da92b"], Cell[CellGroupData[{ Cell["Aplica\[CCedilla]\[ATilde]o para an\[AAcute]lise de dados", "Section", CellChangeTimes->{{3.670079307729761*^9, 3.670079310492544*^9}, { 3.7644545602618237`*^9, 3.764454568458337*^9}, {3.7644615908629513`*^9, 3.764461593695745*^9}},ExpressionUUID->"c3a301b0-ba49-44be-af95-\ 27f0f8a09161"], Cell[CellGroupData[{ Cell["Importa\[CCedilla]\[ATilde]o e prepara\[CCedilla]\[ATilde]o dos dados", \ "Subsection", CellChangeTimes->{{3.764454783139943*^9, 3.76445479228304*^9}},ExpressionUUID->"7abe9c08-8fb8-44b0-9bfa-\ 86c97a346634"], Cell["\<\ Como exemplo, tratemos da tabela fornecida \ \[OpenCurlyDoubleQuote]TabelaMC2019.csv\[CloseCurlyDoubleQuote]\ \>", "Text", CellChangeTimes->{{3.764454794868739*^9, 3.764454840249494*^9}, 3.764454900323042*^9},ExpressionUUID->"c02a6e09-e3b9-4158-ba37-\ bc7a9347feb1"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data", " ", "=", RowBox[{"Import", "[", "\"\\"", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.76445520995746*^9, 3.764455243405756*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"acad74f4-802f-4045-a8bf-2a79af617694"], Cell[BoxData["\<\"/Users/davi/Sync/UFES/Cursos/Metodos Computacionais - \ Mathematica/2019\"\>"], "Output", CellChangeTimes->{{3.7644552390155582`*^9, 3.764455244350936*^9}, { 3.764457811776536*^9, 3.764457828720758*^9}, 3.764459247261264*^9, 3.7645177910914392`*^9}, CellLabel->"Out[4]=",ExpressionUUID->"7aacbf9d-79f0-4165-8f5c-81f6d026f42d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", " ", "//", " ", "TableForm"}]], "Input", CellChangeTimes->{{3.764517805632841*^9, 3.7645178164241457`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"22d51967-7828-41ed-bc74-0ca41a263c58"], Cell[BoxData[ InterpretationBox[GridBox[{ {"\<\"# MAGMA - Mathematica Automatized Galaxy Mass Analysis (2017)\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>"}, {"\<\"# Model: Burkert - var: First\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\ \>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"# Number of galaxies: 143\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"# Mon 20 Aug 2018 14:47:23 - current user: \\\"Davi\\\" - \ Mathematica version: \\\"11.2.0 for Mac OS X x86 (64-bit) (September 11\"\>", \ "\<\"2017)\\\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"#\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \ "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"Galaxy\"\>", "\<\"H. type\"\>", "\<\"D\"\>", "\<\"delta D\"\>", "\<\ \"D method\"\>", "\<\"inclination\"\>", "\<\"Delta inc.\"\>", "\<\"L\"\>", \ "\<\"Delta L\"\>", "\<\"Reff\"\>", "\<\"Sigma eff\"\>", "\<\"h\"\>", \ "\<\"Sigma0\"\>", "\<\"MHI\"\>", "\<\"HIr\"\>", "\<\"V_flat\"\>", "\<\"Delta \ V_flat\"\>", "\<\"Q flag\"\>", "\<\"Refs for HI and Halpha\"\>", \ "\<\"LB\"\>", "\<\"rc\"\>", "\<\"lrhoc\"\>", "\<\"YD\"\>", "\<\"YB\"\>", \ "\<\"MD\"\>", "\<\"MB\"\>", "\<\"Mbar\"\>", "\<\"N.data points\"\>", \ "\<\"Chi2\"\>", "\<\"Chi2red\"\>", "\<\"V-Chi2\"\>", "\<\"V-Chi2red\"\>", "\<\ \"A-Chi2red\"\>"}, {"\<\"CamB\"\>", "10.`", "3.36`", "0.26`", "2.`", "65.`", "5.`", "0.075`", "0.003`", "1.21`", "7.89`", "0.47`", "66.2`", "0.012`", "1.21`", "0.`", "0.`", "2.`", "\<\"Bm03\"\>", "0.`", "999.73`", "6.5069`", "0.3`", "\<\"--\"\>", "0.0225`", "0.`", "0.03846`", "9.`", "16.823`", "2.8039`", "16.824`", "2.804`", "3.5922`"}, {"\<\"D512-2\"\>", "10.`", "15.2`", "4.56`", "1.`", "56.`", "10.`", "0.325`", "0.022`", "2.37`", "9.22`", "1.24`", "93.94`", "0.081`", "0.`", "0.`", "0.`", "2.`", "\<\"Tr09\"\>", "0.`", "1.5882`", "7.5477`", "0.8`", "\<\"--\"\>", "0.26`", "0.`", "0.36773`", "4.`", "0.10891`", "0.10891`", "0.10891`", "0.10891`", "0.1101`"}, {"\<\"D564-8\"\>", "10.`", "8.79`", "0.28`", "2.`", "63.`", "7.`", "0.033`", "0.004`", "0.72`", "10.11`", "0.61`", "21.13`", "0.029`", "0.`", "0.`", "0.`", "2.`", "\<\"Tr09\"\>", "0.`", "1.9941`", "7.1733`", "0.3`", "\<\"--\"\>", "0.0099`", "0.`", "0.04847`", "6.`", "0.19218`", "0.064061`", "0.19218`", "0.064061`", "0.064783`"}, {"\<\"D631-7\"\>", "10.`", "7.72`", "0.18`", "2.`", "59.`", "3.`", "0.196`", "0.009`", "1.22`", "20.93`", "0.7`", "115.04`", "0.29`", "0.`", "57.7`", "2.7`", "1.`", "\<\"Tr09,dB01\"\>", "0.`", "6.6551`", "7.0377`", "0.3`", "\<\"--\"\>", "0.0588`", "0.`", "0.4445`", "16.`", "9.2662`", "0.71279`", "9.2662`", "0.71279`", "0.8846`"}, {"\<\"DDO064\"\>", "10.`", "6.8`", "2.04`", "1.`", "60.`", "5.`", "0.157`", "0.007`", "1.2`", "17.41`", "0.69`", "151.65`", "0.211`", "3.49`", "46.1`", "3.9`", "1.`", "\<\"dB02,Sw02\"\>", "0.`", "1.823`", "7.7999`", "0.3`", "\<\"--\"\>", "0.0471`", "0.`", "0.32773`", "14.`", "4.0272`", "0.36611`", "4.0272`", "0.36611`", "0.34568`"}, {"\<\"DDO154\"\>", "10.`", "4.04`", "0.2`", "2.`", "64.`", "3.`", "0.053`", "0.002`", "0.65`", "19.99`", "0.37`", "71.26`", "0.275`", "4.96`", "47.`", "1.`", "2.`", "\<\"Be91,CB89\"\>", "0.`", "2.5661`", "7.4557`", "0.3`", "\<\"--\"\>", "0.0159`", "0.`", "0.38165`", "12.`", "10.331`", "1.1479`", "10.331`", "1.1479`", "1.1959`"}, {"\<\"DDO161\"\>", "10.`", "7.5`", "2.25`", "1.`", "70.`", "10.`", "0.548`", "0.015`", "2.04`", "20.74`", "1.22`", "169.37`", "1.378`", "10.69`", "66.3`", "1.9`", "1.`", "\<\"Co00\"\>", "0.`", "7.4398`", "6.7969`", "0.53317`", "\<\"--\"\>", "0.29218`", "0.`", "2.1249`", "31.`", "7.6425`", "0.27295`", "7.6426`", "0.27295`", "0.2702`"}, {"\<\"DDO168\"\>", "10.`", "4.25`", "0.21`", "2.`", "63.`", "6.`", "0.191`", "0.005`", "1.29`", "18.23`", "1.02`", "92.22`", "0.413`", "4.3`", "53.4`", "1.9`", "2.`", "\<\"Sa96,Br92\"\>", "0.`", "3.6425`", "7.458`", "0.3`", "\<\"--\"\>", "0.0573`", "0.`", "0.60659`", "10.`", "32.669`", "4.667`", "32.669`", "4.667`", "4.8305`"}, {"\<\"DDO170\"\>", "10.`", "15.4`", "4.62`", "1.`", "66.`", "7.`", "0.543`", "0.03`", "3.03`", "9.39`", "1.95`", "73.93`", "0.735`", "9.14`", "60.`", "1.6`", "2.`", "\<\"Be91,La90\"\>", "0.`", "4.0085`", "7.1978`", "0.3`", "\<\"--\"\>", "0.1629`", "0.`", "1.1404`", "8.`", "10.007`", "2.0014`", "10.007`", "2.0014`", "1.9876`"}, {"\<\"ESO079-G014\"\>", "4.`", "28.7`", "7.17`", "1.`", "79.`", "5.`", "51.733`", "0.524`", "7.23`", "157.34`", "5.08`", "2295.2`", "3.14`", "17.67`", "175.`", "3.5`", "1.`", "\<\"Ge04\"\>", "0.`", "7.51`", "7.6157`", "0.3`", "\<\"--\"\>", "15.52`", "0.`", "19.696`", "15.`", "11.385`", "0.94877`", "11.385`", "0.94878`", "0.90638`"}, {"\<\"ESO116-G012\"\>", "7.`", "13.`", "3.9`", "1.`", "74.`", "3.`", "4.292`", "0.071`", "2.75`", "90.54`", "1.51`", "1320.8`", "1.083`", "9.58`", "109.1`", "3.1`", "1.`", "\<\"Ge04\"\>", "0.`", "4.0887`", "7.7192`", "0.65262`", "\<\"--\"\>", "2.801`", "0.`", "4.2414`", "15.`", "9.5409`", "0.79508`", "9.5409`", "0.79508`", "0.75573`"}, {"\<\"ESO444-G084\"\>", "10.`", "4.83`", "0.48`", "2.`", "32.`", "6.`", "0.071`", "0.003`", "0.75`", "19.81`", "0.46`", "66.81`", "0.135`", "2.95`", "0.`", "0.`", "2.`", "\<\"Co00\"\>", "0.`", "1.6264`", "8.0828`", "0.8`", "\<\"--\"\>", "0.0568`", "0.`", "0.23635`", "7.`", "6.782`", "1.6955`", "6.782`", "1.6955`", "1.4557`"}, {"\<\"ESO563-G021\"\>", "4.`", "60.8`", "9.1`", "1.`", "83.`", "3.`", "311.18`", "2.579`", "10.59`", "429.37`", "5.45`", "6558.9`", "24.298`", "55.71`", "314.6`", "11.7`", "1.`", "\<\"SG06\"\>", "0.`", "8.1884`", "8.0465`", "0.3`", "\<\"--\"\>", "93.353`", "0.`", "125.67`", "30.`", "231.19`", "8.5624`", "231.19`", "8.5624`", "10.913`"}, {"\<\"F561-1\"\>", "9.`", "66.4`", "10.`", "1.`", "24.`", "10.`", "4.077`", "0.327`", "5.39`", "22.12`", "2.79`", "93.07`", "1.622`", "10.69`", "50.`", "2.9`", "3.`", "\<\"dB97,dB96\"\>", "0.`", "2.0277`", "7.4193`", "0.3`", "\<\"--\"\>", "1.2231`", "0.`", "3.3804`", "6.`", "0.82885`", "0.27628`", "0.82885`", "0.27628`", "0.30769`"}, {"\<\"F563-1\"\>", "9.`", "48.9`", "9.8`", "1.`", "25.`", "5.`", "1.903`", "0.17`", "4.61`", "14.22`", "3.52`", "41.77`", "3.2`", "23.47`", "109.9`", "12.5`", "1.`", "\<\"KN08,dB96\"\>", "0.`", "4.0341`", "7.7527`", "0.3`", "\<\"--\"\>", "0.5709`", "0.`", "4.8269`", "17.`", "8.2451`", "0.58893`", "8.2451`", "0.58893`", "0.63868`"}, {"\<\"F563-V1\"\>", "10.`", "54.`", "10.8`", "1.`", "60.`", "10.`", "1.54`", "0.165`", "5.01`", "9.75`", "3.79`", "40.63`", "0.61`", "6.83`", "0.`", "0.`", "3.`", "\<\"dB97,dB96\"\>", "0.`", "1.3779`", "6.7324`", "0.73035`", "\<\"--\"\>", "1.1247`", "0.`", "1.936`", "6.`", "0.7191`", "0.2397`", "0.7191`", "0.2397`", "0.24962`"}, {"\<\"F563-V2\"\>", "10.`", "59.7`", "11.9`", "1.`", "29.`", "10.`", "2.986`", "0.267`", "4.49`", "23.6`", "2.43`", "146.16`", "2.169`", "11.37`", "116.6`", "9.4`", "1.`", "\<\"dB01,dB96\"\>", "0.`", "2.8571`", "8.0914`", "0.8`", "\<\"--\"\>", "2.3888`", "0.`", "5.2736`", "10.`", "1.3231`", "0.18901`", "1.3231`", "0.18901`", "0.19205`"}, {"\<\"F565-V2\"\>", "10.`", "51.8`", "10.4`", "1.`", "60.`", "10.`", "0.559`", "0.098`", "3.57`", "6.93`", "2.17`", "40.26`", "0.699`", "7.31`", "0.`", "0.`", "2.`", "\<\"dB97,dB96\"\>", "0.`", "5.2408`", "7.3414`", "0.3`", "\<\"--\"\>", "0.1677`", "0.`", "1.0974`", "7.`", "0.26052`", "0.065129`", "0.26052`", "0.065129`", "0.067354`"}, {"\<\"F567-2\"\>", "9.`", "79.`", "11.8`", "1.`", "20.`", "10.`", "2.134`", "0.305`", "5.43`", "11.5`", "3.08`", "46.65`", "2.449`", "14.94`", "0.`", "0.`", "3.`", "\<\"dB97,dB96\"\>", "0.`", "2.5198`", "7.2966`", "0.8`", "\<\"--\"\>", "1.7072`", "0.`", "4.9644`", "5.`", "1.1197`", "0.55983`", "1.1197`", "0.55983`", "0.60424`"}, {"\<\"F568-1\"\>", "5.`", "90.7`", "9.7`", "1.`", "26.`", "5.`", "6.252`", "0.564`", "7.`", "20.36`", "5.18`", "57.13`", "4.498`", "16.31`", "0.`", "0.`", "1.`", "\<\"dB01,dB96\"\>", "0.`", "3.8563`", "7.9556`", "0.3`", "\<\"--\"\>", "1.8756`", "0.`", "7.8579`", "12.`", "0.78331`", "0.087034`", "0.78331`", "0.087034`", "0.088066`"}, {"\<\"F568-3\"\>", "7.`", "82.4`", "8.24`", "1.`", "40.`", "10.`", "8.346`", "0.592`", "7.47`", "23.81`", "4.99`", "132.08`", "3.195`", "16.14`", "0.`", "0.`", "1.`", "\<\"KN08,dB96\"\>", "0.`", "6.3837`", "7.3689`", "0.3`", "\<\"--\"\>", "2.5038`", "0.`", "6.7532`", "18.`", "15.753`", "1.0502`", "15.753`", "1.0502`", "1.0465`"}, {"\<\"F568-V1\"\>", "7.`", "80.6`", "8.06`", "1.`", "40.`", "10.`", "3.825`", "0.384`", "4.4`", "31.39`", "2.85`", "90.54`", "2.491`", "14.38`", "112.3`", "15.8`", "1.`", "\<\"dB01,dB96\"\>", "0.`", "2.9531`", "8.0825`", "0.3`", "\<\"--\"\>", "1.1475`", "0.`", "4.4605`", "15.`", "0.67754`", "0.056462`", "0.67754`", "0.056462`", "0.056936`"}, {"\<\"F571-8\"\>", "5.`", "53.3`", "10.7`", "1.`", "85.`", "5.`", "10.164`", "0.412`", "1.4`", "825.71`", "3.56`", "87.26`", "1.782`", "24.55`", "139.7`", "4.3`", "1.`", "\<\"dB01,dB96\"\>", "0.`", "7.7867`", "7.5182`", "0.3`", "\<\"--\"\>", "3.0492`", "0.`", "5.4193`", "13.`", "29.91`", "2.991`", "29.91`", "2.991`", "3.7431`"}, {"\<\"F571-V1\"\>", "7.`", "80.1`", "8.`", "1.`", "30.`", "10.`", "1.849`", "0.267`", "4.38`", "15.3`", "2.47`", "64.39`", "1.217`", "10.1`", "83.6`", "3.5`", "2.`", "\<\"dB97,dB96\"\>", "0.`", "5.1574`", "7.2991`", "0.3`", "\<\"--\"\>", "0.5547`", "0.`", "2.1733`", "7.`", "0.13551`", "0.033878`", "0.13551`", "0.033878`", "0.035633`"}, {"\<\"F574-1\"\>", "7.`", "96.8`", "9.68`", "1.`", "65.`", "10.`", "6.537`", "0.596`", "5.87`", "29.98`", "4.46`", "128.48`", "3.524`", "16.19`", "97.8`", "4.1`", "1.`", "\<\"dB01,dB96\"\>", "0.`", "3.4343`", "7.7836`", "0.3`", "\<\"--\"\>", "1.9611`", "0.`", "6.648`", "14.`", "0.78392`", "0.071265`", "0.78392`", "0.071265`", "0.071628`"}, {"\<\"F574-2\"\>", "9.`", "89.1`", "8.91`", "1.`", "30.`", "10.`", "2.877`", "0.384`", "6.48`", "10.89`", "3.76`", "41.38`", "1.701`", "12.61`", "0.`", "0.`", "3.`", "\<\"dB97,dB96\"\>", "0.`", "3.7379`", "6.4`", "0.3`", "\<\"--\"\>", "0.8631`", "0.`", "3.1254`", "5.`", "0.06847`", "0.034235`", "0.06847`", "0.034235`", "0.033189`"}, {"\<\"F579-V1\"\>", "5.`", "89.5`", "8.95`", "1.`", "26.`", "10.`", "11.848`", "0.742`", "5.76`", "56.6`", "3.37`", "201.76`", "2.245`", "20.96`", "112.1`", "13.4`", "1.`", "\<\"dB01,dB96\"\>", "0.`", "1.5037`", "8.5162`", "0.8`", "\<\"--\"\>", "9.4784`", "0.`", "12.464`", "14.`", "2.6127`", "0.23751`", "2.6127`", "0.23751`", "0.23095`"}, {"\<\"F583-1\"\>", "9.`", "35.4`", "8.85`", "1.`", "63.`", "5.`", "0.986`", "0.093`", "3.74`", "11.19`", "2.36`", "60.93`", "2.126`", "15.65`", "85.8`", "3.6`", "1.`", "\<\"KN08,dB96\"\>", "0.`", "4.4685`", "7.4397`", "0.3`", "\<\"--\"\>", "0.2958`", "0.`", "3.1234`", "25.`", "4.1381`", "0.18809`", "4.1381`", "0.18809`", "0.21424`"}, {"\<\"F583-4\"\>", "5.`", "53.3`", "10.7`", "1.`", "55.`", "10.`", "1.715`", "0.185`", "3.31`", "24.94`", "1.93`", "83.34`", "0.641`", "7.8`", "0.`", "0.`", "1.`", "\<\"KN08,dB96\"\>", "0.`", "2.9221`", "7.4691`", "0.8`", "\<\"--\"\>", "1.372`", "0.`", "2.2245`", "12.`", "4.2843`", "0.47604`", "4.2843`", "0.47604`", "0.44331`"}, {"\<\"IC2574\"\>", "9.`", "3.91`", "0.2`", "2.`", "75.`", "7.`", "1.016`", "0.012`", "3.18`", "15.88`", "2.78`", "80.32`", "1.036`", "10.81`", "66.4`", "2.`", "2.`", "\<\"Sa96,MC94\"\>", "0.`", "18.377`", "6.4799`", "0.8`", "\<\"--\"\>", "0.8128`", "0.`", "2.1907`", "34.`", "69.562`", "2.2439`", "69.562`", "2.2439`", "2.1089`"}, {"\<\"KK98-251\"\>", "10.`", "6.8`", "2.04`", "1.`", "59.`", "5.`", "0.085`", "0.007`", "1.28`", "7.89`", "1.34`", "52.1`", "0.115`", "2.9`", "33.7`", "1.6`", "2.`", "\<\"BC04\"\>", "0.`", "3.2558`", "7.1223`", "0.3`", "\<\"--\"\>", "0.0255`", "0.`", "0.17845`", "15.`", "3.8315`", "0.31929`", "3.8315`", "0.31929`", "0.3111`"}, {"\<\"NGC0024\"\>", "5.`", "7.3`", "0.36`", "2.`", "64.`", "3.`", "3.889`", "0.036`", "2.01`", "151.65`", "1.34`", "1182.6`", "0.676`", "7.29`", "106.3`", "7.9`", "1.`", "\<\"Di08,Ch06\"\>", "0.`", "1.4571`", "8.6631`", "0.3`", "\<\"--\"\>", "1.1667`", "0.`", "2.0658`", "29.`", "19.385`", "0.74556`", "19.385`", "0.74556`", "0.73142`"}, {"\<\"NGC0055\"\>", "9.`", "2.11`", "0.11`", "2.`", "77.`", "3.`", "4.628`", "0.013`", "3.67`", "54.55`", "6.11`", "391.59`", "1.565`", "10.24`", "85.6`", "5.`", "2.`", "\<\"Sa96,Pu91\"\>", "0.`", "6.1507`", "7.1608`", "0.3`", "\<\"--\"\>", "1.3884`", "0.`", "3.4698`", "21.`", "4.4893`", "0.2494`", "4.4893`", "0.2494`", "0.25182`"}, {"\<\"NGC0100\"\>", "6.`", "13.5`", "4.05`", "1.`", "89.`", "1.`", "3.232`", "0.063`", "2.81`", "64.99`", "1.66`", "1193.5`", "1.99`", "16.36`", "88.1`", "6.4`", "1.`", "\<\"dB02,Rh96\"\>", "0.`", "4.0932`", "7.5587`", "0.33825`", "\<\"--\"\>", "1.0932`", "0.`", "3.7399`", "21.`", "1.504`", "0.083557`", "1.504`", "0.083557`", "0.084524`"}, {"\<\"NGC0247\"\>", "7.`", "3.7`", "0.19`", "2.`", "74.`", "3.`", "7.332`", "0.027`", "5.87`", "33.79`", "3.74`", "506.79`", "1.746`", "12.79`", "104.9`", "8.`", "2.`", "\<\"Sa96,Ca90\"\>", "0.`", "3.1185`", "7.6391`", "0.8`", "\<\"--\"\>", "5.8656`", "0.`", "8.1878`", "26.`", "94.288`", "4.0995`", "94.288`", "4.0995`", "3.9745`"}, {"\<\"NGC0289\"\>", "4.`", "20.8`", "5.2`", "1.`", "46.`", "5.`", "72.065`", "0.465`", "2.69`", "1587.9`", "6.74`", "69.96`", "27.469`", "49.51`", "163.`", "8.`", "2.`", "\<\"Wa97\"\>", "0.`", "16.427`", "6.8182`", "0.8`", "\<\"--\"\>", "57.652`", "0.`", "94.186`", "28.`", "49.937`", "1.9975`", "49.937`", "1.9975`", "2.0886`"}, {"\<\"NGC0300\"\>", "7.`", "2.08`", "0.1`", "2.`", "42.`", "10.`", "2.922`", "0.008`", "1.77`", "147.51`", "1.75`", "437.35`", "0.936`", "9.2`", "93.3`", "7.`", "2.`", "\<\"Sa96,CP90\"\>", "0.`", "4.5994`", "7.4867`", "0.8`", "\<\"--\"\>", "2.3376`", "0.`", "3.5825`", "25.`", "11.246`", "0.51117`", "11.246`", "0.51117`", "0.50758`"}, {"\<\"NGC0801\"\>", "5.`", "80.7`", "8.07`", "1.`", "80.`", "1.`", "312.57`", "3.455`", "7.76`", "818.14`", "8.72`", "1558.9`", "23.201`", "44.99`", "220.1`", "6.2`", "1.`", "\<\"Sa96,Br92\"\>", "0.`", "39.319`", "6.2386`", "0.6618`", "\<\"--\"\>", "206.86`", "0.`", "237.72`", "13.`", "56.753`", "5.6753`", "56.753`", "5.6753`", "6.5151`"}, {"\<\"NGC1003\"\>", "6.`", "11.4`", "3.42`", "1.`", "67.`", "5.`", "6.82`", "0.075`", "2.76`", "140.87`", "1.61`", "1345.3`", "5.88`", "33.33`", "109.8`", "4.2`", "1.`", "\<\"Sa96,Br92\"\>", "0.`", "11.869`", "6.8217`", "0.8`", "\<\"--\"\>", "5.456`", "0.`", "13.276`", "36.`", "108.09`", "3.2754`", "108.09`", "3.2754`", "3.1549`"}, {"\<\"NGC1090\"\>", "4.`", "37.`", "9.25`", "1.`", "64.`", "3.`", "72.045`", "0.796`", "6.36`", "283.68`", "3.53`", "2055.1`", "8.783`", "30.49`", "164.4`", "3.7`", "1.`", "\<\"Ge04\"\>", "0.`", "4.8796`", "7.8812`", "0.3`", "\<\"--\"\>", "21.613`", "0.`", "33.295`", "24.`", "28.123`", "1.3392`", "28.123`", "1.3392`", "1.3424`"}, {"\<\"NGC1705\"\>", "11.`", "5.73`", "0.29`", "2.`", "80.`", "10.`", "0.533`", "0.01`", "0.49`", "347.4`", "0.39`", "587.26`", "0.139`", "2.36`", "71.9`", "4.3`", "3.`", "\<\"Le14\"\>", "0.`", "0.90007`", "8.6703`", "0.8`", "\<\"--\"\>", "0.4264`", "0.`", "0.61127`", "14.`", "5.7468`", "0.52244`", "5.7468`", "0.52244`", "0.41985`"}, {"\<\"NGC2366\"\>", "10.`", "3.27`", "0.16`", "2.`", "68.`", "5.`", "0.236`", "0.005`", "1.08`", "31.98`", "0.65`", "113.98`", "0.647`", "6.94`", "50.2`", "3.2`", "3.`", "\<\"Le14\"\>", "0.`", "2.3406`", "7.5376`", "0.3`", "\<\"--\"\>", "0.0708`", "0.`", "0.93131`", "26.`", "15.96`", "0.69393`", "15.96`", "0.69393`", "0.73419`"}, {"\<\"NGC2403\"\>", "6.`", "3.16`", "0.16`", "2.`", "63.`", "3.`", "10.041`", "0.028`", "2.16`", "341.06`", "1.39`", "1408.7`", "3.199`", "15.11`", "131.2`", "4.9`", "1.`", "\<\"Da06,Fr02\"\>", "0.`", "5.8395`", "7.5078`", "0.78587`", "\<\"--\"\>", "7.8909`", "0.`", "12.146`", "73.`", "800.38`", "11.434`", "800.38`", "11.434`", "11.687`"}, {"\<\"NGC2903\"\>", "4.`", "6.6`", "1.98`", "1.`", "66.`", "3.`", "81.863`", "0.151`", "4.54`", "632.16`", "2.33`", "1193.5`", "2.552`", "13.76`", "184.6`", "5.6`", "1.`", "\<\"Be91,Be87\"\>", "0.`", "4.2231`", "8.1007`", "0.36116`", "\<\"--\"\>", "29.566`", "0.`", "32.96`", "34.`", "209.11`", "6.7456`", "209.11`", "6.7456`", "16.069`"}, {"\<\"NGC2915\"\>", "11.`", "4.06`", "0.2`", "2.`", "56.`", "4.`", "0.641`", "0.008`", "0.53`", "347.4`", "0.55`", "313.93`", "0.508`", "7.16`", "83.5`", "6.3`", "2.`", "\<\"El10\"\>", "0.`", "1.9875`", "8.1548`", "0.3`", "\<\"--\"\>", "0.1923`", "0.`", "0.86794`", "30.`", "12.119`", "0.44886`", "12.119`", "0.44886`", "0.6102`"}, {"\<\"NGC2976\"\>", "5.`", "3.58`", "0.18`", "2.`", "61.`", "10.`", "3.371`", "0.019`", "1.31`", "308.2`", "1.01`", "1502.5`", "0.172`", "3.04`", "85.4`", "3.3`", "2.`", "\<\"Si03\"\>", "0.`", "3.0647`", "8.0053`", "0.42302`", "\<\"--\"\>", "1.426`", "0.`", "1.6548`", "27.`", "7.4707`", "0.31128`", "7.4707`", "0.31128`", "0.32825`"}, {"\<\"NGC2998\"\>", "5.`", "68.1`", "10.2`", "1.`", "58.`", "2.`", "150.9`", "2.085`", "7.06`", "479.55`", "6.2`", "774.16`", "23.451`", "43.58`", "209.9`", "8.1`", "1.`", "\<\"Sa96,Br92\"\>", "0.`", "19.334`", "6.7851`", "0.8`", "\<\"--\"\>", "120.72`", "0.`", "151.91`", "13.`", "29.852`", "2.9852`", "29.852`", "2.9852`", "2.2769`"}, {"\<\"NGC3109\"\>", "9.`", "1.33`", "0.07`", "2.`", "70.`", "5.`", "0.194`", "0.002`", "1.64`", "11.4`", "1.56`", "140.87`", "0.477`", "6.`", "66.2`", "2.6`", "1.`", "\<\"Be91,JC90\"\>", "0.`", "4.504`", "7.3492`", "0.3`", "\<\"--\"\>", "0.0582`", "0.`", "0.69261`", "25.`", "4.0058`", "0.18208`", "4.0058`", "0.18208`", "0.18029`"}, {"\<\"NGC3198\"\>", "5.`", "13.8`", "1.4`", "3.`", "73.`", "3.`", "38.279`", "0.212`", "5.84`", "178.99`", "3.14`", "1602.6`", "10.869`", "35.66`", "150.1`", "3.9`", "1.`", "\<\"Da06,Be91,Be87\"\>", "0.`", "9.5666`", "7.1866`", "0.71363`", "\<\"--\"\>", "27.317`", "0.`", "41.773`", "43.`", "56.164`", "1.4041`", "56.164`", "1.4041`", "1.4353`"}, {"\<\"NGC3521\"\>", "4.`", "7.7`", "2.3`", "1.`", "75.`", "5.`", "84.836`", "0.156`", "2.45`", "2232.7`", "2.4`", "2112.7`", "4.154`", "18.85`", "213.7`", "15.9`", "1.`", "\<\"Da06,Sa96\"\>", "0.`", "14.349`", "7.2367`", "0.5812`", "\<\"--\"\>", "49.307`", "0.`", "54.832`", "41.`", "7.1393`", "0.18788`", "7.1393`", "0.18788`", "0.18743`"}, {"\<\"NGC3726\"\>", "5.`", "18.`", "2.5`", "4.`", "53.`", "2.`", "70.234`", "0.388`", "7.52`", "198.08`", "3.4`", "1789.9`", "6.473`", "22.2`", "168.`", "6.2`", "2.`", "\<\"VS01,SV98\"\>", "0.`", "44.389`", "6.3421`", "0.64659`", "\<\"--\"\>", "45.413`", "0.`", "54.022`", "12.`", "17.442`", "1.938`", "17.442`", "1.938`", "2.0101`"}, {"\<\"NGC3741\"\>", "10.`", "3.21`", "0.17`", "2.`", "70.`", "4.`", "0.028`", "0.001`", "0.32`", "42.94`", "0.2`", "143.49`", "0.182`", "4.2`", "50.1`", "2.1`", "1.`", "\<\"Ge07,Bm05\"\>", "0.`", "2.8703`", "7.3922`", "0.8`", "\<\"--\"\>", "0.0224`", "0.`", "0.26446`", "21.`", "15.165`", "0.84253`", "15.165`", "0.84253`", "0.75077`"}, {"\<\"NGC3769\"\>", "3.`", "18.`", "2.5`", "4.`", "70.`", "2.`", "18.679`", "0.189`", "2.18`", "626.37`", "3.38`", "160.26`", "5.529`", "22.57`", "118.6`", "8.4`", "2.`", "\<\"VS01,SV98\"\>", "0.`", "5.393`", "7.5384`", "0.38621`", "\<\"--\"\>", "7.214`", "0.`", "14.568`", "12.`", "5.0817`", "0.56463`", "5.0817`", "0.56463`", "0.56776`"}, {"\<\"NGC3877\"\>", "5.`", "18.`", "2.5`", "4.`", "76.`", "1.`", "72.535`", "0.401`", "4.39`", "598.18`", "2.53`", "3410.6`", "1.483`", "11.47`", "168.4`", "5.1`", "2.`", "\<\"VS01,SV98\"\>", "0.`", "2.8177`", "8.2672`", "0.3`", "\<\"--\"\>", "21.76`", "0.`", "23.733`", "13.`", "24.987`", "2.4987`", "24.987`", "2.4987`", "4.0433`"}, {"\<\"NGC3893\"\>", "5.`", "18.`", "2.5`", "4.`", "49.`", "2.`", "58.525`", "0.377`", "2.43`", "1573.4`", "2.38`", "2055.1`", "5.799`", "20.84`", "174.`", "8.9`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "3.6986`", "8.1606`", "0.38749`", "\<\"--\"\>", "22.678`", "0.`", "30.391`", "10.`", "1.383`", "0.19758`", "1.383`", "0.19758`", "0.19765`"}, {"\<\"NGC3917\"\>", "6.`", "18.`", "2.5`", "4.`", "79.`", "2.`", "21.966`", "0.202`", "5.56`", "112.94`", "2.63`", "1227.`", "1.888`", "14.08`", "135.9`", "4.1`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "4.5517`", "7.8043`", "0.3`", "\<\"--\"\>", "6.5898`", "0.`", "9.1008`", "17.`", "14.784`", "1.056`", "14.784`", "1.056`", "1.2309`"}, {"\<\"NGC3949\"\>", "4.`", "18.`", "2.5`", "4.`", "55.`", "2.`", "38.067`", "0.28`", "2.39`", "1058.8`", "3.59`", "185.71`", "3.371`", "13.72`", "163.`", "7.1`", "2.`", "\<\"VS01,SV98\"\>", "0.`", "1000.`", "7.1603`", "0.53381`", "\<\"--\"\>", "20.321`", "0.`", "24.804`", "7.`", "1.5965`", "0.39913`", "1.5965`", "0.39913`", "0.40815`"}, {"\<\"NGC3953\"\>", "4.`", "18.`", "2.5`", "4.`", "62.`", "1.`", "141.3`", "0.521`", "6.17`", "587.26`", "4.89`", "1999.1`", "2.832`", "17.38`", "220.8`", "6.1`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "3.2569`", "8.4152`", "0.3`", "\<\"--\"\>", "42.39`", "0.`", "46.157`", "8.`", "0.37248`", "0.074496`", "0.37249`", "0.074498`", "0.074188`"}, {"\<\"NGC3972\"\>", "4.`", "18.`", "2.5`", "4.`", "77.`", "1.`", "14.353`", "0.172`", "3.73`", "164.75`", "2.18`", "1587.9`", "1.214`", "10.05`", "132.7`", "2.9`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "3.5541`", "7.9741`", "0.3`", "\<\"--\"\>", "4.3059`", "0.`", "5.9205`", "10.`", "4.5226`", "0.64609`", "4.5226`", "0.64609`", "0.63672`"}, {"\<\"NGC3992\"\>", "4.`", "23.7`", "2.3`", "5.`", "56.`", "2.`", "226.93`", "0.836`", "9.99`", "360.44`", "4.96`", "3257.1`", "16.599`", "32.75`", "241.`", "5.2`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "5.7326`", "8.1576`", "0.3`", "\<\"--\"\>", "68.08`", "0.`", "90.156`", "9.`", "3.3104`", "0.55173`", "3.3104`", "0.55173`", "0.5661`"}, {"\<\"NGC4010\"\>", "7.`", "18.`", "2.5`", "4.`", "89.`", "1.`", "17.193`", "0.19`", "6.63`", "14.75`", "2.81`", "2611.1`", "2.832`", "17.59`", "125.8`", "4.7`", "2.`", "\<\"VS01,SV98\"\>", "0.`", "5.4002`", "7.6066`", "0.3`", "\<\"--\"\>", "5.1579`", "0.`", "8.9245`", "12.`", "12.832`", "1.4258`", "12.832`", "1.4258`", "1.3512`"}, {"\<\"NGC4051\"\>", "4.`", "18.`", "2.5`", "4.`", "49.`", "3.`", "95.268`", "0.439`", "6.87`", "319.76`", "4.65`", "1320.8`", "2.697`", "15.13`", "157.`", "5.5`", "2.`", "\<\"VS01,SV98\"\>", "0.`", "3.0284`", "8.037`", "0.36769`", "\<\"--\"\>", "35.029`", "0.`", "38.616`", "7.`", "2.2196`", "0.55489`", "2.2196`", "0.55489`", "0.55381`"}, {"\<\"NGC4068\"\>", "10.`", "4.37`", "0.22`", "2.`", "44.`", "6.`", "0.236`", "0.005`", "1.11`", "30.26`", "0.59`", "261.11`", "0.154`", "3.18`", "0.`", "0.`", "2.`", "\<\"Le14\"\>", "0.`", "4.8446`", "7.2641`", "0.3`", "\<\"--\"\>", "0.0708`", "0.`", "0.27562`", "6.`", "0.56305`", "0.18768`", "0.56305`", "0.18768`", "0.20133`"}, {"\<\"NGC4085\"\>", "5.`", "18.`", "2.5`", "4.`", "82.`", "2.`", "21.724`", "0.2`", "2.`", "856.7`", "1.65`", "5021.5`", "1.349`", "10.16`", "131.5`", "4.8`", "2.`", "\<\"VS01,SV98\"\>", "0.`", "4.5409`", "7.8272`", "0.3`", "\<\"--\"\>", "6.5172`", "0.`", "8.3114`", "7.`", "10.457`", "2.6143`", "10.457`", "2.6143`", "3.2103`"}, {"\<\"NGC4088\"\>", "4.`", "18.`", "2.5`", "4.`", "69.`", "2.`", "107.29`", "0.494`", "6.1`", "457.96`", "2.58`", "3988.7`", "8.226`", "22.25`", "171.7`", "6.9`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "43.688`", "6.4982`", "0.44068`", "\<\"--\"\>", "47.279`", "0.`", "58.219`", "12.`", "4.4247`", "0.49163`", "4.4247`", "0.49163`", "0.47703`"}, {"\<\"NGC4100\"\>", "4.`", "18.`", "2.5`", "4.`", "73.`", "2.`", "59.394`", "0.328`", "4.93`", "388.`", "2.15`", "8970.8`", "3.102`", "18.06`", "158.2`", "5.`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "3.2627`", "8.2896`", "0.37782`", "\<\"--\"\>", "22.44`", "0.`", "26.566`", "24.`", "11.186`", "0.53265`", "11.186`", "0.53265`", "0.54782`"}, {"\<\"NGC4183\"\>", "6.`", "18.`", "2.5`", "4.`", "82.`", "2.`", "10.838`", "0.15`", "4.47`", "86.46`", "2.79`", "1098.6`", "3.506`", "16.07`", "110.6`", "5.4`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "3.2017`", "7.9152`", "0.3`", "\<\"--\"\>", "3.2514`", "0.`", "7.9144`", "23.`", "7.4232`", "0.37116`", "7.4232`", "0.37116`", "0.34544`"}, {"\<\"NGC4214\"\>", "10.`", "2.87`", "0.14`", "2.`", "15.`", "10.`", "1.141`", "0.008`", "0.7`", "363.77`", "0.51`", "1308.7`", "0.486`", "5.84`", "80.1`", "5.8`", "2.`", "\<\"Le14\"\>", "0.`", "1.7456`", "8.1815`", "0.8`", "\<\"--\"\>", "0.9128`", "0.`", "1.5592`", "14.`", "13.93`", "1.2663`", "13.93`", "1.2663`", "0.85039`"}, {"\<\"NGC4389\"\>", "4.`", "18.`", "2.5`", "4.`", "50.`", "4.`", "21.328`", "0.216`", "4.05`", "207.41`", "2.79`", "322.72`", "0.539`", "6.81`", "0.`", "0.`", "3.`", "\<\"VS01,SV98\"\>", "0.`", "1000.`", "6.7654`", "0.3`", "\<\"--\"\>", "6.3984`", "0.`", "7.1153`", "6.`", "23.32`", "7.7734`", "23.32`", "7.7734`", "12.259`"}, {"\<\"NGC4559\"\>", "6.`", "9.`", "2.7`", "1.`", "67.`", "1.`", "19.377`", "0.107`", "3.82`", "211.27`", "2.1`", "1602.6`", "5.811`", "21.16`", "121.2`", "5.1`", "1.`", "\<\"Ba05\"\>", "0.`", "8.0277`", "7.1421`", "0.55832`", "\<\"--\"\>", "10.819`", "0.`", "18.547`", "32.`", "6.8418`", "0.23593`", "6.8418`", "0.23593`", "0.23651`"}, {"\<\"NGC5055\"\>", "4.`", "9.9`", "0.3`", "2.`", "55.`", "6.`", "152.92`", "0.282`", "4.18`", "1383.`", "3.2`", "3348.3`", "11.722`", "35.06`", "179.`", "4.9`", "1.`", "\<\"Ba06,Bl04\"\>", "0.`", "10.582`", "7.2632`", "0.43266`", "\<\"--\"\>", "66.163`", "0.`", "81.753`", "28.`", "51.543`", "2.0617`", "51.543`", "2.0617`", "2.0762`"}, {"\<\"NGC5371\"\>", "4.`", "39.7`", "9.92`", "1.`", "53.`", "2.`", "340.39`", "1.881`", "9.8`", "560.83`", "7.44`", "1395.8`", "11.18`", "30.03`", "209.5`", "3.9`", "1.`", "\<\"Sa96,Be87\"\>", "0.`", "1000.`", "5.6415`", "0.66373`", "\<\"--\"\>", "225.93`", "0.`", "240.8`", "19.`", "137.34`", "8.5835`", "137.34`", "8.5835`", "8.24`"}, {"\<\"NGC5585\"\>", "7.`", "7.06`", "2.12`", "1.`", "51.`", "2.`", "2.943`", "0.033`", "2.27`", "90.54`", "1.53`", "297.05`", "1.683`", "10.92`", "90.3`", "2.4`", "1.`", "\<\"Bl99,Sa96,Co91\"\>", "0.`", "5.3213`", "7.3481`", "0.61101`", "\<\"--\"\>", "1.7982`", "0.`", "4.0366`", "24.`", "94.706`", "4.5098`", "94.706`", "4.5098`", "4.3474`"}, {"\<\"NGC5907\"\>", "5.`", "17.3`", "0.9`", "2.`", "88.`", "2.`", "175.42`", "0.646`", "7.88`", "449.6`", "5.34`", "8646.3`", "21.025`", "0.`", "215.`", "2.9`", "1.`", "\<\"Sa96,SA87\"\>", "0.`", "5.3459`", "8.0831`", "0.3`", "\<\"--\"\>", "52.628`", "0.`", "80.591`", "19.`", "134.79`", "8.4245`", "134.79`", "8.4245`", "7.941`"}, {"\<\"NGC6015\"\>", "6.`", "17.`", "5.1`", "1.`", "60.`", "2.`", "32.129`", "0.237`", "3.92`", "331.76`", "2.3`", "1926.8`", "5.834`", "21.43`", "154.1`", "7.`", "2.`", "\<\"VM97\"\>", "0.`", "2.5178`", "8.4411`", "0.3`", "\<\"--\"\>", "9.6387`", "0.`", "17.398`", "44.`", "544.23`", "13.274`", "544.23`", "13.274`", "12.783`"}, {"\<\"NGC6503\"\>", "6.`", "6.26`", "0.31`", "2.`", "74.`", "2.`", "12.845`", "0.059`", "1.62`", "774.16`", "2.16`", "398.87`", "1.744`", "14.05`", "116.3`", "2.4`", "1.`", "\<\"Be91,Be87\"\>", "0.`", "5.0144`", "7.5585`", "0.56697`", "\<\"--\"\>", "7.2827`", "0.`", "9.6022`", "31.`", "65.778`", "2.3492`", "65.778`", "2.3492`", "2.298`"}, {"\<\"NGC6789\"\>", "11.`", "3.52`", "0.18`", "2.`", "43.`", "7.`", "0.1`", "0.003`", "0.52`", "59.27`", "0.31`", "319.76`", "0.017`", "0.97`", "0.`", "0.`", "2.`", "\<\"Le14\"\>", "0.`", "1.8861`", "8.6646`", "0.8`", "\<\"--\"\>", "0.08`", "0.`", "0.10261`", "4.`", "0.44407`", "0.44407`", "0.44407`", "0.44407`", "0.38848`"}, {"\<\"NGC7793\"\>", "7.`", "3.61`", "0.18`", "2.`", "47.`", "9.`", "7.05`", "0.026`", "2.19`", "233.79`", "1.21`", "1068.6`", "0.861`", "7.35`", "0.`", "0.`", "1.`", "\<\"Di08,Sa96,CP90\"\>", "0.`", "3.4737`", "7.5963`", "0.74594`", "\<\"--\"\>", "5.2589`", "0.`", "6.404`", "46.`", "32.385`", "0.75315`", "32.385`", "0.75315`", "0.91912`"}, {"\<\"PGC51017\"\>", "11.`", "13.6`", "1.4`", "2.`", "66.`", "3.`", "0.155`", "0.014`", "1.28`", "15.03`", "0.53`", "93.94`", "0.201`", "4.29`", "18.6`", "1.3`", "3.`", "\<\"Le14\"\>", "0.`", "0.01`", "11.895`", "0.3`", "\<\"--\"\>", "0.0465`", "0.`", "0.31383`", "6.`", "0.067213`", "0.022404`", "0.067222`", "0.022407`", "0.022412`"}, {"\<\"UGC00128\"\>", "8.`", "64.5`", "9.7`", "1.`", "57.`", "10.`", "12.02`", "0.565`", "9.63`", "20.36`", "5.95`", "88.89`", "7.431`", "31.27`", "129.3`", "2.8`", "1.`", "\<\"VB99,VH93\"\>", "0.`", "8.0448`", "7.2869`", "0.3`", "\<\"--\"\>", "3.606`", "0.`", "13.489`", "22.`", "156.19`", "8.2206`", "156.19`", "8.2206`", "7.8075`"}, {"\<\"UGC00191\"\>", "9.`", "17.1`", "5.1`", "1.`", "45.`", "5.`", "2.004`", "0.063`", "2.5`", "50.21`", "1.58`", "207.41`", "1.343`", "10.03`", "0.`", "0.`", "1.`", "\<\"KN08,vZ97\"\>", "0.`", "1.921`", "8.0867`", "0.3`", "\<\"--\"\>", "0.6012`", "0.`", "2.3874`", "9.`", "26.651`", "4.4419`", "26.651`", "4.4419`", "4.3344`"}, {"\<\"UGC00634\"\>", "9.`", "30.9`", "7.7`", "1.`", "37.`", "8.`", "2.989`", "0.146`", "4.26`", "26.11`", "2.45`", "126.13`", "3.663`", "16.78`", "0.`", "0.`", "2.`", "\<\"vZ97\"\>", "0.`", "6.5412`", "7.3194`", "0.3`", "\<\"--\"\>", "0.8967`", "0.`", "5.7685`", "4.`", "0.54365`", "0.54365`", "0.54366`", "0.54366`", "0.55043`"}, {"\<\"UGC00731\"\>", "10.`", "12.5`", "3.75`", "1.`", "57.`", "3.`", "0.323`", "0.019`", "1.4`", "25.63`", "2.3`", "82.57`", "1.807`", "11.57`", "73.3`", "2.3`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "2.3723`", "7.7803`", "0.8`", "\<\"--\"\>", "0.2584`", "0.`", "2.6617`", "12.`", "5.5884`", "0.62093`", "5.5884`", "0.62093`", "0.61257`"}, {"\<\"UGC00891\"\>", "9.`", "10.2`", "3.1`", "1.`", "60.`", "5.`", "0.374`", "0.017`", "1.76`", "19.09`", "1.43`", "113.98`", "0.428`", "6.23`", "0.`", "0.`", "2.`", "\<\"vZ97\"\>", "0.`", "5.04`", "7.1769`", "0.3`", "\<\"--\"\>", "0.1122`", "0.`", "0.68144`", "5.`", "0.39281`", "0.1964`", "0.39282`", "0.19641`", "0.20187`"}, {"\<\"UGC01230\"\>", "9.`", "53.7`", "10.7`", "1.`", "22.`", "10.`", "7.62`", "0.379`", "6.45`", "28.63`", "4.34`", "69.32`", "6.43`", "26.29`", "103.7`", "6.1`", "1.`", "\<\"dB02,VdH93\"\>", "0.`", "3.8951`", "7.778`", "0.3`", "\<\"--\"\>", "2.286`", "0.`", "10.838`", "11.`", "2.2652`", "0.28315`", "2.2652`", "0.28315`", "0.30491`"}, {"\<\"UGC01281\"\>", "8.`", "5.27`", "0.24`", "2.`", "90.`", "1.`", "0.353`", "0.009`", "2.01`", "13.83`", "1.63`", "135.78`", "0.294`", "5.26`", "55.2`", "3.5`", "1.`", "\<\"dB02,Sw02\"\>", "0.`", "2.8744`", "7.5407`", "0.3`", "\<\"--\"\>", "0.1059`", "0.`", "0.49692`", "25.`", "6.5124`", "0.29602`", "6.5124`", "0.29602`", "0.41914`"}, {"\<\"UGC02023\"\>", "10.`", "10.4`", "3.1`", "1.`", "19.`", "10.`", "1.308`", "0.033`", "2.73`", "27.59`", "1.55`", "121.57`", "0.477`", "6.5`", "0.`", "0.`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "1000.`", "7.0064`", "0.3`", "\<\"--\"\>", "0.3924`", "0.`", "1.0268`", "5.`", "0.037794`", "0.018897`", "0.037795`", "0.018897`", "0.018715`"}, {"\<\"UGC02259\"\>", "8.`", "10.5`", "3.1`", "1.`", "41.`", "3.`", "1.725`", "0.038`", "2.4`", "47.08`", "1.62`", "172.52`", "0.494`", "7.28`", "86.2`", "2.9`", "2.`", "\<\"Be91,Ca88\"\>", "0.`", "1.5701`", "8.3463`", "0.3`", "\<\"--\"\>", "0.5175`", "0.`", "1.1745`", "8.`", "12.502`", "2.5004`", "12.502`", "2.5004`", "2.3677`"}, {"\<\"UGC02455\"\>", "10.`", "6.92`", "2.08`", "1.`", "51.`", "5.`", "3.649`", "0.034`", "1.49`", "254.`", "0.99`", "795.85`", "0.803`", "7.11`", "0.`", "0.`", "3.`", "\<\"Sw09,Sw02\"\>", "0.`", "1000.`", "6.0854`", "0.3`", "\<\"--\"\>", "1.0947`", "0.`", "2.1627`", "8.`", "62.774`", "12.555`", "62.774`", "12.555`", "17.744`"}, {"\<\"UGC04278\"\>", "7.`", "9.51`", "2.85`", "1.`", "90.`", "3.`", "1.307`", "0.026`", "2.46`", "34.11`", "2.21`", "377.42`", "1.116`", "8.9`", "91.4`", "4.8`", "1.`", "\<\"dB02,Sw02\"\>", "0.`", "8.6536`", "7.2329`", "0.8`", "\<\"--\"\>", "1.0456`", "0.`", "2.5299`", "25.`", "10.578`", "0.48083`", "10.578`", "0.48083`", "0.47438`"}, {"\<\"UGC04305\"\>", "10.`", "3.45`", "0.17`", "2.`", "40.`", "10.`", "0.736`", "0.007`", "1.23`", "76.71`", "1.16`", "88.07`", "0.69`", "7.41`", "34.5`", "2.7`", "3.`", "\<\"Sw09,Sw02\"\>", "0.`", "0.61794`", "7.5394`", "0.61219`", "\<\"--\"\>", "0.45057`", "0.`", "1.3683`", "22.`", "33.247`", "1.7498`", "33.247`", "1.7498`", "1.7673`"}, {"\<\"UGC04325\"\>", "9.`", "9.6`", "2.88`", "1.`", "41.`", "3.`", "2.026`", "0.035`", "2.79`", "41.`", "1.86`", "213.22`", "0.678`", "6.61`", "90.9`", "2.7`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "1.3766`", "8.5098`", "0.3`", "\<\"--\"\>", "0.6078`", "0.`", "1.5095`", "8.`", "2.3648`", "0.47297`", "2.3648`", "0.47297`", "0.47903`"}, {"\<\"UGC04483\"\>", "10.`", "3.34`", "0.31`", "2.`", "58.`", "3.`", "0.013`", "0.001`", "0.26`", "29.71`", "0.18`", "82.57`", "0.032`", "1.46`", "0.`", "0.`", "2.`", "\<\"Le14,Le12\"\>", "0.`", "0.49584`", "8.1762`", "0.3`", "\<\"--\"\>", "0.0039`", "0.`", "0.04646`", "8.`", "1.3962`", "0.27923`", "1.3962`", "0.27923`", "0.29153`"}, {"\<\"UGC04499\"\>", "8.`", "12.5`", "3.75`", "1.`", "50.`", "3.`", "1.552`", "0.043`", "2.69`", "33.79`", "1.73`", "127.3`", "1.1`", "8.67`", "72.8`", "2.4`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "2.7421`", "7.6751`", "0.3`", "\<\"--\"\>", "0.4656`", "0.`", "1.9286`", "9.`", "1.1902`", "0.19837`", "1.1902`", "0.19837`", "0.20215`"}, {"\<\"UGC05005\"\>", "10.`", "53.7`", "10.7`", "1.`", "41.`", "10.`", "4.1`", "0.283`", "5.02`", "25.63`", "3.2`", "65.59`", "3.093`", "21.61`", "98.9`", "7.2`", "1.`", "\<\"dB02,VH93\"\>", "0.`", "10.644`", "6.81`", "0.50046`", "\<\"--\"\>", "2.0519`", "0.`", "6.1656`", "11.`", "0.11765`", "0.014706`", "0.11765`", "0.014706`", "0.014761`"}, {"\<\"UGC05414\"\>", "10.`", "9.4`", "2.82`", "1.`", "55.`", "3.`", "1.123`", "0.028`", "2.33`", "32.87`", "1.47`", "127.3`", "0.574`", "6.65`", "0.`", "0.`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "3.6991`", "7.3714`", "0.64449`", "\<\"--\"\>", "0.72376`", "0.`", "1.4872`", "6.`", "0.30351`", "0.10117`", "0.30351`", "0.10117`", "0.101`"}, {"\<\"UGC05716\"\>", "9.`", "21.3`", "5.3`", "1.`", "54.`", "10.`", "0.588`", "0.042`", "1.84`", "27.59`", "1.14`", "90.54`", "1.094`", "10.64`", "73.1`", "1.2`", "2.`", "\<\"vZ97\"\>", "0.`", "3.5574`", "7.4625`", "0.8`", "\<\"--\"\>", "0.4704`", "0.`", "1.9254`", "12.`", "33.054`", "3.6726`", "33.054`", "3.6727`", "3.3911`"}, {"\<\"UGC05721\"\>", "7.`", "6.18`", "1.85`", "1.`", "61.`", "5.`", "0.531`", "0.011`", "0.6`", "233.79`", "0.38`", "913.76`", "0.562`", "6.74`", "79.7`", "6.6`", "1.`", "\<\"dB02,Sw02\"\>", "0.`", "1.1098`", "8.5952`", "0.68168`", "\<\"--\"\>", "0.36197`", "0.`", "1.1094`", "23.`", "7.8674`", "0.39337`", "7.8674`", "0.39337`", "0.40189`"}, {"\<\"UGC05750\"\>", "8.`", "58.7`", "11.7`", "1.`", "64.`", "10.`", "3.336`", "0.264`", "8.8`", "6.87`", "3.46`", "124.98`", "1.099`", "16.79`", "0.`", "0.`", "1.`", "\<\"dB01,VdH93\"\>", "0.`", "7.241`", "6.959`", "0.3`", "\<\"--\"\>", "1.0008`", "0.`", "2.4625`", "11.`", "1.0257`", "0.12821`", "1.0257`", "0.12821`", "0.14972`"}, {"\<\"UGC05764\"\>", "10.`", "7.47`", "2.24`", "1.`", "60.`", "10.`", "0.085`", "0.006`", "1.2`", "9.31`", "1.17`", "33.79`", "0.163`", "3.51`", "0.`", "0.`", "2.`", "\<\"vZ97\"\>", "0.`", "0.97886`", "8.3643`", "0.3`", "\<\"--\"\>", "0.0255`", "0.`", "0.24229`", "10.`", "20.013`", "2.859`", "20.013`", "2.859`", "2.9885`"}, {"\<\"UGC05829\"\>", "10.`", "8.64`", "2.59`", "1.`", "34.`", "10.`", "0.564`", "0.019`", "2.91`", "10.59`", "1.99`", "63.22`", "1.023`", "7.87`", "0.`", "0.`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "3.4668`", "7.3236`", "0.8`", "\<\"--\"\>", "0.4512`", "0.`", "1.8118`", "11.`", "1.9371`", "0.24214`", "1.9371`", "0.24214`", "0.23384`"}, {"\<\"UGC05918\"\>", "10.`", "7.66`", "2.3`", "1.`", "46.`", "5.`", "0.233`", "0.011`", "2.63`", "5.36`", "1.66`", "24.94`", "0.297`", "5.9`", "0.`", "0.`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "1.4771`", "7.7864`", "0.3`", "\<\"--\"\>", "0.0699`", "0.`", "0.46491`", "8.`", "0.24529`", "0.049059`", "0.2453`", "0.049059`", "0.049263`"}, {"\<\"UGC05986\"\>", "9.`", "8.63`", "2.59`", "1.`", "90.`", "3.`", "4.695`", "0.048`", "3.12`", "76.71`", "1.67`", "1725.2`", "2.667`", "16.53`", "113.`", "4.1`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "3.3111`", "7.9572`", "0.50609`", "\<\"--\"\>", "2.3761`", "0.`", "5.9232`", "15.`", "11.319`", "0.94326`", "11.319`", "0.94326`", "0.98003`"}, {"\<\"UGC05999\"\>", "10.`", "47.7`", "9.5`", "1.`", "22.`", "10.`", "3.384`", "0.231`", "4.83`", "22.95`", "3.22`", "51.62`", "2.022`", "15.26`", "0.`", "0.`", "2.`", "\<\"dB97,VH93\"\>", "0.`", "7.1542`", "7.1504`", "0.3`", "\<\"--\"\>", "1.0152`", "0.`", "3.7045`", "5.`", "2.3168`", "1.1584`", "2.3168`", "1.1584`", "1.1992`"}, {"\<\"UGC06399\"\>", "9.`", "18.`", "2.5`", "4.`", "75.`", "2.`", "2.296`", "0.072`", "3.45`", "30.82`", "2.05`", "311.05`", "0.674`", "8.8`", "85.`", "3.8`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "3.3138`", "7.7232`", "0.3`", "\<\"--\"\>", "0.6888`", "0.`", "1.5852`", "9.`", "0.29692`", "0.049486`", "0.29692`", "0.049487`", "0.050418`"}, {"\<\"UGC06446\"\>", "7.`", "12.`", "3.6`", "1.`", "51.`", "3.`", "0.988`", "0.032`", "2.06`", "37.05`", "1.49`", "86.46`", "1.379`", "10.33`", "82.2`", "4.3`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "2.1119`", "7.998`", "0.8`", "\<\"--\"\>", "0.7904`", "0.`", "2.6245`", "17.`", "6.1485`", "0.43918`", "6.1485`", "0.43918`", "0.41969`"}, {"\<\"UGC06628\"\>", "9.`", "15.1`", "4.53`", "1.`", "20.`", "10.`", "3.739`", "0.076`", "4.14`", "34.74`", "2.82`", "103.`", "1.5`", "10.47`", "41.8`", "6.4`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "0.80846`", "8.0226`", "0.3`", "\<\"--\"\>", "1.1217`", "0.`", "3.1167`", "7.`", "0.85283`", "0.21321`", "0.85283`", "0.21321`", "0.2244`"}, {"\<\"UGC06667\"\>", "6.`", "18.`", "2.5`", "4.`", "89.`", "1.`", "1.397`", "0.066`", "3.5`", "18.06`", "5.15`", "614.94`", "0.809`", "8.59`", "83.8`", "3.1`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "3.1067`", "7.7825`", "0.3`", "\<\"--\"\>", "0.4191`", "0.`", "1.4951`", "9.`", "0.64373`", "0.10729`", "0.64373`", "0.10729`", "0.10815`"}, {"\<\"UGC06818\"\>", "9.`", "18.`", "2.5`", "4.`", "75.`", "3.`", "1.588`", "0.057`", "2.12`", "56.08`", "1.39`", "286.31`", "1.079`", "6.96`", "71.2`", "4.`", "2.`", "\<\"VS01,SV98\"\>", "0.`", "10.369`", "7.0443`", "0.3`", "\<\"--\"\>", "0.4764`", "0.`", "1.9115`", "8.`", "5.5289`", "1.1058`", "5.5289`", "1.1058`", "1.0808`"}, {"\<\"UGC06917\"\>", "9.`", "18.`", "2.5`", "4.`", "56.`", "2.`", "6.832`", "0.12`", "4.52`", "53.07`", "2.76`", "261.11`", "2.023`", "12.67`", "108.7`", "3.5`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "3.33`", "7.8554`", "0.31887`", "\<\"--\"\>", "2.1785`", "0.`", "4.8691`", "11.`", "1.5996`", "0.19995`", "1.5996`", "0.19995`", "0.19925`"}, {"\<\"UGC06923\"\>", "10.`", "18.`", "2.5`", "4.`", "65.`", "2.`", "2.89`", "0.077`", "1.66`", "166.28`", "1.44`", "347.4`", "0.809`", "6.75`", "79.6`", "2.5`", "2.`", "\<\"VS01,SV98\"\>", "0.`", "2.7182`", "7.8178`", "0.3`", "\<\"--\"\>", "0.867`", "0.`", "1.943`", "6.`", "1.4553`", "0.4851`", "1.4553`", "0.4851`", "0.50452`"}, {"\<\"UGC06930\"\>", "7.`", "18.`", "2.5`", "4.`", "32.`", "5.`", "8.932`", "0.14`", "4.38`", "73.93`", "3.94`", "189.16`", "3.237`", "16.76`", "107.2`", "5.1`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "3.4322`", "7.8152`", "0.3`", "\<\"--\"\>", "2.6796`", "0.`", "6.9848`", "10.`", "1.1713`", "0.16733`", "1.1713`", "0.16733`", "0.16393`"}, {"\<\"UGC06983\"\>", "6.`", "18.`", "2.5`", "4.`", "49.`", "1.`", "5.298`", "0.102`", "3.95`", "53.56`", "3.21`", "121.57`", "2.967`", "16.07`", "109.`", "5.8`", "1.`", "\<\"VS01,SV98\"\>", "0.`", "3.6001`", "7.7665`", "0.73969`", "\<\"--\"\>", "3.9189`", "0.`", "7.865`", "17.`", "6.1854`", "0.44181`", "6.1854`", "0.44181`", "0.46594`"}, {"\<\"UGC07089\"\>", "8.`", "18.`", "2.5`", "4.`", "80.`", "3.`", "3.585`", "0.089`", "3.9`", "37.4`", "2.26`", "520.99`", "1.214`", "9.29`", "0.`", "0.`", "2.`", "\<\"VS01,SV98\"\>", "0.`", "13.199`", "6.6873`", "0.79775`", "\<\"--\"\>", "2.8599`", "0.`", "4.4746`", "12.`", "1.1402`", "0.12669`", "1.1402`", "0.12669`", "0.12588`"}, {"\<\"UGC07125\"\>", "9.`", "19.8`", "5.9`", "1.`", "90.`", "3.`", "2.712`", "0.08`", "3.92`", "28.11`", "3.38`", "103.`", "4.629`", "23.04`", "65.2`", "2.1`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "4.3016`", "7.092`", "0.35499`", "\<\"--\"\>", "0.96273`", "0.`", "7.1193`", "13.`", "2.6128`", "0.26128`", "2.6129`", "0.26129`", "0.26024`"}, {"\<\"UGC07151\"\>", "6.`", "6.87`", "0.34`", "2.`", "90.`", "3.`", "2.284`", "0.025`", "2.17`", "76.71`", "1.25`", "965.67`", "0.616`", "6.39`", "73.5`", "2.8`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "1.8187`", "7.8965`", "0.76506`", "\<\"--\"\>", "1.7474`", "0.`", "2.5667`", "11.`", "7.8387`", "0.97984`", "7.8387`", "0.97984`", "0.99738`"}, {"\<\"UGC07232\"\>", "10.`", "2.83`", "0.17`", "2.`", "59.`", "5.`", "0.113`", "0.002`", "0.46`", "83.34`", "0.29`", "227.42`", "0.046`", "1.54`", "0.`", "0.`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "994.95`", "8.077`", "0.50581`", "\<\"--\"\>", "0.057157`", "0.`", "0.11834`", "4.`", "0.22344`", "0.22344`", "0.22389`", "0.22389`", "0.21378`"}, {"\<\"UGC07261\"\>", "8.`", "13.1`", "3.93`", "1.`", "30.`", "10.`", "1.753`", "0.048`", "2.66`", "39.16`", "1.2`", "566.02`", "1.388`", "10.1`", "74.7`", "3.4`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "1.4029`", "8.2806`", "0.3`", "\<\"--\"\>", "0.5259`", "0.`", "2.3719`", "7.`", "1.1384`", "0.28461`", "1.1384`", "0.28461`", "0.28314`"}, {"\<\"UGC07323\"\>", "8.`", "8.`", "2.4`", "1.`", "47.`", "3.`", "4.109`", "0.042`", "3.26`", "61.49`", "2.26`", "283.68`", "0.722`", "7.14`", "0.`", "0.`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "8.5929`", "7.0602`", "0.77794`", "\<\"--\"\>", "3.1966`", "0.`", "4.1568`", "10.`", "1.6435`", "0.23479`", "1.6435`", "0.23479`", "0.22561`"}, {"\<\"UGC07399\"\>", "8.`", "8.43`", "2.53`", "1.`", "55.`", "3.`", "1.156`", "0.024`", "1.27`", "113.98`", "1.64`", "135.78`", "0.745`", "7.85`", "103.`", "3.3`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "1.658`", "8.4174`", "0.8`", "\<\"--\"\>", "0.9248`", "0.`", "1.9156`", "10.`", "5.7534`", "0.82191`", "5.7534`", "0.82191`", "0.80287`"}, {"\<\"UGC07524\"\>", "9.`", "4.74`", "0.24`", "2.`", "46.`", "3.`", "2.436`", "0.025`", "3.61`", "29.71`", "3.46`", "106.86`", "1.779`", "12.11`", "79.5`", "3.6`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "3.7373`", "7.4334`", "0.78021`", "\<\"--\"\>", "1.9006`", "0.`", "4.2667`", "31.`", "5.918`", "0.21136`", "5.918`", "0.21136`", "0.21201`"}, {"\<\"UGC07559\"\>", "10.`", "4.97`", "0.25`", "2.`", "61.`", "3.`", "0.109`", "0.004`", "0.98`", "17.9`", "0.58`", "55.06`", "0.169`", "3.76`", "0.`", "0.`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "1.7001`", "7.446`", "0.3`", "\<\"--\"\>", "0.0327`", "0.`", "0.25747`", "7.`", "0.39272`", "0.098179`", "0.39272`", "0.098179`", "0.098228`"}, {"\<\"UGC07577\"\>", "10.`", "2.59`", "0.13`", "2.`", "63.`", "3.`", "0.045`", "0.002`", "0.77`", "11.94`", "0.9`", "54.55`", "0.044`", "2.07`", "0.`", "0.`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "993.81`", "6.4463`", "0.39488`", "\<\"--\"\>", "0.01777`", "0.`", "0.07629`", "9.`", "0.82061`", "0.13677`", "0.82069`", "0.13678`", "0.10589`"}, {"\<\"UGC07603\"\>", "7.`", "4.7`", "1.41`", "1.`", "78.`", "3.`", "0.376`", "0.008`", "0.85`", "81.81`", "0.53`", "520.99`", "0.258`", "4.37`", "61.6`", "2.8`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "1.3889`", "8.2032`", "0.3`", "\<\"--\"\>", "0.1128`", "0.`", "0.45594`", "12.`", "1.5427`", "0.17141`", "1.5427`", "0.17141`", "0.17111`"}, {"\<\"UGC07608\"\>", "10.`", "8.21`", "2.46`", "1.`", "25.`", "10.`", "0.264`", "0.012`", "1.6`", "16.48`", "1.5`", "46.65`", "0.535`", "6.73`", "0.`", "0.`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "2.8969`", "7.692`", "0.3`", "\<\"--\"\>", "0.0792`", "0.`", "0.79075`", "8.`", "0.44589`", "0.089179`", "0.4459`", "0.089179`", "0.09856`"}, {"\<\"UGC07690\"\>", "10.`", "8.11`", "2.43`", "1.`", "41.`", "5.`", "0.858`", "0.018`", "0.86`", "184.01`", "0.57`", "395.21`", "0.39`", "5.5`", "57.4`", "3.2`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "0.64742`", "8.7079`", "0.40564`", "\<\"--\"\>", "0.34804`", "0.`", "0.86674`", "7.`", "0.54592`", "0.13648`", "0.54592`", "0.13648`", "0.13574`"}, {"\<\"UGC07866\"\>", "10.`", "4.57`", "0.23`", "2.`", "44.`", "5.`", "0.124`", "0.004`", "0.95`", "21.92`", "0.61`", "97.46`", "0.118`", "3.3`", "0.`", "0.`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "0.94356`", "7.8455`", "0.3`", "\<\"--\"\>", "0.0372`", "0.`", "0.19414`", "7.`", "0.32427`", "0.081067`", "0.32427`", "0.081067`", "0.080355`"}, {"\<\"UGC08286\"\>", "6.`", "6.5`", "0.21`", "2.`", "90.`", "3.`", "1.255`", "0.018`", "2.25`", "39.52`", "1.05`", "1488.8`", "0.642`", "8.07`", "82.4`", "2.3`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "1.7173`", "8.2407`", "0.3`", "\<\"--\"\>", "0.3765`", "0.`", "1.2304`", "17.`", "15.856`", "1.1326`", "15.856`", "1.1326`", "1.1244`"}, {"\<\"UGC08490\"\>", "9.`", "4.65`", "0.53`", "2.`", "50.`", "3.`", "1.017`", "0.012`", "1.14`", "124.98`", "0.67`", "576.54`", "0.72`", "7.8`", "78.6`", "3.8`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "1.672`", "8.2098`", "0.8`", "\<\"--\"\>", "0.8136`", "0.`", "1.7712`", "30.`", "12.758`", "0.47251`", "12.758`", "0.47251`", "0.4315`"}, {"\<\"UGC08550\"\>", "7.`", "6.7`", "2.`", "1.`", "90.`", "3.`", "0.289`", "0.009`", "1.01`", "45.38`", "0.45`", "1284.8`", "0.288`", "5.59`", "56.9`", "1.9`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "1.5231`", "7.9718`", "0.8`", "\<\"--\"\>", "0.2312`", "0.`", "0.61424`", "11.`", "7.5157`", "0.93946`", "7.5157`", "0.93946`", "0.91832`"}, {"\<\"UGC08837\"\>", "10.`", "7.21`", "0.36`", "2.`", "80.`", "5.`", "0.501`", "0.015`", "2.25`", "15.73`", "1.72`", "77.42`", "0.32`", "4.75`", "0.`", "0.`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "10.475`", "6.8906`", "0.3`", "\<\"--\"\>", "0.1503`", "0.`", "0.5759`", "8.`", "1.6835`", "0.3367`", "1.6835`", "0.3367`", "0.32988`"}, {"\<\"UGC09037\"\>", "6.`", "83.6`", "8.4`", "1.`", "65.`", "5.`", "68.614`", "1.769`", "5.69`", "334.83`", "4.28`", "841.07`", "19.078`", "39.72`", "152.3`", "9.6`", "2.`", "\<\"Ha14\"\>", "0.`", "11.116`", "7.1022`", "0.3`", "\<\"--\"\>", "20.584`", "0.`", "45.958`", "22.`", "24.168`", "1.272`", "24.168`", "1.272`", "1.5233`"}, {"\<\"UGC09992\"\>", "10.`", "10.7`", "3.21`", "1.`", "30.`", "10.`", "0.336`", "0.017`", "1.62`", "20.18`", "1.04`", "73.25`", "0.318`", "5.45`", "33.6`", "3.3`", "2.`", "\<\"Sw09,Sw02\"\>", "0.`", "0.50738`", "8.2063`", "0.8`", "\<\"--\"\>", "0.2688`", "0.`", "0.69174`", "5.`", "0.072183`", "0.036092`", "0.072183`", "0.036092`", "0.035711`"}, {"\<\"UGC10310\"\>", "9.`", "15.2`", "4.6`", "1.`", "34.`", "6.`", "1.741`", "0.053`", "3.12`", "28.37`", "1.8`", "158.79`", "1.196`", "9.58`", "71.4`", "3.9`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "2.2324`", "7.7602`", "0.8`", "\<\"--\"\>", "1.3928`", "0.`", "2.9835`", "7.`", "0.37411`", "0.093529`", "0.37411`", "0.093529`", "0.093484`"}, {"\<\"UGC11455\"\>", "6.`", "78.6`", "11.8`", "1.`", "90.`", "1.`", "374.32`", "3.792`", "10.06`", "571.26`", "5.93`", "9568.2`", "13.335`", "43.44`", "269.4`", "7.4`", "1.`", "\<\"SG06\"\>", "0.`", "8.6446`", "7.7977`", "0.3`", "\<\"--\"\>", "112.3`", "0.`", "130.03`", "36.`", "63.211`", "1.9155`", "63.211`", "1.9155`", "1.9925`"}, {"\<\"UGC11557\"\>", "8.`", "24.2`", "6.05`", "1.`", "30.`", "10.`", "12.101`", "0.212`", "4.18`", "106.86`", "2.75`", "337.93`", "2.605`", "16.66`", "0.`", "0.`", "2.`", "\<\"Sw02,dB01\"\>", "0.`", "6.4544`", "7.0094`", "0.3`", "\<\"--\"\>", "3.6303`", "0.`", "7.095`", "12.`", "6.3093`", "0.70103`", "6.3093`", "0.70103`", "1.3547`"}, {"\<\"UGC11820\"\>", "9.`", "18.1`", "5.43`", "1.`", "45.`", "10.`", "0.97`", "0.047`", "2.74`", "20.18`", "2.08`", "34.11`", "1.977`", "12.99`", "0.`", "0.`", "1.`", "\<\"KN08,vZ97\"\>", "0.`", "6.5855`", "7.0238`", "0.8`", "\<\"--\"\>", "0.776`", "0.`", "3.4054`", "10.`", "43.562`", "6.2231`", "43.562`", "6.2231`", "4.8635`"}, {"\<\"UGC12506\"\>", "6.`", "100.6`", "10.1`", "1.`", "86.`", "4.`", "139.57`", "3.214`", "12.36`", "144.82`", "7.38`", "5608.3`", "35.556`", "59.01`", "234.`", "16.8`", "2.`", "\<\"Ha14\"\>", "0.`", "5.2823`", "8.2064`", "0.3`", "\<\"--\"\>", "41.871`", "0.`", "89.161`", "31.`", "18.376`", "0.6563`", "18.376`", "0.6563`", "0.52215`"}, {"\<\"UGC12632\"\>", "9.`", "9.77`", "2.93`", "1.`", "46.`", "3.`", "1.301`", "0.03`", "3.94`", "13.09`", "2.42`", "66.81`", "1.744`", "12.6`", "71.7`", "2.8`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "2.9609`", "7.5651`", "0.8`", "\<\"--\"\>", "1.0408`", "0.`", "3.3603`", "15.`", "0.83745`", "0.069788`", "0.83746`", "0.069788`", "0.067438`"}, {"\<\"UGC12732\"\>", "9.`", "13.2`", "4.`", "1.`", "39.`", "6.`", "1.667`", "0.048`", "3.12`", "26.84`", "1.98`", "120.46`", "3.66`", "17.41`", "0.`", "0.`", "1.`", "\<\"Sw09,Sw02\"\>", "0.`", "4.4466`", "7.4278`", "0.8`", "\<\"--\"\>", "1.3336`", "0.`", "6.2014`", "16.`", "16.908`", "1.3006`", "16.908`", "1.3006`", "1.1888`"}, {"\<\"UGCA281\"\>", "11.`", "5.68`", "0.28`", "2.`", "67.`", "3.`", "0.194`", "0.007`", "1.57`", "12.5`", "1.72`", "12.05`", "0.062`", "1.83`", "0.`", "0.`", "3.`", "\<\"Le14\"\>", "0.`", "0.52269`", "8.3737`", "0.3`", "\<\"--\"\>", "0.0582`", "0.`", "0.14066`", "7.`", "0.53835`", "0.13459`", "0.53835`", "0.13459`", "0.12969`"}, {"\<\"UGCA442\"\>", "9.`", "4.35`", "0.22`", "2.`", "64.`", "7.`", "0.14`", "0.005`", "1.71`", "7.6`", "1.18`", "116.1`", "0.263`", "4.37`", "56.4`", "2.1`", "1.`", "\<\"Co00\"\>", "0.`", "2.9145`", "7.4807`", "0.8`", "\<\"--\"\>", "0.112`", "0.`", "0.46179`", "8.`", "3.7112`", "0.74225`", "3.7112`", "0.74225`", "0.65194`"}, {"\<\"UGCA444\"\>", "10.`", "0.98`", "0.05`", "2.`", "78.`", "4.`", "0.012`", "0.`", "0.41`", "11.94`", "0.83`", "22.74`", "0.067`", "2.08`", "37.`", "4.8`", "2.`", "\<\"Ke07\"\>", "0.`", "1.2709`", "7.7204`", "0.8`", "\<\"--\"\>", "0.0096`", "0.`", "0.09871`", "36.`", "7.146`", "0.21655`", "7.146`", "0.21655`", "0.19344`"} }, 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" -> {}}], TableForm[{{ "# MAGMA - Mathematica Automatized Galaxy Mass Analysis (2017)"}, { "# Model: Burkert - var: First"}, {"# Number of galaxies: 143"}, { "# Mon 20 Aug 2018 14:47:23 - current user: \"Davi\" - Mathematica \ version: \"11.2.0 for Mac OS X x86 (64-bit) (September 11", "2017)\""}, { "#"}, {"Galaxy", "H. type", "D", "delta D", "D method", "inclination", "Delta inc.", "L", "Delta L", "Reff", "Sigma eff", "h", "Sigma0", "MHI", "HIr", "V_flat", "Delta V_flat", "Q flag", "Refs for HI and Halpha", "LB", "rc", "lrhoc", "YD", "YB", "MD", "MB", "Mbar", "N.data points", "Chi2", "Chi2red", "V-Chi2", "V-Chi2red", "A-Chi2red"}, { "CamB", 10., 3.36, 0.26, 2., 65., 5., 0.075, 0.003, 1.21, 7.89, 0.47, 66.2, 0.012, 1.21, 0., 0., 2., "Bm03", 0., 999.73, 6.5069, 0.3, "--", 0.0225, 0., 0.03846, 9., 16.823, 2.8039, 16.824, 2.804, 3.5922}, { "D512-2", 10., 15.2, 4.56, 1., 56., 10., 0.325, 0.022, 2.37, 9.22, 1.24, 93.94, 0.081, 0., 0., 0., 2., "Tr09", 0., 1.5882, 7.5477, 0.8, "--", 0.26, 0., 0.36773, 4., 0.10891, 0.10891, 0.10891, 0.10891, 0.1101}, { "D564-8", 10., 8.79, 0.28, 2., 63., 7., 0.033, 0.004, 0.72, 10.11, 0.61, 21.13, 0.029, 0., 0., 0., 2., "Tr09", 0., 1.9941, 7.1733, 0.3, "--", 0.0099, 0., 0.04847, 6., 0.19218, 0.064061, 0.19218, 0.064061, 0.064783}, { "D631-7", 10., 7.72, 0.18, 2., 59., 3., 0.196, 0.009, 1.22, 20.93, 0.7, 115.04, 0.29, 0., 57.7, 2.7, 1., "Tr09,dB01", 0., 6.6551, 7.0377, 0.3, "--", 0.0588, 0., 0.4445, 16., 9.2662, 0.71279, 9.2662, 0.71279, 0.8846}, { "DDO064", 10., 6.8, 2.04, 1., 60., 5., 0.157, 0.007, 1.2, 17.41, 0.69, 151.65, 0.211, 3.49, 46.1, 3.9, 1., "dB02,Sw02", 0., 1.823, 7.7999, 0.3, "--", 0.0471, 0., 0.32773, 14., 4.0272, 0.36611, 4.0272, 0.36611, 0.34568}, { "DDO154", 10., 4.04, 0.2, 2., 64., 3., 0.053, 0.002, 0.65, 19.99, 0.37, 71.26, 0.275, 4.96, 47., 1., 2., "Be91,CB89", 0., 2.5661, 7.4557, 0.3, "--", 0.0159, 0., 0.38165, 12., 10.331, 1.1479, 10.331, 1.1479, 1.1959}, { "DDO161", 10., 7.5, 2.25, 1., 70., 10., 0.548, 0.015, 2.04, 20.74, 1.22, 169.37, 1.378, 10.69, 66.3, 1.9, 1., "Co00", 0., 7.4398, 6.7969, 0.53317, "--", 0.29218, 0., 2.1249, 31., 7.6425, 0.27295, 7.6426, 0.27295, 0.2702}, { "DDO168", 10., 4.25, 0.21, 2., 63., 6., 0.191, 0.005, 1.29, 18.23, 1.02, 92.22, 0.413, 4.3, 53.4, 1.9, 2., "Sa96,Br92", 0., 3.6425, 7.458, 0.3, "--", 0.0573, 0., 0.60659, 10., 32.669, 4.667, 32.669, 4.667, 4.8305}, { "DDO170", 10., 15.4, 4.62, 1., 66., 7., 0.543, 0.03, 3.03, 9.39, 1.95, 73.93, 0.735, 9.14, 60., 1.6, 2., "Be91,La90", 0., 4.0085, 7.1978, 0.3, "--", 0.1629, 0., 1.1404, 8., 10.007, 2.0014, 10.007, 2.0014, 1.9876}, { "ESO079-G014", 4., 28.7, 7.17, 1., 79., 5., 51.733, 0.524, 7.23, 157.34, 5.08, 2295.2, 3.14, 17.67, 175., 3.5, 1., "Ge04", 0., 7.51, 7.6157, 0.3, "--", 15.52, 0., 19.696, 15., 11.385, 0.94877, 11.385, 0.94878, 0.90638}, { "ESO116-G012", 7., 13., 3.9, 1., 74., 3., 4.292, 0.071, 2.75, 90.54, 1.51, 1320.8, 1.083, 9.58, 109.1, 3.1, 1., "Ge04", 0., 4.0887, 7.7192, 0.65262, "--", 2.801, 0., 4.2414, 15., 9.5409, 0.79508, 9.5409, 0.79508, 0.75573}, { "ESO444-G084", 10., 4.83, 0.48, 2., 32., 6., 0.071, 0.003, 0.75, 19.81, 0.46, 66.81, 0.135, 2.95, 0., 0., 2., "Co00", 0., 1.6264, 8.0828, 0.8, "--", 0.0568, 0., 0.23635, 7., 6.782, 1.6955, 6.782, 1.6955, 1.4557}, { "ESO563-G021", 4., 60.8, 9.1, 1., 83., 3., 311.18, 2.579, 10.59, 429.37, 5.45, 6558.9, 24.298, 55.71, 314.6, 11.7, 1., "SG06", 0., 8.1884, 8.0465, 0.3, "--", 93.353, 0., 125.67, 30., 231.19, 8.5624, 231.19, 8.5624, 10.913}, { "F561-1", 9., 66.4, 10., 1., 24., 10., 4.077, 0.327, 5.39, 22.12, 2.79, 93.07, 1.622, 10.69, 50., 2.9, 3., "dB97,dB96", 0., 2.0277, 7.4193, 0.3, "--", 1.2231, 0., 3.3804, 6., 0.82885, 0.27628, 0.82885, 0.27628, 0.30769}, { "F563-1", 9., 48.9, 9.8, 1., 25., 5., 1.903, 0.17, 4.61, 14.22, 3.52, 41.77, 3.2, 23.47, 109.9, 12.5, 1., "KN08,dB96", 0., 4.0341, 7.7527, 0.3, "--", 0.5709, 0., 4.8269, 17., 8.2451, 0.58893, 8.2451, 0.58893, 0.63868}, { "F563-V1", 10., 54., 10.8, 1., 60., 10., 1.54, 0.165, 5.01, 9.75, 3.79, 40.63, 0.61, 6.83, 0., 0., 3., "dB97,dB96", 0., 1.3779, 6.7324, 0.73035, "--", 1.1247, 0., 1.936, 6., 0.7191, 0.2397, 0.7191, 0.2397, 0.24962}, { "F563-V2", 10., 59.7, 11.9, 1., 29., 10., 2.986, 0.267, 4.49, 23.6, 2.43, 146.16, 2.169, 11.37, 116.6, 9.4, 1., "dB01,dB96", 0., 2.8571, 8.0914, 0.8, "--", 2.3888, 0., 5.2736, 10., 1.3231, 0.18901, 1.3231, 0.18901, 0.19205}, { "F565-V2", 10., 51.8, 10.4, 1., 60., 10., 0.559, 0.098, 3.57, 6.93, 2.17, 40.26, 0.699, 7.31, 0., 0., 2., "dB97,dB96", 0., 5.2408, 7.3414, 0.3, "--", 0.1677, 0., 1.0974, 7., 0.26052, 0.065129, 0.26052, 0.065129, 0.067354}, { "F567-2", 9., 79., 11.8, 1., 20., 10., 2.134, 0.305, 5.43, 11.5, 3.08, 46.65, 2.449, 14.94, 0., 0., 3., "dB97,dB96", 0., 2.5198, 7.2966, 0.8, "--", 1.7072, 0., 4.9644, 5., 1.1197, 0.55983, 1.1197, 0.55983, 0.60424}, { "F568-1", 5., 90.7, 9.7, 1., 26., 5., 6.252, 0.564, 7., 20.36, 5.18, 57.13, 4.498, 16.31, 0., 0., 1., "dB01,dB96", 0., 3.8563, 7.9556, 0.3, "--", 1.8756, 0., 7.8579, 12., 0.78331, 0.087034, 0.78331, 0.087034, 0.088066}, { "F568-3", 7., 82.4, 8.24, 1., 40., 10., 8.346, 0.592, 7.47, 23.81, 4.99, 132.08, 3.195, 16.14, 0., 0., 1., "KN08,dB96", 0., 6.3837, 7.3689, 0.3, "--", 2.5038, 0., 6.7532, 18., 15.753, 1.0502, 15.753, 1.0502, 1.0465}, { "F568-V1", 7., 80.6, 8.06, 1., 40., 10., 3.825, 0.384, 4.4, 31.39, 2.85, 90.54, 2.491, 14.38, 112.3, 15.8, 1., "dB01,dB96", 0., 2.9531, 8.0825, 0.3, "--", 1.1475, 0., 4.4605, 15., 0.67754, 0.056462, 0.67754, 0.056462, 0.056936}, { "F571-8", 5., 53.3, 10.7, 1., 85., 5., 10.164, 0.412, 1.4, 825.71, 3.56, 87.26, 1.782, 24.55, 139.7, 4.3, 1., "dB01,dB96", 0., 7.7867, 7.5182, 0.3, "--", 3.0492, 0., 5.4193, 13., 29.91, 2.991, 29.91, 2.991, 3.7431}, { "F571-V1", 7., 80.1, 8., 1., 30., 10., 1.849, 0.267, 4.38, 15.3, 2.47, 64.39, 1.217, 10.1, 83.6, 3.5, 2., "dB97,dB96", 0., 5.1574, 7.2991, 0.3, "--", 0.5547, 0., 2.1733, 7., 0.13551, 0.033878, 0.13551, 0.033878, 0.035633}, { "F574-1", 7., 96.8, 9.68, 1., 65., 10., 6.537, 0.596, 5.87, 29.98, 4.46, 128.48, 3.524, 16.19, 97.8, 4.1, 1., "dB01,dB96", 0., 3.4343, 7.7836, 0.3, "--", 1.9611, 0., 6.648, 14., 0.78392, 0.071265, 0.78392, 0.071265, 0.071628}, { "F574-2", 9., 89.1, 8.91, 1., 30., 10., 2.877, 0.384, 6.48, 10.89, 3.76, 41.38, 1.701, 12.61, 0., 0., 3., "dB97,dB96", 0., 3.7379, 6.4, 0.3, "--", 0.8631, 0., 3.1254, 5., 0.06847, 0.034235, 0.06847, 0.034235, 0.033189}, { "F579-V1", 5., 89.5, 8.95, 1., 26., 10., 11.848, 0.742, 5.76, 56.6, 3.37, 201.76, 2.245, 20.96, 112.1, 13.4, 1., "dB01,dB96", 0., 1.5037, 8.5162, 0.8, "--", 9.4784, 0., 12.464, 14., 2.6127, 0.23751, 2.6127, 0.23751, 0.23095}, { "F583-1", 9., 35.4, 8.85, 1., 63., 5., 0.986, 0.093, 3.74, 11.19, 2.36, 60.93, 2.126, 15.65, 85.8, 3.6, 1., "KN08,dB96", 0., 4.4685, 7.4397, 0.3, "--", 0.2958, 0., 3.1234, 25., 4.1381, 0.18809, 4.1381, 0.18809, 0.21424}, { "F583-4", 5., 53.3, 10.7, 1., 55., 10., 1.715, 0.185, 3.31, 24.94, 1.93, 83.34, 0.641, 7.8, 0., 0., 1., "KN08,dB96", 0., 2.9221, 7.4691, 0.8, "--", 1.372, 0., 2.2245, 12., 4.2843, 0.47604, 4.2843, 0.47604, 0.44331}, { "IC2574", 9., 3.91, 0.2, 2., 75., 7., 1.016, 0.012, 3.18, 15.88, 2.78, 80.32, 1.036, 10.81, 66.4, 2., 2., "Sa96,MC94", 0., 18.377, 6.4799, 0.8, "--", 0.8128, 0., 2.1907, 34., 69.562, 2.2439, 69.562, 2.2439, 2.1089}, { "KK98-251", 10., 6.8, 2.04, 1., 59., 5., 0.085, 0.007, 1.28, 7.89, 1.34, 52.1, 0.115, 2.9, 33.7, 1.6, 2., "BC04", 0., 3.2558, 7.1223, 0.3, "--", 0.0255, 0., 0.17845, 15., 3.8315, 0.31929, 3.8315, 0.31929, 0.3111}, { "NGC0024", 5., 7.3, 0.36, 2., 64., 3., 3.889, 0.036, 2.01, 151.65, 1.34, 1182.6, 0.676, 7.29, 106.3, 7.9, 1., "Di08,Ch06", 0., 1.4571, 8.6631, 0.3, "--", 1.1667, 0., 2.0658, 29., 19.385, 0.74556, 19.385, 0.74556, 0.73142}, { "NGC0055", 9., 2.11, 0.11, 2., 77., 3., 4.628, 0.013, 3.67, 54.55, 6.11, 391.59, 1.565, 10.24, 85.6, 5., 2., "Sa96,Pu91", 0., 6.1507, 7.1608, 0.3, "--", 1.3884, 0., 3.4698, 21., 4.4893, 0.2494, 4.4893, 0.2494, 0.25182}, { "NGC0100", 6., 13.5, 4.05, 1., 89., 1., 3.232, 0.063, 2.81, 64.99, 1.66, 1193.5, 1.99, 16.36, 88.1, 6.4, 1., "dB02,Rh96", 0., 4.0932, 7.5587, 0.33825, "--", 1.0932, 0., 3.7399, 21., 1.504, 0.083557, 1.504, 0.083557, 0.084524}, { "NGC0247", 7., 3.7, 0.19, 2., 74., 3., 7.332, 0.027, 5.87, 33.79, 3.74, 506.79, 1.746, 12.79, 104.9, 8., 2., "Sa96,Ca90", 0., 3.1185, 7.6391, 0.8, "--", 5.8656, 0., 8.1878, 26., 94.288, 4.0995, 94.288, 4.0995, 3.9745}, { "NGC0289", 4., 20.8, 5.2, 1., 46., 5., 72.065, 0.465, 2.69, 1587.9, 6.74, 69.96, 27.469, 49.51, 163., 8., 2., "Wa97", 0., 16.427, 6.8182, 0.8, "--", 57.652, 0., 94.186, 28., 49.937, 1.9975, 49.937, 1.9975, 2.0886}, { "NGC0300", 7., 2.08, 0.1, 2., 42., 10., 2.922, 0.008, 1.77, 147.51, 1.75, 437.35, 0.936, 9.2, 93.3, 7., 2., "Sa96,CP90", 0., 4.5994, 7.4867, 0.8, "--", 2.3376, 0., 3.5825, 25., 11.246, 0.51117, 11.246, 0.51117, 0.50758}, { "NGC0801", 5., 80.7, 8.07, 1., 80., 1., 312.57, 3.455, 7.76, 818.14, 8.72, 1558.9, 23.201, 44.99, 220.1, 6.2, 1., "Sa96,Br92", 0., 39.319, 6.2386, 0.6618, "--", 206.86, 0., 237.72, 13., 56.753, 5.6753, 56.753, 5.6753, 6.5151}, { "NGC1003", 6., 11.4, 3.42, 1., 67., 5., 6.82, 0.075, 2.76, 140.87, 1.61, 1345.3, 5.88, 33.33, 109.8, 4.2, 1., "Sa96,Br92", 0., 11.869, 6.8217, 0.8, "--", 5.456, 0., 13.276, 36., 108.09, 3.2754, 108.09, 3.2754, 3.1549}, { "NGC1090", 4., 37., 9.25, 1., 64., 3., 72.045, 0.796, 6.36, 283.68, 3.53, 2055.1, 8.783, 30.49, 164.4, 3.7, 1., "Ge04", 0., 4.8796, 7.8812, 0.3, "--", 21.613, 0., 33.295, 24., 28.123, 1.3392, 28.123, 1.3392, 1.3424}, { "NGC1705", 11., 5.73, 0.29, 2., 80., 10., 0.533, 0.01, 0.49, 347.4, 0.39, 587.26, 0.139, 2.36, 71.9, 4.3, 3., "Le14", 0., 0.90007, 8.6703, 0.8, "--", 0.4264, 0., 0.61127, 14., 5.7468, 0.52244, 5.7468, 0.52244, 0.41985}, { "NGC2366", 10., 3.27, 0.16, 2., 68., 5., 0.236, 0.005, 1.08, 31.98, 0.65, 113.98, 0.647, 6.94, 50.2, 3.2, 3., "Le14", 0., 2.3406, 7.5376, 0.3, "--", 0.0708, 0., 0.93131, 26., 15.96, 0.69393, 15.96, 0.69393, 0.73419}, { "NGC2403", 6., 3.16, 0.16, 2., 63., 3., 10.041, 0.028, 2.16, 341.06, 1.39, 1408.7, 3.199, 15.11, 131.2, 4.9, 1., "Da06,Fr02", 0., 5.8395, 7.5078, 0.78587, "--", 7.8909, 0., 12.146, 73., 800.38, 11.434, 800.38, 11.434, 11.687}, { "NGC2903", 4., 6.6, 1.98, 1., 66., 3., 81.863, 0.151, 4.54, 632.16, 2.33, 1193.5, 2.552, 13.76, 184.6, 5.6, 1., "Be91,Be87", 0., 4.2231, 8.1007, 0.36116, "--", 29.566, 0., 32.96, 34., 209.11, 6.7456, 209.11, 6.7456, 16.069}, { "NGC2915", 11., 4.06, 0.2, 2., 56., 4., 0.641, 0.008, 0.53, 347.4, 0.55, 313.93, 0.508, 7.16, 83.5, 6.3, 2., "El10", 0., 1.9875, 8.1548, 0.3, "--", 0.1923, 0., 0.86794, 30., 12.119, 0.44886, 12.119, 0.44886, 0.6102}, { "NGC2976", 5., 3.58, 0.18, 2., 61., 10., 3.371, 0.019, 1.31, 308.2, 1.01, 1502.5, 0.172, 3.04, 85.4, 3.3, 2., "Si03", 0., 3.0647, 8.0053, 0.42302, "--", 1.426, 0., 1.6548, 27., 7.4707, 0.31128, 7.4707, 0.31128, 0.32825}, { "NGC2998", 5., 68.1, 10.2, 1., 58., 2., 150.9, 2.085, 7.06, 479.55, 6.2, 774.16, 23.451, 43.58, 209.9, 8.1, 1., "Sa96,Br92", 0., 19.334, 6.7851, 0.8, "--", 120.72, 0., 151.91, 13., 29.852, 2.9852, 29.852, 2.9852, 2.2769}, { "NGC3109", 9., 1.33, 0.07, 2., 70., 5., 0.194, 0.002, 1.64, 11.4, 1.56, 140.87, 0.477, 6., 66.2, 2.6, 1., "Be91,JC90", 0., 4.504, 7.3492, 0.3, "--", 0.0582, 0., 0.69261, 25., 4.0058, 0.18208, 4.0058, 0.18208, 0.18029}, { "NGC3198", 5., 13.8, 1.4, 3., 73., 3., 38.279, 0.212, 5.84, 178.99, 3.14, 1602.6, 10.869, 35.66, 150.1, 3.9, 1., "Da06,Be91,Be87", 0., 9.5666, 7.1866, 0.71363, "--", 27.317, 0., 41.773, 43., 56.164, 1.4041, 56.164, 1.4041, 1.4353}, { "NGC3521", 4., 7.7, 2.3, 1., 75., 5., 84.836, 0.156, 2.45, 2232.7, 2.4, 2112.7, 4.154, 18.85, 213.7, 15.9, 1., "Da06,Sa96", 0., 14.349, 7.2367, 0.5812, "--", 49.307, 0., 54.832, 41., 7.1393, 0.18788, 7.1393, 0.18788, 0.18743}, { "NGC3726", 5., 18., 2.5, 4., 53., 2., 70.234, 0.388, 7.52, 198.08, 3.4, 1789.9, 6.473, 22.2, 168., 6.2, 2., "VS01,SV98", 0., 44.389, 6.3421, 0.64659, "--", 45.413, 0., 54.022, 12., 17.442, 1.938, 17.442, 1.938, 2.0101}, { "NGC3741", 10., 3.21, 0.17, 2., 70., 4., 0.028, 0.001, 0.32, 42.94, 0.2, 143.49, 0.182, 4.2, 50.1, 2.1, 1., "Ge07,Bm05", 0., 2.8703, 7.3922, 0.8, "--", 0.0224, 0., 0.26446, 21., 15.165, 0.84253, 15.165, 0.84253, 0.75077}, { "NGC3769", 3., 18., 2.5, 4., 70., 2., 18.679, 0.189, 2.18, 626.37, 3.38, 160.26, 5.529, 22.57, 118.6, 8.4, 2., "VS01,SV98", 0., 5.393, 7.5384, 0.38621, "--", 7.214, 0., 14.568, 12., 5.0817, 0.56463, 5.0817, 0.56463, 0.56776}, { "NGC3877", 5., 18., 2.5, 4., 76., 1., 72.535, 0.401, 4.39, 598.18, 2.53, 3410.6, 1.483, 11.47, 168.4, 5.1, 2., "VS01,SV98", 0., 2.8177, 8.2672, 0.3, "--", 21.76, 0., 23.733, 13., 24.987, 2.4987, 24.987, 2.4987, 4.0433}, { "NGC3893", 5., 18., 2.5, 4., 49., 2., 58.525, 0.377, 2.43, 1573.4, 2.38, 2055.1, 5.799, 20.84, 174., 8.9, 1., "VS01,SV98", 0., 3.6986, 8.1606, 0.38749, "--", 22.678, 0., 30.391, 10., 1.383, 0.19758, 1.383, 0.19758, 0.19765}, { "NGC3917", 6., 18., 2.5, 4., 79., 2., 21.966, 0.202, 5.56, 112.94, 2.63, 1227., 1.888, 14.08, 135.9, 4.1, 1., "VS01,SV98", 0., 4.5517, 7.8043, 0.3, "--", 6.5898, 0., 9.1008, 17., 14.784, 1.056, 14.784, 1.056, 1.2309}, { "NGC3949", 4., 18., 2.5, 4., 55., 2., 38.067, 0.28, 2.39, 1058.8, 3.59, 185.71, 3.371, 13.72, 163., 7.1, 2., "VS01,SV98", 0., 1000., 7.1603, 0.53381, "--", 20.321, 0., 24.804, 7., 1.5965, 0.39913, 1.5965, 0.39913, 0.40815}, { "NGC3953", 4., 18., 2.5, 4., 62., 1., 141.3, 0.521, 6.17, 587.26, 4.89, 1999.1, 2.832, 17.38, 220.8, 6.1, 1., "VS01,SV98", 0., 3.2569, 8.4152, 0.3, "--", 42.39, 0., 46.157, 8., 0.37248, 0.074496, 0.37249, 0.074498, 0.074188}, { "NGC3972", 4., 18., 2.5, 4., 77., 1., 14.353, 0.172, 3.73, 164.75, 2.18, 1587.9, 1.214, 10.05, 132.7, 2.9, 1., "VS01,SV98", 0., 3.5541, 7.9741, 0.3, "--", 4.3059, 0., 5.9205, 10., 4.5226, 0.64609, 4.5226, 0.64609, 0.63672}, { "NGC3992", 4., 23.7, 2.3, 5., 56., 2., 226.93, 0.836, 9.99, 360.44, 4.96, 3257.1, 16.599, 32.75, 241., 5.2, 1., "VS01,SV98", 0., 5.7326, 8.1576, 0.3, "--", 68.08, 0., 90.156, 9., 3.3104, 0.55173, 3.3104, 0.55173, 0.5661}, { "NGC4010", 7., 18., 2.5, 4., 89., 1., 17.193, 0.19, 6.63, 14.75, 2.81, 2611.1, 2.832, 17.59, 125.8, 4.7, 2., "VS01,SV98", 0., 5.4002, 7.6066, 0.3, "--", 5.1579, 0., 8.9245, 12., 12.832, 1.4258, 12.832, 1.4258, 1.3512}, { "NGC4051", 4., 18., 2.5, 4., 49., 3., 95.268, 0.439, 6.87, 319.76, 4.65, 1320.8, 2.697, 15.13, 157., 5.5, 2., "VS01,SV98", 0., 3.0284, 8.037, 0.36769, "--", 35.029, 0., 38.616, 7., 2.2196, 0.55489, 2.2196, 0.55489, 0.55381}, { "NGC4068", 10., 4.37, 0.22, 2., 44., 6., 0.236, 0.005, 1.11, 30.26, 0.59, 261.11, 0.154, 3.18, 0., 0., 2., "Le14", 0., 4.8446, 7.2641, 0.3, "--", 0.0708, 0., 0.27562, 6., 0.56305, 0.18768, 0.56305, 0.18768, 0.20133}, { "NGC4085", 5., 18., 2.5, 4., 82., 2., 21.724, 0.2, 2., 856.7, 1.65, 5021.5, 1.349, 10.16, 131.5, 4.8, 2., "VS01,SV98", 0., 4.5409, 7.8272, 0.3, "--", 6.5172, 0., 8.3114, 7., 10.457, 2.6143, 10.457, 2.6143, 3.2103}, { "NGC4088", 4., 18., 2.5, 4., 69., 2., 107.29, 0.494, 6.1, 457.96, 2.58, 3988.7, 8.226, 22.25, 171.7, 6.9, 1., "VS01,SV98", 0., 43.688, 6.4982, 0.44068, "--", 47.279, 0., 58.219, 12., 4.4247, 0.49163, 4.4247, 0.49163, 0.47703}, { "NGC4100", 4., 18., 2.5, 4., 73., 2., 59.394, 0.328, 4.93, 388., 2.15, 8970.8, 3.102, 18.06, 158.2, 5., 1., "VS01,SV98", 0., 3.2627, 8.2896, 0.37782, "--", 22.44, 0., 26.566, 24., 11.186, 0.53265, 11.186, 0.53265, 0.54782}, { "NGC4183", 6., 18., 2.5, 4., 82., 2., 10.838, 0.15, 4.47, 86.46, 2.79, 1098.6, 3.506, 16.07, 110.6, 5.4, 1., "VS01,SV98", 0., 3.2017, 7.9152, 0.3, "--", 3.2514, 0., 7.9144, 23., 7.4232, 0.37116, 7.4232, 0.37116, 0.34544}, { "NGC4214", 10., 2.87, 0.14, 2., 15., 10., 1.141, 0.008, 0.7, 363.77, 0.51, 1308.7, 0.486, 5.84, 80.1, 5.8, 2., "Le14", 0., 1.7456, 8.1815, 0.8, "--", 0.9128, 0., 1.5592, 14., 13.93, 1.2663, 13.93, 1.2663, 0.85039}, { "NGC4389", 4., 18., 2.5, 4., 50., 4., 21.328, 0.216, 4.05, 207.41, 2.79, 322.72, 0.539, 6.81, 0., 0., 3., "VS01,SV98", 0., 1000., 6.7654, 0.3, "--", 6.3984, 0., 7.1153, 6., 23.32, 7.7734, 23.32, 7.7734, 12.259}, { "NGC4559", 6., 9., 2.7, 1., 67., 1., 19.377, 0.107, 3.82, 211.27, 2.1, 1602.6, 5.811, 21.16, 121.2, 5.1, 1., "Ba05", 0., 8.0277, 7.1421, 0.55832, "--", 10.819, 0., 18.547, 32., 6.8418, 0.23593, 6.8418, 0.23593, 0.23651}, { "NGC5055", 4., 9.9, 0.3, 2., 55., 6., 152.92, 0.282, 4.18, 1383., 3.2, 3348.3, 11.722, 35.06, 179., 4.9, 1., "Ba06,Bl04", 0., 10.582, 7.2632, 0.43266, "--", 66.163, 0., 81.753, 28., 51.543, 2.0617, 51.543, 2.0617, 2.0762}, { "NGC5371", 4., 39.7, 9.92, 1., 53., 2., 340.39, 1.881, 9.8, 560.83, 7.44, 1395.8, 11.18, 30.03, 209.5, 3.9, 1., "Sa96,Be87", 0., 1000., 5.6415, 0.66373, "--", 225.93, 0., 240.8, 19., 137.34, 8.5835, 137.34, 8.5835, 8.24}, {"NGC5585", 7., 7.06, 2.12, 1., 51., 2., 2.943, 0.033, 2.27, 90.54, 1.53, 297.05, 1.683, 10.92, 90.3, 2.4, 1., "Bl99,Sa96,Co91", 0., 5.3213, 7.3481, 0.61101, "--", 1.7982, 0., 4.0366, 24., 94.706, 4.5098, 94.706, 4.5098, 4.3474}, { "NGC5907", 5., 17.3, 0.9, 2., 88., 2., 175.42, 0.646, 7.88, 449.6, 5.34, 8646.3, 21.025, 0., 215., 2.9, 1., "Sa96,SA87", 0., 5.3459, 8.0831, 0.3, "--", 52.628, 0., 80.591, 19., 134.79, 8.4245, 134.79, 8.4245, 7.941}, { "NGC6015", 6., 17., 5.1, 1., 60., 2., 32.129, 0.237, 3.92, 331.76, 2.3, 1926.8, 5.834, 21.43, 154.1, 7., 2., "VM97", 0., 2.5178, 8.4411, 0.3, "--", 9.6387, 0., 17.398, 44., 544.23, 13.274, 544.23, 13.274, 12.783}, { "NGC6503", 6., 6.26, 0.31, 2., 74., 2., 12.845, 0.059, 1.62, 774.16, 2.16, 398.87, 1.744, 14.05, 116.3, 2.4, 1., "Be91,Be87", 0., 5.0144, 7.5585, 0.56697, "--", 7.2827, 0., 9.6022, 31., 65.778, 2.3492, 65.778, 2.3492, 2.298}, {"NGC6789", 11., 3.52, 0.18, 2., 43., 7., 0.1, 0.003, 0.52, 59.27, 0.31, 319.76, 0.017, 0.97, 0., 0., 2., "Le14", 0., 1.8861, 8.6646, 0.8, "--", 0.08, 0., 0.10261, 4., 0.44407, 0.44407, 0.44407, 0.44407, 0.38848}, { "NGC7793", 7., 3.61, 0.18, 2., 47., 9., 7.05, 0.026, 2.19, 233.79, 1.21, 1068.6, 0.861, 7.35, 0., 0., 1., "Di08,Sa96,CP90", 0., 3.4737, 7.5963, 0.74594, "--", 5.2589, 0., 6.404, 46., 32.385, 0.75315, 32.385, 0.75315, 0.91912}, { "PGC51017", 11., 13.6, 1.4, 2., 66., 3., 0.155, 0.014, 1.28, 15.03, 0.53, 93.94, 0.201, 4.29, 18.6, 1.3, 3., "Le14", 0., 0.01, 11.895, 0.3, "--", 0.0465, 0., 0.31383, 6., 0.067213, 0.022404, 0.067222, 0.022407, 0.022412}, { "UGC00128", 8., 64.5, 9.7, 1., 57., 10., 12.02, 0.565, 9.63, 20.36, 5.95, 88.89, 7.431, 31.27, 129.3, 2.8, 1., "VB99,VH93", 0., 8.0448, 7.2869, 0.3, "--", 3.606, 0., 13.489, 22., 156.19, 8.2206, 156.19, 8.2206, 7.8075}, { "UGC00191", 9., 17.1, 5.1, 1., 45., 5., 2.004, 0.063, 2.5, 50.21, 1.58, 207.41, 1.343, 10.03, 0., 0., 1., "KN08,vZ97", 0., 1.921, 8.0867, 0.3, "--", 0.6012, 0., 2.3874, 9., 26.651, 4.4419, 26.651, 4.4419, 4.3344}, { "UGC00634", 9., 30.9, 7.7, 1., 37., 8., 2.989, 0.146, 4.26, 26.11, 2.45, 126.13, 3.663, 16.78, 0., 0., 2., "vZ97", 0., 6.5412, 7.3194, 0.3, "--", 0.8967, 0., 5.7685, 4., 0.54365, 0.54365, 0.54366, 0.54366, 0.55043}, { "UGC00731", 10., 12.5, 3.75, 1., 57., 3., 0.323, 0.019, 1.4, 25.63, 2.3, 82.57, 1.807, 11.57, 73.3, 2.3, 1., "Sw09,Sw02", 0., 2.3723, 7.7803, 0.8, "--", 0.2584, 0., 2.6617, 12., 5.5884, 0.62093, 5.5884, 0.62093, 0.61257}, { "UGC00891", 9., 10.2, 3.1, 1., 60., 5., 0.374, 0.017, 1.76, 19.09, 1.43, 113.98, 0.428, 6.23, 0., 0., 2., "vZ97", 0., 5.04, 7.1769, 0.3, "--", 0.1122, 0., 0.68144, 5., 0.39281, 0.1964, 0.39282, 0.19641, 0.20187}, { "UGC01230", 9., 53.7, 10.7, 1., 22., 10., 7.62, 0.379, 6.45, 28.63, 4.34, 69.32, 6.43, 26.29, 103.7, 6.1, 1., "dB02,VdH93", 0., 3.8951, 7.778, 0.3, "--", 2.286, 0., 10.838, 11., 2.2652, 0.28315, 2.2652, 0.28315, 0.30491}, { "UGC01281", 8., 5.27, 0.24, 2., 90., 1., 0.353, 0.009, 2.01, 13.83, 1.63, 135.78, 0.294, 5.26, 55.2, 3.5, 1., "dB02,Sw02", 0., 2.8744, 7.5407, 0.3, "--", 0.1059, 0., 0.49692, 25., 6.5124, 0.29602, 6.5124, 0.29602, 0.41914}, { "UGC02023", 10., 10.4, 3.1, 1., 19., 10., 1.308, 0.033, 2.73, 27.59, 1.55, 121.57, 0.477, 6.5, 0., 0., 2., "Sw09,Sw02", 0., 1000., 7.0064, 0.3, "--", 0.3924, 0., 1.0268, 5., 0.037794, 0.018897, 0.037795, 0.018897, 0.018715}, { "UGC02259", 8., 10.5, 3.1, 1., 41., 3., 1.725, 0.038, 2.4, 47.08, 1.62, 172.52, 0.494, 7.28, 86.2, 2.9, 2., "Be91,Ca88", 0., 1.5701, 8.3463, 0.3, "--", 0.5175, 0., 1.1745, 8., 12.502, 2.5004, 12.502, 2.5004, 2.3677}, { "UGC02455", 10., 6.92, 2.08, 1., 51., 5., 3.649, 0.034, 1.49, 254., 0.99, 795.85, 0.803, 7.11, 0., 0., 3., "Sw09,Sw02", 0., 1000., 6.0854, 0.3, "--", 1.0947, 0., 2.1627, 8., 62.774, 12.555, 62.774, 12.555, 17.744}, { "UGC04278", 7., 9.51, 2.85, 1., 90., 3., 1.307, 0.026, 2.46, 34.11, 2.21, 377.42, 1.116, 8.9, 91.4, 4.8, 1., "dB02,Sw02", 0., 8.6536, 7.2329, 0.8, "--", 1.0456, 0., 2.5299, 25., 10.578, 0.48083, 10.578, 0.48083, 0.47438}, { "UGC04305", 10., 3.45, 0.17, 2., 40., 10., 0.736, 0.007, 1.23, 76.71, 1.16, 88.07, 0.69, 7.41, 34.5, 2.7, 3., "Sw09,Sw02", 0., 0.61794, 7.5394, 0.61219, "--", 0.45057, 0., 1.3683, 22., 33.247, 1.7498, 33.247, 1.7498, 1.7673}, { "UGC04325", 9., 9.6, 2.88, 1., 41., 3., 2.026, 0.035, 2.79, 41., 1.86, 213.22, 0.678, 6.61, 90.9, 2.7, 1., "Sw09,Sw02", 0., 1.3766, 8.5098, 0.3, "--", 0.6078, 0., 1.5095, 8., 2.3648, 0.47297, 2.3648, 0.47297, 0.47903}, { "UGC04483", 10., 3.34, 0.31, 2., 58., 3., 0.013, 0.001, 0.26, 29.71, 0.18, 82.57, 0.032, 1.46, 0., 0., 2., "Le14,Le12", 0., 0.49584, 8.1762, 0.3, "--", 0.0039, 0., 0.04646, 8., 1.3962, 0.27923, 1.3962, 0.27923, 0.29153}, { "UGC04499", 8., 12.5, 3.75, 1., 50., 3., 1.552, 0.043, 2.69, 33.79, 1.73, 127.3, 1.1, 8.67, 72.8, 2.4, 1., "Sw09,Sw02", 0., 2.7421, 7.6751, 0.3, "--", 0.4656, 0., 1.9286, 9., 1.1902, 0.19837, 1.1902, 0.19837, 0.20215}, { "UGC05005", 10., 53.7, 10.7, 1., 41., 10., 4.1, 0.283, 5.02, 25.63, 3.2, 65.59, 3.093, 21.61, 98.9, 7.2, 1., "dB02,VH93", 0., 10.644, 6.81, 0.50046, "--", 2.0519, 0., 6.1656, 11., 0.11765, 0.014706, 0.11765, 0.014706, 0.014761}, { "UGC05414", 10., 9.4, 2.82, 1., 55., 3., 1.123, 0.028, 2.33, 32.87, 1.47, 127.3, 0.574, 6.65, 0., 0., 1., "Sw09,Sw02", 0., 3.6991, 7.3714, 0.64449, "--", 0.72376, 0., 1.4872, 6., 0.30351, 0.10117, 0.30351, 0.10117, 0.101}, {"UGC05716", 9., 21.3, 5.3, 1., 54., 10., 0.588, 0.042, 1.84, 27.59, 1.14, 90.54, 1.094, 10.64, 73.1, 1.2, 2., "vZ97", 0., 3.5574, 7.4625, 0.8, "--", 0.4704, 0., 1.9254, 12., 33.054, 3.6726, 33.054, 3.6727, 3.3911}, { "UGC05721", 7., 6.18, 1.85, 1., 61., 5., 0.531, 0.011, 0.6, 233.79, 0.38, 913.76, 0.562, 6.74, 79.7, 6.6, 1., "dB02,Sw02", 0., 1.1098, 8.5952, 0.68168, "--", 0.36197, 0., 1.1094, 23., 7.8674, 0.39337, 7.8674, 0.39337, 0.40189}, { "UGC05750", 8., 58.7, 11.7, 1., 64., 10., 3.336, 0.264, 8.8, 6.87, 3.46, 124.98, 1.099, 16.79, 0., 0., 1., "dB01,VdH93", 0., 7.241, 6.959, 0.3, "--", 1.0008, 0., 2.4625, 11., 1.0257, 0.12821, 1.0257, 0.12821, 0.14972}, { "UGC05764", 10., 7.47, 2.24, 1., 60., 10., 0.085, 0.006, 1.2, 9.31, 1.17, 33.79, 0.163, 3.51, 0., 0., 2., "vZ97", 0., 0.97886, 8.3643, 0.3, "--", 0.0255, 0., 0.24229, 10., 20.013, 2.859, 20.013, 2.859, 2.9885}, { "UGC05829", 10., 8.64, 2.59, 1., 34., 10., 0.564, 0.019, 2.91, 10.59, 1.99, 63.22, 1.023, 7.87, 0., 0., 2., "Sw09,Sw02", 0., 3.4668, 7.3236, 0.8, "--", 0.4512, 0., 1.8118, 11., 1.9371, 0.24214, 1.9371, 0.24214, 0.23384}, { "UGC05918", 10., 7.66, 2.3, 1., 46., 5., 0.233, 0.011, 2.63, 5.36, 1.66, 24.94, 0.297, 5.9, 0., 0., 2., "Sw09,Sw02", 0., 1.4771, 7.7864, 0.3, "--", 0.0699, 0., 0.46491, 8., 0.24529, 0.049059, 0.2453, 0.049059, 0.049263}, { "UGC05986", 9., 8.63, 2.59, 1., 90., 3., 4.695, 0.048, 3.12, 76.71, 1.67, 1725.2, 2.667, 16.53, 113., 4.1, 2., "Sw09,Sw02", 0., 3.3111, 7.9572, 0.50609, "--", 2.3761, 0., 5.9232, 15., 11.319, 0.94326, 11.319, 0.94326, 0.98003}, { "UGC05999", 10., 47.7, 9.5, 1., 22., 10., 3.384, 0.231, 4.83, 22.95, 3.22, 51.62, 2.022, 15.26, 0., 0., 2., "dB97,VH93", 0., 7.1542, 7.1504, 0.3, "--", 1.0152, 0., 3.7045, 5., 2.3168, 1.1584, 2.3168, 1.1584, 1.1992}, { "UGC06399", 9., 18., 2.5, 4., 75., 2., 2.296, 0.072, 3.45, 30.82, 2.05, 311.05, 0.674, 8.8, 85., 3.8, 1., "VS01,SV98", 0., 3.3138, 7.7232, 0.3, "--", 0.6888, 0., 1.5852, 9., 0.29692, 0.049486, 0.29692, 0.049487, 0.050418}, { "UGC06446", 7., 12., 3.6, 1., 51., 3., 0.988, 0.032, 2.06, 37.05, 1.49, 86.46, 1.379, 10.33, 82.2, 4.3, 1., "VS01,SV98", 0., 2.1119, 7.998, 0.8, "--", 0.7904, 0., 2.6245, 17., 6.1485, 0.43918, 6.1485, 0.43918, 0.41969}, { "UGC06628", 9., 15.1, 4.53, 1., 20., 10., 3.739, 0.076, 4.14, 34.74, 2.82, 103., 1.5, 10.47, 41.8, 6.4, 2., "Sw09,Sw02", 0., 0.80846, 8.0226, 0.3, "--", 1.1217, 0., 3.1167, 7., 0.85283, 0.21321, 0.85283, 0.21321, 0.2244}, { "UGC06667", 6., 18., 2.5, 4., 89., 1., 1.397, 0.066, 3.5, 18.06, 5.15, 614.94, 0.809, 8.59, 83.8, 3.1, 1., "VS01,SV98", 0., 3.1067, 7.7825, 0.3, "--", 0.4191, 0., 1.4951, 9., 0.64373, 0.10729, 0.64373, 0.10729, 0.10815}, { "UGC06818", 9., 18., 2.5, 4., 75., 3., 1.588, 0.057, 2.12, 56.08, 1.39, 286.31, 1.079, 6.96, 71.2, 4., 2., "VS01,SV98", 0., 10.369, 7.0443, 0.3, "--", 0.4764, 0., 1.9115, 8., 5.5289, 1.1058, 5.5289, 1.1058, 1.0808}, { "UGC06917", 9., 18., 2.5, 4., 56., 2., 6.832, 0.12, 4.52, 53.07, 2.76, 261.11, 2.023, 12.67, 108.7, 3.5, 1., "VS01,SV98", 0., 3.33, 7.8554, 0.31887, "--", 2.1785, 0., 4.8691, 11., 1.5996, 0.19995, 1.5996, 0.19995, 0.19925}, { "UGC06923", 10., 18., 2.5, 4., 65., 2., 2.89, 0.077, 1.66, 166.28, 1.44, 347.4, 0.809, 6.75, 79.6, 2.5, 2., "VS01,SV98", 0., 2.7182, 7.8178, 0.3, "--", 0.867, 0., 1.943, 6., 1.4553, 0.4851, 1.4553, 0.4851, 0.50452}, { "UGC06930", 7., 18., 2.5, 4., 32., 5., 8.932, 0.14, 4.38, 73.93, 3.94, 189.16, 3.237, 16.76, 107.2, 5.1, 1., "VS01,SV98", 0., 3.4322, 7.8152, 0.3, "--", 2.6796, 0., 6.9848, 10., 1.1713, 0.16733, 1.1713, 0.16733, 0.16393}, { "UGC06983", 6., 18., 2.5, 4., 49., 1., 5.298, 0.102, 3.95, 53.56, 3.21, 121.57, 2.967, 16.07, 109., 5.8, 1., "VS01,SV98", 0., 3.6001, 7.7665, 0.73969, "--", 3.9189, 0., 7.865, 17., 6.1854, 0.44181, 6.1854, 0.44181, 0.46594}, { "UGC07089", 8., 18., 2.5, 4., 80., 3., 3.585, 0.089, 3.9, 37.4, 2.26, 520.99, 1.214, 9.29, 0., 0., 2., "VS01,SV98", 0., 13.199, 6.6873, 0.79775, "--", 2.8599, 0., 4.4746, 12., 1.1402, 0.12669, 1.1402, 0.12669, 0.12588}, { "UGC07125", 9., 19.8, 5.9, 1., 90., 3., 2.712, 0.08, 3.92, 28.11, 3.38, 103., 4.629, 23.04, 65.2, 2.1, 1., "Sw09,Sw02", 0., 4.3016, 7.092, 0.35499, "--", 0.96273, 0., 7.1193, 13., 2.6128, 0.26128, 2.6129, 0.26129, 0.26024}, { "UGC07151", 6., 6.87, 0.34, 2., 90., 3., 2.284, 0.025, 2.17, 76.71, 1.25, 965.67, 0.616, 6.39, 73.5, 2.8, 1., "Sw09,Sw02", 0., 1.8187, 7.8965, 0.76506, "--", 1.7474, 0., 2.5667, 11., 7.8387, 0.97984, 7.8387, 0.97984, 0.99738}, { "UGC07232", 10., 2.83, 0.17, 2., 59., 5., 0.113, 0.002, 0.46, 83.34, 0.29, 227.42, 0.046, 1.54, 0., 0., 2., "Sw09,Sw02", 0., 994.95, 8.077, 0.50581, "--", 0.057157, 0., 0.11834, 4., 0.22344, 0.22344, 0.22389, 0.22389, 0.21378}, { "UGC07261", 8., 13.1, 3.93, 1., 30., 10., 1.753, 0.048, 2.66, 39.16, 1.2, 566.02, 1.388, 10.1, 74.7, 3.4, 2., "Sw09,Sw02", 0., 1.4029, 8.2806, 0.3, "--", 0.5259, 0., 2.3719, 7., 1.1384, 0.28461, 1.1384, 0.28461, 0.28314}, { "UGC07323", 8., 8., 2.4, 1., 47., 3., 4.109, 0.042, 3.26, 61.49, 2.26, 283.68, 0.722, 7.14, 0., 0., 1., "Sw09,Sw02", 0., 8.5929, 7.0602, 0.77794, "--", 3.1966, 0., 4.1568, 10., 1.6435, 0.23479, 1.6435, 0.23479, 0.22561}, { "UGC07399", 8., 8.43, 2.53, 1., 55., 3., 1.156, 0.024, 1.27, 113.98, 1.64, 135.78, 0.745, 7.85, 103., 3.3, 1., "Sw09,Sw02", 0., 1.658, 8.4174, 0.8, "--", 0.9248, 0., 1.9156, 10., 5.7534, 0.82191, 5.7534, 0.82191, 0.80287}, { "UGC07524", 9., 4.74, 0.24, 2., 46., 3., 2.436, 0.025, 3.61, 29.71, 3.46, 106.86, 1.779, 12.11, 79.5, 3.6, 1., "Sw09,Sw02", 0., 3.7373, 7.4334, 0.78021, "--", 1.9006, 0., 4.2667, 31., 5.918, 0.21136, 5.918, 0.21136, 0.21201}, { "UGC07559", 10., 4.97, 0.25, 2., 61., 3., 0.109, 0.004, 0.98, 17.9, 0.58, 55.06, 0.169, 3.76, 0., 0., 2., "Sw09,Sw02", 0., 1.7001, 7.446, 0.3, "--", 0.0327, 0., 0.25747, 7., 0.39272, 0.098179, 0.39272, 0.098179, 0.098228}, { "UGC07577", 10., 2.59, 0.13, 2., 63., 3., 0.045, 0.002, 0.77, 11.94, 0.9, 54.55, 0.044, 2.07, 0., 0., 2., "Sw09,Sw02", 0., 993.81, 6.4463, 0.39488, "--", 0.01777, 0., 0.07629, 9., 0.82061, 0.13677, 0.82069, 0.13678, 0.10589}, { "UGC07603", 7., 4.7, 1.41, 1., 78., 3., 0.376, 0.008, 0.85, 81.81, 0.53, 520.99, 0.258, 4.37, 61.6, 2.8, 1., "Sw09,Sw02", 0., 1.3889, 8.2032, 0.3, "--", 0.1128, 0., 0.45594, 12., 1.5427, 0.17141, 1.5427, 0.17141, 0.17111}, { "UGC07608", 10., 8.21, 2.46, 1., 25., 10., 0.264, 0.012, 1.6, 16.48, 1.5, 46.65, 0.535, 6.73, 0., 0., 1., "Sw09,Sw02", 0., 2.8969, 7.692, 0.3, "--", 0.0792, 0., 0.79075, 8., 0.44589, 0.089179, 0.4459, 0.089179, 0.09856}, { "UGC07690", 10., 8.11, 2.43, 1., 41., 5., 0.858, 0.018, 0.86, 184.01, 0.57, 395.21, 0.39, 5.5, 57.4, 3.2, 2., "Sw09,Sw02", 0., 0.64742, 8.7079, 0.40564, "--", 0.34804, 0., 0.86674, 7., 0.54592, 0.13648, 0.54592, 0.13648, 0.13574}, { "UGC07866", 10., 4.57, 0.23, 2., 44., 5., 0.124, 0.004, 0.95, 21.92, 0.61, 97.46, 0.118, 3.3, 0., 0., 2., "Sw09,Sw02", 0., 0.94356, 7.8455, 0.3, "--", 0.0372, 0., 0.19414, 7., 0.32427, 0.081067, 0.32427, 0.081067, 0.080355}, { "UGC08286", 6., 6.5, 0.21, 2., 90., 3., 1.255, 0.018, 2.25, 39.52, 1.05, 1488.8, 0.642, 8.07, 82.4, 2.3, 1., "Sw09,Sw02", 0., 1.7173, 8.2407, 0.3, "--", 0.3765, 0., 1.2304, 17., 15.856, 1.1326, 15.856, 1.1326, 1.1244}, { "UGC08490", 9., 4.65, 0.53, 2., 50., 3., 1.017, 0.012, 1.14, 124.98, 0.67, 576.54, 0.72, 7.8, 78.6, 3.8, 1., "Sw09,Sw02", 0., 1.672, 8.2098, 0.8, "--", 0.8136, 0., 1.7712, 30., 12.758, 0.47251, 12.758, 0.47251, 0.4315}, { "UGC08550", 7., 6.7, 2., 1., 90., 3., 0.289, 0.009, 1.01, 45.38, 0.45, 1284.8, 0.288, 5.59, 56.9, 1.9, 1., "Sw09,Sw02", 0., 1.5231, 7.9718, 0.8, "--", 0.2312, 0., 0.61424, 11., 7.5157, 0.93946, 7.5157, 0.93946, 0.91832}, { "UGC08837", 10., 7.21, 0.36, 2., 80., 5., 0.501, 0.015, 2.25, 15.73, 1.72, 77.42, 0.32, 4.75, 0., 0., 2., "Sw09,Sw02", 0., 10.475, 6.8906, 0.3, "--", 0.1503, 0., 0.5759, 8., 1.6835, 0.3367, 1.6835, 0.3367, 0.32988}, { "UGC09037", 6., 83.6, 8.4, 1., 65., 5., 68.614, 1.769, 5.69, 334.83, 4.28, 841.07, 19.078, 39.72, 152.3, 9.6, 2., "Ha14", 0., 11.116, 7.1022, 0.3, "--", 20.584, 0., 45.958, 22., 24.168, 1.272, 24.168, 1.272, 1.5233}, { "UGC09992", 10., 10.7, 3.21, 1., 30., 10., 0.336, 0.017, 1.62, 20.18, 1.04, 73.25, 0.318, 5.45, 33.6, 3.3, 2., "Sw09,Sw02", 0., 0.50738, 8.2063, 0.8, "--", 0.2688, 0., 0.69174, 5., 0.072183, 0.036092, 0.072183, 0.036092, 0.035711}, { "UGC10310", 9., 15.2, 4.6, 1., 34., 6., 1.741, 0.053, 3.12, 28.37, 1.8, 158.79, 1.196, 9.58, 71.4, 3.9, 1., "Sw09,Sw02", 0., 2.2324, 7.7602, 0.8, "--", 1.3928, 0., 2.9835, 7., 0.37411, 0.093529, 0.37411, 0.093529, 0.093484}, { "UGC11455", 6., 78.6, 11.8, 1., 90., 1., 374.32, 3.792, 10.06, 571.26, 5.93, 9568.2, 13.335, 43.44, 269.4, 7.4, 1., "SG06", 0., 8.6446, 7.7977, 0.3, "--", 112.3, 0., 130.03, 36., 63.211, 1.9155, 63.211, 1.9155, 1.9925}, { "UGC11557", 8., 24.2, 6.05, 1., 30., 10., 12.101, 0.212, 4.18, 106.86, 2.75, 337.93, 2.605, 16.66, 0., 0., 2., "Sw02,dB01", 0., 6.4544, 7.0094, 0.3, "--", 3.6303, 0., 7.095, 12., 6.3093, 0.70103, 6.3093, 0.70103, 1.3547}, { "UGC11820", 9., 18.1, 5.43, 1., 45., 10., 0.97, 0.047, 2.74, 20.18, 2.08, 34.11, 1.977, 12.99, 0., 0., 1., "KN08,vZ97", 0., 6.5855, 7.0238, 0.8, "--", 0.776, 0., 3.4054, 10., 43.562, 6.2231, 43.562, 6.2231, 4.8635}, { "UGC12506", 6., 100.6, 10.1, 1., 86., 4., 139.57, 3.214, 12.36, 144.82, 7.38, 5608.3, 35.556, 59.01, 234., 16.8, 2., "Ha14", 0., 5.2823, 8.2064, 0.3, "--", 41.871, 0., 89.161, 31., 18.376, 0.6563, 18.376, 0.6563, 0.52215}, { "UGC12632", 9., 9.77, 2.93, 1., 46., 3., 1.301, 0.03, 3.94, 13.09, 2.42, 66.81, 1.744, 12.6, 71.7, 2.8, 1., "Sw09,Sw02", 0., 2.9609, 7.5651, 0.8, "--", 1.0408, 0., 3.3603, 15., 0.83745, 0.069788, 0.83746, 0.069788, 0.067438}, { "UGC12732", 9., 13.2, 4., 1., 39., 6., 1.667, 0.048, 3.12, 26.84, 1.98, 120.46, 3.66, 17.41, 0., 0., 1., "Sw09,Sw02", 0., 4.4466, 7.4278, 0.8, "--", 1.3336, 0., 6.2014, 16., 16.908, 1.3006, 16.908, 1.3006, 1.1888}, { "UGCA281", 11., 5.68, 0.28, 2., 67., 3., 0.194, 0.007, 1.57, 12.5, 1.72, 12.05, 0.062, 1.83, 0., 0., 3., "Le14", 0., 0.52269, 8.3737, 0.3, "--", 0.0582, 0., 0.14066, 7., 0.53835, 0.13459, 0.53835, 0.13459, 0.12969}, { "UGCA442", 9., 4.35, 0.22, 2., 64., 7., 0.14, 0.005, 1.71, 7.6, 1.18, 116.1, 0.263, 4.37, 56.4, 2.1, 1., "Co00", 0., 2.9145, 7.4807, 0.8, "--", 0.112, 0., 0.46179, 8., 3.7112, 0.74225, 3.7112, 0.74225, 0.65194}, { "UGCA444", 10., 0.98, 0.05, 2., 78., 4., 0.012, 0., 0.41, 11.94, 0.83, 22.74, 0.067, 2.08, 37., 4.8, 2., "Ke07", 0., 1.2709, 7.7204, 0.8, "--", 0.0096, 0., 0.09871, 36., 7.146, 0.21655, 7.146, 0.21655, 0.19344}}]]], "Output", CellChangeTimes->{{3.764517809017894*^9, 3.764517817125718*^9}}, CellLabel-> "Out[7]//TableForm=",ExpressionUUID->"e8d5c501-217d-4dd0-9c4c-ea6e8f03b1b9"] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.764457814772974*^9},ExpressionUUID->"0a35edf1-467a-466d-8fcc-\ 78854d81b686"], Cell["\<\ \[CapitalEAcute] conveniente eliminar os coment\[AAcute]rios. Forma manual:\ \>", "Text", CellChangeTimes->{{3.764455332823297*^9, 3.7644553577563553`*^9}, { 3.764455411859941*^9, 3.7644554135769663`*^9}}, FontWeight->"Bold",ExpressionUUID->"a01e8fea-5ed8-4bd1-b45b-2222e7c2a900"], Cell[BoxData[ RowBox[{ RowBox[{"data1", " ", "=", " ", RowBox[{"Drop", "[", RowBox[{"data", ",", "5"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.764455360127715*^9, 3.76445539317166*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"02fcc6f2-e271-4667-ad7a-1aef2c1723ce"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data1", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.764455394392613*^9, 3.764455397416544*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"e10747b0-cf8f-4a57-ba57-8e85fc41d8e7"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Galaxy\"\>", ",", "\<\"H. type\"\>", ",", "\<\"D\"\>", ",", "\<\"delta D\"\>", ",", "\<\"D method\"\>", ",", "\<\"inclination\"\>", ",", "\<\"Delta inc.\"\>", ",", "\<\"L\"\>", ",", "\<\"Delta L\"\>", ",", "\<\"Reff\"\>", ",", "\<\"Sigma eff\"\>", ",", "\<\"h\"\>", ",", "\<\"Sigma0\"\>", ",", "\<\"MHI\"\>", ",", "\<\"HIr\"\>", ",", "\<\"V_flat\"\>", ",", "\<\"Delta V_flat\"\>", ",", "\<\"Q flag\"\>", ",", "\<\"Refs for HI and Halpha\"\>", ",", "\<\"LB\"\>", ",", "\<\"rc\"\>", ",", "\<\"lrhoc\"\>", ",", "\<\"YD\"\>", ",", "\<\"YB\"\>", ",", "\<\"MD\"\>", ",", "\<\"MB\"\>", ",", "\<\"Mbar\"\>", ",", "\<\"N.data points\"\>", ",", "\<\"Chi2\"\>", ",", "\<\"Chi2red\"\>", ",", "\<\"V-Chi2\"\>", ",", "\<\"V-Chi2red\"\>", ",", "\<\"A-Chi2red\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.764455397762789*^9, {3.764457825610317*^9, 3.764457831590191*^9}, 3.764518122383066*^9}, CellLabel->"Out[9]=",ExpressionUUID->"d5c4a00a-1747-4976-942d-9857eb314c41"] }, Open ]], Cell["\<\ O uso de \[OpenCurlyDoubleQuote]#\[CloseCurlyDoubleQuote] para demarcar \ coment\[AAcute]rios no in\[IAcute]cio de uma tabela \[EAcute] bastante \ comum. \[CapitalEAcute] conveniente criarmos uma fun\[CCedilla]\[ATilde]o que \ sempre remova linhas que come\[CCedilla]am com \[OpenCurlyDoubleQuote]#\ \[CloseCurlyDoubleQuote].\ \>", "Text", CellChangeTimes->{{3.764455420208178*^9, 3.764455483578969*^9}}, FontWeight->"Bold",ExpressionUUID->"8f956435-5260-41a4-bee0-42c9a2a24d70"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.764518292391474*^9, 3.764518293448738*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"9ca5a0a7-2771-4574-bc5e-4146bfbcf261"], Cell[BoxData[ RowBox[{"{", "\<\"# MAGMA - Mathematica Automatized Galaxy Mass Analysis \ (2017)\"\>", "}"}]], "Output", CellChangeTimes->{3.764518293820888*^9}, CellLabel->"Out[11]=",ExpressionUUID->"99bcf838-7dbd-41b7-8e1b-d8427f7e14fa"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.7645183054121237`*^9, 3.764518323427464*^9}},ExpressionUUID->"635bd5bc-c603-4a34-88ac-\ a4409412b771"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Head", "@", RowBox[{"First", "@", RowBox[{"First", "@", "data"}]}]}]], "Input", CellChangeTimes->{{3.764455730404912*^9, 3.764455733830036*^9}, { 3.7644559064915323`*^9, 3.76445590737949*^9}, {3.764518288027522*^9, 3.7645183287564697`*^9}, {3.7645183611520557`*^9, 3.764518393341804*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"96e2dc1f-f890-4203-9adf-9eb91d5197fc"], Cell[BoxData["String"], "Output", CellChangeTimes->{ 3.764455734171151*^9, 3.764455907748946*^9, 3.764457833875123*^9, 3.7645182899286547`*^9, {3.764518321011079*^9, 3.764518393905135*^9}}, CellLabel->"Out[17]=",ExpressionUUID->"0c997ac5-bc8c-4dfa-8b5e-079aa852fd2b"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.7645185199448423`*^9, 3.764518528744605*^9}},ExpressionUUID->"9963b13e-fdac-4f18-b787-\ 171d9bc4893a"], Cell[BoxData[ RowBox[{"StringTake", "[", RowBox[{ "\"\<# MAGMA - Mathematica Automatized Galaxy Mass Analysis (2017)\>\"", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.764455753001629*^9, 3.764455775965569*^9}, { 3.764455868219016*^9, 3.764455912400241*^9}, {3.76451846002311*^9, 3.764518467377389*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"3e8a37c3-49f5-4cf4-82b3-099e0f8fffc4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringTake", "[", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.764518493971305*^9, 3.7645185019452744`*^9}, { 3.764518536949995*^9, 3.764518541618376*^9}, {3.7645185731540327`*^9, 3.764518590082364*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"d6129762-dba7-4ff6-bfd8-23590a4508a9"], Cell[BoxData[ RowBox[{"{", "\<\"#\"\>", "}"}]], "Output", CellChangeTimes->{{3.764455768599532*^9, 3.764455776453278*^9}, { 3.764455869073154*^9, 3.764455912788578*^9}, 3.764457836094864*^9, { 3.764518469358623*^9, 3.764518502460991*^9}, 3.7645185428121853`*^9, { 3.76451857372929*^9, 3.764518590417348*^9}}, CellLabel->"Out[23]=",ExpressionUUID->"031f6020-455a-4e92-be03-837816700a72"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToString", "[", "2435.45", "]"}]], "Input", CellChangeTimes->{{3.764518680208166*^9, 3.764518683864513*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"f46546de-b066-4b21-a35e-78c3232be761"], Cell[BoxData["\<\"2435.45\"\>"], "Output", CellChangeTimes->{{3.764518671239328*^9, 3.7645186849251423`*^9}}, CellLabel->"Out[27]=",ExpressionUUID->"61ff19f4-c067-4b2e-bc49-58da60a06a51"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringTake", "[", RowBox[{"\"\<23452345234523452345.23452345\>\"", ",", "5"}], "]"}]], "Input",\ CellChangeTimes->{{3.764518706636145*^9, 3.7645187190360947`*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"8fa18cbd-da9b-4e56-8a6d-146a40a3aef6"], Cell[BoxData["\<\"23452\"\>"], "Output", CellChangeTimes->{{3.764518711027519*^9, 3.7645187193686523`*^9}}, CellLabel->"Out[30]=",ExpressionUUID->"ae91c022-f33b-46b3-b9d0-87062c8e0bb7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringTake", "[", RowBox[{ RowBox[{"ToString", "[", "2435.45", "]"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.764518610680757*^9, 3.764518661822509*^9}, 3.764518692224337*^9}, CellLabel->"In[28]:=",ExpressionUUID->"d7988e4a-ecc5-44fe-9ed6-3fd915fd2901"], Cell[BoxData["\<\"2\"\>"], "Output", CellChangeTimes->{3.764518629647238*^9, 3.764518662299796*^9, 3.764518693178431*^9}, CellLabel->"Out[28]=",ExpressionUUID->"1f6aab80-e5ab-47c1-a00a-8f331990ca4e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"list", " ", "=", " ", RowBox[{"{", RowBox[{ SuperscriptBox["x", "2"], ",", " ", "1", ",", " ", SuperscriptBox["y", "3"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Position", "[", RowBox[{"list", ",", " ", "x_", ",", "1"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.7645193808841047`*^9, 3.76451950531332*^9}, { 3.764519552714829*^9, 3.764519609254073*^9}, {3.764519723707838*^9, 3.7645197405576*^9}}, CellLabel->"In[67]:=",ExpressionUUID->"0475a623-a621-4179-b27b-605739554aac"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.764519451399185*^9, 3.764519505716229*^9}, { 3.764519553468198*^9, 3.7645196104163237`*^9}, {3.7645197244505033`*^9, 3.76451974109369*^9}}, CellLabel->"Out[68]=",ExpressionUUID->"284e7756-81e4-480a-be02-721ec1ad43cd"] }, Open ]], Cell[BoxData[ RowBox[{"StringTake", "[", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "]"}]], "Input",ExpressionUUID\ ->"e2af5e58-6ec9-4ab5-888c-df62079d9332"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"If", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"StringTake", "[", RowBox[{ RowBox[{"First", "@", RowBox[{"data", "[", RowBox[{"[", "10", "]"}], "]"}]}], ",", "1"}], "]"}], "===", " ", "\"\<#\>\""}], " ", ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.764455820998476*^9, 3.764455854055266*^9}, { 3.764455921475016*^9, 3.76445592599689*^9}, {3.764455969694517*^9, 3.764455999698461*^9}, {3.7645189860087013`*^9, 3.764518986493566*^9}, { 3.764519034968293*^9, 3.764519074709566*^9}, {3.764519132532549*^9, 3.764519141152617*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"7c52dbd9-c75b-4b5f-b23f-a189d76fb8d6"], Cell[BoxData["\<\"not ok\"\>"], "Output", CellChangeTimes->{{3.7645190386655703`*^9, 3.764519078412683*^9}, { 3.764519132988571*^9, 3.764519143096673*^9}}, CellLabel->"Out[41]=",ExpressionUUID->"f2e29eef-3a10-4e00-82bf-0539d48a5d47"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pos", " ", "=", " ", RowBox[{"Position", "[", RowBox[{"data", ",", " ", RowBox[{"n_", " ", "/;", " ", RowBox[{ RowBox[{"Quiet", "@", RowBox[{"StringTake", "[", RowBox[{ RowBox[{"First", "@", "n"}], ",", "1"}], "]"}]}], "===", " ", "\"\<#\>\""}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7644561114633408`*^9, 3.7644561190932837`*^9}, { 3.764456409940724*^9, 3.7644564546376123`*^9}, {3.764456543284258*^9, 3.764456544315052*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"5777e602-3775-4079-baf2-8b2206c65553"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "4", "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.764455984921653*^9, 3.76445645719874*^9, 3.7644565466659403`*^9, 3.764457838732448*^9, 3.764519652122841*^9}, CellLabel->"Out[64]=",ExpressionUUID->"19b890b7-bf27-43f4-8375-bb7906f3d030"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"data1a", " ", "=", " ", RowBox[{"Delete", "[", RowBox[{"data", ",", " ", "pos"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7644565364175158`*^9, 3.764456549998744*^9}, { 3.764456580132597*^9, 3.764456594784062*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"45a151af-1b9e-408b-8df2-e814fc7cc4a1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data1a", " ", "\[Equal]", " ", "data1"}]], "Input", CellChangeTimes->{{3.7644566030738077`*^9, 3.7644566067532377`*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"eb882119-2001-43dd-9081-ece8ff6fd00c"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7644566071100817`*^9, 3.764457840969475*^9, 3.764520121266199*^9}, CellLabel->"Out[70]=",ExpressionUUID->"27689e8f-1e84-41cb-a214-6909ce90b52d"] }, Open ]], Cell["Construindo uma fun\[CCedilla]\[ATilde]o", "Text", CellChangeTimes->{{3.76445661698179*^9, 3.764456621579278*^9}},ExpressionUUID->"27d2b167-1fe7-4178-bd8c-\ cadd182e14bb"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"NoComments", "[", "data_", "]"}], " ", ":=", " ", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "pos", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pos", " ", "=", " ", RowBox[{"Position", "[", RowBox[{"data", ",", " ", RowBox[{"n_", " ", "/;", " ", RowBox[{ RowBox[{"Quiet", "@", RowBox[{"StringTake", "[", RowBox[{ RowBox[{"First", "@", "n"}], ",", "1"}], "]"}]}], "===", " ", "\"\<#\>\""}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Delete", "[", RowBox[{"data", ",", "pos"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.764456644351487*^9, 3.764456745204268*^9}, { 3.764520554323917*^9, 3.7645205663338127`*^9}, {3.7645206349662647`*^9, 3.7645206504676323`*^9}}, CellLabel->"In[71]:=",ExpressionUUID->"a7512dfe-8d23-4432-b964-eb3eede323c0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"NoComments", "[", "data", "]"}], " ", "\[Equal]", " ", "data1a"}]], "Input", CellChangeTimes->{{3.764520692790093*^9, 3.7645207269900084`*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"c40cdc60-4bd4-4a4f-b37c-b50dbffbd8dd"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7645207020859003`*^9, 3.764520728196981*^9}}, CellLabel->"Out[75]=",ExpressionUUID->"13c954d3-56de-4946-8a99-54f6d878be2f"] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.7645205259323807`*^9},ExpressionUUID->"fe8a3343-7cd3-4f52-bb7a-\ 89e260a425da"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"test", " ", "=", " ", RowBox[{"NoComments", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"data1", " ", "\[Equal]", " ", "test"}]}], "Input", CellChangeTimes->{{3.7644567489336977`*^9, 3.764456764205865*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"9538308f-afd0-4614-9eac-40e1bcd7596d"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7644567670243807`*^9, 3.764457844607114*^9, 3.764459254630187*^9}, CellLabel->"Out[6]=",ExpressionUUID->"212fe930-fde9-4c88-9a6b-6250910b6e09"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"NoComments", "[", RowBox[{"data_", ",", " ", "symbol_"}], "]"}], " ", ":=", " ", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "pos", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pos", " ", "=", " ", RowBox[{"Position", "[", RowBox[{"data", ",", " ", RowBox[{"n_", " ", "/;", " ", RowBox[{ RowBox[{"Quiet", "@", RowBox[{"StringTake", "[", RowBox[{ RowBox[{"First", "@", "n"}], ",", "1"}], "]"}]}], "===", " ", RowBox[{"ToString", "[", "symbol", "]"}]}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Delete", "[", RowBox[{"data", ",", "pos"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.7645209619534616`*^9, 3.76452098340774*^9}}, CellLabel->"In[76]:=",ExpressionUUID->"8a5de3ba-9c2e-489a-98f3-241f6d38b5fa"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToString", "[", "\"\<#\>\"", "]"}]], "Input", CellChangeTimes->{{3.764521097762704*^9, 3.764521105177339*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"06979c62-307e-4aa8-8096-14ccb7ea6501"], Cell[BoxData["\<\"#\"\>"], "Output", CellChangeTimes->{3.764521106628071*^9}, CellLabel->"Out[82]=",ExpressionUUID->"450cf2de-96a6-4a75-b7cf-8559039e0787"] }, Open ]], Cell[TextData[{ StyleBox["Exerc\[IAcute]cio", FontWeight->"Bold"], ": fazer uma fun\[CCedilla]\[ATilde]o em que a \[OpenCurlyDoubleQuote]string\ \[CloseCurlyDoubleQuote] usada para indicar coment\[AAcute]rios possa ser \ escolhida pelo usu\[AAcute]rio. Definir \[OpenCurlyDoubleQuote]#\ \[CloseCurlyDoubleQuote] como a string padr\[ATilde]o de \ coment\[AAcute]rios." }], "Text", CellChangeTimes->{{3.764456893540681*^9, 3.7644569899673157`*^9}},ExpressionUUID->"c46151fb-1872-4614-970d-\ 04988961cae3"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "@", "NoComments"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NoComments", "[", RowBox[{"data_", ",", " ", RowBox[{"symbol_:", "\"\<#\>\""}]}], "]"}], " ", ":=", " ", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "pos", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pos", " ", "=", " ", RowBox[{"Position", "[", RowBox[{"data", ",", " ", RowBox[{"n_", " ", "/;", " ", RowBox[{ RowBox[{"Quiet", "@", RowBox[{"StringTake", "[", RowBox[{ RowBox[{"First", "@", "n"}], ",", "1"}], "]"}]}], "===", " ", RowBox[{"ToString", "[", "symbol", "]"}]}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Delete", "[", RowBox[{"data", ",", "pos"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellChangeTimes->{{3.7645212443248034`*^9, 3.7645212613833103`*^9}, { 3.764521293516117*^9, 3.76452130983251*^9}}, CellLabel->"In[96]:=",ExpressionUUID->"3ef7cac5-b979-4ca1-86b3-ce732a31fc5f"], Cell["Cabe\[CCedilla]alho", "Text", CellChangeTimes->{{3.764456835570272*^9, 3.764456842533697*^9}}, FontWeight->"Bold",ExpressionUUID->"e080b99d-7326-4e35-a82d-8831838dc207"], Cell[BoxData[{ RowBox[{ RowBox[{"header", " ", "=", " ", RowBox[{ RowBox[{"NoComments", "[", "data", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dataC", " ", "=", " ", RowBox[{"Drop", "[", RowBox[{ RowBox[{"NoComments", "[", "data", "]"}], ",", "1"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.764457073538484*^9, 3.7644571027240334`*^9}, 3.7644595690169353`*^9, {3.764521479221778*^9, 3.764521492750648*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"69e238b9-2fe5-45f7-94c1-666ac8dfdff5"], Cell[CellGroupData[{ Cell[BoxData["header"], "Input", CellChangeTimes->{{3.764457123912285*^9, 3.7644571246912413`*^9}, { 3.764457619372114*^9, 3.764457624407753*^9}}, CellLabel-> "In[100]:=",ExpressionUUID->"b2e22df5-e969-4f22-8013-479cecd7e556"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Galaxy\"\>", ",", "\<\"H. type\"\>", ",", "\<\"D\"\>", ",", "\<\"delta D\"\>", ",", "\<\"D method\"\>", ",", "\<\"inclination\"\>", ",", "\<\"Delta inc.\"\>", ",", "\<\"L\"\>", ",", "\<\"Delta L\"\>", ",", "\<\"Reff\"\>", ",", "\<\"Sigma eff\"\>", ",", "\<\"h\"\>", ",", "\<\"Sigma0\"\>", ",", "\<\"MHI\"\>", ",", "\<\"HIr\"\>", ",", "\<\"V_flat\"\>", ",", "\<\"Delta V_flat\"\>", ",", "\<\"Q flag\"\>", ",", "\<\"Refs for HI and Halpha\"\>", ",", "\<\"LB\"\>", ",", "\<\"rc\"\>", ",", "\<\"lrhoc\"\>", ",", "\<\"YD\"\>", ",", "\<\"YB\"\>", ",", "\<\"MD\"\>", ",", "\<\"MB\"\>", ",", "\<\"Mbar\"\>", ",", "\<\"N.data points\"\>", ",", "\<\"Chi2\"\>", ",", "\<\"Chi2red\"\>", ",", "\<\"V-Chi2\"\>", ",", "\<\"V-Chi2red\"\>", ",", "\<\"A-Chi2red\"\>"}], "}"}]], "Output", CellChangeTimes->{3.7644571360960217`*^9, 3.764457849094178*^9, 3.764521507193309*^9}, CellLabel-> "Out[100]=",ExpressionUUID->"72d647d1-312a-416c-a469-595e88e4b6ab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomReal", "[", RowBox[{"10", ",", RowBox[{"{", RowBox[{"10", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7645216547518263`*^9, 3.7645216766167297`*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"184ab9a8-d9ce-403f-9af6-4a8287b04ef1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.0969276475230156`", ",", "5.620222675696294`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.091363807276501`", ",", "7.470538344557038`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.21237323414994`", ",", "5.378112180002512`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.82717699248003`", ",", "2.498663223695477`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.107934004133945`", ",", "7.158610502546114`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.094397419364048`", ",", "7.640687196103851`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.606083859071028`", ",", "3.1019519896838723`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.472469648027074`", ",", "2.3301861994348023`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.297599412056748`", ",", "0.5433158377761149`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.8164085727495571`", ",", "7.647787694232662`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.764521666116951*^9, 3.7645216769243526`*^9}}, CellLabel-> "Out[103]=",ExpressionUUID->"1550892d-74ae-426f-ae4f-d81542e213f1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", " ", "\"\\""}], "}"}]], "Input", CellChangeTimes->{{3.7645218182362547`*^9, 3.764521839343341*^9}, { 3.7645219125604153`*^9, 3.764521913263101*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"49d2b2bc-be5d-443a-a5df-2b3f3ef9aeb0"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "\<\"asdf,adsf\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.764521822554607*^9, 3.764521840084827*^9}, 3.764521913825252*^9}, CellLabel-> "Out[109]=",ExpressionUUID->"e06aa421-ffe0-454b-98ea-ce8858ccd77f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"RandomReal", "[", RowBox[{"10", ",", RowBox[{"{", RowBox[{"10", ",", "2"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.764521645978258*^9, 3.764521653661786*^9}, 3.764521693576906*^9}, CellLabel-> "In[104]:=",ExpressionUUID->"5a9a32b7-71c2-480e-9ef6-ec81dad7cbcb"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{5.9374571540944405`, 1.6544268356151122`}, {3.398101712634382, 3.744995107949343}, {0.8902022545812507, 4.431228093158939}, { 1.5395747551885997`, 2.090131282013221}, {3.4642408959158963`, 7.034017142836852}, {0.07213039051105241, 7.232923239388299}, { 4.046828196944558, 3.5642812496114686`}, {1.9161748265672145`, 5.408399135700099}, {7.80001368338532, 9.93199084240522}, { 4.1751186658323505`, 3.214577226166412}}]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 7.80001368338532}, {0, 9.93199084240522}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7645216950486526`*^9}, CellLabel-> "Out[104]=",ExpressionUUID->"4da9a574-f63b-4c14-baf4-313f64b9c998"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.764521716254808*^9, 3.7645217433250313`*^9}, { 3.764521961454418*^9, 3.7645219882853127`*^9}}, CellLabel-> "In[111]:=",ExpressionUUID->"f7a1936f-c237-4561-8b60-c76b58c2bcf4"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJy1lktIFWEUxycf17xa6ni1fN3mOtd3CHqLXGTfl0Haw1C7SIKLCHLTIqOd bdq0aeOmTW2LIAgh2hi0MCt6oKFJiCCRGzcJrXQX1XznNzM44SKkgcvhfOd8 5/k/57upK9eHruZYljX55+fRtYnEVO9aXD8a744vP1xQY+Zr1x433m1rTzpx L6U3BqeTd74vKtFPaiOOv1MZ89XoIU88aOmW0cnZzeZS/eC+931QlvmSWmgO tEyLnY9qfs772vUt48jWxtzz49rjElO16LfKeaYEP+XakOmvxHsBeT1+B7iX lvObfZy7nJ+DbxC60q8ljiZtzK2fgU+L/sxF9Jvk/Omw6I25nGeJ35Hzxqw+ 5IWXhH98Fv0GobEscTjEfUmbso26Ij89LHkupkTvMv7WU9TnJDT1l/0+U9iS oP7R/ghfR/+W6afft5f0qw09v4/7uP+efh2hPglwY6H3QuSHs3LuOug1kl+R 5HO7B1oPriq1EU9+VhJHnHq+UZJPYcBLntXg45cSnIZ4k3iKA3xKvQepT5r6 bCrx+0zJvTbkW+SXhPfx2gnNw2+hfu2FO/tWReX/m5e+H9sxvigvdSujv3O7 jnfLS3szRt9e7WDPn8N8+u+CpyWp98opLfBz2TO12LVE/3wH9zaw30G+Cfpa xf0l8BL2W/BcHNlPYX+NOWdg+/xWhfZlzk5oHwfivwW6P8CRyPeyP8L5M+VO VLCfPil/j/j6Yqch4AVPNcEcmbWR7yKPUceiAG+Sj0t+BfiJB/WIxhuNT+zW M28x6n2U/vhxH8TvT+nXSD/3m9jbdfR/D/OU4l4eeYTzY+LuCeUSTy/x+fs4 ip9m4iwmrnb2qf3PeN0tL3FkqMcB5qmGfnxh38Qi/WnVNwywS7Dj7/lc2YOr Drj358kO8CL1Lefegtpe1xnwZNO/Ldlj1xxwlCt2uhz859IfG34efFQH76/k ZRPHN+xX498CV7XBeyHzkaUuToArfy/6/x+E2rxP4fspdeiCgrOqTvKv4P0c QZ4Wv3dd4i/AbivxlXKvMvh/IvJw38m784M8n6jfkMcPbA== "]]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 100.6}, {0, 11.9}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.764521962361046*^9, 3.764521988729252*^9}}, CellLabel-> "Out[111]=",ExpressionUUID->"f4b5fa3c-5969-454f-93e0-50c77ca59aeb"] }, Open ]], Cell[TextData[StyleBox["Definia vari\[AAcute]veis do tipo ColGalaxy, \ ColHtype...", FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.7644571963798237`*^9, 3.764457218819586*^9}, { 3.7644596475501623`*^9, 3.7644596579017267`*^9}},ExpressionUUID->"190ab9ee-81e1-4a4c-bdff-\ fe46754d4298"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aux", " ", "=", " ", RowBox[{"StringReplace", "[", RowBox[{"header", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}], ",", " ", RowBox[{"\"\<.\>\"", " ", "\[Rule]", " ", "\"\<\>\""}], ",", " ", RowBox[{"\"\<-\>\"", " ", "\[Rule]", " ", "\"\<\>\""}], ",", " ", RowBox[{"\"\<_\>\"", "\[Rule]", " ", "\"\<\>\""}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.764457240657503*^9, 3.764457560204033*^9}, { 3.764457630139933*^9, 3.764457723851733*^9}, {3.764457864065134*^9, 3.764457867868853*^9}}, CellLabel-> "In[112]:=",ExpressionUUID->"4eafcbcf-d4b3-4ae2-90c2-94cca96bd20d"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Galaxy\"\>", ",", "\<\"Htype\"\>", ",", "\<\"D\"\>", ",", "\<\"deltaD\"\>", ",", "\<\"Dmethod\"\>", ",", "\<\"inclination\"\>", ",", "\<\"Deltainc\"\>", ",", "\<\"L\"\>", ",", "\<\"DeltaL\"\>", ",", "\<\"Reff\"\>", ",", "\<\"Sigmaeff\"\>", ",", "\<\"h\"\>", ",", "\<\"Sigma0\"\>", ",", "\<\"MHI\"\>", ",", "\<\"HIr\"\>", ",", "\<\"Vflat\"\>", ",", "\<\"DeltaVflat\"\>", ",", "\<\"Qflag\"\>", ",", "\<\"RefsforHIandHalpha\"\>", ",", "\<\"LB\"\>", ",", "\<\"rc\"\>", ",", "\<\"lrhoc\"\>", ",", "\<\"YD\"\>", ",", "\<\"YB\"\>", ",", "\<\"MD\"\>", ",", "\<\"MB\"\>", ",", "\<\"Mbar\"\>", ",", "\<\"Ndatapoints\"\>", ",", "\<\"Chi2\"\>", ",", "\<\"Chi2red\"\>", ",", "\<\"VChi2\"\>", ",", "\<\"VChi2red\"\>", ",", "\<\"AChi2red\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.7644572561663017`*^9, 3.764457330336831*^9}, { 3.7644573794903803`*^9, 3.764457560734103*^9}, 3.764457631921154*^9, 3.764457670130636*^9, {3.764457713777932*^9, 3.764457725188776*^9}, { 3.764457856712161*^9, 3.764457868251753*^9}, 3.7644592583016367`*^9, 3.76452221554284*^9}, CellLabel-> "Out[112]=",ExpressionUUID->"9bca4ed7-5a0d-4228-abdd-5e8914fa5223"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["#", "2"], "&"}], "[", RowBox[{"2", " ", "x"}], "]"}]], "Input", CellChangeTimes->{{3.764522632486229*^9, 3.7645226516322517`*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"c46723a1-c8fe-4a44-b3b8-4d9c881e437d"], Cell[BoxData[ RowBox[{"4", " ", SuperscriptBox["x", "2"]}]], "Output", CellChangeTimes->{{3.7645226396310387`*^9, 3.7645226525324802`*^9}}, CellLabel-> "Out[118]=",ExpressionUUID->"923b33fc-4da0-4724-8495-01c9aacc67e1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aux2", "=", RowBox[{"ToExpression", "[", RowBox[{ RowBox[{ RowBox[{"\"\\"", "<>", "#"}], " ", "&"}], "/@", " ", "aux"}], "]"}]}]], "Input", CellChangeTimes->{{3.7644582823199377`*^9, 3.764458327976975*^9}, { 3.764458374407405*^9, 3.7644584127816668`*^9}, {3.764459028723147*^9, 3.764459031990809*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"f68e5a79-b91d-45e5-95b8-560882ee760b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "colGalaxy", ",", "colHtype", ",", "colD", ",", "coldeltaD", ",", "colDmethod", ",", "colinclination", ",", "colDeltainc", ",", "colL", ",", "colDeltaL", ",", "colReff", ",", "colSigmaeff", ",", "colh", ",", "colSigma0", ",", "colMHI", ",", "colHIr", ",", "colVflat", ",", "colDeltaVflat", ",", "colQflag", ",", "colRefsforHIandHalpha", ",", "colLB", ",", "colrc", ",", "collrhoc", ",", "colYD", ",", "colYB", ",", "colMD", ",", "colMB", ",", "colMbar", ",", "colNdatapoints", ",", "colChi2", ",", "colChi2red", ",", "colVChi2", ",", "colVChi2red", ",", "colAChi2red"}], "}"}]], "Output", CellChangeTimes->{{3.764458300519758*^9, 3.764458328358183*^9}, 3.76445837788535*^9, 3.764458413515395*^9, 3.764458471541409*^9, 3.764458723367198*^9, 3.764459033397429*^9, 3.764459119588716*^9, 3.764459281293312*^9, 3.764522580105253*^9}, CellLabel-> "Out[115]=",ExpressionUUID->"bfd8bb35-d310-4030-ab29-5668387724fa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"a", ",", "b", ",", "c", ",", "j"}], "]"}], "\[IndentingNewLine]", RowBox[{"j", " ", "=", " ", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", "j", "]"}], "=", RowBox[{"Range", "[", "3", "]"}]}]}], "Input", CellChangeTimes->{{3.764522867647533*^9, 3.7645228832983418`*^9}, { 3.764523011529304*^9, 3.76452301658455*^9}}, CellLabel-> "In[134]:=",ExpressionUUID->"8b7349aa-0dc0-4afa-8e16-5fbb3adaff11"], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]], "Output", CellChangeTimes->{ 3.76452288371975*^9, {3.764523007953958*^9, 3.764523017604993*^9}}, CellLabel-> "Out[135]=",ExpressionUUID->"5d4fd48a-e5a4-464b-ad20-24155c840bfc"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output", CellChangeTimes->{ 3.76452288371975*^9, {3.764523007953958*^9, 3.764523017620572*^9}}, CellLabel-> "Out[136]=",ExpressionUUID->"6c6dd4ec-9035-4fdf-8d60-71164543dfa6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["a"], "Input", CellChangeTimes->{3.764523019192897*^9}, CellLabel-> "In[137]:=",ExpressionUUID->"210d3516-66ac-4194-9356-fb2b99281d44"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.764523019649666*^9}, CellLabel-> "Out[137]=",ExpressionUUID->"0559ea30-3dae-4574-ae9a-7fbfbb6d1b4b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", RowBox[{"Hold", "[", RowBox[{"a", "=", "b"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7645229113976107`*^9, 3.764522922195334*^9}}, CellLabel-> "In[129]:=",ExpressionUUID->"e247341b-35d2-4223-934f-05dda2374c41"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Hold", "[", RowBox[{"Set", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{3.76452292308246*^9}, CellLabel-> "Out[129]//FullForm=",ExpressionUUID->"a56e4bd2-37d7-4787-b780-\ c11eda2b2f99"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Attributes", "[", "Set", "]"}]], "Input", CellChangeTimes->{{3.764522898139278*^9, 3.764522901770124*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"312d76f3-a305-4719-8710-7c0e58496c52"], Cell[BoxData[ RowBox[{"{", RowBox[{"HoldFirst", ",", "Protected", ",", "SequenceHold"}], "}"}]], "Output", CellChangeTimes->{3.7645229384125967`*^9}, CellLabel-> "Out[130]=",ExpressionUUID->"45e115eb-312a-4ab1-9c64-0f9140bc1009"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], " ", "=", " ", RowBox[{"Range", "[", "3", "]"}]}]], "Input", CellChangeTimes->{{3.76452277135912*^9, 3.7645227774090242`*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"b95f1054-da01-4415-81c7-82da95cb3880"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output", CellChangeTimes->{3.7645227796009912`*^9}, CellLabel-> "Out[120]=",ExpressionUUID->"006fd86c-2514-4754-abdb-5b0e531207f4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["a"], "Input", CellChangeTimes->{3.764522780419259*^9}, CellLabel-> "In[121]:=",ExpressionUUID->"9ef094aa-e716-4fa3-8746-897bee5897c2"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7645227808155413`*^9}, CellLabel-> "Out[121]=",ExpressionUUID->"999e68cd-2a15-46a5-8f0a-34dbdf4cd4c3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["b"], "Input", CellChangeTimes->{3.764522781806926*^9}, CellLabel-> "In[122]:=",ExpressionUUID->"a44cf2af-462c-44a9-a141-0e97f4f5ad6e"], Cell[BoxData["2"], "Output", CellChangeTimes->{3.764522782033616*^9}, CellLabel-> "Out[122]=",ExpressionUUID->"61a4fa26-f811-4780-ba4a-385efab2d938"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c"], "Input", CellChangeTimes->{3.764522782977463*^9}, CellLabel-> "In[123]:=",ExpressionUUID->"d36d1eed-d2bb-44d2-9296-2521540dc0f4"], Cell[BoxData["3"], "Output", CellChangeTimes->{3.764522783165101*^9}, CellLabel-> "Out[123]=",ExpressionUUID->"8a2460bf-11e5-4b4b-8afc-bd90e1ceda59"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aux2", " ", "=", " ", RowBox[{"Range", "[", RowBox[{"Length", "[", "aux2", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.764522717699073*^9, 3.764522743462734*^9}},ExpressionUUID->"9c89cd0f-c1ce-45f6-b504-\ ba419730cd6f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33"}], "}"}]], "Output", CellChangeTimes->{3.764522727579401*^9}, CellLabel-> "Out[119]=",ExpressionUUID->"fb4b7341-2887-49ee-a0cc-3675cfe51bfa"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ClearOwnValues", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"Last", "[", RowBox[{"Map", "[", RowBox[{"Clear", ",", RowBox[{"First", "[", RowBox[{"OwnValues", "[", "x", "]"}], "]"}], ",", " ", RowBox[{"{", "2", "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"SetAttributes", "[", RowBox[{"ClearOwnValues", ",", " ", RowBox[{"{", "HoldAll", "}"}]}], "]"}]}], "Input", CellLabel-> "In[151]:=",ExpressionUUID->"a6e72e5a-d7d7-4c8b-ac78-a5353283f242"], Cell["Exerc\[IAcute]cio: tente entender o c\[OAcute]digo de ClearOwnValues.", \ "Text", CellChangeTimes->{{3.7644594513820887`*^9, 3.764459478697681*^9}},ExpressionUUID->"40eb04ad-9a04-45c8-b431-\ 660bb17e38d9"], Cell[BoxData[{ RowBox[{ RowBox[{"ClearOwnValues", "[", "aux2", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", "aux2", "]"}], " ", "=", " ", RowBox[{"Range", "[", RowBox[{"Length", "[", "aux2", "]"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7644590872412653`*^9, 3.7644591004988747`*^9}, { 3.764459443297826*^9, 3.764459443669691*^9}, 3.7644595120674047`*^9}, CellLabel-> "In[153]:=",ExpressionUUID->"ca274d33-d754-4be3-844f-d3de71689bcf"], Cell[CellGroupData[{ Cell[BoxData["aux2"], "Input", CellChangeTimes->{{3.764523078622551*^9, 3.764523079264135*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"9b590523-7bc4-4f69-8df5-0b9046fdf06b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33"}], "}"}]], "Output", CellChangeTimes->{3.76452307989535*^9}, CellLabel-> "Out[141]=",ExpressionUUID->"ca2f19f6-d101-43a7-a6ea-00bb9c252a2c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.764523106566593*^9, 3.7645231257044888`*^9}}, CellLabel-> "In[143]:=",ExpressionUUID->"edc31b71-6a1b-42c1-a5fc-fb7a892b8fd7"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJy1lktIFWEUxycf17xa6ni1fN3mOtd3CHqLXGTfl0Haw1C7SIKLCHLTIqOd bdq0aeOmTW2LIAgh2hi0MCt6oKFJiCCRGzcJrXQX1XznNzM44SKkgcvhfOd8 5/k/57upK9eHruZYljX55+fRtYnEVO9aXD8a744vP1xQY+Zr1x433m1rTzpx L6U3BqeTd74vKtFPaiOOv1MZ89XoIU88aOmW0cnZzeZS/eC+931QlvmSWmgO tEyLnY9qfs772vUt48jWxtzz49rjElO16LfKeaYEP+XakOmvxHsBeT1+B7iX lvObfZy7nJ+DbxC60q8ljiZtzK2fgU+L/sxF9Jvk/Omw6I25nGeJ35Hzxqw+ 5IWXhH98Fv0GobEscTjEfUmbso26Ij89LHkupkTvMv7WU9TnJDT1l/0+U9iS oP7R/ghfR/+W6afft5f0qw09v4/7uP+efh2hPglwY6H3QuSHs3LuOug1kl+R 5HO7B1oPriq1EU9+VhJHnHq+UZJPYcBLntXg45cSnIZ4k3iKA3xKvQepT5r6 bCrx+0zJvTbkW+SXhPfx2gnNw2+hfu2FO/tWReX/m5e+H9sxvigvdSujv3O7 jnfLS3szRt9e7WDPn8N8+u+CpyWp98opLfBz2TO12LVE/3wH9zaw30G+Cfpa xf0l8BL2W/BcHNlPYX+NOWdg+/xWhfZlzk5oHwfivwW6P8CRyPeyP8L5M+VO VLCfPil/j/j6Yqch4AVPNcEcmbWR7yKPUceiAG+Sj0t+BfiJB/WIxhuNT+zW M28x6n2U/vhxH8TvT+nXSD/3m9jbdfR/D/OU4l4eeYTzY+LuCeUSTy/x+fs4 ip9m4iwmrnb2qf3PeN0tL3FkqMcB5qmGfnxh38Qi/WnVNwywS7Dj7/lc2YOr Drj358kO8CL1Lefegtpe1xnwZNO/Ldlj1xxwlCt2uhz859IfG34efFQH76/k ZRPHN+xX498CV7XBeyHzkaUuToArfy/6/x+E2rxP4fspdeiCgrOqTvKv4P0c QZ4Wv3dd4i/AbivxlXKvMvh/IvJw38m784M8n6jfkMcPbA== "]]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 100.6}, {0, 11.9}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7645231222759657`*^9, 3.76452312599445*^9}}, CellLabel-> "Out[143]=",ExpressionUUID->"f215f70c-93b5-4d73-9972-45e26ba54913"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"colD", ",", "coldeltaD"}], "}"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7645231329353037`*^9, 3.764523150536974*^9}}, CellLabel-> "In[144]:=",ExpressionUUID->"4b3cdaa9-e08c-4538-a64c-5aca4bc9ee6e"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJy1lktIFWEUxycf17xa6ni1fN3mOtd3CHqLXGTfl0Haw1C7SIKLCHLTIqOd bdq0aeOmTW2LIAgh2hi0MCt6oKFJiCCRGzcJrXQX1XznNzM44SKkgcvhfOd8 5/k/57upK9eHruZYljX55+fRtYnEVO9aXD8a744vP1xQY+Zr1x433m1rTzpx L6U3BqeTd74vKtFPaiOOv1MZ89XoIU88aOmW0cnZzeZS/eC+931QlvmSWmgO tEyLnY9qfs772vUt48jWxtzz49rjElO16LfKeaYEP+XakOmvxHsBeT1+B7iX lvObfZy7nJ+DbxC60q8ljiZtzK2fgU+L/sxF9Jvk/Omw6I25nGeJ35Hzxqw+ 5IWXhH98Fv0GobEscTjEfUmbso26Ij89LHkupkTvMv7WU9TnJDT1l/0+U9iS oP7R/ghfR/+W6afft5f0qw09v4/7uP+efh2hPglwY6H3QuSHs3LuOug1kl+R 5HO7B1oPriq1EU9+VhJHnHq+UZJPYcBLntXg45cSnIZ4k3iKA3xKvQepT5r6 bCrx+0zJvTbkW+SXhPfx2gnNw2+hfu2FO/tWReX/m5e+H9sxvigvdSujv3O7 jnfLS3szRt9e7WDPn8N8+u+CpyWp98opLfBz2TO12LVE/3wH9zaw30G+Cfpa xf0l8BL2W/BcHNlPYX+NOWdg+/xWhfZlzk5oHwfivwW6P8CRyPeyP8L5M+VO VLCfPil/j/j6Yqch4AVPNcEcmbWR7yKPUceiAG+Sj0t+BfiJB/WIxhuNT+zW M28x6n2U/vhxH8TvT+nXSD/3m9jbdfR/D/OU4l4eeYTzY+LuCeUSTy/x+fs4 ip9m4iwmrnb2qf3PeN0tL3FkqMcB5qmGfnxh38Qi/WnVNwywS7Dj7/lc2YOr Drj358kO8CL1Lefegtpe1xnwZNO/Ldlj1xxwlCt2uhz859IfG34efFQH76/k ZRPHN+xX498CV7XBeyHzkaUuToArfy/6/x+E2rxP4fspdeiCgrOqTvKv4P0c QZ4Wv3dd4i/AbivxlXKvMvh/IvJw38m784M8n6jfkMcPbA== "]]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 100.6}, {0, 11.9}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.764523151498578*^9}, CellLabel-> "Out[144]=",ExpressionUUID->"3d93edd8-f294-4e1a-b9dc-949e6b7e10f9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", " ", "colGalaxy"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.764459521291535*^9, 3.764459547441641*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"55e5190f-a9ea-4f1e-bd13-8fb5b83cef59"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"CamB\"\>", ",", "\<\"D512-2\"\>", ",", "\<\"D564-8\"\>", ",", "\<\"D631-7\"\>", ",", "\<\"DDO064\"\>", ",", "\<\"DDO154\"\>", ",", "\<\"DDO161\"\>", ",", "\<\"DDO168\"\>", ",", "\<\"DDO170\"\>", ",", "\<\"ESO079-G014\"\>", ",", "\<\"ESO116-G012\"\>", ",", "\<\"ESO444-G084\"\>", ",", "\<\"ESO563-G021\"\>", ",", "\<\"F561-1\"\>", ",", "\<\"F563-1\"\>", ",", "\<\"F563-V1\"\>", ",", "\<\"F563-V2\"\>", ",", "\<\"F565-V2\"\>", ",", "\<\"F567-2\"\>", ",", "\<\"F568-1\"\>", ",", "\<\"F568-3\"\>", ",", "\<\"F568-V1\"\>", ",", "\<\"F571-8\"\>", ",", "\<\"F571-V1\"\>", ",", "\<\"F574-1\"\>", ",", "\<\"F574-2\"\>", ",", "\<\"F579-V1\"\>", ",", "\<\"F583-1\"\>", ",", "\<\"F583-4\"\>", ",", "\<\"IC2574\"\>", ",", "\<\"KK98-251\"\>", ",", "\<\"NGC0024\"\>", ",", "\<\"NGC0055\"\>", ",", "\<\"NGC0100\"\>", ",", "\<\"NGC0247\"\>", ",", "\<\"NGC0289\"\>", ",", "\<\"NGC0300\"\>", ",", "\<\"NGC0801\"\>", ",", "\<\"NGC1003\"\>", ",", "\<\"NGC1090\"\>", ",", "\<\"NGC1705\"\>", ",", "\<\"NGC2366\"\>", ",", "\<\"NGC2403\"\>", ",", "\<\"NGC2903\"\>", ",", "\<\"NGC2915\"\>", ",", "\<\"NGC2976\"\>", ",", "\<\"NGC2998\"\>", ",", "\<\"NGC3109\"\>", ",", "\<\"NGC3198\"\>", ",", "\<\"NGC3521\"\>", ",", "\<\"NGC3726\"\>", ",", "\<\"NGC3741\"\>", ",", "\<\"NGC3769\"\>", ",", "\<\"NGC3877\"\>", ",", "\<\"NGC3893\"\>", ",", "\<\"NGC3917\"\>", ",", "\<\"NGC3949\"\>", ",", "\<\"NGC3953\"\>", ",", "\<\"NGC3972\"\>", ",", "\<\"NGC3992\"\>", ",", "\<\"NGC4010\"\>", ",", "\<\"NGC4051\"\>", ",", "\<\"NGC4068\"\>", ",", "\<\"NGC4085\"\>", ",", "\<\"NGC4088\"\>", ",", "\<\"NGC4100\"\>", ",", "\<\"NGC4183\"\>", ",", "\<\"NGC4214\"\>", ",", "\<\"NGC4389\"\>", ",", "\<\"NGC4559\"\>", ",", "\<\"NGC5055\"\>", ",", "\<\"NGC5371\"\>", ",", "\<\"NGC5585\"\>", ",", "\<\"NGC5907\"\>", ",", "\<\"NGC6015\"\>", ",", "\<\"NGC6503\"\>", ",", "\<\"NGC6789\"\>", ",", "\<\"NGC7793\"\>", ",", "\<\"PGC51017\"\>", ",", "\<\"UGC00128\"\>", ",", "\<\"UGC00191\"\>", ",", "\<\"UGC00634\"\>", ",", "\<\"UGC00731\"\>", ",", "\<\"UGC00891\"\>", ",", "\<\"UGC01230\"\>", ",", "\<\"UGC01281\"\>", ",", "\<\"UGC02023\"\>", ",", "\<\"UGC02259\"\>", ",", "\<\"UGC02455\"\>", ",", "\<\"UGC04278\"\>", ",", "\<\"UGC04305\"\>", ",", "\<\"UGC04325\"\>", ",", "\<\"UGC04483\"\>", ",", "\<\"UGC04499\"\>", ",", "\<\"UGC05005\"\>", ",", "\<\"UGC05414\"\>", ",", "\<\"UGC05716\"\>", ",", "\<\"UGC05721\"\>", ",", "\<\"UGC05750\"\>", ",", "\<\"UGC05764\"\>", ",", "\<\"UGC05829\"\>", ",", "\<\"UGC05918\"\>", ",", "\<\"UGC05986\"\>", ",", "\<\"UGC05999\"\>", ",", "\<\"UGC06399\"\>", ",", "\<\"UGC06446\"\>", ",", "\<\"UGC06628\"\>", ",", "\<\"UGC06667\"\>", ",", "\<\"UGC06818\"\>", ",", "\<\"UGC06917\"\>", ",", "\<\"UGC06923\"\>", ",", "\<\"UGC06930\"\>", ",", "\<\"UGC06983\"\>", ",", "\<\"UGC07089\"\>", ",", "\<\"UGC07125\"\>", ",", "\<\"UGC07151\"\>", ",", "\<\"UGC07232\"\>", ",", "\<\"UGC07261\"\>", ",", "\<\"UGC07323\"\>", ",", "\<\"UGC07399\"\>", ",", "\<\"UGC07524\"\>", ",", "\<\"UGC07559\"\>", ",", "\<\"UGC07577\"\>", ",", "\<\"UGC07603\"\>", ",", "\<\"UGC07608\"\>", ",", "\<\"UGC07690\"\>", ",", "\<\"UGC07866\"\>", ",", "\<\"UGC08286\"\>", ",", "\<\"UGC08490\"\>", ",", "\<\"UGC08550\"\>", ",", "\<\"UGC08837\"\>", ",", "\<\"UGC09037\"\>", ",", "\<\"UGC09992\"\>", ",", "\<\"UGC10310\"\>", ",", "\<\"UGC11455\"\>", ",", "\<\"UGC11557\"\>", ",", "\<\"UGC11820\"\>", ",", "\<\"UGC12506\"\>", ",", "\<\"UGC12632\"\>", ",", "\<\"UGC12732\"\>", ",", "\<\"UGCA281\"\>", ",", "\<\"UGCA442\"\>", ",", "\<\"UGCA444\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.764459541544054*^9, 3.764459574118699*^9}}, CellLabel->"Out[28]=",ExpressionUUID->"97c14986-98ba-493e-b807-8063a62d5fc1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"colD", ",", " ", "colL"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.764459585293861*^9, 3.7644596100491457`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"bd16310f-ad1a-4c5e-8ee2-0c495fabd286"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.36`", ",", "0.075`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.2`", ",", "0.325`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.79`", ",", "0.033`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.72`", ",", "0.196`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "0.157`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.04`", ",", "0.053`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.5`", ",", "0.548`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.25`", ",", "0.191`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.4`", ",", "0.543`"}], "}"}], ",", RowBox[{"{", RowBox[{"28.7`", ",", "51.733`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.`", ",", "4.292`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.83`", ",", "0.071`"}], "}"}], ",", RowBox[{"{", RowBox[{"60.8`", ",", "311.18`"}], "}"}], ",", RowBox[{"{", RowBox[{"66.4`", ",", "4.077`"}], "}"}], ",", RowBox[{"{", RowBox[{"48.9`", ",", "1.903`"}], "}"}], ",", RowBox[{"{", RowBox[{"54.`", ",", "1.54`"}], "}"}], ",", RowBox[{"{", RowBox[{"59.7`", ",", "2.986`"}], "}"}], ",", RowBox[{"{", RowBox[{"51.8`", ",", "0.559`"}], "}"}], ",", RowBox[{"{", RowBox[{"79.`", ",", "2.134`"}], "}"}], ",", RowBox[{"{", RowBox[{"90.7`", ",", "6.252`"}], "}"}], ",", RowBox[{"{", RowBox[{"82.4`", ",", "8.346`"}], "}"}], ",", RowBox[{"{", RowBox[{"80.6`", ",", "3.825`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.3`", ",", "10.164`"}], "}"}], ",", RowBox[{"{", RowBox[{"80.1`", ",", "1.849`"}], "}"}], ",", RowBox[{"{", RowBox[{"96.8`", ",", "6.537`"}], "}"}], ",", RowBox[{"{", RowBox[{"89.1`", ",", "2.877`"}], "}"}], ",", RowBox[{"{", RowBox[{"89.5`", ",", "11.848`"}], "}"}], ",", RowBox[{"{", RowBox[{"35.4`", ",", "0.986`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.3`", ",", "1.715`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.91`", ",", "1.016`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "0.085`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.3`", ",", "3.889`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.11`", ",", "4.628`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.5`", ",", "3.232`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.7`", ",", "7.332`"}], "}"}], ",", RowBox[{"{", RowBox[{"20.8`", ",", "72.065`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.08`", ",", "2.922`"}], "}"}], ",", RowBox[{"{", RowBox[{"80.7`", ",", "312.57`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.4`", ",", "6.82`"}], "}"}], ",", RowBox[{"{", RowBox[{"37.`", ",", "72.045`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.73`", ",", "0.533`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.27`", ",", "0.236`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.16`", ",", "10.041`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.6`", ",", "81.863`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.06`", ",", "0.641`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.58`", ",", "3.371`"}], "}"}], ",", RowBox[{"{", RowBox[{"68.1`", ",", "150.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.33`", ",", "0.194`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.8`", ",", "38.279`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.7`", ",", "84.836`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "70.234`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.21`", ",", "0.028`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "18.679`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "72.535`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "58.525`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "21.966`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "38.067`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "141.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "14.353`"}], "}"}], ",", RowBox[{"{", RowBox[{"23.7`", ",", "226.93`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "17.193`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "95.268`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.37`", ",", "0.236`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "21.724`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "107.29`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "59.394`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "10.838`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.87`", ",", "1.141`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "21.328`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.`", ",", "19.377`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.9`", ",", "152.92`"}], "}"}], ",", RowBox[{"{", RowBox[{"39.7`", ",", "340.39`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.06`", ",", "2.943`"}], "}"}], ",", RowBox[{"{", RowBox[{"17.3`", ",", "175.42`"}], "}"}], ",", RowBox[{"{", RowBox[{"17.`", ",", "32.129`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.26`", ",", "12.845`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.52`", ",", "0.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.61`", ",", "7.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.6`", ",", "0.155`"}], "}"}], ",", RowBox[{"{", RowBox[{"64.5`", ",", "12.02`"}], "}"}], ",", RowBox[{"{", RowBox[{"17.1`", ",", "2.004`"}], "}"}], ",", RowBox[{"{", RowBox[{"30.9`", ",", "2.989`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5`", ",", "0.323`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.2`", ",", "0.374`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.7`", ",", "7.62`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.27`", ",", "0.353`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "1.308`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5`", ",", "1.725`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.92`", ",", "3.649`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.51`", ",", "1.307`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.45`", ",", "0.736`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.6`", ",", "2.026`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.34`", ",", "0.013`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5`", ",", "1.552`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.7`", ",", "4.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.4`", ",", "1.123`"}], "}"}], ",", RowBox[{"{", RowBox[{"21.3`", ",", "0.588`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.18`", ",", "0.531`"}], "}"}], ",", RowBox[{"{", RowBox[{"58.7`", ",", "3.336`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.47`", ",", "0.085`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.64`", ",", "0.564`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.66`", ",", "0.233`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.63`", ",", "4.695`"}], "}"}], ",", RowBox[{"{", RowBox[{"47.7`", ",", "3.384`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.296`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.`", ",", "0.988`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.1`", ",", "3.739`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "1.397`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "1.588`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "6.832`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.89`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "8.932`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "5.298`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "3.585`"}], "}"}], ",", RowBox[{"{", RowBox[{"19.8`", ",", "2.712`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.87`", ",", "2.284`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.83`", ",", "0.113`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.1`", ",", "1.753`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.`", ",", "4.109`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.43`", ",", "1.156`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.74`", ",", "2.436`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.97`", ",", "0.109`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.59`", ",", "0.045`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.7`", ",", "0.376`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.21`", ",", "0.264`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.11`", ",", "0.858`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.57`", ",", "0.124`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5`", ",", "1.255`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.65`", ",", "1.017`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.7`", ",", "0.289`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.21`", ",", "0.501`"}], "}"}], ",", RowBox[{"{", RowBox[{"83.6`", ",", "68.614`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.7`", ",", "0.336`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.2`", ",", "1.741`"}], "}"}], ",", RowBox[{"{", RowBox[{"78.6`", ",", "374.32`"}], "}"}], ",", RowBox[{"{", RowBox[{"24.2`", ",", "12.101`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.1`", ",", "0.97`"}], "}"}], ",", RowBox[{"{", RowBox[{"100.6`", ",", "139.57`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.77`", ",", "1.301`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.2`", ",", "1.667`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.68`", ",", "0.194`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.35`", ",", "0.14`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.98`", ",", "0.012`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.764459612730691*^9}, CellLabel->"Out[29]=",ExpressionUUID->"9361e1a8-b73f-4738-9885-adcd0c9dc08d"] }, Open ]], Cell[CellGroupData[{ Cell["Correla\[CCedilla]\[OTilde]es", "Subsubsection", CellChangeTimes->{{3.7644597296233664`*^9, 3.764459731668695*^9}},ExpressionUUID->"11580cdb-443d-4171-bc6c-\ a26ef32f1525"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "@", RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"colL", ",", " ", "colVflat"}], "}"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.764459734245186*^9, 3.764459746558156*^9}, { 3.764459809266534*^9, 3.7644598390130873`*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"0c2d8e60-c7c5-4e91-9001-965a9d4136c7"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxdVg1MlWUUvhGBEhoRlQgamPw4bYaMOVfuHiQh5ELcP4R7gS4/l9j1j0AF zVGNuSIt5+7KUZbaD2ahMzUWxQzDlAodEUrMWFwtGAMGKP4g6vre9zm8Tb6N fTu85z3nOed5zvlueP4Gk9NLp9Pt0v7EO1Y+x/U6fs61iqdD2Yal1fGOf/cr e5W/18K3nvhF/2GN9nQZ6HVX40b3rNN6ec8/iYR327yv4f9GEo0cPJOytNqj l2nc6VT70emwo6UtsI+vorMpIoGH46dR38Sh0fbuZJJmj5Nyv0/WMj5KReJJ tJN7lnfGzGeOKTyvBR1J8pSWkcRzqIwEuq60ANzXJXO+e8C7xU6flyz36/zs lrr/ZNf5m+YrvogfmUOwPer875fe3bM+8AGatOMkoGBl3+uo6I/8JkzZMk/N TJL1PZZNGhot4HzE35xHi7vn+7z5/l29tHstJNNFzIZ/WSbJdnr7qnjBstwo 3PfJJlvhcxqkYfSvzEqvinJKJhTeL0W740dQb006NV+Pzt7107fMF1F/ZMy0 utBHkM9to3RRXlUg4hdZaYWg79J0zpfB+Oegv8tspAW7Hu1tAj5HIfPni3jm 1bR9wPjd3Ooy2FVr6EXPVo2hEK7PTpIvLxNJvewspE2SUA/wjRupePfQNn3c edjByfTpyvprd4O4f0UOqgvVOlBu4f6+wvj/Qf09FlooAfsBb5YVef7Kx/t5 F+J1tECvO9Pp1K8HVtY/nYB4zfngJ86KfPUuEt0Yf8/IfDhpi2zgXtZ7MvR6 eAn8a3NIsLF8Htfn70TchFTcb3LSJ8PaQNyMw/kdB+ZnWoLqJ3Sch3fNGro0 XulqPLEI8T9w0A1BZ85a+Ietp581dRfHxHB/Xyapx99X43x/gernpD7+SM0P yGyIw3mJA/pot7E+nST1fiwV9pkCzNvhCK7PTtDXVejXx8L6iFN6lXQ4YlGf IZekPOcUcH1F6E/iJtjPuihCm4aEHawfdwb8h5w8/y6S8QKI+1gAvR9dwPzn cJ8aVH3YZ6EKj0jn19nM87AE+f2icW+Bgy5UCEJ1yl+oo6L///kD3x2YN7OJ xDR+PNx5//7ZOhf1DmaRHM89FzlfCoVr9OweGlP++P8E688KvmJmTMk/xvOa wfPeh/sUz3zqgL8hg5adaNl8ct87Kj70fQt4Y008NwHsn8nzMar85Xpvuww+ E0302wERoAf4Bs105QuxQP0Uvsl9Mmnr5UK8rOx1ciDOKVvO/9lA3Kds6Cvw YRVPlpPrxedW8kaDuT8WQj9moI7eFyhKrC/bDdR3zUJ7xXovHod/q5H1GAI+ FtnpKbmQeL/3mqn85L7Zi7vDcd5q4/4/zvntJNgMOuKv8GH/PsR6TqfAqiZt YzBeh4n5bZzSjzvAU8d62RCg4sl9UnkV/k1ZJK9vexDnPWYS07C27wcVD3o9 qOyvRtu1Cf6T600jfJ/b1LncFxsH+PtqoEwpkB/VuZRrEOurxsL1jID/WjP2 XWU7f18MPB896r7cX1FG6Gl6AYXIhXmB8RB/PyZYv0Z8D5zl6P/FEuzb2Gi6 v77h++stzWM+1hHKG2M9Gnn/3p6i9xZlD2rptg+cYv0b6LZoh/tt/j2ygv4D F19OAA== "]]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 54.481500000000004`}, {0, 314.6}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7644597471558647`*^9, {3.76445981313988*^9, 3.764459839383967*^9}}, CellLabel->"Out[32]=",ExpressionUUID->"d16cbda8-4fd0-4008-9817-35551cde1254"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"colL", ",", " ", "colReff"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"Frame", " ", "\[Rule]", " ", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.764459900179009*^9, 3.76445990104165*^9}, { 3.7645254865368147`*^9, 3.764525502295526*^9}}, CellLabel-> "In[157]:=",ExpressionUUID->"3d549013-0447-4c9a-a58c-80698e619a52"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxVVQtMlWUY/jmHw8Ejl3OOh/sBREBwVo7YmWvNva8yKzMq6OaYOaVozFkW ahA5W3OuqBVzrLnKMrMyS52ZOS1meSnpoiM6RmZMEAvZibidwMPF9X/f+/xn 69+Affzf937P+7zP8/x51esra2yGYTSbP+pvqX4+p5XNp/4tXjlK535ST5DG itV/bHzPwqbFq/98j1yde55e5OqjuxNs819K/Z62hSqO5WwbpRfWtm5sST9D UmeU1O72OZ+izlUa2vvd8oVNPVRp7g5VGPzR22dmH6prow/Map17wnR2ubqg hxbpC+K5b3LfcEfXMv5blQ/5edWXy8wbPWzoJ45b0mMfTrr5MMn6Gj3vO3hn T90GNn83+m4pZIXu4r1u1u00p+C+G/SMvsDLcu919OPjtIvnxx/odbL068G6 h+R8Al++77UdT3ljWMM/lsIBDSgDePx8I9jQP/ez2WzebkLI5rfeVE8S/nrY RGMWLOAn9DNGC7oK4l58Yxr8eVhfV5jJuo/GNNZ0xjrRfwZn6HaLWPCmcdXj t5uQBkneJ7L0NSk8NLr4Y0X34iH0O4NPqzZOfYH3YeqfWxK/35/Meukz+H7V 3lYvy/wTeYka36UZwBMH/NlRfHpfbCULfgfL/Jws852Svpo2AG8u36WJycJ9 cVLHVgncGbxJD7QH+rtMtdsHNlPgPMm5YXp/6dHRaV8B6sTwfr/JQP2DPE8f 8AL/Vei1m+ZrwC7MMyw6/KOaRV9+1vWCbdDbBJ38YffSo/ll6D+N9XwCD2F+ dlZsRF6vAP4cfk4TuBN8Bknr9cCt6CdG+p5TCf15WNuirBzv7fzuoGmI8QDw pLL2T3wZ52ri7HLvvjWi54PpfCmyZW3rkZtY09mZKH09uk54nMjnb01115aU YB6ZosefH8G8stjiU3QwTL+UV7tXHA9Av4boo6MK+kwXvR8uh95nid8OFELf HuhrhGT/XyT6CEifpW7W41hdiv6TpM/sx1DPLfzcsQn85nOh6YayV52Yp032 D9Sgn1yp52bMJ1l4PDQP/oiQ1DmOPOlGDvlxPga8nY7qX3RZLH0vyecLDWqg BviIZaWOhn4n9OvBvINk+Ve58Z3BThK8U6ibw5J3GaztueNXsvyVZ45n+0CY BIcDfU8Cp13mVZIInOMk94dJ5m+H3/uwHoU/DPgtjm870vbsiV2voP928Uvw Oln+FNxu6NfH4o9h7Lexjvf2K8iLafpxtypg8dhLvR+qAHUBd140T6y8Jx2I V+BXJz+pDXEOPDvEt2e98GM88nQm8M9i3c4qG+rP5FghGLwamEci9OTmIhVf VWPI/wTeqeK9NgL/G8grK2+88JUT5yeo/sSuzAVdeWzlr/CfgvuT4bsE6DkZ +euI6s+79RszMWxYx2C+reCvC3xMgQ8H63bWW/y7JE+2jOB7GCZ9fLMd/kpg 5YZ1fV8hDwfB417M6xp9MtxhOvg38B8i+T63wwcR0nmxMYT5h2iFFsjX0O8/ 0GUY/NnQzxDycIQEXwf0PUTij+7ofp1fRRXQQSpn6cC8QJYf5fsxSda8NY6a esyhgHXelhb/Pw9c1vfMIeu6NXhfDH2G0U8y/DgRrW/ludSPoM5J8DdJE4qO lpfR3+/0H5Vc9UE= "]]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 54.481500000000004`}, {0, 12.36}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7645255029743023`*^9}, CellLabel-> "Out[157]=",ExpressionUUID->"a6c5f758-c85c-4bd9-872a-d1d5619dfb13"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", " ", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", " ", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.76452552828894*^9, 3.764525593173658*^9}}, CellLabel-> "In[161]:=",ExpressionUUID->"0deb13e5-efd8-4276-b34f-56e473672cf5"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF0HssFAAcwPE7WoZ18+g0p2tIt0mEOVlu0Q2nc2jn2Wa0OpQ8mqblMKMJ m6tbSdML2bReomQ0r7huN7mFO4XsPLrd0M1dXHe64y794ff747vP/1+PCwXc TCsCgRC7038/p3vMWyyawV1pejrn+iZaI2D3qrUop+/avZlFdNJVzHo/gi7I czqyqtEtdleFlIQGnWB5PaKugeGDjvPPnNTg8ebnT7lHV8H6lraahphlsIHL Xo6KUIH8tF5OU4YSNJGlNB53CVzXnPHpj1sAH0R6XS79MQfetDNnpUimQXpF fn6lUQ7KQjpHp8ImwKQmvteeS6Og0H9IvDU7DJYQAsrjUj6AbrdfOjiT74Pt SmKLbUFr2K7x9jY9q5u9YKNfI6Pmrgg84Po4amV0DFSEl8lK8yfB3BGyMSjw Gzik4tH3s2bB+FRqdquLAiwWET2rVhZAX99xCke7BJoZMtIVuRIMfBIgoC6q QO0cbTFUuQyOjZz1fydaBe1NU7Z9UjWYPXNHQe1aA9tiroqKorXgF644nRbz Gyx/062vZKyDvA55gjdzA5zeK2gvCdaBjlIHnTXtD1gaOmye8taDRdv7bBIP GsDm7Gq52+FNUHh6rM71yF+QVPCKubMSHIjo6e+mmMDtvIzgZNIWSLSZbPTZ RoOjC4fZBDNonHu9TF5HI3Ilwlg9KjD9DKkyou4Ut1qdlQVkpdR6y5zR+onM HCEd9RMfUtsVozeSTtYzy9BPyiQGvwJNtBbUrdSiJeGmY5KHqOTj97yqPtSJ vUHuH0LTZkgDOhGqMUSSeFLUhd7VzlSg50Vfk/lL6IuEX+ZOFcoo9Iz30KC3 iKcMqRvouPBck9CAUtyLWBITevGtUGOxoP8AcRCY6Q== "]]}, Annotation[#, "Charting`Private`Tag$14054#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{-1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{-1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-1, 2}, {-0.9999999387755102, 1.9999999387755103`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.764525535391892*^9, 3.7645255611318083`*^9}, 3.764525593628373*^9}, CellLabel-> "Out[161]=",ExpressionUUID->"c9ed4039-18ce-4b51-94d7-f73e401f92c9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "@", RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", "colL"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.764525290466687*^9, 3.764525306269827*^9}}, CellLabel-> "In[155]:=",ExpressionUUID->"7ac55d2f-3f38-44c1-b74d-6f3e57abf55e"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.609], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.609], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {5., 94.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.75860688550841, 102.02500181963752`}, {-208.16075599292287`, 189.74918253870976`}}], StatusArea[#, 94]& , TagBoxNote->"94"], StyleBox["94", {}, StripOnInput -> False]], Annotation[#, Style[94, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {10., 10.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{101.02500181963752`, 162.29139675376663`}, { 146.5247209927914, 189.74918253870976`}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", {}, StripOnInput -> False]], Annotation[#, Style[10, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {15., 8.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{161.29139675376663`, 222.55779168789576`}, { 154.96961330197507`, 189.74918253870976`}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{15., 0}, {20., 3.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{221.55779168789576`, 282.82418662202485`}, { 176.08184407493425`, 189.74918253870976`}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {25., 3.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{281.82418662202485`, 343.090581556154}, { 176.08184407493425`, 189.74918253870976`}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{30., 0}, {35., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{402.3569764902831, 463.62337142441226`}, { 184.52673638411792`, 189.74918253870976`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{35., 0}, {40., 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{462.62337142441226`, 523.8897663585414}, { 180.3042902295261, 189.74918253870976`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{50., 0}, {55., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{643.4225562267995, 704.6889511609287}, { 184.52673638411792`, 189.74918253870976`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{55., 0}, {60., 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{703.6889511609287, 764.9553460950577}, { 180.3042902295261, 189.74918253870976`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{65., 0}, {70., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{824.2217410291869, 885.488135963316}, { 184.52673638411792`, 189.74918253870976`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{70., 0}, {75., 4.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{884.488135963316, 945.7545308974451}, { 171.85939792034242`, 189.74918253870976`}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{80., 0}, {85., 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{1005.0209258315742`, 1066.2873207657035`}, { 180.3042902295261, 189.74918253870976`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{95., 0}, {100., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{1185.8201106339618`, 1247.0865055680908`}, { 184.52673638411792`, 189.74918253870976`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{105., 0}, {110., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{1306.3529005022199`, 1367.6192954363491`}, { 184.52673638411792`, 189.74918253870976`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{135., 0}, {140., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{1667.9512701069946`, 1729.2176650411238`}, { 184.52673638411792`, 189.74918253870976`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{140., 0}, {145., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{1728.2176650411238`, 1789.4840599752529`}, { 184.52673638411792`, 189.74918253870976`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{150., 0}, {155., 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{1848.750454909382, 1910.0168498435112`}, { 180.3042902295261, 189.74918253870976`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{175., 0}, {180., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{2150.0824295800276`, 2211.3488245141566`}, { 184.52673638411792`, 189.74918253870976`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{225., 0}, {230., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{2752.746378921319, 2814.012773855448}, { 184.52673638411792`, 189.74918253870976`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{310., 0}, {315., 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{3777.275092801514, 3838.541487735643}, { 180.3042902295261, 189.74918253870976`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{340., 0}, {345., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{4138.873462406288, 4200.139857340417}, { 184.52673638411792`, 189.74918253870976`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{370., 0}, {375., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{4500.471832011062, 4561.738226945192}, { 184.52673638411792`, 189.74918253870976`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-1.1, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0, 55}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.76452530703309*^9}, CellLabel-> "Out[155]=",ExpressionUUID->"7b366c05-803d-4985-a6c1-26543614add9"] }, Open ]], Cell["Melhorando um pouco a apar\[EHat]ncia do Plot", "Text", CellChangeTimes->{{3.764459918544767*^9, 3.7644599246722193`*^9}},ExpressionUUID->"83834447-92c7-45d1-8b24-\ 7687687c922d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"colL", ",", " ", "colReff"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"PlotTheme", "->", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.7644599260743523`*^9, 3.764459973701679*^9}, { 3.764525351661888*^9, 3.764525360415628*^9}}, CellLabel-> "In[156]:=",ExpressionUUID->"1f2f83f0-ed5f-494e-9bdb-f632088fdbc5"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxVVQtMlWUY/jmHw8Ejl3OOh/sBREBwVo7YmWvNva8yKzMq6OaYOaVozFkW ahA5W3OuqBVzrLnKMrMyS52ZOS1meSnpoiM6RmZMEAvZibidwMPF9X/f+/xn 69+Affzf937P+7zP8/x51esra2yGYTSbP+pvqX4+p5XNp/4tXjlK535ST5DG itV/bHzPwqbFq/98j1yde55e5OqjuxNs819K/Z62hSqO5WwbpRfWtm5sST9D UmeU1O72OZ+izlUa2vvd8oVNPVRp7g5VGPzR22dmH6prow/Map17wnR2ubqg hxbpC+K5b3LfcEfXMv5blQ/5edWXy8wbPWzoJ45b0mMfTrr5MMn6Gj3vO3hn T90GNn83+m4pZIXu4r1u1u00p+C+G/SMvsDLcu919OPjtIvnxx/odbL068G6 h+R8Al++77UdT3ljWMM/lsIBDSgDePx8I9jQP/ez2WzebkLI5rfeVE8S/nrY RGMWLOAn9DNGC7oK4l58Yxr8eVhfV5jJuo/GNNZ0xjrRfwZn6HaLWPCmcdXj t5uQBkneJ7L0NSk8NLr4Y0X34iH0O4NPqzZOfYH3YeqfWxK/35/Meukz+H7V 3lYvy/wTeYka36UZwBMH/NlRfHpfbCULfgfL/Jws852Svpo2AG8u36WJycJ9 cVLHVgncGbxJD7QH+rtMtdsHNlPgPMm5YXp/6dHRaV8B6sTwfr/JQP2DPE8f 8AL/Vei1m+ZrwC7MMyw6/KOaRV9+1vWCbdDbBJ38YffSo/ll6D+N9XwCD2F+ dlZsRF6vAP4cfk4TuBN8Bknr9cCt6CdG+p5TCf15WNuirBzv7fzuoGmI8QDw pLL2T3wZ52ri7HLvvjWi54PpfCmyZW3rkZtY09mZKH09uk54nMjnb01115aU YB6ZosefH8G8stjiU3QwTL+UV7tXHA9Av4boo6MK+kwXvR8uh95nid8OFELf HuhrhGT/XyT6CEifpW7W41hdiv6TpM/sx1DPLfzcsQn85nOh6YayV52Yp032 D9Sgn1yp52bMJ1l4PDQP/oiQ1DmOPOlGDvlxPga8nY7qX3RZLH0vyecLDWqg BviIZaWOhn4n9OvBvINk+Ve58Z3BThK8U6ibw5J3GaztueNXsvyVZ45n+0CY BIcDfU8Cp13mVZIInOMk94dJ5m+H3/uwHoU/DPgtjm870vbsiV2voP928Uvw Oln+FNxu6NfH4o9h7Lexjvf2K8iLafpxtypg8dhLvR+qAHUBd140T6y8Jx2I V+BXJz+pDXEOPDvEt2e98GM88nQm8M9i3c4qG+rP5FghGLwamEci9OTmIhVf VWPI/wTeqeK9NgL/G8grK2+88JUT5yeo/sSuzAVdeWzlr/CfgvuT4bsE6DkZ +euI6s+79RszMWxYx2C+reCvC3xMgQ8H63bWW/y7JE+2jOB7GCZ9fLMd/kpg 5YZ1fV8hDwfB417M6xp9MtxhOvg38B8i+T63wwcR0nmxMYT5h2iFFsjX0O8/ 0GUY/NnQzxDycIQEXwf0PUTij+7ofp1fRRXQQSpn6cC8QJYf5fsxSda8NY6a esyhgHXelhb/Pw9c1vfMIeu6NXhfDH2G0U8y/DgRrW/ludSPoM5J8DdJE4qO lpfR3+/0H5Vc9UE= "]]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameStyle->Automatic, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.4, 0.5], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 54.481500000000004`}, {0, 12.36}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.76445997412004*^9, 3.764525361168089*^9}, CellLabel-> "Out[156]=",ExpressionUUID->"d849dd03-c44a-4dd4-b288-974942a19ac3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Cyan", ",", "0.3"}], "]"}], ",", " ", RowBox[{"Thickness", "\[Rule]", " ", ".2"}], ",", " ", RowBox[{"Circle", "[", "]"}]}], "}"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "12"}]}], "]"}]], "Input", CellLabel-> "In[162]:=",ExpressionUUID->"5005ee5b-2ec0-4eaa-b246-66e82550e206"], Cell[BoxData[ GraphicsBox[ {RGBColor[0., 0.7, 0.7], Thickness[0.2], CircleBox[{0, 0}]}, ImageSize->12]], "Output", CellChangeTimes->{3.764525652830978*^9}, CellLabel-> "Out[162]=",ExpressionUUID->"732ab292-a156-4f9f-9779-63ac7e416da6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", " ", RowBox[{"Disk", "[", "]"}]}], "}"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "12"}]}], "]"}]], "Input", CellLabel-> "In[177]:=",ExpressionUUID->"1d048345-383d-4968-9699-5a676fe22bc6"], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], DiskBox[{0, 0}]}, ImageSize->12]], "Output", CellChangeTimes->{3.764525749466824*^9}, CellLabel-> "Out[177]=",ExpressionUUID->"ec09b660-ec2e-4765-ab82-028f7bd81e02"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["colL"], "Input", CellChangeTimes->{{3.764525884494965*^9, 3.764525891459827*^9}, { 3.764525955514333*^9, 3.764525957256174*^9}}, CellLabel-> "In[184]:=",ExpressionUUID->"58697caf-3e65-404d-95a0-9d9d84bf9688"], Cell[BoxData["8"], "Output", CellChangeTimes->{3.764525958053234*^9}, CellLabel-> "Out[184]=",ExpressionUUID->"56234a67-b452-4ef8-9ef2-0163014ceac1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.764526165204216*^9, 3.764526171360957*^9}}, CellLabel-> "In[188]:=",ExpressionUUID->"8c4d7527-93b3-41e5-afd8-9e8453b849ef"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.36`", ",", "0.26`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.2`", ",", "4.56`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.79`", ",", "0.28`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.72`", ",", "0.18`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "2.04`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.04`", ",", "0.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.5`", ",", "2.25`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.25`", ",", "0.21`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.4`", ",", "4.62`"}], "}"}], ",", RowBox[{"{", RowBox[{"28.7`", ",", "7.17`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.`", ",", "3.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.83`", ",", "0.48`"}], "}"}], ",", RowBox[{"{", RowBox[{"60.8`", ",", "9.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"66.4`", ",", "10.`"}], "}"}], ",", RowBox[{"{", RowBox[{"48.9`", ",", "9.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"54.`", ",", "10.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"59.7`", ",", "11.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"51.8`", ",", "10.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"79.`", ",", "11.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"90.7`", ",", "9.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"82.4`", ",", "8.24`"}], "}"}], ",", RowBox[{"{", RowBox[{"80.6`", ",", "8.06`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.3`", ",", "10.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"80.1`", ",", "8.`"}], "}"}], ",", RowBox[{"{", RowBox[{"96.8`", ",", "9.68`"}], "}"}], ",", RowBox[{"{", RowBox[{"89.1`", ",", "8.91`"}], "}"}], ",", RowBox[{"{", RowBox[{"89.5`", ",", "8.95`"}], "}"}], ",", RowBox[{"{", RowBox[{"35.4`", ",", "8.85`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.3`", ",", "10.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.91`", ",", "0.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "2.04`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.3`", ",", "0.36`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.11`", ",", "0.11`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.5`", ",", "4.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.7`", ",", "0.19`"}], "}"}], ",", RowBox[{"{", RowBox[{"20.8`", ",", "5.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.08`", ",", "0.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"80.7`", ",", "8.07`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.4`", ",", "3.42`"}], "}"}], ",", RowBox[{"{", RowBox[{"37.`", ",", "9.25`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.73`", ",", "0.29`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.27`", ",", "0.16`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.16`", ",", "0.16`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.6`", ",", "1.98`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.06`", ",", "0.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.58`", ",", "0.18`"}], "}"}], ",", RowBox[{"{", RowBox[{"68.1`", ",", "10.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.33`", ",", "0.07`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.8`", ",", "1.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.7`", ",", "2.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.21`", ",", "0.17`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"23.7`", ",", "2.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.37`", ",", "0.22`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.87`", ",", "0.14`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.`", ",", "2.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.9`", ",", "0.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"39.7`", ",", "9.92`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.06`", ",", "2.12`"}], "}"}], ",", RowBox[{"{", RowBox[{"17.3`", ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"17.`", ",", "5.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.26`", ",", "0.31`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.52`", ",", "0.18`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.61`", ",", "0.18`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.6`", ",", "1.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"64.5`", ",", "9.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"17.1`", ",", "5.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"30.9`", ",", "7.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5`", ",", "3.75`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.2`", ",", "3.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.7`", ",", "10.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.27`", ",", "0.24`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "3.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5`", ",", "3.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.92`", ",", "2.08`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.51`", ",", "2.85`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.45`", ",", "0.17`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.6`", ",", "2.88`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.34`", ",", "0.31`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5`", ",", "3.75`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.7`", ",", "10.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.4`", ",", "2.82`"}], "}"}], ",", RowBox[{"{", RowBox[{"21.3`", ",", "5.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.18`", ",", "1.85`"}], "}"}], ",", RowBox[{"{", RowBox[{"58.7`", ",", "11.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.47`", ",", "2.24`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.64`", ",", "2.59`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.66`", ",", "2.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.63`", ",", "2.59`"}], "}"}], ",", RowBox[{"{", RowBox[{"47.7`", ",", "9.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.`", ",", "3.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.1`", ",", "4.53`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"19.8`", ",", "5.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.87`", ",", "0.34`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.83`", ",", "0.17`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.1`", ",", "3.93`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.`", ",", "2.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.43`", ",", "2.53`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.74`", ",", "0.24`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.97`", ",", "0.25`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.59`", ",", "0.13`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.7`", ",", "1.41`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.21`", ",", "2.46`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.11`", ",", "2.43`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.57`", ",", "0.23`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5`", ",", "0.21`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.65`", ",", "0.53`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.7`", ",", "2.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.21`", ",", "0.36`"}], "}"}], ",", RowBox[{"{", RowBox[{"83.6`", ",", "8.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.7`", ",", "3.21`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.2`", ",", "4.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"78.6`", ",", "11.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"24.2`", ",", "6.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.1`", ",", "5.43`"}], "}"}], ",", RowBox[{"{", RowBox[{"100.6`", ",", "10.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.77`", ",", "2.93`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.2`", ",", "4.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.68`", ",", "0.28`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.35`", ",", "0.22`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.98`", ",", "0.05`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7645261718980503`*^9}, CellLabel-> "Out[188]=",ExpressionUUID->"6f7e4310-0df1-49a6-8cac-7a5208016fe9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Log10", "[", RowBox[{"2", " ", SuperscriptBox["10", "9"], " ", RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "dataC", "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.764526073027244*^9, 3.764526201472848*^9}}, CellLabel-> "In[189]:=",ExpressionUUID->"594a2ab0-f00c-4901-ad85-47b25dfb7a8b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.36`", ",", "8.7160033436348`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.2`", ",", "9.959994838328416`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.79`", ",", "8.7481880270062`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.72`", ",", "8.556302500767288`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "9.61066016308988`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.04`", ",", "8.602059991327963`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.5`", ",", "9.653212513775344`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.25`", ",", "8.6232492903979`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.4`", ",", "9.965671971220107`"}], "}"}], ",", RowBox[{"{", RowBox[{"28.7`", ",", "10.156549151331781`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.`", ",", "9.89209460269048`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.83`", ",", "8.982271233039569`"}], "}"}], ",", RowBox[{"{", RowBox[{"60.8`", ",", "10.260071387985075`"}], "}"}], ",", RowBox[{"{", RowBox[{"66.4`", ",", "10.301029995663981`"}], "}"}], ",", RowBox[{"{", RowBox[{"48.9`", ",", "10.292256071356476`"}], "}"}], ",", RowBox[{"{", RowBox[{"54.`", ",", "10.334453751150932`"}], "}"}], ",", RowBox[{"{", RowBox[{"59.7`", ",", "10.376576957056512`"}], "}"}], ",", RowBox[{"{", RowBox[{"51.8`", ",", "10.318063334962762`"}], "}"}], ",", RowBox[{"{", RowBox[{"79.`", ",", "10.372912002970107`"}], "}"}], ",", RowBox[{"{", RowBox[{"90.7`", ",", "10.287801729930226`"}], "}"}], ",", RowBox[{"{", RowBox[{"82.4`", ",", "10.216957207361096`"}], "}"}], ",", RowBox[{"{", RowBox[{"80.6`", ",", "10.207365037469073`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.3`", ",", "10.330413773349191`"}], "}"}], ",", RowBox[{"{", RowBox[{"80.1`", ",", "10.204119982655925`"}], "}"}], ",", RowBox[{"{", RowBox[{"96.8`", ",", "10.286905352972376`"}], "}"}], ",", RowBox[{"{", RowBox[{"89.1`", ",", "10.250907699700855`"}], "}"}], ",", RowBox[{"{", RowBox[{"89.5`", ",", "10.252853030979892`"}], "}"}], ",", RowBox[{"{", RowBox[{"35.4`", ",", "10.247973266361807`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.3`", ",", "10.330413773349191`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.91`", ",", "8.602059991327963`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.8`", ",", "9.61066016308988`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.3`", ",", "8.857332496431269`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.11`", ",", "8.342422680822207`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.5`", ",", "9.90848501887865`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.7`", ",", "8.57978359661681`"}], "}"}], ",", RowBox[{"{", RowBox[{"20.8`", ",", "10.01703333929878`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.08`", ",", "8.301029995663981`"}], "}"}], ",", RowBox[{"{", RowBox[{"80.7`", ",", "10.207903530386051`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.4`", ",", "9.835056101720117`"}], "}"}], ",", RowBox[{"{", RowBox[{"37.`", ",", "10.267171728403014`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.73`", ",", "8.763427993562937`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.27`", ",", "8.505149978319906`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.16`", ",", "8.505149978319906`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.6`", ",", "9.597695185925513`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.06`", ",", "8.602059991327963`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.58`", ",", "8.556302500767288`"}], "}"}], ",", RowBox[{"{", RowBox[{"68.1`", ",", "10.3096301674259`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.33`", ",", "8.146128035678238`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.8`", ",", "9.44715803134222`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.7`", ",", "9.662757831681574`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.21`", ",", "8.531478917042255`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"23.7`", ",", "9.662757831681574`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.37`", ",", "8.643452676486188`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.87`", ",", "8.44715803134222`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.`", ",", "9.732393759822969`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.9`", ",", "8.778151250383644`"}], "}"}], ",", RowBox[{"{", RowBox[{"39.7`", ",", "10.29754166781816`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.06`", ",", "9.627365856592732`"}], "}"}], ",", RowBox[{"{", RowBox[{"17.3`", ",", "9.255272505103306`"}], "}"}], ",", RowBox[{"{", RowBox[{"17.`", ",", "10.008600171761918`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.26`", ",", "8.792391689498254`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.52`", ",", "8.556302500767288`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.61`", ",", "8.556302500767288`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.6`", ",", "9.44715803134222`"}], "}"}], ",", RowBox[{"{", RowBox[{"64.5`", ",", "10.287801729930226`"}], "}"}], ",", RowBox[{"{", RowBox[{"17.1`", ",", "10.008600171761918`"}], "}"}], ",", RowBox[{"{", RowBox[{"30.9`", ",", "10.187520720836464`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5`", ",", "9.8750612633917`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.2`", ",", "9.792391689498254`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.7`", ",", "10.330413773349191`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.27`", ",", "8.681241237375588`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.4`", ",", "9.792391689498254`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5`", ",", "9.792391689498254`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.92`", ",", "9.619093330626743`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.51`", ",", "9.755874855672491`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.45`", ",", "8.531478917042255`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.6`", ",", "9.760422483423213`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.34`", ",", "8.792391689498254`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5`", ",", "9.8750612633917`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.7`", ",", "10.330413773349191`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.4`", ",", "9.751279103983343`"}], "}"}], ",", RowBox[{"{", RowBox[{"21.3`", ",", "10.02530586526477`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.18`", ",", "9.568201724066995`"}], "}"}], ",", RowBox[{"{", RowBox[{"58.7`", ",", "10.369215857410143`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.47`", ",", "9.651278013998144`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.64`", ",", "9.714329759745233`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.66`", ",", "9.662757831681574`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.63`", ",", "9.714329759745233`"}], "}"}], ",", RowBox[{"{", RowBox[{"47.7`", ",", "10.278753600952829`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.`", ",", "9.857332496431269`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.1`", ",", "9.957128197676813`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.`", ",", "9.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"19.8`", ",", "10.071882007306126`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.87`", ",", "8.832508912706237`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.83`", ",", "8.531478917042255`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.1`", ",", "9.895422546039407`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.`", ",", "9.681241237375588`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.43`", ",", "9.7041505168398`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.74`", ",", "8.681241237375588`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.97`", ",", "8.698970004336019`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.59`", ",", "8.414973347970818`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.7`", ",", "9.450249108319362`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.21`", ",", "9.69196510276736`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.11`", ",", "9.686636269262294`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.57`", ",", "8.662757831681574`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5`", ",", "8.6232492903979`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.65`", ",", "9.02530586526477`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.7`", ",", "9.602059991327963`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.21`", ",", "8.857332496431269`"}], "}"}], ",", RowBox[{"{", RowBox[{"83.6`", ",", "10.225309281725863`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.7`", ",", "9.807535028068854`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.2`", ",", "9.963787827345556`"}], "}"}], ",", RowBox[{"{", RowBox[{"78.6`", ",", "10.372912002970107`"}], "}"}], ",", RowBox[{"{", RowBox[{"24.2`", ",", "10.08278537031645`"}], "}"}], ",", RowBox[{"{", RowBox[{"18.1`", ",", "10.035829825252828`"}], "}"}], ",", RowBox[{"{", RowBox[{"100.6`", ",", "10.305351369446624`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.77`", ",", "9.767897616018091`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.2`", ",", "9.903089986991944`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.68`", ",", "8.7481880270062`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.35`", ",", "8.643452676486188`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.98`", ",", "8.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.764526083406843*^9, 3.764526100622389*^9}, 3.764526162208725*^9, 3.7645262029138823`*^9}, CellLabel-> "Out[189]=",ExpressionUUID->"24fa2e4c-dfca-4a85-ae9d-459d9b4279a9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"colL", ",", " ", "colReff"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"Axes", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"PlotMarkers", "\[Rule]", " ", "\[Theta]"}], ",", " ", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"GridLinesStyle", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{"Dashed", ",", " ", "LightGray"}], "]"}]}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"colL", ",", " ", "colReff"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"Axes", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", " ", RowBox[{"Disk", "[", "]"}]}], "}"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "12"}]}], "]"}]}], ",", " ", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"GridLinesStyle", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{"Dashed", ",", " ", "LightGray"}], "]"}]}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input", CellChangeTimes->{{3.764459999421344*^9, 3.764460155657874*^9}, { 3.764460191702573*^9, 3.764460243932105*^9}, {3.764460281121792*^9, 3.764460522337227*^9}, {3.764460738579856*^9, 3.764460750468883*^9}, { 3.764460848612239*^9, 3.764460935560978*^9}, {3.764525697145034*^9, 3.764525766369429*^9}, {3.764525814654663*^9, 3.764525835469721*^9}}, CellLabel-> "In[182]:=",ExpressionUUID->"f45a6f65-fd6a-421e-b9f8-c7fc211524a8"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[6], AbsoluteThickness[1.6], GeometricTransformationBox[ InsetBox["\[Theta]", {0., 0.}], CompressedData[" 1:eJxVVQ1MVWUYPvdeLhevwP3x8n8BERCclSN251pz76vMyowK+nPMnFI05iwL NYicrTlX1Io51lxlmVmZpc7MnBaz/CnpR0d0jcyYXLGQ3Qgu3MDLj+uc733O 3Trb4e7jfOf9nvd5n+c5BbXrq+tsmqa16rdFv636Xa6uz2ll66l/S1eO0rmf jCtIY6XGf6x8z8KWxav/fI+c3XueXuTsp7uTrfNfSv+etoWrjuVtG6UX1rZv bMs8Q1JnlIzdnXM+RZ2rNLz3u+ULW0JUre8OV2n80dtnZh9q6KAP9Grde6J0 drlxQIgWqQOSuH9yX6SrZxn/bZQP+3nVl8v0Ez2sqSuR2zITHk69+TDJ+ho9 7zt4Z6hhA+t/m323FLOB7uK9blbttKbhvBv0jDrAy3LudfTj44yL58cf6HOw 9OvBOkTyfjJfvu+1HU95LazgH0vjgAKUBTx+vhFsGpj72WzWT9ch5PJbbxpX Kn49rKPRCxbxE+oaowU9RYkvvjEN/jysjivOZtVHcwYrOhMc6D+Ls1S7JSx4 M7jm8dt1SEMkz1NY+poUHpqd/LFB9+Jh9DuDTxttnPoCz6M0MLcsab/fxWrp 0/h+o72tXpb5p/ASY3yXZgBPIvDnxvGpfQnVLPjtLPNzsMx3Svpq2QC8+XyX IiYH5yVKHWs1cGfxJjXQEPR3meq3D26mwHmS9yL0/tKjo9O+ItSx8H6/zkDj gzxPveAF/qvQay/NV4CdmGdUdPhHLYu+/KzqBTugtwk6+cPupUcLK9B/Bqv5 BB7C/GxssBF7vQr48/g5ReBO8BkkpdcDt6Ifi/Q9pxr687CyRUUlntv43SHd EOMB4Eln5Z+kCs5XxNnk3H1rRM8HM/lSbMva9iM3saKzO0X6enSd8DhRyN/q 6q4vK8M8skWPPz+CeeWwyafoIEK/VNa6VxwPQL+a6KOrBvrMFL0froTeZ4nf DhRD3x7oa4Rk/18k+ghIn+VuVuNYXY7+U6XP3MdQzy383LEJ/BZyse6Gilcd mKdV9g/WoZ98qedmzMclPB6aB3/ESOocR570Iof8eN8C3k7H9S+6LJW+lxTy hSZjoBr4SGBDHU0DDujXg3kHyfSv4cZ3hrpJ8E6hbh5L3mWxsueOX8n0V4E+ nu2DURIcdvQ9CZw2mVdZCnCOk5wfJZm/DX7vx3oU/tDgt0S+7UjHsyd2vYL+ O8Uvwetk+lNwu6FfH4s/IthvZRXvnVeQF9P0426jgMljH/V9aASoE7gL4nli 5j2pQLwCvzr4SWWIc+DZLr4964Ufk5CnM4F/Fqt2VllRfyYnCMHgVcM8UqAn N5cY8VUzhvxP5p1GvNfH4H8NeWXmjRe+cuD9CWo8sSt7QU8Bm/kr/KfhfBd8 lww9u5C/9rj+vFu/0RPDirUF820Hfz3gYwp82Fm1s97k3yl5smUE38Moqdc3 2+CvZDbcsK7/K+ThEHjci3ldo08iXbqDfwP/YZLvcyd8ECOVFxvDmH+YViiB fA39/gNdRsGfFf0MIw9HSPB1Qd/DJP7oje9X+VVSBR2kc44KzAtk+lG+H5Nk zlvhqGvEHIpY5W156f/zwGl+z+yybliD56XQZxT9uODHiXh9M8+lfgx1ToK/ SZow6Gh7Gf39Tv8BsED1Qw== "]]}, {}}, {}, {}, {}, {}}, AspectRatio->1, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ Dashing[{Small, Small}], GrayLevel[0.85]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 374.32}, {0, 12.36}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.764460745554448*^9, 3.764460751029992*^9}, { 3.7644608591659803`*^9, 3.764460894133471*^9}, {3.7644609268116417`*^9, 3.764460936036408*^9}, {3.764525692461708*^9, 3.7645257668834963`*^9}, { 3.764525826703006*^9, 3.764525836592539*^9}}, CellLabel-> "Out[182]=",ExpressionUUID->"b1b92ed6-986d-44b2-8b5b-243402ffc0e2"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[6], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ GraphicsBox[ {GrayLevel[0], AbsolutePointSize[6], AbsoluteThickness[1.6], DiskBox[{0, 0}]}, ImageSize->12], {0., 0.}], CompressedData[" 1:eJxVVQ1MVWUYPvdeLhevwP3x8n8BERCclSN251pz76vMyowK+nPMnFI05iwL NYicrTlX1Io51lxlmVmZpc7MnBaz/CnpR0d0jcyYXLGQ3Qgu3MDLj+uc733O 3Trb4e7jfOf9nvd5n+c5BbXrq+tsmqa16rdFv636Xa6uz2ll66l/S1eO0rmf jCtIY6XGf6x8z8KWxav/fI+c3XueXuTsp7uTrfNfSv+etoWrjuVtG6UX1rZv bMs8Q1JnlIzdnXM+RZ2rNLz3u+ULW0JUre8OV2n80dtnZh9q6KAP9Grde6J0 drlxQIgWqQOSuH9yX6SrZxn/bZQP+3nVl8v0Ez2sqSuR2zITHk69+TDJ+ho9 7zt4Z6hhA+t/m323FLOB7uK9blbttKbhvBv0jDrAy3LudfTj44yL58cf6HOw 9OvBOkTyfjJfvu+1HU95LazgH0vjgAKUBTx+vhFsGpj72WzWT9ch5PJbbxpX Kn49rKPRCxbxE+oaowU9RYkvvjEN/jysjivOZtVHcwYrOhMc6D+Ls1S7JSx4 M7jm8dt1SEMkz1NY+poUHpqd/LFB9+Jh9DuDTxttnPoCz6M0MLcsab/fxWrp 0/h+o72tXpb5p/ASY3yXZgBPIvDnxvGpfQnVLPjtLPNzsMx3Svpq2QC8+XyX IiYH5yVKHWs1cGfxJjXQEPR3meq3D26mwHmS9yL0/tKjo9O+ItSx8H6/zkDj gzxPveAF/qvQay/NV4CdmGdUdPhHLYu+/KzqBTugtwk6+cPupUcLK9B/Bqv5 BB7C/GxssBF7vQr48/g5ReBO8BkkpdcDt6Ifi/Q9pxr687CyRUUlntv43SHd EOMB4Eln5Z+kCs5XxNnk3H1rRM8HM/lSbMva9iM3saKzO0X6enSd8DhRyN/q 6q4vK8M8skWPPz+CeeWwyafoIEK/VNa6VxwPQL+a6KOrBvrMFL0froTeZ4nf DhRD3x7oa4Rk/18k+ghIn+VuVuNYXY7+U6XP3MdQzy383LEJ/BZyse6Gilcd mKdV9g/WoZ98qedmzMclPB6aB3/ESOocR570Iof8eN8C3k7H9S+6LJW+lxTy hSZjoBr4SGBDHU0DDujXg3kHyfSv4cZ3hrpJ8E6hbh5L3mWxsueOX8n0V4E+ nu2DURIcdvQ9CZw2mVdZCnCOk5wfJZm/DX7vx3oU/tDgt0S+7UjHsyd2vYL+ O8Uvwetk+lNwu6FfH4s/IthvZRXvnVeQF9P0426jgMljH/V9aASoE7gL4nli 5j2pQLwCvzr4SWWIc+DZLr4964Ufk5CnM4F/Fqt2VllRfyYnCMHgVcM8UqAn N5cY8VUzhvxP5p1GvNfH4H8NeWXmjRe+cuD9CWo8sSt7QU8Bm/kr/KfhfBd8 lww9u5C/9rj+vFu/0RPDirUF820Hfz3gYwp82Fm1s97k3yl5smUE38Moqdc3 2+CvZDbcsK7/K+ThEHjci3ldo08iXbqDfwP/YZLvcyd8ECOVFxvDmH+YViiB fA39/gNdRsGfFf0MIw9HSPB1Qd/DJP7oje9X+VVSBR2kc44KzAtk+lG+H5Nk zlvhqGvEHIpY5W156f/zwGl+z+yybliD56XQZxT9uODHiXh9M8+lfgx1ToK/ SZow6Gh7Gf39Tv8BsED1Qw== "]]}, {}}, {}, {}, {}, {}}, AspectRatio->1, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ Dashing[{Small, Small}], GrayLevel[0.85]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 374.32}, {0, 12.36}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.764460745554448*^9, 3.764460751029992*^9}, { 3.7644608591659803`*^9, 3.764460894133471*^9}, {3.7644609268116417`*^9, 3.764460936036408*^9}, {3.764525692461708*^9, 3.7645257668834963`*^9}, { 3.764525826703006*^9, 3.764525836656598*^9}}, CellLabel-> "Out[183]=",ExpressionUUID->"badab83e-1224-45aa-8202-5095014ad376"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.764460743205974*^9, 3.764460743224886*^9}},ExpressionUUID->"1e3d57ac-a768-4f9a-859c-\ dde139dffb1e"], Cell[TextData[{ "Applica \[OpenCurlyDoubleQuote]", Cell[BoxData[ RowBox[{"Log10", "[", RowBox[{ SuperscriptBox["10", "9"], "#"}], " ", "]"}]], CellChangeTimes->{{3.764460550721651*^9, 3.764460562160572*^9}, { 3.764460598879465*^9, 3.764460634229012*^9}},ExpressionUUID-> "74c548d7-f66c-41f2-9375-24635fbee896"], "\[CloseCurlyDoubleQuote] em todos os elementos da primeira coluna, duas \ formas:" }], "Text", CellChangeTimes->{{3.7644606451944*^9, 3.764460665036496*^9}, { 3.7650523827595987`*^9, 3.765052384479732*^9}},ExpressionUUID->"49b486a1-3512-47b7-9b5e-\ 1c01622baaf7"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"colL", ",", "colReff"}], "}"}]}], "]"}], "]"}], " ", "/.", " ", RowBox[{ RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"f", " ", "y"}]}], "}"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764526530859568*^9, 3.76452656695599*^9}, 3.764526687063341*^9},ExpressionUUID->"a442c823-3fb3-49f7-b7ad-\ f5c8c3afa636"], Cell[BoxData[ RowBox[{ RowBox[{"corLReff", " ", "=", " ", RowBox[{"MapAt", "[", RowBox[{ RowBox[{ RowBox[{"Log10", "[", RowBox[{ SuperscriptBox["10", "9"], "#"}], " ", "]"}], "&"}], ",", " ", RowBox[{"dataC", "[", RowBox[{"[", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"colL", ",", " ", "colReff"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"All", ",", "1"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.764460550721651*^9, 3.764460562160572*^9}, { 3.764460598879465*^9, 3.764460634229012*^9}, 3.76452667956466*^9},ExpressionUUID->"2b899947-f419-4709-a2b9-\ 26ae49c5d59d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"corLReff", ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"Axes", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"FrameStyle", "\[Rule]", "14"}], ",", " ", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", " ", RowBox[{"Thickness", "\[Rule]", " ", ".2"}], ",", " ", RowBox[{"Circle", "[", "]"}]}], "}"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "12"}]}], "]"}]}], ",", " ", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"GridLinesStyle", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{"Dashed", ",", " ", "LightGray"}], "]"}]}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]], "Input", CellChangeTimes->{ 3.764460685724272*^9, 3.7644607622808237`*^9, {3.764460961092638*^9, 3.764460991371867*^9}}, CellLabel-> "In[198]:=",ExpressionUUID->"5805fe6a-5a28-4951-8bf3-6873130b6c29"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[6], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ GraphicsBox[ {GrayLevel[0], AbsolutePointSize[6], Thickness[0.2], CircleBox[{0, 0}]}, ImageSize->12], {0., 0.}], CompressedData[" 1:eJxFVWlUU1cQDglERATCIrIIee/lBdSKS11wwTsuCIq1hnqKxw2wFVdAERUE KXVpEfEEATc2BUVkKW3VIyoWVNwVxYUGUSqICxIUEBASWRrCvHjPuT9u3p07 3/fNzBdqZbD3KgGPx5Nrtp5m8zVbbCIzNYt2hGXya+3Oy1pJbmxgopWQgs/O fb/wocglXNZu7gBGihMb3YzeEWdR+KHMg2LYo5RdcNjTSrbcjW+f/7MYvtWu VnLgv6cJp984QNn9vvWaPHYVhMzYToG35rZSxgPFE35KnVwMJzWvKU60kT3+ DQWTwihw0yYwhMOPY9tCAllo7HteaQ+jxixSKWcxwNMuIVjdvjL7r9WOeK4n Z5U3hBu6pFDgUbvd0oWFkAlvE6NcGdDSkVtBUNWjo+ZyGjZpE5jDzIw5hXw/ GvlYgsnG6M7prTTyFcFawz+v5UdRGG8Mi3PSRsadpkEL/4IVNBT43Zcf5vDY w94V2YL7CgY02TUQhsHmLfp5C0YwkHy0b4kgeHyMOk0ggQDt+kzcjIPb8mJo 1E8E5Ukf5oZnMBDRF77dGk7N/2mEuoFG/jaQ8iWv7BwrQbzWwKtcGlzdReH3 wRCZm7GtZRuN8UawfkVowu8Cju9AuPnO88jFQkf83kYm73Zy6x3FgPZoyYOS qsbggkUM1n8wDDBVBD7T5/AI4YOpxcaeS1/xRfpfOeVUyCJ+A+he15MZ+JHG +naRTxM8itZ2SxGvJi9le+dNLpdPCEuWNz6z1sT347OBitLCQ1ahFOZ/SYqt Qrw/FovBUytoCznZ4fC+nifBsx5cVeZMjn7CwnBtgDkUH3kVZZ/G9WsNKdr5 zaqJJgye20hQR4vTjqVS7C97yI1PLFmSKMazmvRQsx+Gj2AxvzWk2x57EfSc xfoJoMnCIyfobxbxO8Btw1336u4MQz2ekszhOS8+xkqQjx6M3bLpzNELLPaP CIxqE1U1MRxfAdw90fNFVSDB/EMg1dA93204C45aQQVQcas96OV87OeCoVCe kHV3yUIJaOVUDIa76b1bJ52X9udXM9D50E8QHSbBetjCWk+nONd2FvHZAadn aR+cay3EqnmN7658CfYvD3ynOmzNMpVifw4Ft5EpXU5xLPa7BRj1lla9Fkmw v0XQnDpz36JhNN5/S5bu/Fe64bQE598M1IFZrtaJEuRvAvXGobYhK6T4nhkE jHOc5WvmhPoysLysc45BM4315EPzoTtNHZFS5OMINrKGATECrj6mICuH3rxJ Eux/FemnwflJDRmfbFzpfobBeD0YJRI6b/YX6/r/WLXQ7b2zpF+PmQz84LLh x4RkGvXQB2G3mgpr5fxBBBXv1ow9r0/p5nfsbtfA71kK8XaRiDf2yfJSBv3O BjqDbD9sGUrp5ivtVhr/3FQa62cAILy8flo4jXoJwC8zDyocGfzeQQ5/9gqP 0dzvr78AYF3+GkURhedW8uiie2VvKjdvQkjSb4r/I9Qe+ZcT2920/LI/rZvP fTPgQfFkbv4soXuQnd89Gxrv86FSPvKJci+F/dlNouzKDpHNFOKrI3qyLM/X gzg/o3R+wvn9yf0p2dnRFM7nAGg54m4x5LIY9TOA42Ft6TU+3DwaAmP4JEpk yiB+Cyi5+tuCRxdofH8QGH+C2wu7KawXDzJfLRgPLOfnZpCzq8nFZx5XL2OI 8PWvqQjg/JsHO319ns/N4/iaQ8BL7zK1ksZ4NZEPVJW8esvo/Lf+oaysOITj ZwqvV5fz3toxyM8U8iZ6sJXVtK7/UoprBdmF3FkP9l03sBllJ0b9qoln+8Uv 5ZE06mEAyaPTj02dwuExAqFiGX+amKtfGzkQnBGvvkHjfBnDd7La+OEWYny/ iYgFV/6pS3XAetWT60ZBBr9IufooyYNYr7AXCjHiV5Ewq4uDPlVTyE9J0vQP djwdLcb+/Uj0CsYE/TqO048PyqvrEko0/xf9fvSJ9Oslxv5uJmcnrqRkAZTu fpZq8bzp+Sz6yRA4p97hEzmY0s3j0qJu1dwIWldvw9s+9tGsE/qbBC55rYhb PUKi84OqJBN2ioqLN4DRl1tH0/M4v3CG2PKb+3dO4fpZUw/nntiMTV/f5/y8 /30VSYqZ5vVoHqffF3K8MazOUmaP/KrI/xeIzIU= "]]}, {}}, {}, {}, {}, {}}, AspectRatio->1, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{7.008961530639243, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameStyle->14, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ Dashing[{Small, Small}], GrayLevel[0.85]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{7.079181246047625, 11.573243032184124`}, {0, 12.36}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.764460766702879*^9, {3.764460962053501*^9, 3.764460991671997*^9}, 3.764526669334852*^9}, CellLabel-> "Out[198]=",ExpressionUUID->"dda19147-554c-4c40-931c-e9d1d4ff0dcc"] }, Open ]], Cell["\<\ Define subconjunto que satisfaz certo crit\[EAcute]rio, crit\[EAcute]rio que \ \[EAcute] baseado em outra coluna.\ \>", "Text", CellChangeTimes->{{3.765052412807911*^9, 3.765052437085383*^9}},ExpressionUUID->"7e424590-5e67-462f-b116-\ d5e2df42a605"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"dataClowHI", " ", "=", " ", RowBox[{"Select", "[", RowBox[{"dataC", ",", " ", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "colMHI", "]"}], "]"}], " ", "<", " ", "1.0"}], " ", "&"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"corLRefflowHI", " ", "=", " ", RowBox[{"MapAt", "[", RowBox[{ RowBox[{ RowBox[{"Log10", "[", RowBox[{ SuperscriptBox["10", "9"], "#"}], " ", "]"}], "&"}], ",", " ", RowBox[{"dataClowHI", "[", RowBox[{"[", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"colL", ",", " ", "colReff"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"All", ",", "1"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.7644611507036877`*^9, 3.7644611856262627`*^9}, { 3.764461241581986*^9, 3.764461264633665*^9}, {3.7644613512131042`*^9, 3.764461351929448*^9}, {3.764461388103215*^9, 3.764461455793993*^9}}, CellLabel-> "In[199]:=",ExpressionUUID->"cafaf072-8e71-438e-9147-884797c9af21"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7.8750612633917`", ",", "1.21`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.511883360978874`", ",", "2.37`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.518513939877887`", ",", "0.72`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.292256071356476`", ",", "1.22`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.195899652409233`", ",", "1.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.724275869600789`", ",", "0.65`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.281033367247728`", ",", "1.29`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.734799829588846`", ",", "3.03`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.8512583487190755`", ",", "0.75`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.187520720836464`", ",", "5.01`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.747411807886424`", ",", "3.57`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.23426412437879`", ",", "3.31`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.929418925714293`", ",", "1.28`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.58983794314746`", ",", "2.01`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.465680211598277`", ",", "1.77`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.726727209026572`", ",", "0.49`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.372912002970107`", ",", "1.08`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.806858029518818`", ",", "0.53`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.527758752520972`", ",", "1.31`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.287801729930226`", ",", "1.64`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.447158031342219`", ",", "0.32`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.372912002970107`", ",", "1.11`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.057285644418215`", ",", "0.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.328950132069783`", ",", "4.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.`", ",", "0.52`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.8481891169914`", ",", "2.19`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.190331698170292`", ",", "1.28`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.57287160220048`", ",", "1.76`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.547774705387823`", ",", "2.01`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.116607743988249`", ",", "2.73`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.236789099409293`", ",", "2.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.562173863364649`", ",", "1.49`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.8668778143375`", ",", "1.23`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.306639441024261`", ",", "2.79`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.113943352306837`", ",", "0.26`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.050379756261458`", ",", "2.33`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.72509452108147`", ",", "0.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.929418925714293`", ",", "1.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.36735592102602`", ",", "2.63`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.360971883725936`", ",", "3.45`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.145196406114183`", ",", "3.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.460897842756548`", ",", "1.66`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.35869609957381`", ",", "2.17`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.05307844348342`", ",", "0.46`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.613736141261871`", ",", "3.26`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.06295783408451`", ",", "1.27`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.037426497940624`", ",", "0.98`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.653212513775344`", ",", "0.77`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.575187844927662`", ",", "0.85`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.421603926869832`", ",", "1.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.933487287848706`", ",", "0.86`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.093421685162236`", ",", "0.95`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.098643725817057`", ",", "2.25`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.007320952922745`", ",", "1.14`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.460897842756548`", ",", "1.01`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.699837725867246`", ",", "2.25`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.526339277389845`", ",", "1.62`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.287801729930226`", ",", "1.57`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.146128035678238`", ",", "1.71`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.079181246047625`", ",", "0.41`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.764461352530545*^9, 3.764461408644813*^9, 3.764461456344138*^9, 3.764526913324285*^9}, CellLabel-> "Out[200]=",ExpressionUUID->"36c52a53-e110-4546-8887-d08865fb404f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"corLReff", ",", " ", "corLRefflowHI"}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"Axes", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"FrameStyle", "\[Rule]", "14"}], ",", " ", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", " ", RowBox[{"Thickness", "\[Rule]", " ", ".2"}], ",", " ", RowBox[{"Circle", "[", "]"}]}], "}"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "12"}]}], "]"}], ",", " ", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", " ", RowBox[{"Thickness", "\[Rule]", " ", ".2"}], ",", " ", RowBox[{"Circle", "[", "]"}]}], "}"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "12"}]}], "]"}]}], "}"}]}], ",", " ", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"GridLinesStyle", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{"Dashed", ",", " ", "LightGray"}], "]"}]}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]], "Input", CellChangeTimes->{{3.764461471997705*^9, 3.764461510333775*^9}}, CellLabel-> "In[201]:=",ExpressionUUID->"924729d9-4ab5-4a23-bd64-4680277a2021"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[6], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ GraphicsBox[ {GrayLevel[0], AbsolutePointSize[6], Thickness[0.2], CircleBox[{0, 0}]}, ImageSize->12], {0., 0.}], CompressedData[" 1:eJxFVWlUU1cQDglERATCIrIIee/lBdSKS11wwTsuCIq1hnqKxw2wFVdAERUE KXVpEfEEATc2BUVkKW3VIyoWVNwVxYUGUSqICxIUEBASWRrCvHjPuT9u3p07 3/fNzBdqZbD3KgGPx5Nrtp5m8zVbbCIzNYt2hGXya+3Oy1pJbmxgopWQgs/O fb/wocglXNZu7gBGihMb3YzeEWdR+KHMg2LYo5RdcNjTSrbcjW+f/7MYvtWu VnLgv6cJp984QNn9vvWaPHYVhMzYToG35rZSxgPFE35KnVwMJzWvKU60kT3+ DQWTwihw0yYwhMOPY9tCAllo7HteaQ+jxixSKWcxwNMuIVjdvjL7r9WOeK4n Z5U3hBu6pFDgUbvd0oWFkAlvE6NcGdDSkVtBUNWjo+ZyGjZpE5jDzIw5hXw/ GvlYgsnG6M7prTTyFcFawz+v5UdRGG8Mi3PSRsadpkEL/4IVNBT43Zcf5vDY w94V2YL7CgY02TUQhsHmLfp5C0YwkHy0b4kgeHyMOk0ggQDt+kzcjIPb8mJo 1E8E5Ukf5oZnMBDRF77dGk7N/2mEuoFG/jaQ8iWv7BwrQbzWwKtcGlzdReH3 wRCZm7GtZRuN8UawfkVowu8Cju9AuPnO88jFQkf83kYm73Zy6x3FgPZoyYOS qsbggkUM1n8wDDBVBD7T5/AI4YOpxcaeS1/xRfpfOeVUyCJ+A+he15MZ+JHG +naRTxM8itZ2SxGvJi9le+dNLpdPCEuWNz6z1sT347OBitLCQ1ahFOZ/SYqt Qrw/FovBUytoCznZ4fC+nifBsx5cVeZMjn7CwnBtgDkUH3kVZZ/G9WsNKdr5 zaqJJgye20hQR4vTjqVS7C97yI1PLFmSKMazmvRQsx+Gj2AxvzWk2x57EfSc xfoJoMnCIyfobxbxO8Btw1336u4MQz2ekszhOS8+xkqQjx6M3bLpzNELLPaP CIxqE1U1MRxfAdw90fNFVSDB/EMg1dA93204C45aQQVQcas96OV87OeCoVCe kHV3yUIJaOVUDIa76b1bJ52X9udXM9D50E8QHSbBetjCWk+nONd2FvHZAadn aR+cay3EqnmN7658CfYvD3ynOmzNMpVifw4Ft5EpXU5xLPa7BRj1lla9Fkmw v0XQnDpz36JhNN5/S5bu/Fe64bQE598M1IFZrtaJEuRvAvXGobYhK6T4nhkE jHOc5WvmhPoysLysc45BM4315EPzoTtNHZFS5OMINrKGATECrj6mICuH3rxJ Eux/FemnwflJDRmfbFzpfobBeD0YJRI6b/YX6/r/WLXQ7b2zpF+PmQz84LLh x4RkGvXQB2G3mgpr5fxBBBXv1ow9r0/p5nfsbtfA71kK8XaRiDf2yfJSBv3O BjqDbD9sGUrp5ivtVhr/3FQa62cAILy8flo4jXoJwC8zDyocGfzeQQ5/9gqP 0dzvr78AYF3+GkURhedW8uiie2VvKjdvQkjSb4r/I9Qe+ZcT2920/LI/rZvP fTPgQfFkbv4soXuQnd89Gxrv86FSPvKJci+F/dlNouzKDpHNFOKrI3qyLM/X gzg/o3R+wvn9yf0p2dnRFM7nAGg54m4x5LIY9TOA42Ft6TU+3DwaAmP4JEpk yiB+Cyi5+tuCRxdofH8QGH+C2wu7KawXDzJfLRgPLOfnZpCzq8nFZx5XL2OI 8PWvqQjg/JsHO319ns/N4/iaQ8BL7zK1ksZ4NZEPVJW8esvo/Lf+oaysOITj ZwqvV5fz3toxyM8U8iZ6sJXVtK7/UoprBdmF3FkP9l03sBllJ0b9qoln+8Uv 5ZE06mEAyaPTj02dwuExAqFiGX+amKtfGzkQnBGvvkHjfBnDd7La+OEWYny/ iYgFV/6pS3XAetWT60ZBBr9IufooyYNYr7AXCjHiV5Ewq4uDPlVTyE9J0vQP djwdLcb+/Uj0CsYE/TqO048PyqvrEko0/xf9fvSJ9Oslxv5uJmcnrqRkAZTu fpZq8bzp+Sz6yRA4p97hEzmY0s3j0qJu1dwIWldvw9s+9tGsE/qbBC55rYhb PUKi84OqJBN2ioqLN4DRl1tH0/M4v3CG2PKb+3dO4fpZUw/nntiMTV/f5/y8 /30VSYqZ5vVoHqffF3K8MazOUmaP/KrI/xeIzIU= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], AbsolutePointSize[6], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ GraphicsBox[ {RGBColor[1, 0, 0], AbsolutePointSize[6], Thickness[0.2], CircleBox[{0, 0}]}, ImageSize->12], {0., 0.}], CompressedData[" 1:eJw9UmlIVHEQ30MXWc00dyNTd997W7ZCahd2uDKDZIl2sBII5QeVtLK0Q0Ut s/KI0A9uXphHpQaZ2RYlqGjelGVGkrYSmdpWSmveZppmu6//24H5MO/9Z+Z3 DB1+NihCyOPxVMbkG1NgTMpWvdruqhxDstvmlCEzUJUZnSsV0fhLafoiwAaP JPXcGhmKdRXnfMQjoLRPKijPpzDDoK6TZcxA/GvN3IHjFG5nYwZufu7Nqfwm w+43pvgKuveCYn02hfeM3bqKWcgI+6HdmUijDzvQCqWdLXufnJAjj41R8C3b VysIZcg+CZ6yetxWnUIjCy/bBpOryhKmEhi8JNHuH74oxhcj/oX1tXJSz8Lu 9E0+K+4KZEsJD5ej/pZHjzMYZERrUC9BX3ttgTSOJnwHoUl6IWi8iUJ/42vt /iloKvyS4lzK8R+ChtTNEV62ClLPQpUmt/loLkXwL0KnVVqX/pUL2d9rntdu gts2BZMlvllHXBiMZOM7HEv94HqmcgPRy47w5vQZgh1FNv1+TxVEXz6624uU sWGUmd/W9F3RhzfS6MYSWILfMet/xq+jzXxLX5YKarwZZOXTWSKKGk+rkhiy T4ih5Q+xT64g/+cBo6pP6hpoZNu1M9BT79e/UsLpJcI8iwnNozhngu8dLFs7 hXY5MqQWYIpTdwHE0mS+Hjg/uHuYKvRzWNtIET8tsbn1+qGeOgaLbpnCGh+k TXgEBzBEBxuMHAzqXjQwxO9FKG4aFt6vZYhffMzqsHR0d6LwPGvAABR53r7j vYfzW4wiXYhARXH4Z+Ggeljj5kCR/gmghC3P9SUygn8UOsQxlldcOfwGeJsZ mPhJRxF8C5AorbeeHqCJHwYotcif7/WkiJ/jwNduibm2jcMvQENrVE6zkCH3 MQ3/+VDEr0l45hVOqyNp8/uaxcvByatoHGPHL5jvS84uXIC8G6rAngAO/x+4 O5aol6idyfyP8A+IB5g7 "]]}, {}}, {}, {}, {}, {}}, AspectRatio->1, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{7.008961530639243, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameStyle->14, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ Dashing[{Small, Small}], GrayLevel[0.85]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{7.079181246047625, 11.573243032184124`}, {0, 12.36}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.764461472601695*^9, 3.7644615106828117`*^9}, 3.76452691702083*^9}, CellLabel-> "Out[201]=",ExpressionUUID->"b54e2467-081b-45c0-86dc-927f7d9bdc87"] }, Open ]], Cell[TextData[{ "Exerc\[IAcute]cio: ", StyleBox["Defina uma fun\[CCedilla]\[ATilde]o do tipo corrrelation[data, \ {col1, col2}, {f1, f2}], cujo resulado \[EAcute] uma lista de pares de n\ \[UAcute]meros da matrix data gerados a partir de sua coluna 1 e coluna 2, \ mas em que as fun\[CCedilla]\[OTilde]es f1 e f2 foram respectiamente \ aplicadas \[AGrave] coluna 1 e \[AGrave] coluna 2. Ou seja, em particular \ correlation[data, {col1, col2}, {#&, #&}] == data[[All, {col1,col2}]], pois \ #& \[EAcute] uma fun\[CCedilla]\[ATilde]o identidade.", FontWeight->"Plain"] }], "Text", CellChangeTimes->{{3.7644618154177227`*^9, 3.764461924546239*^9}, { 3.764461977685253*^9, 3.76446214209186*^9}, {3.76452736608749*^9, 3.7645273679677362`*^9}}, FontWeight->"Bold",ExpressionUUID->"0f3ff9a5-8dc8-466f-b2c5-e87736e41478"], Cell[TextData[StyleBox["Uma poss\[IAcute]vel resposta:", FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.765052482535974*^9, 3.76505250132307*^9}},ExpressionUUID->"5511de17-ad9a-42ce-b2ba-\ 8570dd6cbfcf"], Cell[BoxData[ RowBox[{ RowBox[{"correlation", "[", RowBox[{"data_", ",", RowBox[{"{", RowBox[{"col1_", ",", "col2_"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"f1_", ",", "f2_"}], "}"}]}], "]"}], " ", ":=", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "tr1", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tr1", "=", RowBox[{"MapAt", "[", RowBox[{"f1", ",", RowBox[{"data", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"col1", ",", "col2"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"All", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MapAt", "[", RowBox[{"f2", ",", "tr1", ",", RowBox[{"{", RowBox[{"All", ",", "2"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], " "}]], "Input", CellChangeTimes->{{3.76452761475661*^9, 3.7645277372700872`*^9}}, CellLabel-> "In[208]:=",ExpressionUUID->"f94ca16d-d557-40fb-80cb-8230fd681f39"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"correlation", "[", RowBox[{"dataC", ",", RowBox[{"{", RowBox[{"colL", ",", "colReff"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Log10", "[", RowBox[{ SuperscriptBox["10", "9"], " ", "#"}], "]"}], "&"}], ",", " ", RowBox[{ RowBox[{"Sin", "[", "#", "]"}], "&"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.764527744965414*^9, 3.764527792882697*^9}, { 3.764528414174011*^9, 3.764528420601947*^9}, {3.764528535874997*^9, 3.76452855516269*^9}, {3.764528597263125*^9, 3.764528622279767*^9}}, CellLabel-> "In[221]:=",ExpressionUUID->"af0d41dc-cd47-4b70-bb88-953de3edff2e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7.8750612633917`", ",", "0.9356160015533859`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.511883360978874`", ",", "0.6972777382599378`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.518513939877887`", ",", "0.6593846719714731`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.292256071356476`", ",", "0.9390993563190676`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.195899652409233`", ",", "0.9320390859672263`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.724275869600789`", ",", "0.6051864057360395`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.738780558484368`", ",", "0.8919286509533796`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.281033367247728`", ",", "0.9608350642060727`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.734799829588846`", ",", "0.11136118868665003`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.713767663904305`", ",", "0.8115585420741487`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.632659713293913`", ",", "0.38166099205233167`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.8512583487190755`", ",", "0.6816387600233342`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.493011676464311`", ",", RowBox[{"-", "0.9188759655412069`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.610340711452157`", ",", RowBox[{"-", "0.7790726726314032`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.27943878828702`", ",", RowBox[{"-", "0.9947628260746756`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.187520720836464`", ",", RowBox[{"-", "0.9560397542711181`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.475089803389007`", ",", RowBox[{"-", "0.9753733187046665`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8.747411807886424`", ",", RowBox[{"-", "0.4154226067712459`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.329194415088452`", ",", RowBox[{"-", "0.7533788393277466`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.796018969347148`", ",", "0.6569865987187891`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.92147838037569`", ",", "0.927180408695427`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.582631439489637`", ",", RowBox[{"-", "0.9516020738895161`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.007064656378331`", ",", "0.9854497299884601`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.266936911159172`", ",", RowBox[{"-", "0.9452655121880633`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.815378484965919`", ",", RowBox[{"-", "0.4015286124062146`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.458939861890325`", ",", "0.19554651510054424`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.073645045513151`", ",", RowBox[{"-", "0.49964188311690244`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8.993876914941211`", ",", RowBox[{"-", "0.56332728410037`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.23426412437879`", ",", RowBox[{"-", "0.16761244004421832`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.006893707947901`", ",", RowBox[{"-", "0.03839790450523538`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7.929418925714293`", ",", "0.9580158602892249`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.58983794314746`", ",", "0.905090563325201`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.665393350279713`", ",", RowBox[{"-", "0.5041585478536115`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.50947135210255`", ",", "0.32554933451756`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.865222456290178`", ",", RowBox[{"-", "0.4015286124062146`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.857724390968308`", ",", "0.4363990821601263`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.465680211598277`", ",", "0.9802244727880455`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.494947292750087`", ",", "0.9955869758598548`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.83378437465648`", ",", "0.3723990394250557`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.857603845694644`", ",", "0.07673917429251892`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.726727209026572`", ",", "0.470625888171158`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.372912002970107`", ",", "0.8819578068849475`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.00177696707744`", ",", "0.8313834607786832`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.913087656013774`", ",", RowBox[{"-", "0.9851777815038595`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8.806858029518818`", ",", "0.5055333412048469`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.527758752520972`", ",", "0.9661849516127341`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.17868923977559`", ",", "0.7010113772355981`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.287801729930226`", ",", "0.9976063813191737`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.582960583750715`", ",", RowBox[{"-", "0.42881921133339584`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.928580183431503`", ",", "0.6377647021345036`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.846547403265474`", ",", "0.9447446272181538`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.447158031342219`", ",", "0.31456656061611776`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.271353622102485`", ",", "0.8201039476213742`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.86054761538489`", ",", RowBox[{"-", "0.9484812167044256`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.767341422368663`", ",", "0.6530407515722648`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.341750979265175`", ",", RowBox[{"-", "0.6617760549930376`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.58054865210243`", ",", "0.6828032219306397`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.150142161848558`", ",", RowBox[{"-", "0.11294379406346737`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.156942684852226`", ",", RowBox[{"-", "0.5550369171994238`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11.355891913131376`", ",", RowBox[{"-", "0.5356033346142913`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.235351663177411`", ",", "0.3399038823185127`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.97894704799201`", ",", "0.5537114036099907`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.372912002970107`", ",", "0.8956986856800477`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.33693979412059`", ",", "0.9092974268256817`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.030559245291157`", ",", RowBox[{"-", "0.1821625042720959`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.773742574635998`", ",", RowBox[{"-", "0.9764160102906497`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.034949146676372`", ",", RowBox[{"-", "0.9707673366582883`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.057285644418215`", ",", "0.644217687237691`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.328950132069783`", ",", RowBox[{"-", "0.7885252544261949`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.287286539262812`", ",", RowBox[{"-", "0.6275538230792934`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11.184464289346991`", ",", RowBox[{"-", "0.8615969003107404`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11.531976792867862`", ",", RowBox[{"-", "0.3664791292519284`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.468790262099612`", ",", "0.7653549525292536`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.244079106672388`", ",", "0.9996615414087742`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.506897208550571`", ",", RowBox[{"-", "0.7021462887308054`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.108734108602365`", ",", "0.998789743470524`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.`", ",", "0.49688013784373675`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.8481891169914`", ",", "0.814340892425796`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.190331698170292`", ",", "0.9580158602892249`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.07990446766672`", ",", RowBox[{"-", "0.20378454483265054`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.301897717195208`", ",", "0.5984721441039564`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.475525915039281`", ",", RowBox[{"-", "0.8994054096851777`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8.509202522331103`", ",", "0.9854497299884601`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.57287160220048`", ",", "0.9821543171376185`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.881954971339601`", ",", "0.1660421058649572`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.547774705387823`", ",", "0.905090563325201`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.116607743988249`", ",", "0.4000694775924195`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.236789099409293`", ",", "0.675463180551151`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.562173863364649`", ",", "0.9967377520431434`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.116275587580544`", ",", "0.6300306299958922`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.8668778143375`", ",", "0.9424888019316975`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.306639441024261`", ",", "0.34439346725839`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.113943352306837`", ",", "0.2570805518921551`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.19089171692217`", ",", "0.4363990821601263`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.612783856719735`", ",", RowBox[{"-", "0.9530596307003677`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.050379756261458`", ",", "0.7253843874668195`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.769377326076139`", ",", "0.9639829961524481`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.72509452108147`", ",", "0.5646424733950354`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.523226041965701`", ",", "0.5849171928917617`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.929418925714293`", ",", "0.9320390859672263`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.751279103983343`", ",", "0.2295279470212642`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.36735592102602`", ",", "0.4895666068265995`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.67163559660213`", ",", "0.02159097572609596`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.529430354366985`", ",", RowBox[{"-", "0.9930917926059354`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.360971883725936`", ",", RowBox[{"-", "0.30354151270842933`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8.994756944587628`", ",", "0.8827073508159741`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.57275546515422`", ",", RowBox[{"-", "0.8406094035501945`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.145196406114183`", ",", RowBox[{"-", "0.35078322768961984`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.200850498091077`", ",", "0.8529404815528763`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.834547857680949`", ",", RowBox[{"-", "0.9815502530915153`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.460897842756548`", ",", "0.9960239899165367`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.9509487143994`", ",", RowBox[{"-", "0.9452655121880633`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.724111953961213`", ",", RowBox[{"-", "0.7231881240865121`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.554489160003818`", ",", RowBox[{"-", "0.6877661591839738`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.433289685195026`", ",", RowBox[{"-", "0.7021462887308054`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.35869609957381`", ",", "0.8257849931056082`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.05307844348342`", ",", "0.4439481069655198`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.243781916093795`", ",", "0.4631912649303451`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.613736141261871`", ",", RowBox[{"-", "0.11813085589181736`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.06295783408451`", ",", "0.9551008555846923`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.386677283960838`", ",", RowBox[{"-", "0.45146575216142315`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8.037426497940624`", ",", "0.8304973704919705`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.653212513775344`", ",", "0.6961352386273567`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.575187844927662`", ",", "0.7512804051402926`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.421603926869832`", ",", "0.9995736030415051`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.933487287848706`", ",", "0.757842562895277`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.093421685162236`", ",", "0.8134155047893737`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.098643725817057`", ",", "0.7780731968879213`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.007320952922745`", ",", "0.9086334961158832`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.460897842756548`", ",", "0.8468318446180152`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.699837725867246`", ",", "0.7780731968879213`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.836412738190868`", ",", RowBox[{"-", "0.5590049972802488`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8.526339277389845`", ",", "0.998789743470524`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.240798771117332`", ",", "0.02159097572609596`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.573243032184124`", ",", RowBox[{"-", "0.5933562572321769`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.08282126093933`", ",", RowBox[{"-", "0.8615969003107404`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8.986771734266245`", ",", "0.3908847788984522`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.144792078497714`", ",", RowBox[{"-", "0.20490888331957058`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.114277296561585`", ",", RowBox[{"-", "0.7162455691239705`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9.221935599828006`", ",", "0.02159097572609596`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.287801729930226`", ",", "0.9999996829318346`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.146128035678238`", ",", "0.990326804156158`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.079181246047625`", ",", "0.3986093279844229`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.764527781305153*^9, 3.764527793152298*^9}, { 3.764528416582591*^9, 3.764528420988903*^9}, {3.764528540389422*^9, 3.764528555573882*^9}, 3.764528623183971*^9}, CellLabel-> "Out[221]=",ExpressionUUID->"5f7a13a3-3ec0-4d4a-a230-bdd659869793"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.7645272584238358`*^9, 3.764527259200448*^9}},ExpressionUUID->"c320faeb-41f9-46c2-b551-\ 0a2e7c8b9d0d"], Cell[TextData[{ "Exerc\[IAcute]cio para nota!: ", StyleBox["Definia uma fun\[CCedilla]\[ATilde]o semelhante \[AGrave] \ anterior, mas em que cada coluna resultante seja uma fun\[CCedilla]\[ATilde]o \ de uma func\[ATilde]o arbitr\[AAcute]ria de quaisquer colunas da matriz data \ original. N\[ATilde]o sei se esta \[EAcute] a melhor forma de entrada, mas \ pode-se especificar vari\[AAcute]veis do tipo x1, x2.... e a fun\[CCedilla]\ \[ATilde]o desejada poderia ser utilizada com a seguinte sintaxe: \ CorrelationExt[data, {f1[x1, x5], f2[x4,x8]}]", FontWeight->"Plain"], " ", StyleBox["(aqui, x1, x2... n\[ATilde]o representam n\[UAcute]meros, mas vari\ \[AAcute]vies que denotam nomes de colunas, sendo x1 a coluna 1, x2 a coluna \ 2...), ou, de forma amis expl\[IAcute]cita, CorrelationExt[data, {#3 + #5 &, \ #4*#8 - #4&}], Dessa forma, teremos, como caso particular, \ CorrelationExt[data, {x1, x8}] == data[[All, {1, 8}]].", FontWeight->"Plain"] }], "Text", CellChangeTimes->{{3.764462173517215*^9, 3.764462729893763*^9}, { 3.764527979151493*^9, 3.76452799387523*^9}, 3.7645280702430983`*^9, { 3.765052529080059*^9, 3.765052549924354*^9}}, FontWeight->"Bold",ExpressionUUID->"182a6771-1125-435e-a714-782c0dfa4f4f"], Cell["Lembrete, que talvez seja \[UAcute]til:", "Text", CellChangeTimes->{{3.765052543499537*^9, 3.765052564357594*^9}},ExpressionUUID->"2435313d-5145-4927-a904-\ 37dbbe149974"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["#1", "2"], " ", "+", " ", "#6"}], "&"}], "[", RowBox[{ "2", ",", " ", "5", ",", "5", ",", "6", ",", "8", ",", "e", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.764528004820356*^9, 3.764528030850143*^9}, { 3.7645281015121813`*^9, 3.76452811382027*^9}}, CellLabel-> "In[213]:=",ExpressionUUID->"3dac5de1-074d-42c2-a60d-817bc79da5ed"], Cell[BoxData[ RowBox[{"4", "+", "e"}]], "Output", CellChangeTimes->{{3.764528014979966*^9, 3.764528031321385*^9}, 3.764528114498517*^9}, CellLabel-> "Out[213]=",ExpressionUUID->"88083b4c-fdce-4b9e-aa46-376ee7cb6a92"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Aplica\[CCedilla]\[ATilde]o para manipula\[CCedilla]\[OTilde]es anal\ \[IAcute]ticas", "Section", CellChangeTimes->{{3.670079307729761*^9, 3.670079310492544*^9}, { 3.7644545602618237`*^9, 3.764454568458337*^9}, {3.7644615908629513`*^9, 3.764461593695745*^9}, {3.764461711975854*^9, 3.764461762496717*^9}},ExpressionUUID->"3fdb31f7-9580-4394-9c88-\ 6135615ee6dd"], Cell[BoxData[ RowBox[{ RowBox[{"gMatrix", " ", "=", " ", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"A", "[", "r", "]"}], "0", "0", "0"}, {"0", RowBox[{"B", "[", "r", "]"}], "0", "0"}, {"0", "0", SuperscriptBox["r", "2"], "0"}, {"0", "0", "0", RowBox[{ SuperscriptBox["r", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]} }], "\[NoBreak]", ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.764529183229589*^9, 3.7645292757005043`*^9}}, CellLabel-> "In[222]:=",ExpressionUUID->"7ceb1295-7dcf-4a97-b237-54275c186a49"], Cell[BoxData[ RowBox[{"gMatrix", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.764529320520295*^9, 3.764529331330819*^9}}, CellLabel-> "In[223]:=",ExpressionUUID->"933462bb-8664-4be3-8e62-1e99c17d7a4c"], Cell[BoxData[ RowBox[{ RowBox[{"g", "[", RowBox[{"a_", ",", "b_"}], "]"}], " ", ":=", " ", RowBox[{"gMatrix", "[", RowBox[{"[", RowBox[{ RowBox[{"a", "+", "1"}], ",", RowBox[{"b", "+", "1"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.76452940679657*^9, 3.764529429459098*^9}}, CellLabel-> "In[225]:=",ExpressionUUID->"4d0dc88a-8274-46a7-bd12-9dd5d3508be2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g", "[", RowBox[{"0", ",", "0"}], "]"}]], "Input", CellChangeTimes->{{3.764529433055071*^9, 3.764529434667938*^9}}, CellLabel-> "In[226]:=",ExpressionUUID->"363d511c-96c8-4f2a-aa47-0ceb9c0dcc63"], Cell[BoxData[ RowBox[{"A", "[", "r", "]"}]], "Output", CellChangeTimes->{3.764529435032978*^9}, CellLabel-> "Out[226]=",ExpressionUUID->"95c59725-0da0-4c8b-88bb-2538f05ddd95"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"gI", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{ RowBox[{"Inverse", "[", "gMatrix", "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"a", "+", "1"}], ",", RowBox[{"b", "+", "1"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7645294588326674`*^9, 3.764529489993252*^9}}, CellLabel-> "In[228]:=",ExpressionUUID->"69153c5d-1f00-4872-8cb1-52b9d83760e2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gI", "[", RowBox[{"0", ",", "0"}], "]"}]], "Input", CellChangeTimes->{{3.764529491554502*^9, 3.764529493963668*^9}}, CellLabel-> "In[229]:=",ExpressionUUID->"224b2f57-ccb0-42da-a050-b818e61e55db"], Cell[BoxData[ FractionBox["1", RowBox[{"A", "[", "r", "]"}]]], "Output", CellChangeTimes->{3.7645294944098263`*^9}, CellLabel-> "Out[229]=",ExpressionUUID->"ba6b0c55-cab1-440b-90ff-27119c84234a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "g", "]"}]], "Input", CellChangeTimes->{{3.764529354544303*^9, 3.764529356636442*^9}}, CellLabel-> "In[224]:=",ExpressionUUID->"70355d95-97c1-44aa-9bb4-a7d2dd69b89c"], Cell[BoxData["g"], "Input", CellChangeTimes->{ 3.7645293518543673`*^9},ExpressionUUID->"62112789-deda-46f1-b9ae-\ 29c7380e9544"], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["x", "1"], "=", "r"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["x", "2"], "=", "\[Theta]"}], ";"}]}], "Input", CellChangeTimes->{{3.764529683508346*^9, 3.7645296950872183`*^9}}, CellLabel-> "In[230]:=",ExpressionUUID->"feeda79f-29b5-4587-813d-4befc9e2f12d"], Cell["\<\ A linha abaixo \[EAcute] suficinete para calcular o s\[IAcute]mbolo de \ Christofell. \ \>", "Text", CellChangeTimes->{{3.765052835969496*^9, 3.765052846318613*^9}},ExpressionUUID->"6105d452-c64f-45fa-9d14-\ feec42686dd1"], Cell[BoxData[ RowBox[{ RowBox[{"Chr", "[", RowBox[{"k_", ",", "i_", ",", "j_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"1", "/", "2"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "3"], RowBox[{ RowBox[{"gI", "[", RowBox[{"k", ",", "m"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "j"]], " ", RowBox[{"g", "[", RowBox[{"i", ",", "m"}], "]"}]}], " ", "+", " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "i"]], " ", RowBox[{"g", "[", RowBox[{"j", ",", "m"}], "]"}]}], " ", "-", " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "m"]], " ", RowBox[{"g", "[", RowBox[{"i", ",", "j"}], "]"}]}]}], ")"}]}]}]}]}]], "Input", CellChangeTimes->{ 3.764529621430871*^9, {3.7645298771968822`*^9, 3.764529884407012*^9}, 3.765052854206966*^9},ExpressionUUID->"f7fdd0b9-1f8d-4fe1-9549-\ 02be3335046d"], Cell["\<\ Problema: \[EAcute] pouco eficiente na pr\[AAcute]tica, pois h\[AAcute] \ outros s\[IAcute]mbolos que dependem de v\[AAcute]rias componentes desse s\ \[IAcute]mbolo, assim ao escrever dessa foram acima, a mesma conta pode estar \ ser repetida centenas de vezes sem necessidade. Cada vez que Chr[1,1,2] \ \[EAcute] digitado, repete-se a conta acima. Uma forma muito simples de implementar mem\[OAcute]ria dos resultados obtidos \ \[EAcute] usar o procedimento abaixo:\ \>", "Text", CellChangeTimes->{{3.765052858367578*^9, 3.76505299444917*^9}},ExpressionUUID->"e4aabd18-e94e-4f43-849a-\ afb8459b68ac"], Cell[BoxData[ RowBox[{ RowBox[{"Chr", "[", RowBox[{"k_", ",", "i_", ",", "j_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"Chr", "[", RowBox[{"k", ",", "i", ",", "j"}], "]"}], "=", RowBox[{ RowBox[{"1", "/", "2"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "3"], RowBox[{ RowBox[{"gI", "[", RowBox[{"k", ",", "m"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "j"]], " ", RowBox[{"g", "[", RowBox[{"i", ",", "m"}], "]"}]}], " ", "+", " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "i"]], " ", RowBox[{"g", "[", RowBox[{"j", ",", "m"}], "]"}]}], " ", "-", " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "m"]], " ", RowBox[{"g", "[", RowBox[{"i", ",", "j"}], "]"}]}]}], ")"}], " "}]}]}]}]}]], "Input", CellChangeTimes->{{3.765053003047778*^9, 3.7650530072547493`*^9}},ExpressionUUID->"968c3d78-c05e-46e7-bdd4-\ 9e7f141da3c9"], Cell["\<\ Agora, para cada conjunto de \[IAcute]ndices, Chr \[EAcute] computado uma \ \[UAcute]nica vez. Da vez seguinte apenas usa-se o valor salvo na defini\ \[CCedilla]\[ATilde]o. Desta forma, Chr \[EAcute] definido como uma fun\ \[CCedilla]\[ATilde]o de i, j, k no termo mais \[AGrave] esquerda. E no termo \ seguinte, para dados valores de i, j e k (por exemplo, 1, 2 e 3), a express\ \[ATilde]o \[AGrave] direita \[EAcute] computada e atribu\[IAcute]da \ \[AGrave] defini\[CCedilla]\[ATilde]o de Chr[1,2,3].\ \>", "Text", CellChangeTimes->{{3.765053018153966*^9, 3.765053138292878*^9}},ExpressionUUID->"56223343-33e3-446c-97fa-\ 6e7e5aef113f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Chr", "[", RowBox[{"2", ",", "3", ",", "4"}], "]"}], " ", "=", " ", "5"}]], "Input", CellChangeTimes->{{3.764529952129405*^9, 3.764529957877211*^9}}, CellLabel-> "In[234]:=",ExpressionUUID->"2c7c7358-2859-4662-b204-988bcfcd869a"], Cell[BoxData["5"], "Output", CellChangeTimes->{3.7645299589531727`*^9}, CellLabel-> "Out[234]=",ExpressionUUID->"9729ca1c-56dd-495d-bfa5-e4facbadc30b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Chr", "[", RowBox[{"2", ",", "3", ",", "4"}], "]"}]], "Input", CellChangeTimes->{{3.764529960079143*^9, 3.764529964963683*^9}}, CellLabel-> "In[235]:=",ExpressionUUID->"3d546098-8d2f-4f86-99af-cd378c8cc819"], Cell[BoxData["5"], "Output", CellChangeTimes->{3.764529965348382*^9}, CellLabel-> "Out[235]=",ExpressionUUID->"38da1423-40a4-4f28-88cf-c22c0e7d8872"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Chr", "[", RowBox[{"1", ",", "2", ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.764529971807873*^9, 3.7645299752368*^9}}, CellLabel-> "In[236]:=",ExpressionUUID->"998fb8af-d2c9-4007-8e21-733efdcdc2a7"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.764529976018733*^9}, CellLabel-> "Out[236]=",ExpressionUUID->"db4f6bbd-1e11-4879-8358-72c0d4bee971"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Chr", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7645297021102962`*^9, 3.764529706084098*^9}}, CellLabel-> "In[233]:=",ExpressionUUID->"cb9399f6-d940-4feb-bd47-1e117f60b027"], Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox["B", "\[Prime]", MultilineFunction->None], "[", "r", "]"}], RowBox[{"2", " ", RowBox[{"B", "[", "r", "]"}]}]]], "Output", CellChangeTimes->{3.764529706466812*^9}, CellLabel-> "Out[233]=",ExpressionUUID->"ec5697bd-4079-457e-afae-023c88820653"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "k", "]"}]], "Input", CellChangeTimes->{{3.764530154551632*^9, 3.764530158615653*^9}}, CellLabel-> "In[244]:=",ExpressionUUID->"80d78293-2d0f-4ead-9ccd-9b1cad3e5a09"], Cell["\<\ Segue um c\[OAcute]digo b\[AAcute]sico e mal escrito, mas que funciona \ minimamente e que otimiza um pouco mais o calculo do s\[IAcute]mbolo de \ Christofell.\ \>", "Text", CellChangeTimes->{{3.765052588472843*^9, 3.765052669962364*^9}, { 3.7650527350355587`*^9, 3.765052816674621*^9}, {3.765053157319902*^9, 3.765053173157324*^9}, {3.765053885560872*^9, 3.765053905370389*^9}},ExpressionUUID->"f755277d-6263-435c-b3b7-\ 29dd3fed0df2"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"d", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Chr", "[", RowBox[{"k_", ",", "i_", ",", "j_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"1", "/", "2"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "3"], RowBox[{ RowBox[{"gI", "[", RowBox[{"k", ",", "m"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "j"]], " ", RowBox[{"g", "[", RowBox[{"i", ",", "m"}], "]"}]}], " ", "+", " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "i"]], " ", RowBox[{"g", "[", RowBox[{"j", ",", "m"}], "]"}]}], " ", "-", " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "m"]], " ", RowBox[{"g", "[", RowBox[{"i", ",", "j"}], "]"}]}]}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ChrEvaluate", " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\n", "\t", RowBox[{ RowBox[{"tempo", " ", "=", " ", RowBox[{"Timing", "[", "\n", "\t\t", RowBox[{ RowBox[{"For", "[", " ", RowBox[{ RowBox[{"i", "=", " ", "0"}], ",", " ", RowBox[{"i", "<=", "d"}], ",", " ", RowBox[{"i", "++"}], ",", " ", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "0"}], ",", " ", RowBox[{"j", "<=", "d"}], ",", " ", RowBox[{"j", "++"}], ",", " ", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "0"}], ",", " ", RowBox[{"k", "<=", "d"}], ",", " ", RowBox[{"k", "++"}], ",", " ", RowBox[{ RowBox[{"ChrE", "[", RowBox[{"k", ",", "i", ",", "j"}], "]"}], " ", "=", " ", RowBox[{"Chr", "[", RowBox[{"k", ",", "i", ",", "j"}], "]"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], " ", "]"}]}], ";", "\n", "\t", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"tempo", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", RowBox[{ "Print", "[", "\"\\"", "]"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"ChrEvaluate", " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\n", "\t", RowBox[{ RowBox[{"tempo", " ", "=", " ", RowBox[{"Timing", "[", "\n", RowBox[{ RowBox[{"For", "[", " ", RowBox[{ RowBox[{"i", "=", " ", "0"}], ",", " ", RowBox[{"i", "<=", "d"}], ",", " ", RowBox[{"i", "++"}], ",", " ", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "0"}], ",", " ", RowBox[{"j", "<=", "d"}], ",", " ", RowBox[{"j", "++"}], ",", " ", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "0"}], ",", " ", RowBox[{"k", "<=", "d"}], ",", " ", RowBox[{"k", "++"}], ",", " ", RowBox[{ RowBox[{"ChrE", "[", RowBox[{"k", ",", "i", ",", "j"}], "]"}], " ", "=", " ", RowBox[{"Chr", "[", RowBox[{"k", ",", "i", ",", "j"}], "]"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], " ", "]"}]}], ";", "\n", "\t", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"tempo", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", RowBox[{ "Print", "[", "\"\\"", "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ChrSimplify", " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\n", "\t", RowBox[{ RowBox[{"tempo", " ", "=", " ", RowBox[{"Timing", "[", "\n", "\t\t", RowBox[{ RowBox[{"For", "[", " ", RowBox[{ RowBox[{"i", "=", " ", "0"}], ",", " ", RowBox[{"i", "<=", "d"}], ",", " ", RowBox[{"i", "++"}], ",", " ", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "0"}], ",", " ", RowBox[{"j", "<=", "d"}], ",", " ", RowBox[{"j", "++"}], ",", " ", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "0"}], ",", " ", RowBox[{"k", "<=", "d"}], ",", " ", RowBox[{"k", "++"}], ",", " ", RowBox[{ RowBox[{"ChrE", "[", RowBox[{"k", ",", "i", ",", "j"}], "]"}], " ", "=", " ", RowBox[{"Simplify", "[", RowBox[{"ChrE", "[", RowBox[{"k", ",", "i", ",", "j"}], "]"}], "]"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "]"}]}], ";", "\n", "\t", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"tempo", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";"}]}], "]"}]}], ";"}], "\n", "\n", RowBox[{"ChrPrint", " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\n", "\t", RowBox[{ RowBox[{"For", "[", " ", RowBox[{ RowBox[{"i", "=", " ", "0"}], ",", " ", RowBox[{"i", "<=", "d"}], ",", " ", RowBox[{"i", "++"}], ",", " ", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "0"}], ",", " ", RowBox[{"j", "<=", "d"}], ",", " ", RowBox[{"j", "++"}], ",", " ", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "0"}], ",", " ", RowBox[{"k", "<=", "j"}], ",", " ", RowBox[{"k", "++"}], ",", " ", "\n", "\t\t", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"ChrE", " ", "[", RowBox[{"i", ",", "k", ",", "j"}], "]"}], " ", "===", " ", "0"}], ",", " ", "Null", ",", " ", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "i", ",", "\"\<,\>\"", ",", "k", ",", "\"\<,\>\"", ",", "j", ",", "\"\<] = \>\"", ",", " ", RowBox[{"ChrE", "[", RowBox[{"i", ",", "k", ",", "j"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ChrESP", " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{ "ChrEvaluate", ";", " ", "ChrSimplify", ";", " ", "ChrPrint"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7645301386038103`*^9, 3.764530153724216*^9}, { 3.76453018408088*^9, 3.764530205258415*^9}, {3.764530237502844*^9, 3.764530237983275*^9}, {3.765053935998269*^9, 3.765053937820651*^9}},ExpressionUUID->"503637d5-7074-4e67-8310-\ 39d10ff2ee83"], Cell[CellGroupData[{ Cell[BoxData["ChrESP"], "Input", CellChangeTimes->{{3.764530209045162*^9, 3.764530216211128*^9}}, CellLabel-> "In[260]:=",ExpressionUUID->"9036f0de-e539-447d-b675-9a83b62e9cc2"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Christofell symbols evaluation time:\"\>", "\[InvisibleSpace]", "0.020425`"}], SequenceForm["Christofell symbols evaluation time:", 0.020425], Editable->False]], "Print", CellChangeTimes->{{3.764530217046897*^9, 3.7645302417369347`*^9}}, CellLabel-> "During evaluation of \ In[260]:=",ExpressionUUID->"8167f6b7-15cc-4222-8ca8-57bc01755bcc"], Cell[BoxData["\<\"Use ChrE[i,j,k] to call for each evaluated Chr.\"\>"], \ "Print", CellChangeTimes->{{3.764530217046897*^9, 3.7645302417467527`*^9}}, CellLabel-> "During evaluation of \ In[260]:=",ExpressionUUID->"427f5969-98df-4594-b92b-952960b2e70f"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Christofell symbols simplification time:\"\>", "\[InvisibleSpace]", "0.009531`"}], SequenceForm["Christofell symbols simplification time:", 0.009531], Editable->False]], "Print", CellChangeTimes->{{3.764530217046897*^9, 3.764530241757272*^9}}, CellLabel-> "During evaluation of \ In[260]:=",ExpressionUUID->"2bc218e4-2a02-4c80-a33d-0e16536db9ec"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"ChrE[\"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ SuperscriptBox["A", "\[Prime]", MultilineFunction->None], "[", "r", "]"}], RowBox[{"2", " ", RowBox[{"A", "[", "r", "]"}]}]]}], SequenceForm[ "ChrE[", 0, ",", 0, ",", 1, "] = ", Rational[1, 2] $CellContext`A[$CellContext`r]^(-1) Derivative[1][$CellContext`A][$CellContext`r]], Editable->False]], "Print", CellChangeTimes->{{3.764530217046897*^9, 3.764530241764686*^9}}, CellLabel-> "During evaluation of \ In[260]:=",ExpressionUUID->"9af6d031-81c0-449d-a1ab-9efd0634f3e3"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"ChrE[\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["A", "\[Prime]", MultilineFunction->None], "[", "r", "]"}], RowBox[{"2", " ", RowBox[{"B", "[", "r", "]"}]}]]}]}], SequenceForm[ "ChrE[", 1, ",", 0, ",", 0, "] = ", Rational[-1, 2] $CellContext`B[$CellContext`r]^(-1) Derivative[1][$CellContext`A][$CellContext`r]], Editable->False]], "Print", CellChangeTimes->{{3.764530217046897*^9, 3.764530241771524*^9}}, CellLabel-> "During evaluation of \ In[260]:=",ExpressionUUID->"dbfda882-55f2-4ad9-b99b-1bc619f665a7"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"ChrE[\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ SuperscriptBox["B", "\[Prime]", MultilineFunction->None], "[", "r", "]"}], RowBox[{"2", " ", RowBox[{"B", "[", "r", "]"}]}]]}], SequenceForm[ "ChrE[", 1, ",", 1, ",", 1, "] = ", Rational[1, 2] $CellContext`B[$CellContext`r]^(-1) Derivative[1][$CellContext`B][$CellContext`r]], Editable->False]], "Print", CellChangeTimes->{{3.764530217046897*^9, 3.76453024177849*^9}}, CellLabel-> "During evaluation of \ In[260]:=",ExpressionUUID->"8f50f51a-6e24-4f39-99eb-a38fbcca8e3e"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"ChrE[\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["r", RowBox[{"B", "[", "r", "]"}]]}]}], SequenceForm[ "ChrE[", 1, ",", 2, ",", 2, "] = ", -$CellContext`r/$CellContext`B[$CellContext`r]], Editable->False]], "Print", CellChangeTimes->{{3.764530217046897*^9, 3.764530241785585*^9}}, CellLabel-> "During evaluation of \ In[260]:=",ExpressionUUID->"5596d982-db15-403e-a00d-c7a090e76178"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"ChrE[\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox[ RowBox[{"r", " ", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], RowBox[{"B", "[", "r", "]"}]]}]}], SequenceForm[ "ChrE[", 1, ",", 3, ",", 3, "] = ", -$CellContext`r $CellContext`B[$CellContext`r]^(-1) Sin[$CellContext`\[Theta]]^2], Editable->False]], "Print", CellChangeTimes->{{3.764530217046897*^9, 3.7645302417945127`*^9}}, CellLabel-> "During evaluation of \ In[260]:=",ExpressionUUID->"cecf992a-fde7-4fed-98bb-1a9dc497c75b"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"ChrE[\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", FractionBox["1", "r"]}], SequenceForm["ChrE[", 2, ",", 1, ",", 2, "] = ", $CellContext`r^(-1)], Editable->False]], "Print", CellChangeTimes->{{3.764530217046897*^9, 3.764530241803298*^9}}, CellLabel-> "During evaluation of \ In[260]:=",ExpressionUUID->"9805a08a-5505-4be5-bf26-91b6230c4e51"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"ChrE[\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], SequenceForm[ "ChrE[", 2, ",", 3, ",", 3, "] = ", -Cos[$CellContext`\[Theta]] Sin[$CellContext`\[Theta]]], Editable->False]], "Print", CellChangeTimes->{{3.764530217046897*^9, 3.76453024181217*^9}}, CellLabel-> "During evaluation of \ In[260]:=",ExpressionUUID->"b788decd-5df2-4a46-a98f-b743042909c8"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"ChrE[\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", FractionBox["1", "r"]}], SequenceForm["ChrE[", 3, ",", 1, ",", 3, "] = ", $CellContext`r^(-1)], Editable->False]], "Print", CellChangeTimes->{{3.764530217046897*^9, 3.764530241819065*^9}}, CellLabel-> "During evaluation of \ In[260]:=",ExpressionUUID->"b99d3b1b-ba70-4f31-992b-0bcc9c43511f"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"ChrE[\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"Cot", "[", "\[Theta]", "]"}]}], SequenceForm["ChrE[", 3, ",", 2, ",", 3, "] = ", Cot[$CellContext`\[Theta]]], Editable->False]], "Print", CellChangeTimes->{{3.764530217046897*^9, 3.764530241826357*^9}}, CellLabel-> "During evaluation of \ In[260]:=",ExpressionUUID->"36d3fa1a-d3de-4b8a-8ecd-85f0243c60b1"] }, Open ]] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.7645301407583303`*^9, 3.7645301422235937`*^9}},ExpressionUUID->"dee4b3af-001a-4b19-acc8-\ cd101fa99764"], Cell[TextData[{ StyleBox["Exerc\[IAcute]cio para nota: ", FontWeight->"Bold"], "Em 3 partes (se for feito usando o Mathematica, mas se for feito usando \ outra linguagem, pular o item i):\ni) Reescreva o c\[OAcute]digo acima sem \ usar For, sugiro usar Do ou Table (bem f\[AAcute]cil). \nii) Acima, foi usada \ uma fun\[CCedilla]\[ATilde]o ChrE que serve de mem\[OAcute]ria para Chr. Como \ visto antes, n\[ATilde]o \[EAcute] necess\[AAcute]rio definirmos novo nome de \ fun\[CCedilla]\[ATilde]o para fazer uso de mem\[OAcute]ria.\niii) Defina nova \ fun\[CCedilla]\[ATilde]o ChrT que tenha como resultado uma tabela com todos \ os valores de Chr para dada m\[EAcute]trica. Tudo de forma completamente em \ acordo com programa\[CCedilla]\[ATilde]o funcional, ou seja, a fun\[CCedilla]\ \[ATilde]o em si n\[ATilde]o deve mudar nada do contexto (valores de vari\ \[AAcute]veis globais), e nem deve estar sujeita a mudan\[CCedilla]as do \ contexto. Por exemplo Sin[20], Plot[x,{x,0,10}], Append[...,...] s\[ATilde]o \ todos exemplos de fun\[CCedilla]\[OTilde]es em completo acordo com programa\ \[CCedilla]\[ATilde]o funcional. A fun\[CCedilla]\[ATilde]o AppendTo, por \ exemplo, \[EAcute] uma das excess\[OTilde]es do Mathematica." }], "Text", CellChangeTimes->{{3.7650532024296007`*^9, 3.765053493707348*^9}, { 3.765053541195416*^9, 3.765053556358692*^9}, {3.765053601485396*^9, 3.765053737463291*^9}, {3.7650539516434298`*^9, 3.765053968585724*^9}, { 3.765054005857748*^9, 3.76505404670679*^9}, {3.765054113465446*^9, 3.765054152761805*^9}, {3.765054252605618*^9, 3.765054255575756*^9}},ExpressionUUID->"b8349fe9-c25a-4e36-8a33-\ 07ba8fe7a7c9"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1920, 1035}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification:>2. Inherited, FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \ 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 279, 4, 194, "Title",ExpressionUUID->"973bc767-f2df-41af-9e7c-484ae5182fa0"], Cell[862, 28, 381, 9, 170, "Subtitle",ExpressionUUID->"67b05413-7922-4ea0-b69f-58e3591cfeec"], Cell[1246, 39, 276, 7, 114, "Text",ExpressionUUID->"e845d481-2cfe-4d4f-bffe-017aa65bedf5"], Cell[CellGroupData[{ Cell[1547, 50, 580, 10, 230, "Chapter",ExpressionUUID->"595a4f7a-c7c2-4004-a6ac-e972bf878a08"], Cell[2130, 62, 215, 4, 69, "Text",ExpressionUUID->"75de7941-03bd-4318-a0c8-e58ea42da92b"], Cell[CellGroupData[{ Cell[2370, 70, 301, 4, 134, "Section",ExpressionUUID->"c3a301b0-ba49-44be-af95-27f0f8a09161"], Cell[CellGroupData[{ Cell[2696, 78, 218, 4, 107, "Subsection",ExpressionUUID->"7abe9c08-8fb8-44b0-9bfa-86c97a346634"], Cell[2917, 84, 281, 6, 69, "Text",ExpressionUUID->"c02a6e09-e3b9-4158-ba37-bc7a9347feb1"], Cell[CellGroupData[{ Cell[3223, 94, 385, 8, 101, "Input",ExpressionUUID->"acad74f4-802f-4045-a8bf-2a79af617694"], Cell[3611, 104, 353, 5, 67, "Output",ExpressionUUID->"7aacbf9d-79f0-4165-8f5c-81f6d026f42d"] }, Open ]], Cell[CellGroupData[{ Cell[4001, 114, 217, 3, 59, "Input",ExpressionUUID->"22d51967-7828-41ed-bc74-0ca41a263c58"], Cell[4221, 119, 91037, 1321, 5234, "Output",ExpressionUUID->"e8d5c501-217d-4dd0-9c4c-ea6e8f03b1b9"] }, Open ]], Cell[95273, 1443, 147, 3, 101, "Input",ExpressionUUID->"0a35edf1-467a-466d-8fcc-78854d81b686"], Cell[95423, 1448, 296, 7, 159, "Text",ExpressionUUID->"a01e8fea-5ed8-4bd1-b45b-2222e7c2a900"], Cell[95722, 1457, 284, 6, 59, "Input",ExpressionUUID->"02fcc6f2-e271-4667-ad7a-1aef2c1723ce"], Cell[CellGroupData[{ Cell[96031, 1467, 225, 4, 59, "Input",ExpressionUUID->"e10747b0-cf8f-4a57-ba57-8e85fc41d8e7"], Cell[96259, 1473, 1052, 17, 150, "Output",ExpressionUUID->"d5c4a00a-1747-4976-942d-9857eb314c41"] }, Open ]], Cell[97326, 1493, 492, 8, 114, "Text",ExpressionUUID->"8f956435-5260-41a4-bee0-42c9a2a24d70"], Cell[CellGroupData[{ Cell[97843, 1505, 225, 4, 59, "Input",ExpressionUUID->"9ca5a0a7-2771-4574-bc5e-4146bfbcf261"], Cell[98071, 1511, 241, 4, 67, "Output",ExpressionUUID->"99bcf838-7dbd-41b7-8e1b-d8427f7e14fa"] }, Open ]], Cell[98327, 1518, 154, 3, 59, "Input",ExpressionUUID->"635bd5bc-c603-4a34-88ac-a4409412b771"], Cell[CellGroupData[{ Cell[98506, 1525, 404, 7, 59, "Input",ExpressionUUID->"96e2dc1f-f890-4203-9adf-9eb91d5197fc"], Cell[98913, 1534, 275, 4, 67, "Output",ExpressionUUID->"0c997ac5-bc8c-4dfa-8b5e-079aa852fd2b"] }, Open ]], Cell[99203, 1541, 154, 3, 59, "Input",ExpressionUUID->"9963b13e-fdac-4f18-b787-171d9bc4893a"], Cell[99360, 1546, 403, 8, 59, "Input",ExpressionUUID->"3e8a37c3-49f5-4cf4-82b3-099e0f8fffc4"], Cell[CellGroupData[{ Cell[99788, 1558, 390, 8, 59, "Input",ExpressionUUID->"d6129762-dba7-4ff6-bfd8-23590a4508a9"], Cell[100181, 1568, 398, 6, 67, "Output",ExpressionUUID->"031f6020-455a-4e92-be03-837816700a72"] }, Open ]], Cell[CellGroupData[{ Cell[100616, 1579, 212, 3, 59, "Input",ExpressionUUID->"f46546de-b066-4b21-a35e-78c3232be761"], Cell[100831, 1584, 189, 2, 67, "Output",ExpressionUUID->"61ff19f4-c067-4b2e-bc49-58da60a06a51"] }, Open ]], Cell[CellGroupData[{ Cell[101057, 1591, 271, 5, 59, "Input",ExpressionUUID->"8fa18cbd-da9b-4e56-8a6d-146a40a3aef6"], Cell[101331, 1598, 187, 2, 67, "Output",ExpressionUUID->"ae91c022-f33b-46b3-b9d0-87062c8e0bb7"] }, Open ]], Cell[CellGroupData[{ Cell[101555, 1605, 299, 6, 59, "Input",ExpressionUUID->"d7988e4a-ecc5-44fe-9ed6-3fd915fd2901"], Cell[101857, 1613, 204, 3, 67, "Output",ExpressionUUID->"1f6aab80-e5ab-47c1-a00a-8f331990ca4e"] }, Open ]], Cell[CellGroupData[{ Cell[102098, 1621, 577, 13, 147, "Input",ExpressionUUID->"0475a623-a621-4179-b27b-605739554aac"], Cell[102678, 1636, 435, 10, 67, "Output",ExpressionUUID->"284e7756-81e4-480a-be02-721ec1ad43cd"] }, Open ]], Cell[103128, 1649, 200, 5, 59, "Input",ExpressionUUID->"e2af5e58-6ec9-4ab5-888c-df62079d9332"], Cell[CellGroupData[{ Cell[103353, 1658, 782, 16, 183, "Input",ExpressionUUID->"7c52dbd9-c75b-4b5f-b23f-a189d76fb8d6"], Cell[104138, 1676, 237, 3, 67, "Output",ExpressionUUID->"f2e29eef-3a10-4e00-82bf-0539d48a5d47"] }, Open ]], Cell[CellGroupData[{ Cell[104412, 1684, 598, 14, 59, "Input",ExpressionUUID->"5777e602-3775-4079-baf2-8b2206c65553"], Cell[105013, 1700, 436, 10, 67, "Output",ExpressionUUID->"19b890b7-bf27-43f4-8375-bb7906f3d030"] }, Open ]], Cell[105464, 1713, 347, 7, 59, "Input",ExpressionUUID->"45a151af-1b9e-408b-8df2-e814fc7cc4a1"], Cell[CellGroupData[{ Cell[105836, 1724, 224, 3, 59, "Input",ExpressionUUID->"eb882119-2001-43dd-9081-ece8ff6fd00c"], Cell[106063, 1729, 201, 3, 67, "Output",ExpressionUUID->"27689e8f-1e84-41cb-a214-6909ce90b52d"] }, Open ]], Cell[106279, 1735, 181, 3, 69, "Text",ExpressionUUID->"27d2b167-1fe7-4178-bd8c-cadd182e14bb"], Cell[106463, 1740, 1024, 25, 224, "Input",ExpressionUUID->"a7512dfe-8d23-4432-b964-eb3eede323c0"], Cell[CellGroupData[{ Cell[107512, 1769, 261, 5, 59, "Input",ExpressionUUID->"c40cdc60-4bd4-4a4f-b37c-b50dbffbd8dd"], Cell[107776, 1776, 178, 2, 67, "Output",ExpressionUUID->"13c954d3-56de-4946-8a99-54f6d878be2f"] }, Open ]], Cell[107969, 1781, 149, 3, 101, "Input",ExpressionUUID->"fe8a3343-7cd3-4f52-bb7a-89e260a425da"], Cell[CellGroupData[{ Cell[108143, 1788, 343, 6, 101, "Input",ExpressionUUID->"9538308f-afd0-4614-9eac-40e1bcd7596d"], Cell[108489, 1796, 200, 3, 67, "Output",ExpressionUUID->"212fe930-fde9-4c88-9a6b-6250910b6e09"] }, Open ]], Cell[108704, 1802, 954, 24, 224, "Input",ExpressionUUID->"8a5de3ba-9c2e-489a-98f3-241f6d38b5fa"], Cell[CellGroupData[{ Cell[109683, 1830, 214, 3, 59, "Input",ExpressionUUID->"06979c62-307e-4aa8-8096-14ccb7ea6501"], Cell[109900, 1835, 157, 2, 67, "Output",ExpressionUUID->"450cf2de-96a6-4a75-b7cf-8559039e0787"] }, Open ]], Cell[110072, 1840, 511, 11, 114, "Text",ExpressionUUID->"c46151fb-1872-4614-970d-04988961cae3"], Cell[110586, 1853, 1117, 28, 265, "Input",ExpressionUUID->"3ef7cac5-b979-4ca1-86b3-ce732a31fc5f"], Cell[111706, 1883, 177, 2, 69, "Text",ExpressionUUID->"e080b99d-7326-4e35-a82d-8831838dc207"], Cell[111886, 1887, 586, 14, 101, "Input",ExpressionUUID->"69e238b9-2fe5-45f7-94c1-666ac8dfdff5"], Cell[CellGroupData[{ Cell[112497, 1905, 232, 4, 59, "Input",ExpressionUUID->"b2e22df5-e969-4f22-8013-479cecd7e556"], Cell[112732, 1911, 1031, 17, 150, "Output",ExpressionUUID->"72d647d1-312a-416c-a469-595e88e4b6ab"] }, Open ]], Cell[CellGroupData[{ Cell[113800, 1933, 290, 7, 59, "Input",ExpressionUUID->"184ab9a8-d9ce-403f-9af6-4a8287b04ef1"], Cell[114093, 1942, 1140, 26, 109, "Output",ExpressionUUID->"1550892d-74ae-426f-ae4f-d81542e213f1"] }, Open ]], Cell[CellGroupData[{ Cell[115270, 1973, 328, 7, 59, "Input",ExpressionUUID->"49d2b2bc-be5d-443a-a5df-2b3f3ef9aeb0"], Cell[115601, 1982, 297, 7, 67, "Output",ExpressionUUID->"e06aa421-ffe0-454b-98ea-ce8858ccd77f"] }, Open ]], Cell[CellGroupData[{ Cell[115935, 1994, 350, 9, 59, "Input",ExpressionUUID->"5a9a32b7-71c2-480e-9ef6-ec81dad7cbcb"], Cell[116288, 2005, 1717, 42, 492, "Output",ExpressionUUID->"4da9a574-f63b-4c14-baf4-313f64b9c998"] }, Open ]], Cell[CellGroupData[{ Cell[118042, 2052, 487, 12, 59, "Input",ExpressionUUID->"f7a1936f-c237-4561-8b60-c76b58c2bcf4"], Cell[118532, 2066, 2372, 55, 492, "Output",ExpressionUUID->"f4b5fa3c-5969-454f-93e0-50c77ca59aeb"] }, Open ]], Cell[120919, 2124, 296, 6, 69, "Text",ExpressionUUID->"190ab9ee-81e1-4a4c-bdff-fe46754d4298"], Cell[CellGroupData[{ Cell[121240, 2134, 695, 15, 59, "Input",ExpressionUUID->"4eafcbcf-d4b3-4ae2-90c2-94cca96bd20d"], Cell[121938, 2151, 1231, 20, 150, "Output",ExpressionUUID->"9bca4ed7-5a0d-4228-abdd-5e8914fa5223"] }, Open ]], Cell[CellGroupData[{ Cell[123206, 2176, 271, 7, 59, "Input",ExpressionUUID->"c46723a1-c8fe-4a44-b3b8-4d9c881e437d"], Cell[123480, 2185, 227, 5, 67, "Output",ExpressionUUID->"923b33fc-4da0-4724-8495-01c9aacc67e1"] }, Open ]], Cell[CellGroupData[{ Cell[123744, 2195, 440, 11, 59, "Input",ExpressionUUID->"f68e5a79-b91d-45e5-95b8-560882ee760b"], Cell[124187, 2208, 998, 17, 191, "Output",ExpressionUUID->"bfd8bb35-d310-4030-ab29-5668387724fa"] }, Open ]], Cell[CellGroupData[{ Cell[125222, 2230, 536, 12, 142, "Input",ExpressionUUID->"8b7349aa-0dc0-4afa-8e16-5fbb3adaff11"], Cell[125761, 2244, 256, 6, 67, "Output",ExpressionUUID->"5d4fd48a-e5a4-464b-ad20-24155c840bfc"], Cell[126020, 2252, 256, 6, 67, "Output",ExpressionUUID->"6c6dd4ec-9035-4fdf-8d60-71164543dfa6"] }, Open ]], Cell[CellGroupData[{ Cell[126313, 2263, 152, 3, 59, "Input",ExpressionUUID->"210d3516-66ac-4194-9356-fb2b99281d44"], Cell[126468, 2268, 153, 3, 67, "Output",ExpressionUUID->"0559ea30-3dae-4574-ae9a-7fbfbb6d1b4b"] }, Open ]], Cell[CellGroupData[{ Cell[126658, 2276, 267, 6, 59, "Input",ExpressionUUID->"e247341b-35d2-4223-934f-05dda2374c41"], Cell[126928, 2284, 375, 13, 89, "Output",ExpressionUUID->"a56e4bd2-37d7-4787-b780-c11eda2b2f99"] }, Open ]], Cell[CellGroupData[{ Cell[127340, 2302, 214, 4, 59, "Input",ExpressionUUID->"312d76f3-a305-4719-8710-7c0e58496c52"], Cell[127557, 2308, 240, 6, 67, "Output",ExpressionUUID->"45e115eb-312a-4ab1-9c64-0f9140bc1009"] }, Open ]], Cell[CellGroupData[{ Cell[127834, 2319, 298, 7, 59, "Input",ExpressionUUID->"b95f1054-da01-4415-81c7-82da95cb3880"], Cell[128135, 2328, 210, 5, 67, "Output",ExpressionUUID->"006fd86c-2514-4754-abdb-5b0e531207f4"] }, Open ]], Cell[CellGroupData[{ Cell[128382, 2338, 152, 3, 59, "Input",ExpressionUUID->"9ef094aa-e716-4fa3-8746-897bee5897c2"], Cell[128537, 2343, 155, 3, 67, "Output",ExpressionUUID->"999e68cd-2a15-46a5-8f0a-34dbdf4cd4c3"] }, Open ]], Cell[CellGroupData[{ Cell[128729, 2351, 152, 3, 59, "Input",ExpressionUUID->"a44cf2af-462c-44a9-a141-0e97f4f5ad6e"], Cell[128884, 2356, 153, 3, 67, "Output",ExpressionUUID->"61a4fa26-f811-4780-ba4a-385efab2d938"] }, Open ]], Cell[CellGroupData[{ Cell[129074, 2364, 152, 3, 59, "Input",ExpressionUUID->"d36d1eed-d2bb-44d2-9296-2521540dc0f4"], Cell[129229, 2369, 153, 3, 67, "Output",ExpressionUUID->"8a2460bf-11e5-4b4b-8afc-bd90e1ceda59"] }, Open ]], Cell[CellGroupData[{ Cell[129419, 2377, 257, 6, 59, "Input",ExpressionUUID->"9c89cd0f-c1ce-45f6-b504-ba419730cd6f"], Cell[129679, 2385, 551, 10, 109, "Output",ExpressionUUID->"fb4b7341-2887-49ee-a0cc-3675cfe51bfa"] }, Open ]], Cell[130245, 2398, 558, 14, 101, "Input",ExpressionUUID->"a6e72e5a-d7d7-4c8b-ac78-a5353283f242"], Cell[130806, 2414, 215, 4, 69, "Text",ExpressionUUID->"40eb04ad-9a04-45c8-b431-660bb17e38d9"], Cell[131024, 2420, 508, 12, 101, "Input",ExpressionUUID->"ca274d33-d754-4be3-844f-d3de71689bcf"], Cell[CellGroupData[{ Cell[131557, 2436, 179, 3, 59, "Input",ExpressionUUID->"9b590523-7bc4-4f69-8df5-0b9046fdf06b"], Cell[131739, 2441, 550, 10, 109, "Output",ExpressionUUID->"ca2f19f6-d101-43a7-a6ea-00bb9c252a2c"] }, Open ]], Cell[CellGroupData[{ Cell[132326, 2456, 353, 9, 59, "Input",ExpressionUUID->"edc31b71-6a1b-42c1-a5fc-fb7a892b8fd7"], Cell[132682, 2467, 2373, 55, 492, "Output",ExpressionUUID->"f215f70c-93b5-4d73-9972-45e26ba54913"] }, Open ]], Cell[CellGroupData[{ Cell[135092, 2527, 367, 10, 59, "Input",ExpressionUUID->"4b3cdaa9-e08c-4538-a64c-5aca4bc9ee6e"], Cell[135462, 2539, 2348, 55, 492, "Output",ExpressionUUID->"3d93edd8-f294-4e1a-b9dc-949e6b7e10f9"] }, Open ]], Cell[CellGroupData[{ Cell[137847, 2599, 265, 5, 59, "Input",ExpressionUUID->"55e5190f-a9ea-4f1e-bd13-8fb5b83cef59"], Cell[138115, 2606, 3879, 52, 560, "Output",ExpressionUUID->"97c14986-98ba-493e-b807-8063a62d5fc1"] }, Open ]], Cell[CellGroupData[{ Cell[142031, 2663, 321, 7, 59, "Input",ExpressionUUID->"bd16310f-ad1a-4c5e-8ee2-0c495fabd286"], Cell[142355, 2672, 9878, 290, 888, "Output",ExpressionUUID->"9361e1a8-b73f-4738-9885-adcd0c9dc08d"] }, Open ]], Cell[CellGroupData[{ Cell[152270, 2967, 182, 3, 89, "Subsubsection",ExpressionUUID->"11580cdb-443d-4171-bc6c-a26ef32f1525"], Cell[CellGroupData[{ Cell[152477, 2974, 412, 10, 59, "Input",ExpressionUUID->"0c2d8e60-c7c5-4e91-9001-965a9d4136c7"], Cell[152892, 2986, 2972, 64, 486, "Output",ExpressionUUID->"d16cbda8-4fd0-4008-9817-35551cde1254"] }, Open ]], Cell[CellGroupData[{ Cell[155901, 3055, 495, 12, 59, "Input",ExpressionUUID->"3d549013-0447-4c9a-a58c-80698e619a52"], Cell[156399, 3069, 2932, 64, 492, "Output",ExpressionUUID->"a6c5f758-c85c-4bd9-872a-d1d5619dfb13"] }, Open ]], Cell[CellGroupData[{ Cell[159368, 3138, 422, 10, 59, "Input",ExpressionUUID->"0deb13e5-efd8-4276-b34f-56e473672cf5"], Cell[159793, 3150, 9556, 215, 483, "Output",ExpressionUUID->"c9ed4039-18ce-4b51-94d7-f73e401f92c9"] }, Open ]], Cell[CellGroupData[{ Cell[169386, 3370, 292, 7, 59, "Input",ExpressionUUID->"7ac55d2f-3f38-44c1-b74d-6f3e57abf55e"], Cell[169681, 3379, 14591, 423, 484, "Output",ExpressionUUID->"7b366c05-803d-4985-a6c1-26543614add9"] }, Open ]], Cell[184287, 3805, 189, 3, 69, "Text",ExpressionUUID->"83834447-92c7-45d1-8b24-7687687c922d"], Cell[CellGroupData[{ Cell[184501, 3812, 497, 12, 59, "Input",ExpressionUUID->"1f2f83f0-ed5f-494e-9bdb-f632088fdbc5"], Cell[185001, 3826, 3045, 67, 492, "Output",ExpressionUUID->"d849dd03-c44a-4dd4-b288-974942a19ac3"] }, Open ]], Cell[CellGroupData[{ Cell[188083, 3898, 426, 11, 59, "Input",ExpressionUUID->"5005ee5b-2ec0-4eaa-b246-66e82550e206"], Cell[188512, 3911, 244, 6, 67, "Output",ExpressionUUID->"732ab292-a156-4f9f-9779-63ac7e416da6"] }, Open ]], Cell[CellGroupData[{ Cell[188793, 3922, 298, 8, 59, "Input",ExpressionUUID->"1d048345-383d-4968-9699-5a676fe22bc6"], Cell[189094, 3932, 216, 6, 67, "Output",ExpressionUUID->"ec09b660-ec2e-4765-ab82-028f7bd81e02"] }, Open ]], Cell[CellGroupData[{ Cell[189347, 3943, 228, 4, 59, "Input",ExpressionUUID->"58697caf-3e65-404d-95a0-9d9d84bf9688"], Cell[189578, 3949, 153, 3, 67, "Output",ExpressionUUID->"56234a67-b452-4ef8-9ef2-0163014ceac1"] }, Open ]], Cell[CellGroupData[{ Cell[189768, 3957, 307, 8, 59, "Input",ExpressionUUID->"8c4d7527-93b3-41e5-afd8-9e8453b849ef"], Cell[190078, 3967, 9655, 291, 765, "Output",ExpressionUUID->"6f7e4310-0df1-49a6-8cac-7a5208016fe9"] }, Open ]], Cell[CellGroupData[{ Cell[199770, 4263, 661, 19, 65, "Input",ExpressionUUID->"594a2ab0-f00c-4901-ad85-47b25dfb7a8b"], Cell[200434, 4284, 11638, 292, 1011, "Output",ExpressionUUID->"24fa2e4c-dfca-4a85-ae9d-459d9b4279a9"] }, Open ]], Cell[CellGroupData[{ Cell[212109, 4581, 2106, 45, 224, "Input",ExpressionUUID->"f45a6f65-fd6a-421e-b9f8-c7fc211524a8"], Cell[214218, 4628, 3191, 70, 756, "Output",ExpressionUUID->"b1b92ed6-986d-44b2-8b5b-243402ffc0e2"], Cell[217412, 4700, 3308, 72, 756, "Output",ExpressionUUID->"badab83e-1224-45aa-8202-5095014ad376"] }, Open ]], Cell[220735, 4775, 152, 3, 59, "Input",ExpressionUUID->"1e3d57ac-a768-4f9a-859c-dde139dffb1e"], Cell[220890, 4780, 602, 15, 72, "Text",ExpressionUUID->"49b486a1-3512-47b7-9b5e-1c01622baaf7"], Cell[221495, 4797, 556, 17, 59, "Input",ExpressionUUID->"a442c823-3fb3-49f7-b7ad-f5c8c3afa636"], Cell[222054, 4816, 696, 19, 65, "Input",ExpressionUUID->"2b899947-f419-4709-a2b9-26ae49c5d59d"], Cell[CellGroupData[{ Cell[222775, 4839, 1101, 24, 142, "Input",ExpressionUUID->"5805fe6a-5a28-4951-8bf3-6873130b6c29"], Cell[223879, 4865, 3721, 80, 755, "Output",ExpressionUUID->"dda19147-554c-4c40-931c-e9d1d4ff0dcc"] }, Open ]], Cell[227615, 4948, 263, 6, 69, "Text",ExpressionUUID->"7e424590-5e67-462f-b116-d5e2df42a605"], Cell[CellGroupData[{ Cell[227903, 4958, 1072, 28, 107, "Input",ExpressionUUID->"cafaf072-8e71-438e-9147-884797c9af21"], Cell[228978, 4988, 5013, 126, 437, "Output",ExpressionUUID->"36c52a53-e110-4546-8887-d08865fb404f"] }, Open ]], Cell[CellGroupData[{ Cell[234028, 5119, 1473, 34, 183, "Input",ExpressionUUID->"924729d9-4ab5-4a23-bd64-4680277a2021"], Cell[235504, 5155, 5011, 103, 755, "Output",ExpressionUUID->"b54e2467-081b-45c0-86dc-927f7d9bdc87"] }, Open ]], Cell[240530, 5261, 824, 14, 159, "Text",ExpressionUUID->"0f3ff9a5-8dc8-466f-b2c5-e87736e41478"], Cell[241357, 5277, 212, 4, 69, "Text",ExpressionUUID->"5511de17-ad9a-42ce-b2ba-8570dd6cbfcf"], Cell[241572, 5283, 1066, 30, 183, "Input",ExpressionUUID->"f94ca16d-d557-40fb-80cb-8230fd681f39"], Cell[CellGroupData[{ Cell[242663, 5317, 705, 18, 65, "Input",ExpressionUUID->"af0d41dc-cd47-4b70-bb88-953de3edff2e"], Cell[243371, 5337, 14820, 345, 1216, "Output",ExpressionUUID->"5f7a13a3-3ec0-4d4a-a230-bdd659869793"] }, Open ]], Cell[258206, 5685, 154, 3, 59, "Input",ExpressionUUID->"c320faeb-41f9-46c2-b551-0a2e7c8b9d0d"], Cell[258363, 5690, 1238, 21, 294, "Text",ExpressionUUID->"182a6771-1125-435e-a714-782c0dfa4f4f"], Cell[259604, 5713, 181, 3, 69, "Text",ExpressionUUID->"2435313d-5145-4927-a904-37dbbe149974"], Cell[CellGroupData[{ Cell[259810, 5720, 417, 11, 59, "Input",ExpressionUUID->"3dac5de1-074d-42c2-a60d-817bc79da5ed"], Cell[260230, 5733, 225, 5, 67, "Output",ExpressionUUID->"88083b4c-fdce-4b9e-aa46-376ee7cb6a92"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[260528, 5746, 377, 6, 134, "Section",ExpressionUUID->"3fdb31f7-9580-4394-9c88-6135615ee6dd"], Cell[260908, 5754, 638, 18, 164, "Input",ExpressionUUID->"7ceb1295-7dcf-4a97-b237-54275c186a49"], Cell[261549, 5774, 256, 6, 59, "Input",ExpressionUUID->"933462bb-8664-4be3-8e62-1e99c17d7a4c"], Cell[261808, 5782, 397, 11, 59, "Input",ExpressionUUID->"4d0dc88a-8274-46a7-bd12-9dd5d3508be2"], Cell[CellGroupData[{ Cell[262230, 5797, 226, 5, 59, "Input",ExpressionUUID->"363d511c-96c8-4f2a-aa47-0ceb9c0dcc63"], Cell[262459, 5804, 180, 4, 67, "Output",ExpressionUUID->"95c59725-0da0-4c8b-88bb-2538f05ddd95"] }, Open ]], Cell[262654, 5811, 426, 12, 59, "Input",ExpressionUUID->"69153c5d-1f00-4872-8cb1-52b9d83760e2"], Cell[CellGroupData[{ Cell[263105, 5827, 227, 5, 59, "Input",ExpressionUUID->"224b2f57-ccb0-42da-a050-b818e61e55db"], Cell[263335, 5834, 203, 5, 92, "Output",ExpressionUUID->"ba6b0c55-cab1-440b-90ff-27119c84234a"] }, Open ]], Cell[263553, 5842, 207, 4, 59, "Input",ExpressionUUID->"70355d95-97c1-44aa-9bb4-a7d2dd69b89c"], Cell[263763, 5848, 131, 3, 59, "Input",ExpressionUUID->"62112789-deda-46f1-b9ae-29c7380e9544"], Cell[263897, 5853, 341, 9, 101, "Input",ExpressionUUID->"feeda79f-29b5-4587-813d-4befc9e2f12d"], Cell[264241, 5864, 236, 6, 69, "Text",ExpressionUUID->"6105d452-c64f-45fa-9d14-feec42686dd1"], Cell[264480, 5872, 1074, 32, 108, "Input",ExpressionUUID->"f7fdd0b9-1f8d-4fe1-9549-02be3335046d"], Cell[265557, 5906, 617, 12, 249, "Text",ExpressionUUID->"e4aabd18-e94e-4f43-849a-afb8459b68ac"], Cell[266177, 5920, 1145, 34, 108, "Input",ExpressionUUID->"968c3d78-c05e-46e7-bdd4-9e7f141da3c9"], Cell[267325, 5956, 653, 11, 159, "Text",ExpressionUUID->"56223343-33e3-446c-97fa-6e7e5aef113f"], Cell[CellGroupData[{ Cell[268003, 5971, 272, 6, 59, "Input",ExpressionUUID->"2c7c7358-2859-4662-b204-988bcfcd869a"], Cell[268278, 5979, 155, 3, 67, "Output",ExpressionUUID->"9729ca1c-56dd-495d-bfa5-e4facbadc30b"] }, Open ]], Cell[CellGroupData[{ Cell[268470, 5987, 238, 5, 59, "Input",ExpressionUUID->"3d546098-8d2f-4f86-99af-cd378c8cc819"], Cell[268711, 5994, 153, 3, 67, "Output",ExpressionUUID->"38da1423-40a4-4f28-88cf-c22c0e7d8872"] }, Open ]], Cell[CellGroupData[{ Cell[268901, 6002, 236, 5, 59, "Input",ExpressionUUID->"998fb8af-d2c9-4007-8e21-733efdcdc2a7"], Cell[269140, 6009, 153, 3, 67, "Output",ExpressionUUID->"db4f6bbd-1e11-4879-8358-72c0d4bee971"] }, Open ]], Cell[CellGroupData[{ Cell[269330, 6017, 240, 5, 59, "Input",ExpressionUUID->"cb9399f6-d940-4feb-bd47-1e117f60b027"], Cell[269573, 6024, 314, 9, 93, "Output",ExpressionUUID->"ec5697bd-4079-457e-afae-023c88820653"] }, Open ]], Cell[269902, 6036, 207, 4, 59, "Input",ExpressionUUID->"80d78293-2d0f-4ead-9ccd-9b1cad3e5a09"], Cell[270112, 6042, 455, 9, 69, "Text",ExpressionUUID->"f755277d-6263-435c-b3b7-29dd3fed0df2"], Cell[270570, 6053, 7652, 190, 1186, "Input",ExpressionUUID->"503637d5-7074-4e67-8310-39d10ff2ee83"], Cell[CellGroupData[{ Cell[278247, 6247, 181, 3, 59, "Input",ExpressionUUID->"9036f0de-e539-447d-b675-9a83b62e9cc2"], Cell[CellGroupData[{ Cell[278453, 6254, 401, 9, 47, "Print",ExpressionUUID->"8167f6b7-15cc-4222-8ca8-57bc01755bcc"], Cell[278857, 6265, 257, 5, 47, "Print",ExpressionUUID->"427f5969-98df-4594-b92b-952960b2e70f"], Cell[279117, 6272, 407, 9, 47, "Print",ExpressionUUID->"2bc218e4-2a02-4c80-a33d-0e16536db9ec"], Cell[279527, 6283, 819, 20, 73, "Print",ExpressionUUID->"9af6d031-81c0-449d-a1ab-9efd0634f3e3"], Cell[280349, 6305, 845, 21, 73, "Print",ExpressionUUID->"dbfda882-55f2-4ad9-b99b-1bc619f665a7"], Cell[281197, 6328, 818, 20, 73, "Print",ExpressionUUID->"8f50f51a-6e24-4f39-99eb-a38fbcca8e3e"], Cell[282018, 6350, 665, 16, 68, "Print",ExpressionUUID->"5596d982-db15-403e-a00d-c7a090e76178"], Cell[282686, 6368, 801, 20, 78, "Print",ExpressionUUID->"cecf992a-fde7-4fed-98bb-1a9dc497c75b"], Cell[283490, 6390, 580, 12, 68, "Print",ExpressionUUID->"9805a08a-5505-4be5-bf26-91b6230c4e51"], Cell[284073, 6404, 722, 17, 47, "Print",ExpressionUUID->"b788decd-5df2-4a46-a98f-b743042909c8"], Cell[284798, 6423, 580, 12, 68, "Print",ExpressionUUID->"b99d3b1b-ba70-4f31-992b-0bcc9c43511f"], Cell[285381, 6437, 607, 13, 47, "Print",ExpressionUUID->"36d3fa1a-d3de-4b8a-8ecd-85f0243c60b1"] }, Open ]] }, Open ]], Cell[286015, 6454, 156, 3, 59, "Input",ExpressionUUID->"dee4b3af-001a-4b19-acc8-cd101fa99764"], Cell[286174, 6459, 1662, 25, 384, "Text",ExpressionUUID->"b8349fe9-c25a-4e36-8a33-07ba8fe7a7c9"] }, Open ]] }, Open ]] }, Open ]] } ] *)