Usage example.nb

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[     43081,        934]
NotebookOptionsPosition[     37721,        835]
NotebookOutlinePosition[     38135,        853]
CellTagsIndexPosition[     38092,        850]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Needs", "[", "\"\<MAGMA`\>\"", "]"}]}], "Input",
 CellChangeTimes->{{3.709239155769289*^9, 3.709239193461773*^9}, {
   3.709296428869584*^9, 3.7092964328063803`*^9}, 3.709296496078127*^9, {
   3.70929875104886*^9, 
   3.7092987561320753`*^9}},ExpressionUUID->"e7e2e9f8-a4ad-494a-af0a-\
f1b5470f7c0b"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"MAGMA - Mathematica Automatized Galaxy Mass Analysis \
(2018)\"\>", "Title",
  StripOnInput->False,
  FontSize->15]], "Print",
 CellChangeTimes->{
  3.7171809409580603`*^9, 3.717180983092407*^9, 3.717181231373097*^9, 
   3.717182007874672*^9, 3.717182072585376*^9, 3.717182372299038*^9, 
   3.717182510648947*^9, 3.7171825697825212`*^9, 3.717182930690868*^9, 
   3.717183011505962*^9, 3.7171834219952183`*^9, 3.717183497689808*^9, 
   3.71718387065209*^9, 3.717337036998755*^9, 3.717337829009905*^9, {
   3.717339789197421*^9, 3.717339815449514*^9}, 3.717341301471558*^9, 
   3.717341476237548*^9, 3.7173422045680227`*^9, {3.717342452295518*^9, 
   3.717342461751794*^9}, 3.717342623864518*^9, 3.7173431604585533`*^9, 
   3.717343499616461*^9, 3.7173445256602497`*^9, 3.717353628365583*^9, 
   3.717353829487558*^9, 3.717354051269313*^9, 3.717354168307282*^9, 
   3.717354436210931*^9, 3.717355177251886*^9, 3.717355249867086*^9, 
   3.717355395722457*^9, 3.7173555374074907`*^9, 3.717356435058586*^9, 
   3.717356595705904*^9, 3.7173581811824493`*^9, 3.717420057777076*^9, 
   3.717426659216028*^9, 3.717427502351362*^9, 3.717432435068376*^9, 
   3.718221328671596*^9, 3.718315350481964*^9, 3.7183154872501907`*^9, 
   3.718315853370748*^9, 3.7183162475693083`*^9, 3.71837031920473*^9, 
   3.718371013836053*^9, 3.71837292979021*^9, 3.718373034891387*^9, 
   3.719692961328732*^9, 3.731433820014265*^9, 3.7315238018770733`*^9, 
   3.7316047636774597`*^9, 3.731604808842766*^9, {3.731928590865611*^9, 
   3.73192859867197*^9}, 3.732094126373415*^9, 3.73210515191054*^9, 
   3.7381810013943872`*^9, 3.7381825930326357`*^9, 3.738182748175511*^9, 
   3.738184603183511*^9, 3.738185276129614*^9, 3.7381854713035383`*^9, 
   3.738186217852693*^9, 3.738187821007719*^9, 3.738188011224234*^9, 
   3.7381880663854628`*^9, 3.7382510436744413`*^9, 3.738251544148465*^9, 
   3.7382522490407543`*^9, 3.7382532469546127`*^9, 3.738253378432884*^9, 
   3.73825402318509*^9, 3.738254275952092*^9, 3.738254492731722*^9, 
   3.738256019548648*^9, 3.73825627794274*^9, 3.738256599251953*^9, 
   3.738256795201442*^9, 3.738257103580174*^9, {3.7382571996201057`*^9, 
   3.738257229482964*^9}, 3.7382573727156467`*^9, 3.738257582488152*^9, 
   3.738257656282621*^9},ExpressionUUID->"f2f582f0-6c3a-4e25-b9c7-\
aeb82ea4beb9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"MAGMA master file v 0.3(\"\>", 
   "\[InvisibleSpace]", "\<\"2018-167\"\>", 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["MAGMA master file v 0.3(", "2018-167", ")."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7171809409580603`*^9, 3.717180983092407*^9, 3.717181231373097*^9, 
   3.717182007874672*^9, 3.717182072585376*^9, 3.717182372299038*^9, 
   3.717182510648947*^9, 3.7171825697825212`*^9, 3.717182930690868*^9, 
   3.717183011505962*^9, 3.7171834219952183`*^9, 3.717183497689808*^9, 
   3.71718387065209*^9, 3.717337036998755*^9, 3.717337829009905*^9, {
   3.717339789197421*^9, 3.717339815449514*^9}, 3.717341301471558*^9, 
   3.717341476237548*^9, 3.7173422045680227`*^9, {3.717342452295518*^9, 
   3.717342461751794*^9}, 3.717342623864518*^9, 3.7173431604585533`*^9, 
   3.717343499616461*^9, 3.7173445256602497`*^9, 3.717353628365583*^9, 
   3.717353829487558*^9, 3.717354051269313*^9, 3.717354168307282*^9, 
   3.717354436210931*^9, 3.717355177251886*^9, 3.717355249867086*^9, 
   3.717355395722457*^9, 3.7173555374074907`*^9, 3.717356435058586*^9, 
   3.717356595705904*^9, 3.7173581811824493`*^9, 3.717420057777076*^9, 
   3.717426659216028*^9, 3.717427502351362*^9, 3.717432435068376*^9, 
   3.718221328671596*^9, 3.718315350481964*^9, 3.7183154872501907`*^9, 
   3.718315853370748*^9, 3.7183162475693083`*^9, 3.71837031920473*^9, 
   3.718371013836053*^9, 3.71837292979021*^9, 3.718373034891387*^9, 
   3.719692961328732*^9, 3.731433820014265*^9, 3.7315238018770733`*^9, 
   3.7316047636774597`*^9, 3.731604808842766*^9, {3.731928590865611*^9, 
   3.73192859867197*^9}, 3.732094126373415*^9, 3.73210515191054*^9, 
   3.7381810013943872`*^9, 3.7381825930326357`*^9, 3.738182748175511*^9, 
   3.738184603183511*^9, 3.738185276129614*^9, 3.7381854713035383`*^9, 
   3.738186217852693*^9, 3.738187821007719*^9, 3.738188011224234*^9, 
   3.7381880663854628`*^9, 3.7382510436744413`*^9, 3.738251544148465*^9, 
   3.7382522490407543`*^9, 3.7382532469546127`*^9, 3.738253378432884*^9, 
   3.73825402318509*^9, 3.738254275952092*^9, 3.738254492731722*^9, 
   3.738256019548648*^9, 3.73825627794274*^9, 3.738256599251953*^9, 
   3.738256795201442*^9, 3.738257103580174*^9, {3.7382571996201057`*^9, 
   3.738257229482964*^9}, 3.7382573727156467`*^9, 3.738257582488152*^9, 
   3.73825765637831*^9},ExpressionUUID->"d0d0ea84-154f-4a05-ab10-\
db55bf342b5b"],

Cell[BoxData["\<\"Type '? MAGMA' for general help.\"\>"], "Print",
 CellChangeTimes->{
  3.7171809409580603`*^9, 3.717180983092407*^9, 3.717181231373097*^9, 
   3.717182007874672*^9, 3.717182072585376*^9, 3.717182372299038*^9, 
   3.717182510648947*^9, 3.7171825697825212`*^9, 3.717182930690868*^9, 
   3.717183011505962*^9, 3.7171834219952183`*^9, 3.717183497689808*^9, 
   3.71718387065209*^9, 3.717337036998755*^9, 3.717337829009905*^9, {
   3.717339789197421*^9, 3.717339815449514*^9}, 3.717341301471558*^9, 
   3.717341476237548*^9, 3.7173422045680227`*^9, {3.717342452295518*^9, 
   3.717342461751794*^9}, 3.717342623864518*^9, 3.7173431604585533`*^9, 
   3.717343499616461*^9, 3.7173445256602497`*^9, 3.717353628365583*^9, 
   3.717353829487558*^9, 3.717354051269313*^9, 3.717354168307282*^9, 
   3.717354436210931*^9, 3.717355177251886*^9, 3.717355249867086*^9, 
   3.717355395722457*^9, 3.7173555374074907`*^9, 3.717356435058586*^9, 
   3.717356595705904*^9, 3.7173581811824493`*^9, 3.717420057777076*^9, 
   3.717426659216028*^9, 3.717427502351362*^9, 3.717432435068376*^9, 
   3.718221328671596*^9, 3.718315350481964*^9, 3.7183154872501907`*^9, 
   3.718315853370748*^9, 3.7183162475693083`*^9, 3.71837031920473*^9, 
   3.718371013836053*^9, 3.71837292979021*^9, 3.718373034891387*^9, 
   3.719692961328732*^9, 3.731433820014265*^9, 3.7315238018770733`*^9, 
   3.7316047636774597`*^9, 3.731604808842766*^9, {3.731928590865611*^9, 
   3.73192859867197*^9}, 3.732094126373415*^9, 3.73210515191054*^9, 
   3.7381810013943872`*^9, 3.7381825930326357`*^9, 3.738182748175511*^9, 
   3.738184603183511*^9, 3.738185276129614*^9, 3.7381854713035383`*^9, 
   3.738186217852693*^9, 3.738187821007719*^9, 3.738188011224234*^9, 
   3.7381880663854628`*^9, 3.7382510436744413`*^9, 3.738251544148465*^9, 
   3.7382522490407543`*^9, 3.7382532469546127`*^9, 3.738253378432884*^9, 
   3.73825402318509*^9, 3.738254275952092*^9, 3.738254492731722*^9, 
   3.738256019548648*^9, 3.73825627794274*^9, 3.738256599251953*^9, 
   3.738256795201442*^9, 3.738257103580174*^9, {3.7382571996201057`*^9, 
   3.738257229482964*^9}, 3.7382573727156467`*^9, 3.738257582488152*^9, 
   3.738257656389123*^9},ExpressionUUID->"cfb13305-cc3d-4fc9-848e-\
fc883f427c26"],

Cell[BoxData["\<\"Starting MAGMAfits v0.6(2018-167)\"\>"], "Print",
 CellChangeTimes->{
  3.7171809409580603`*^9, 3.717180983092407*^9, 3.717181231373097*^9, 
   3.717182007874672*^9, 3.717182072585376*^9, 3.717182372299038*^9, 
   3.717182510648947*^9, 3.7171825697825212`*^9, 3.717182930690868*^9, 
   3.717183011505962*^9, 3.7171834219952183`*^9, 3.717183497689808*^9, 
   3.71718387065209*^9, 3.717337036998755*^9, 3.717337829009905*^9, {
   3.717339789197421*^9, 3.717339815449514*^9}, 3.717341301471558*^9, 
   3.717341476237548*^9, 3.7173422045680227`*^9, {3.717342452295518*^9, 
   3.717342461751794*^9}, 3.717342623864518*^9, 3.7173431604585533`*^9, 
   3.717343499616461*^9, 3.7173445256602497`*^9, 3.717353628365583*^9, 
   3.717353829487558*^9, 3.717354051269313*^9, 3.717354168307282*^9, 
   3.717354436210931*^9, 3.717355177251886*^9, 3.717355249867086*^9, 
   3.717355395722457*^9, 3.7173555374074907`*^9, 3.717356435058586*^9, 
   3.717356595705904*^9, 3.7173581811824493`*^9, 3.717420057777076*^9, 
   3.717426659216028*^9, 3.717427502351362*^9, 3.717432435068376*^9, 
   3.718221328671596*^9, 3.718315350481964*^9, 3.7183154872501907`*^9, 
   3.718315853370748*^9, 3.7183162475693083`*^9, 3.71837031920473*^9, 
   3.718371013836053*^9, 3.71837292979021*^9, 3.718373034891387*^9, 
   3.719692961328732*^9, 3.731433820014265*^9, 3.7315238018770733`*^9, 
   3.7316047636774597`*^9, 3.731604808842766*^9, {3.731928590865611*^9, 
   3.73192859867197*^9}, 3.732094126373415*^9, 3.73210515191054*^9, 
   3.7381810013943872`*^9, 3.7381825930326357`*^9, 3.738182748175511*^9, 
   3.738184603183511*^9, 3.738185276129614*^9, 3.7381854713035383`*^9, 
   3.738186217852693*^9, 3.738187821007719*^9, 3.738188011224234*^9, 
   3.7381880663854628`*^9, 3.7382510436744413`*^9, 3.738251544148465*^9, 
   3.7382522490407543`*^9, 3.7382532469546127`*^9, 3.738253378432884*^9, 
   3.73825402318509*^9, 3.738254275952092*^9, 3.738254492731722*^9, 
   3.738256019548648*^9, 3.73825627794274*^9, 3.738256599251953*^9, 
   3.738256795201442*^9, 3.738257103580174*^9, {3.7382571996201057`*^9, 
   3.738257229482964*^9}, 3.7382573727156467`*^9, 3.738257582488152*^9, 
   3.7382576564004374`*^9},ExpressionUUID->"6996c66e-47b2-4d31-8c74-\
7a0bdc10120f"],

Cell[BoxData["\<\"Starting MAGMAtable v0.5(2018-168)\"\>"], "Print",
 CellChangeTimes->{
  3.7171809409580603`*^9, 3.717180983092407*^9, 3.717181231373097*^9, 
   3.717182007874672*^9, 3.717182072585376*^9, 3.717182372299038*^9, 
   3.717182510648947*^9, 3.7171825697825212`*^9, 3.717182930690868*^9, 
   3.717183011505962*^9, 3.7171834219952183`*^9, 3.717183497689808*^9, 
   3.71718387065209*^9, 3.717337036998755*^9, 3.717337829009905*^9, {
   3.717339789197421*^9, 3.717339815449514*^9}, 3.717341301471558*^9, 
   3.717341476237548*^9, 3.7173422045680227`*^9, {3.717342452295518*^9, 
   3.717342461751794*^9}, 3.717342623864518*^9, 3.7173431604585533`*^9, 
   3.717343499616461*^9, 3.7173445256602497`*^9, 3.717353628365583*^9, 
   3.717353829487558*^9, 3.717354051269313*^9, 3.717354168307282*^9, 
   3.717354436210931*^9, 3.717355177251886*^9, 3.717355249867086*^9, 
   3.717355395722457*^9, 3.7173555374074907`*^9, 3.717356435058586*^9, 
   3.717356595705904*^9, 3.7173581811824493`*^9, 3.717420057777076*^9, 
   3.717426659216028*^9, 3.717427502351362*^9, 3.717432435068376*^9, 
   3.718221328671596*^9, 3.718315350481964*^9, 3.7183154872501907`*^9, 
   3.718315853370748*^9, 3.7183162475693083`*^9, 3.71837031920473*^9, 
   3.718371013836053*^9, 3.71837292979021*^9, 3.718373034891387*^9, 
   3.719692961328732*^9, 3.731433820014265*^9, 3.7315238018770733`*^9, 
   3.7316047636774597`*^9, 3.731604808842766*^9, {3.731928590865611*^9, 
   3.73192859867197*^9}, 3.732094126373415*^9, 3.73210515191054*^9, 
   3.7381810013943872`*^9, 3.7381825930326357`*^9, 3.738182748175511*^9, 
   3.738184603183511*^9, 3.738185276129614*^9, 3.7381854713035383`*^9, 
   3.738186217852693*^9, 3.738187821007719*^9, 3.738188011224234*^9, 
   3.7381880663854628`*^9, 3.7382510436744413`*^9, 3.738251544148465*^9, 
   3.7382522490407543`*^9, 3.7382532469546127`*^9, 3.738253378432884*^9, 
   3.73825402318509*^9, 3.738254275952092*^9, 3.738254492731722*^9, 
   3.738256019548648*^9, 3.73825627794274*^9, 3.738256599251953*^9, 
   3.738256795201442*^9, 3.738257103580174*^9, {3.7382571996201057`*^9, 
   3.738257229482964*^9}, 3.7382573727156467`*^9, 3.738257582488152*^9, 
   3.738257656469047*^9},ExpressionUUID->"235437df-b136-44f9-bd97-\
ec67dd217d19"],

Cell[BoxData["\<\"Starting MAGMAplots v0.4(2018-168)\"\>"], "Print",
 CellChangeTimes->{
  3.7171809409580603`*^9, 3.717180983092407*^9, 3.717181231373097*^9, 
   3.717182007874672*^9, 3.717182072585376*^9, 3.717182372299038*^9, 
   3.717182510648947*^9, 3.7171825697825212`*^9, 3.717182930690868*^9, 
   3.717183011505962*^9, 3.7171834219952183`*^9, 3.717183497689808*^9, 
   3.71718387065209*^9, 3.717337036998755*^9, 3.717337829009905*^9, {
   3.717339789197421*^9, 3.717339815449514*^9}, 3.717341301471558*^9, 
   3.717341476237548*^9, 3.7173422045680227`*^9, {3.717342452295518*^9, 
   3.717342461751794*^9}, 3.717342623864518*^9, 3.7173431604585533`*^9, 
   3.717343499616461*^9, 3.7173445256602497`*^9, 3.717353628365583*^9, 
   3.717353829487558*^9, 3.717354051269313*^9, 3.717354168307282*^9, 
   3.717354436210931*^9, 3.717355177251886*^9, 3.717355249867086*^9, 
   3.717355395722457*^9, 3.7173555374074907`*^9, 3.717356435058586*^9, 
   3.717356595705904*^9, 3.7173581811824493`*^9, 3.717420057777076*^9, 
   3.717426659216028*^9, 3.717427502351362*^9, 3.717432435068376*^9, 
   3.718221328671596*^9, 3.718315350481964*^9, 3.7183154872501907`*^9, 
   3.718315853370748*^9, 3.7183162475693083`*^9, 3.71837031920473*^9, 
   3.718371013836053*^9, 3.71837292979021*^9, 3.718373034891387*^9, 
   3.719692961328732*^9, 3.731433820014265*^9, 3.7315238018770733`*^9, 
   3.7316047636774597`*^9, 3.731604808842766*^9, {3.731928590865611*^9, 
   3.73192859867197*^9}, 3.732094126373415*^9, 3.73210515191054*^9, 
   3.7381810013943872`*^9, 3.7381825930326357`*^9, 3.738182748175511*^9, 
   3.738184603183511*^9, 3.738185276129614*^9, 3.7381854713035383`*^9, 
   3.738186217852693*^9, 3.738187821007719*^9, 3.738188011224234*^9, 
   3.7381880663854628`*^9, 3.7382510436744413`*^9, 3.738251544148465*^9, 
   3.7382522490407543`*^9, 3.7382532469546127`*^9, 3.738253378432884*^9, 
   3.73825402318509*^9, 3.738254275952092*^9, 3.738254492731722*^9, 
   3.738256019548648*^9, 3.73825627794274*^9, 3.738256599251953*^9, 
   3.738256795201442*^9, 3.738257103580174*^9, {3.7382571996201057`*^9, 
   3.738257229482964*^9}, 3.7382573727156467`*^9, 3.738257582488152*^9, 
   3.738257656481366*^9},ExpressionUUID->"ec37ac10-c1ec-4787-b657-\
067a8f27c15f"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.717174530209013*^9},ExpressionUUID->"f5aa53ab-3555-4001-ac83-\
da2cb5a8255f"],

Cell[CellGroupData[{

Cell["Example MAGMAfits", "Section",
 CellChangeTimes->{{3.738185651164637*^9, 3.738185654734161*^9}, 
   3.738185687438994*^9},ExpressionUUID->"50bc084a-7685-48e2-b01a-\
d78ab23d7dda"],

Cell[TextData[{
 "This example was run in a 2-core laptop, and each galaxy took less than a \
minute. Without specific options, for each galaxy the code minimizes ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Chi]", "2"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "6bd37ab7-03c7-44c5-89cc-e573d11b4a85"],
 " in parallel a number of times equal to the number of cores (each one with \
different random seeds, and based on the differential evolution method). \
Then, it goes for a second run, using the best fit found in the first run to \
determine a best region to look for the minimum.  All the steps are saved in \
a log file, see the log folder. For the MOND model tested below, and \
considering these galaxies, all the runs give the same answer. For models \
with more parameters and degeneracies, the multiple minimizations are \
sometimes crucial. In case a single minization yields a result much better \
than the others, a warning is printed both in the notebook and the log file."
}], "Text",
 CellChangeTimes->{{3.738259105933379*^9, 3.7382593316757717`*^9}, {
  3.73825937211486*^9, 3.738259664267743*^9}, {3.7382597706372967`*^9, 
  3.738259791944206*^9}, {3.738260149254735*^9, 
  3.738260154834084*^9}},ExpressionUUID->"1a70e765-2fa8-4e35-b6b1-\
09ea5473ad8d"],

Cell["\<\
Basic usage: \[LineSeparator]MAGMAfit[\[OpenCurlyDoubleQuote]model to be \
tested\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]an arbitrary label to \
be added in the output files\[CloseCurlyDoubleQuote], {list of parameters to \
be fit except for baryonic parameters}, Options]\
\>", "Text",
 CellChangeTimes->{{3.7382599735387497`*^9, 3.7382601078497353`*^9}, 
   3.738260564663713*^9},ExpressionUUID->"7697903d-d1b3-4d00-b456-\
4cc9eede1895"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MAGMAfit", "[", 
  RowBox[{"\"\<MOND\>\"", ",", " ", "\"\<Fa0-CYD-example\>\"", ",", " ", 
   RowBox[{"{", "a0", "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"a0", ",", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "14"}]], ",", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "12"}]]}], "}"}], "}"}], ",", 
   RowBox[{"FitDistance", "\[Rule]", " ", "True"}], ",", " ", 
   RowBox[{"Constraints", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a0", ">", 
       SuperscriptBox["10", 
        RowBox[{"-", "20"}]]}], ",", " ", 
      RowBox[{"0.25", "<", "YD", "<", "1.0"}], ",", " ", 
      RowBox[{"If", "[", 
       RowBox[{"bulge", ",", " ", 
        RowBox[{"0.35", "<", "YB", " ", "<", " ", "1.4"}], ",", " ", "True"}],
        "]"}]}], "}"}]}], ",", " ", 
   RowBox[{"ToleranceRun1", "\[Rule]", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "20"}]]}], ",", " ", 
   RowBox[{"ToleranceRun2", "\[Rule]", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "22"}]]}], ",", " ", 
   RowBox[{"DistanceTolerance", " ", "\[Rule]", " ", "0.20"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.731434222391436*^9, 3.731434229893302*^9}, {
   3.731604727160768*^9, 3.731604740555068*^9}, {3.731928567636734*^9, 
   3.731928583600246*^9}, {3.732094137229051*^9, 3.7320941455042257`*^9}, {
   3.73210515539929*^9, 3.732105157508594*^9}, {3.738180940751803*^9, 
   3.7381809517274303`*^9}, 3.7381832313792057`*^9, {3.738183383387267*^9, 
   3.738183392609953*^9}, 
   3.7381835170428753`*^9},ExpressionUUID->"9fa17672-9afa-4fd5-ae67-\
05c124ac7ac0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Variation: \"\>",
   "EchoLabel"], " ", "\<\"Fa0-CYD-example\"\>"}]], "Echo",
 CellChangeTimes->{
  3.7382576578515787`*^9},ExpressionUUID->"7ab0ca1f-4e19-457e-af60-\
492cfd5bdb04"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Galaxy: \"\>",
   "EchoLabel"], " ", 
  TemplateBox[{"\"Galaxy01\"","\" (\"","1","\")\""},
   "RowDefault"]}]], "Echo",
 CellChangeTimes->{
  3.738257657947749*^9},ExpressionUUID->"f9c9d33e-0e81-423d-89bd-\
1fbd17680863"],

Cell[BoxData[
 TemplateBox[{"\"Constraints: \"",RowBox[{"{", 
     RowBox[{
       RowBox[{
         RowBox[{"100000000000000000000", " ", "a0"}], ">", "1"}], ",", 
       RowBox[{"0.25`", "<", "YD", "<", "1.`"}], ",", 
       RowBox[{"1.2`", ">", "df2", ">", "0.8`"}]}], "}"}]},
  "RowDefault"]], "Echo",
 CellChangeTimes->{
  3.7382576580444098`*^9},ExpressionUUID->"b2add7cb-0081-49de-80b1-\
b20927adff35"],

Cell[BoxData[
 TemplateBox[{"\"Best fit: \"",RowBox[{"{", 
     RowBox[{"16.53247091917396716098664910532534122467`18.", ",", 
       RowBox[{"{", 
         RowBox[{
           RowBox[{"a0", "\[Rule]", "3.1536934505614446`*^-13"}], ",", 
           RowBox[{"YD", "\[Rule]", "0.45199230690969205`"}], ",", 
           RowBox[{"df2", "\[Rule]", "0.8`"}]}], "}"}]}], "}"}]},
  "RowDefault"]], "Echo",
 CellChangeTimes->{
  3.7382577056705427`*^9},ExpressionUUID->"a41798db-1d19-4529-a2ad-\
d4e72134b949"],

Cell[BoxData[
 TemplateBox[{
  "\"\\!\\(\\*SubscriptBox[SuperscriptBox[\\(\[Chi]\\), \\(2\\)], \
\\(red\\)]\\)=\"","0.75147595087154396186302950478751551021`18."},
  "RowDefault"]], "Echo",
 CellChangeTimes->{
  3.738257705793559*^9},ExpressionUUID->"af972fb2-4139-45d0-8e44-\
8a6189102033"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Galaxy: \"\>",
   "EchoLabel"], " ", 
  TemplateBox[{"\"Galaxy02\"","\" (\"","2","\")\""},
   "RowDefault"]}]], "Echo",
 CellChangeTimes->{
  3.738257705910159*^9},ExpressionUUID->"330df5d3-59da-4c4a-b2df-\
8ce6f594d101"],

Cell[BoxData[
 TemplateBox[{"\"Constraints: \"",RowBox[{"{", 
     RowBox[{
       RowBox[{
         RowBox[{"100000000000000000000", " ", "a0"}], ">", "1"}], ",", 
       RowBox[{"0.25`", "<", "YD", "<", "1.`"}], ",", 
       RowBox[{"1.2`", ">", "df2", ">", "0.8`"}]}], "}"}]},
  "RowDefault"]], "Echo",
 CellChangeTimes->{
  3.73825770602695*^9},ExpressionUUID->"5fbf8312-b17e-47c4-b8ba-b195cced4eff"],

Cell[BoxData[
 TemplateBox[{"\"Best fit: \"",RowBox[{"{", 
     RowBox[{"7.58717694313851609422272304072976112366`18.", ",", 
       RowBox[{"{", 
         RowBox[{
           RowBox[{"a0", "\[Rule]", "1.619271764096042`*^-13"}], ",", 
           RowBox[{"YD", "\[Rule]", "0.47700606471086937`"}], ",", 
           RowBox[{"df2", "\[Rule]", "1.2`"}]}], "}"}]}], "}"}]},
  "RowDefault"]], "Echo",
 CellChangeTimes->{
  3.738257768487275*^9},ExpressionUUID->"8c4b375f-b2f0-4ead-ad4b-\
5957407779ae"],

Cell[BoxData[
 TemplateBox[{
  "\"\\!\\(\\*SubscriptBox[SuperscriptBox[\\(\[Chi]\\), \\(2\\)], \
\\(red\\)]\\)=\"","0.1996625511352241077427032379139410822`18."},
  "RowDefault"]], "Echo",
 CellChangeTimes->{
  3.7382577686002827`*^9},ExpressionUUID->"eb1105be-6388-4852-87f2-\
3e90393c5751"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Galaxy: \"\>",
   "EchoLabel"], " ", 
  TemplateBox[{"\"Galaxy03\"","\" (\"","3","\")\""},
   "RowDefault"]}]], "Echo",
 CellChangeTimes->{
  3.738257768713122*^9},ExpressionUUID->"06b2ee88-a0f4-45bf-8753-\
c6a77d9316df"],

Cell[BoxData[
 TemplateBox[{"\"Constraints: \"",RowBox[{"{", 
     RowBox[{
       RowBox[{
         RowBox[{"100000000000000000000", " ", "a0"}], ">", "1"}], ",", 
       RowBox[{"0.25`", "<", "YD", "<", "1.`"}], ",", 
       RowBox[{"1.2`", ">", "df2", ">", "0.8`"}]}], "}"}]},
  "RowDefault"]], "Echo",
 CellChangeTimes->{
  3.738257768828487*^9},ExpressionUUID->"c043d064-bf54-47ec-b4e7-\
6babc5232c11"],

Cell[BoxData[
 TemplateBox[{"\"Best fit: \"",RowBox[{"{", 
     RowBox[{"23.4210346242584677156628458760678768158`18.", ",", 
       RowBox[{"{", 
         RowBox[{
           RowBox[{"a0", "\[Rule]", "1.0242007054859425`*^-13"}], ",", 
           RowBox[{"YD", "\[Rule]", "0.6579467720720605`"}], ",", 
           RowBox[{"df2", "\[Rule]", "0.8`"}]}], "}"}]}], "}"}]},
  "RowDefault"]], "Echo",
 CellChangeTimes->{
  3.738257795063078*^9},ExpressionUUID->"13d8d7e1-1b24-46a0-9b52-\
472d96f3cb24"],

Cell[BoxData[
 TemplateBox[{
  "\"\\!\\(\\*SubscriptBox[SuperscriptBox[\\(\[Chi]\\), \\(2\\)], \
\\(red\\)]\\)=\"","2.60233718047316307951809398622976409064`18."},
  "RowDefault"]], "Echo",
 CellChangeTimes->{
  3.7382577951717157`*^9},ExpressionUUID->"a5f0e975-b8ee-4b51-8b1c-\
aa5bdfd2a3ff"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7381847815766993`*^9, 
  3.73818478782388*^9}},ExpressionUUID->"0e257cf4-4352-48ff-a678-\
fdc424696f1d"],

Cell["\<\
The full set of options implemented at MAGMAfit and their standard values:\
\>", "Text",
 CellChangeTimes->{{3.738259902970883*^9, 
  3.738259929518642*^9}},ExpressionUUID->"3897f899-f4b3-47ad-b64d-\
86bf08d24fcb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "MAGMAfit", "]"}]], "Input",
 CellChangeTimes->{{3.738259027072261*^9, 
  3.738259032252289*^9}},ExpressionUUID->"0874751a-578f-461d-be06-\
a80b77ac75e4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Galaxies", "\[Rule]", "All"}], ",", 
   RowBox[{"FitDistance", "\[Rule]", "False"}], ",", 
   RowBox[{"FitDisk", "\[Rule]", "True"}], ",", 
   RowBox[{"FitBulge", "\[Rule]", "True"}], ",", 
   RowBox[{"Constraints", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"YD", "\[GreaterEqual]", "0"}], ",", "True"}], "}"}]}], ",", 
   RowBox[{"YDFixed", "\[Rule]", "0.5`"}], ",", 
   RowBox[{"YBFixed", "\[Rule]", "0.7`"}], ",", 
   RowBox[{"DistanceTolerance", "\[Rule]", "0.2`"}], ",", 
   RowBox[{"VModelTestSign", "\[Rule]", "True"}], ",", 
   RowBox[{"ImaginaryConstraint", "\[Rule]", "False"}], ",", 
   RowBox[{"ParallelMinimizations", "\[Rule]", "2"}], ",", 
   RowBox[{"MinimizationInstances", "\[Rule]", "2"}], ",", 
   RowBox[{"SimplifyChi2", "\[Rule]", "False"}], ",", 
   RowBox[{"TimeLimitRun1", "\[Rule]", "120"}], ",", 
   RowBox[{"TimeLimitRun2", "\[Rule]", "240"}], ",", 
   RowBox[{"MaxIterationsRun1", "\[Rule]", "700"}], ",", 
   RowBox[{"MaxIterationsRun2", "\[Rule]", "1400"}], ",", 
   RowBox[{"PrecisionGoalRun1", "\[Rule]", "4"}], ",", 
   RowBox[{"PrecisionGoalRun2", "\[Rule]", "5"}], ",", 
   RowBox[{"SearchPointsRun1", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"SearchPointsRun2", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ToleranceRun1", "\[Rule]", 
    FractionBox["1", "10000"]}], ",", 
   RowBox[{"ToleranceRun2", "\[Rule]", 
    FractionBox["1", "100000"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7382590329509487`*^9},ExpressionUUID->"6c5a6bb2-7d8d-4a94-844c-\
4018bc8ed8e9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example MAGMAplots", "Section",
 CellChangeTimes->{{3.7381856622376747`*^9, 
  3.738185682907176*^9}},ExpressionUUID->"98eab004-7ca1-4f95-9755-\
6ec3048a9449"],

Cell["\<\
Generate plots with (or without) information on the best-fit parameters. It \
reads the results from MAGMAfits and export plots to the folder results-plots.\
\>", "Text",
 CellChangeTimes->{{3.738260502811358*^9, 
  3.738260559263883*^9}},ExpressionUUID->"ad1e3f4b-5061-4f68-80b6-\
67f99861fca9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MAGMAplots", "[", 
  RowBox[{"\"\<MOND\>\"", ",", " ", "\"\<Fa0-CYD-example\>\"", ",", " ", 
   RowBox[{"ParametersSymbols", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a0", " ", "\[Rule]", " ", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\!\(\*SubscriptBox[\(a\), \(0\)]\)\>\"", ",", " ", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}], ",", " ", "14"}], 
        "]"}]}], ",", " ", 
      RowBox[{"YD", " ", "\[Rule]", " ", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(\[CapitalUpsilon]\), \(D\)]\)\>\"", ",", 
         " ", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}], ",", " ", "14"}], 
        "]"}]}], ",", " ", 
      RowBox[{"YB", " ", "\[Rule]", " ", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(\[CapitalUpsilon]\), \(B\)]\)\>\"", ",", 
         " ", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}], ",", " ", "14"}], 
        "]"}]}], ",", " ", 
      RowBox[{"df2", " ", "\[Rule]", " ", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[Delta]\>\"", ",", " ", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}], ",", " ", "14"}], 
        "]"}]}]}], "}"}]}]}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.738185739407847*^9, 
  3.738185745080771*^9}},ExpressionUUID->"2ebdb38c-059a-4083-840a-\
6b24fbda653f"],

Cell[CellGroupData[{

Cell[BoxData[
 TemplateBox[{"\"Galaxy: \"","\"Galaxy01\"","\" (\"","1","\")\""},
  "RowDefault"]], "Echo",
 CellChangeTimes->{
  3.73825740272088*^9},ExpressionUUID->"6b6e3b56-d2c2-4185-8e96-5ff58adc303c"],

Cell[BoxData[
 TemplateBox[{"\"Galaxy: \"","\"Galaxy02\"","\" (\"","2","\")\""},
  "RowDefault"]], "Echo",
 CellChangeTimes->{
  3.738257403449081*^9},ExpressionUUID->"5abb1323-f2a1-40d3-a21e-\
44b5189eb6c5"],

Cell[BoxData[
 TemplateBox[{"\"Galaxy: \"","\"Galaxy03\"","\" (\"","3","\")\""},
  "RowDefault"]], "Echo",
 CellChangeTimes->{
  3.7382574039640617`*^9},ExpressionUUID->"dad5e2ec-4cd6-4957-a9f2-\
2bbdb90673b8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "MAGMAplots", "]"}]], "Input",
 CellChangeTimes->{{3.7382590417002087`*^9, 
  3.738259047912266*^9}},ExpressionUUID->"53e82391-7be0-4e26-8874-\
1ef33903079e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Galaxies", "\[Rule]", "All"}], ",", 
   RowBox[{"FitDistance", "\[Rule]", "False"}], ",", 
   RowBox[{"FitDisk", "\[Rule]", "True"}], ",", 
   RowBox[{"FitBulge", "\[Rule]", "True"}], ",", 
   RowBox[{"YDFixed", "\[Rule]", "0.5`"}], ",", 
   RowBox[{"YBFixed", "\[Rule]", "0.7`"}], ",", 
   RowBox[{"PrintFittedParameters", "\[Rule]", "True"}], ",", 
   RowBox[{"ParametersSymbols", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"FLabel", "\[Rule]", 
    RowBox[{"{", "}"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.738259048380126*^9},ExpressionUUID->"6ecd0096-4121-4a9e-a396-\
1405917ec8c7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example MAGMAtable", "Section",
 CellChangeTimes->{{3.738250942139307*^9, 
  3.738250947469762*^9}},ExpressionUUID->"0b8772a7-5371-4e15-a271-\
aaf4c88759bc"],

Cell["\<\
Uses the bet-fit results from MAGMAfit and add data from other files. \
Generating a single table with useful data.

The results are exported  to .m and .csv files in the results-tables folder. \
The results can also be accessed through the variable TableResults.\
\>", "Text",
 CellChangeTimes->{{3.738260278615388*^9, 3.7382602819047832`*^9}, {
  3.7382603131867037`*^9, 
  3.738260479548257*^9}},ExpressionUUID->"b2944a70-2024-4c65-92a4-\
a56a85e916ef"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"headerobs", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Galaxy\>\"", ",", " ", "\"\<H. type\>\"", ",", " ", "\"\<D\>\"", 
      ",", " ", "\"\<delta D\>\"", ",", " ", "\"\<D method\>\"", ",", " ", 
      "\"\<inclination\>\"", ",", " ", "\"\<Delta inc.\>\"", ",", " ", 
      "\"\<L\>\"", ",", " ", "\"\<Delta L\>\"", ",", " ", "\"\<Reff\>\"", 
      ",", "\"\<Sigma eff\>\"", ",", " ", "\"\<h\>\"", ",", " ", 
      "\"\<Sigma0\>\"", ",", " ", "\"\<MHI\>\"", ",", " ", 
      "\"\<HI radius at 1Msun/pc2\>\"", ",", " ", "\"\<V_flat\>\"", ",", " ", 
      "\"\<Delta V_flat\>\"", ",", " ", "\"\<Q flag\>\""}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MAGMAtable", "[", 
   RowBox[{"\"\<MOND\>\"", ",", " ", "\"\<Fa0-CYD-example\>\"", ",", " ", 
    RowBox[{"{", 
     RowBox[{"a0", ",", " ", "YD", ",", " ", "YB", ",", " ", "df2"}], "}"}], 
    ",", " ", "\"\<./data-global/globaldataMainFile.mrt\>\"", ",", " ", 
    RowBox[{"HeaderGlobalDataFile", "\[Rule]", "headerobs"}], " ", ",", " ", 
    RowBox[{"AuxiliaryDataFiles", "\[Rule]", " ", 
     RowBox[{"{", "\"\<./data-global/globaldataAuxFile.mrt\>\"", "}"}]}]}], 
   "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.7097473986684723`*^9, 3.7097474606212387`*^9}, {
   3.709747501939485*^9, 3.709747533253057*^9}, {3.7097475647899714`*^9, 
   3.70974756592899*^9}, {3.709749243952667*^9, 3.709749244016302*^9}, {
   3.7097493958892117`*^9, 3.7097494040338507`*^9}, 3.709749542931161*^9, {
   3.709769793936908*^9, 3.7097698128868*^9}, {3.7097698433296137`*^9, 
   3.7097698644248037`*^9}, {3.709769904445489*^9, 3.70976990745969*^9}, {
   3.7097699507247133`*^9, 3.709770015290403*^9}, 3.709770102166717*^9, {
   3.709770324332065*^9, 3.70977033380965*^9}, {3.709811907644046*^9, 
   3.709811909061202*^9}, {3.7098456750788393`*^9, 3.709845689717794*^9}, {
   3.7098457211315107`*^9, 3.7098457234628468`*^9}, 3.709846144239133*^9, 
   3.7098496942880783`*^9, 3.7098507328436193`*^9, {3.70985105636346*^9, 
   3.709851057969569*^9}, {3.709851173540762*^9, 3.709851189959382*^9}, {
   3.709851743937025*^9, 3.709851750945549*^9}, {3.709851943184845*^9, 
   3.709851954454856*^9}, {3.718104412856127*^9, 3.7181044135320053`*^9}, 
   3.718104462659115*^9, 3.718276827992951*^9, {3.718374189026815*^9, 
   3.7183741891941967`*^9}, {3.719171848236162*^9, 3.7191718960130777`*^9}, {
   3.719229584185214*^9, 3.719229593521309*^9}, {3.7192306587819366`*^9, 
   3.719230661144231*^9}, {3.71923166969672*^9, 3.7192316775900183`*^9}, {
   3.71978920441584*^9, 3.7197892044784393`*^9}, {3.7224684798504133`*^9, 
   3.7224684826556873`*^9}, {3.7224697683881283`*^9, 
   3.7224697758530207`*^9}, {3.732726195060238*^9, 3.732726195192808*^9}, {
   3.7327265150925713`*^9, 3.732726519745584*^9}, {3.732730974325942*^9, 
   3.732730982800396*^9}, {3.73825097591329*^9, 3.738250975985249*^9}, {
   3.73825100860994*^9, 3.7382510270923853`*^9}, {3.7382510633488207`*^9, 
   3.738251097316242*^9}, {3.738251148383082*^9, 3.7382511487249517`*^9}, {
   3.73825120139493*^9, 3.7382512028427763`*^9}, {3.738255712373014*^9, 
   3.738255736788178*^9}, {3.738256038729135*^9, 3.738256039255772*^9}, {
   3.738257262780899*^9, 3.738257294920648*^9}, {3.7382573476587753`*^9, 
   3.7382573581413603`*^9}},ExpressionUUID->"fd78d63c-f0b9-4db1-9616-\
c97f3f5248e7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Identified columns: \"\>",
   "EchoLabel"], " ", 
  RowBox[{"{", 
   RowBox[{"\<\"Reff\"\>", ",", "\<\"h\"\>", ",", "\<\"LB\"\>", 
    ",", "\<\"L\"\>", ",", "\<\"D\"\>", ",", "\<\"YD\"\>", ",", "\<\"MHI\"\>",
     ",", "\<\"df2\"\>", ",", "\<\"MB\"\>", ",", "\<\"MD\"\>", 
    ",", "\<\"Mbar\"\>", ",", "\<\"Chi2\"\>", ",", "\<\"Chi2red\"\>", 
    ",", "\<\"N.data points\"\>"}], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.738260235930982*^9},ExpressionUUID->"476376ce-3df6-4fb0-95c5-\
8caeb01064d7"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Files saved to: \"\>",
   "EchoLabel"], 
  " ", "\<\"results-tables/MOND-Fa0-CYD-example-MAGMAtableResults\"\>"}]], \
"Echo",
 CellChangeTimes->{
  3.7382602360280333`*^9},ExpressionUUID->"55ee8b30-288e-40d3-a3b9-\
f8a83c48c141"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Table saved in variable \"\>",
   "EchoLabel"], " ", "\<\"TableResults\"\>"}]], "Echo",
 CellChangeTimes->{
  3.738260236110969*^9},ExpressionUUID->"dcf41125-d498-426c-9a95-\
8bc3c07cfc06"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableResults", " ", "//", " ", "TableForm"}]], "Input",
 CellChangeTimes->{{3.7382602262379827`*^9, 
  3.73826023211454*^9}},ExpressionUUID->"01af72db-bfab-4c6e-8abf-\
98ad5f400516"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Galaxy\"\>", "\<\"H. type\"\>", "\<\"D\"\>", "\<\"delta D\"\>", "\<\
\"D method\"\>", "\<\"inclination\"\>", "\<\"Delta inc.\"\>", "\<\"L\"\>", \
"\<\"Delta L\"\>", "\<\"Reff\"\>", "\<\"Sigma eff\"\>", "\<\"h\"\>", \
"\<\"Sigma0\"\>", "\<\"MHI\"\>", "\<\"HI radius at 1Msun/pc2\"\>", \
"\<\"V_flat\"\>", "\<\"Delta V_flat\"\>", "\<\"Q flag\"\>", "\<\"LB\"\>", "\<\
\"a0\"\>", "\<\"YD\"\>", "\<\"0\"\>", "\<\"df2\"\>", "\<\"MD\"\>", \
"\<\"MB\"\>", "\<\"Mbar\"\>", "\<\"N.data points\"\>", "\<\"Chi2\"\>", \
"\<\"Chi2red\"\>"},
    {"\<\"Galaxy01\"\>", "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", "0.`", "3.1537`5.*^-13", "0.45199`5.", "0", 
     "0.8`5.", "1.32071478`", "0.`", "2.5655947800000005`", "25", "16.532`5.",
      "0.75148`5."},
    {"\<\"Galaxy02\"\>", "4", "7.7`", "2.3`", "1", "75.`", "5.`", "84.836`", 
     "0.156`", "2.45`", "2232.7`", "2.4`", "2112.66`", "4.154`", "18.85`", 
     "213.7`", "15.9`", "1", "0.`", "1.6193`5.*^-13", "0.47701`5.", "0", 
     "1.2`5.", "40.46762036`", "0.`", "45.992440359999996`", "41", 
     "7.5872`5.", "0.19966`5."},
    {"\<\"Galaxy03\"\>", "5", "18.`", "2.5`", "4", "53.`", "2.`", "70.234`", 
     "0.388`", "7.52`", "198.08`", "3.4`", "1789.91`", "6.473`", "22.2`", 
     "168.`", "6.2`", "2", "0.`", "1.0242`5.*^-13", "0.65795`5.", "0", 
     "0.8`5.", "46.2104603`", "0.`", "54.8195503`", "12", "23.421`5.", 
     "2.6023`5."}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.738260232516334*^9, 
  3.738260237971375*^9}},ExpressionUUID->"a9ca4018-25c8-48e8-85da-\
c56a7188d326"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "MAGMAtable", "]"}]], "Input",
 CellChangeTimes->{{3.738259062927539*^9, 
  3.738259068071529*^9}},ExpressionUUID->"b4e7132d-1adf-466f-bfdc-\
e99f838f5998"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Galaxies", "\[Rule]", "All"}], ",", 
   RowBox[{"FitDistance", "\[Rule]", "False"}], ",", 
   RowBox[{"FitDisk", "\[Rule]", "True"}], ",", 
   RowBox[{"FitBulge", "\[Rule]", "True"}], ",", 
   RowBox[{"YDFixed", "\[Rule]", "0.5`"}], ",", 
   RowBox[{"YBFixed", "\[Rule]", "0.7`"}], ",", 
   RowBox[{"OutputFileName", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"LinesToDropFromGlobalDataFile", "\[Rule]", "1"}], ",", 
   RowBox[{"AuxiliaryDataFiles", "\[Rule]", "None"}], ",", 
   RowBox[{"HeaderLineGlobalDataFile", "\[Rule]", "1"}], ",", 
   RowBox[{"HeaderGlobalDataFile", "\[Rule]", "None"}], ",", 
   RowBox[{"FittedParametersFunctionTransformList", "\[Rule]", "None"}], ",", 
   
   RowBox[{"HItoGasFactor", "\[Rule]", "1.33`"}], ",", 
   RowBox[{"mBayesFiles", "\[Rule]", "None"}], ",", 
   RowBox[{"mBayesParameter", "\[Rule]", "None"}], ",", 
   RowBox[{"mBayesNumberofSigmas", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.73825906855678*^9},ExpressionUUID->"2ce58828-dcdf-4f8a-8605-d612e8d01626"]
}, Open  ]]
}, Open  ]]
},
Evaluator->"Local",
WindowSize->{1916, 1036},
WindowMargins->{{222, Automatic}, {143, Automatic}},
Magnification:>1.25 Inherited,
FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[422, 15, 452, 10, 64, "Input",ExpressionUUID->"e7e2e9f8-a4ad-494a-af0a-f1b5470f7c0b"],
Cell[CellGroupData[{
Cell[899, 29, 2330, 36, 34, "Print",ExpressionUUID->"f2f582f0-6c3a-4e25-b9c7-aeb82ea4beb9"],
Cell[3232, 67, 2431, 38, 29, "Print",ExpressionUUID->"d0d0ea84-154f-4a05-ab10-db55bf342b5b"],
Cell[5666, 107, 2241, 32, 29, "Print",ExpressionUUID->"cfb13305-cc3d-4fc9-848e-fc883f427c26"],
Cell[7910, 141, 2244, 32, 29, "Print",ExpressionUUID->"6996c66e-47b2-4d31-8c74-7a0bdc10120f"],
Cell[10157, 175, 2243, 32, 29, "Print",ExpressionUUID->"235437df-b136-44f9-bd97-ec67dd217d19"],
Cell[12403, 209, 2243, 32, 29, "Print",ExpressionUUID->"ec37ac10-c1ec-4787-b657-067a8f27c15f"]
}, Open  ]]
}, Open  ]],
Cell[14673, 245, 128, 3, 37, "Input",ExpressionUUID->"f5aa53ab-3555-4001-ac83-da2cb5a8255f"],
Cell[CellGroupData[{
Cell[14826, 252, 185, 3, 84, "Section",ExpressionUUID->"50bc084a-7685-48e2-b01a-d78ab23d7dda"],
Cell[15014, 257, 1307, 22, 131, "Text",ExpressionUUID->"1a70e765-2fa8-4e35-b6b1-09ea5473ad8d"],
Cell[16324, 281, 458, 8, 73, "Text",ExpressionUUID->"7697903d-d1b3-4d00-b456-4cc9eede1895"],
Cell[CellGroupData[{
Cell[16807, 293, 1623, 38, 70, "Input",ExpressionUUID->"9fa17672-9afa-4fd5-ae67-05c124ac7ac0"],
Cell[CellGroupData[{
Cell[18455, 335, 219, 6, 32, "Echo",ExpressionUUID->"7ab0ca1f-4e19-457e-af60-492cfd5bdb04"],
Cell[18677, 343, 259, 8, 32, "Echo",ExpressionUUID->"f9c9d33e-0e81-423d-89bd-1fbd17680863"],
Cell[18939, 353, 409, 10, 32, "Echo",ExpressionUUID->"b2add7cb-0081-49de-80b1-b20927adff35"],
Cell[19351, 365, 501, 11, 34, "Echo",ExpressionUUID->"a41798db-1d19-4529-a2ad-d4e72134b949"],
Cell[19855, 378, 291, 7, 33, "Echo",ExpressionUUID->"af972fb2-4139-45d0-8e44-8a6189102033"],
Cell[20149, 387, 259, 8, 32, "Echo",ExpressionUUID->"330df5d3-59da-4c4a-b2df-8ce6f594d101"],
Cell[20411, 397, 404, 9, 32, "Echo",ExpressionUUID->"5fbf8312-b17e-47c4-b8ba-b195cced4eff"],
Cell[20818, 408, 497, 11, 34, "Echo",ExpressionUUID->"8c4b375f-b2f0-4ead-ad4b-5957407779ae"],
Cell[21318, 421, 292, 7, 33, "Echo",ExpressionUUID->"eb1105be-6388-4852-87f2-3e90393c5751"],
Cell[21613, 430, 259, 8, 32, "Echo",ExpressionUUID->"06b2ee88-a0f4-45bf-8753-c6a77d9316df"],
Cell[21875, 440, 407, 10, 32, "Echo",ExpressionUUID->"c043d064-bf54-47ec-b4e7-6babc5232c11"],
Cell[22285, 452, 497, 11, 34, "Echo",ExpressionUUID->"13d8d7e1-1b24-46a0-9b52-472d96f3cb24"],
Cell[22785, 465, 293, 7, 33, "Echo",ExpressionUUID->"a5f0e975-b8ee-4b51-8b1c-aa5bdfd2a3ff"]
}, Open  ]]
}, Open  ]],
Cell[23105, 476, 153, 3, 37, "Input",ExpressionUUID->"0e257cf4-4352-48ff-a678-fdc424696f1d"],
Cell[23261, 481, 224, 5, 44, "Text",ExpressionUUID->"3897f899-f4b3-47ad-b64d-86bf08d24fcb"],
Cell[CellGroupData[{
Cell[23510, 490, 193, 4, 37, "Input",ExpressionUUID->"0874751a-578f-461d-be06-a80b77ac75e4"],
Cell[23706, 496, 1577, 33, 122, "Output",ExpressionUUID->"6c5a6bb2-7d8d-4a94-844c-4018bc8ed8e9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25332, 535, 165, 3, 84, "Section",ExpressionUUID->"98eab004-7ca1-4f95-9755-6ec3048a9449"],
Cell[25500, 540, 306, 6, 44, "Text",ExpressionUUID->"ad1e3f4b-5061-4f68-80b6-67f99861fca9"],
Cell[CellGroupData[{
Cell[25831, 550, 1372, 32, 90, "Input",ExpressionUUID->"2ebdb38c-059a-4083-840a-6b24fbda653f"],
Cell[CellGroupData[{
Cell[27228, 586, 205, 4, 32, "Echo",ExpressionUUID->"6b6e3b56-d2c2-4185-8e96-5ff58adc303c"],
Cell[27436, 592, 208, 5, 32, "Echo",ExpressionUUID->"5abb1323-f2a1-40d3-a21e-44b5189eb6c5"],
Cell[27647, 599, 210, 5, 32, "Echo",ExpressionUUID->"dad5e2ec-4cd6-4957-a9f2-2bbdb90673b8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27906, 610, 197, 4, 37, "Input",ExpressionUUID->"53e82391-7be0-4e26-8874-1ef33903079e"],
Cell[28106, 616, 659, 16, 42, "Output",ExpressionUUID->"6ecd0096-4121-4a9e-a396-1405917ec8c7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28814, 638, 163, 3, 84, "Section",ExpressionUUID->"0b8772a7-5371-4e15-a271-aaf4c88759bc"],
Cell[28980, 643, 466, 10, 102, "Text",ExpressionUUID->"b2944a70-2024-4c65-92a4-a56a85e916ef"],
Cell[CellGroupData[{
Cell[29471, 657, 3397, 54, 142, "Input",ExpressionUUID->"fd78d63c-f0b9-4db1-9616-c97f3f5248e7"],
Cell[CellGroupData[{
Cell[32893, 715, 538, 12, 32, "Echo",ExpressionUUID->"476376ce-3df6-4fb0-95c5-8caeb01064d7"],
Cell[33434, 729, 267, 8, 32, "Echo",ExpressionUUID->"55ee8b30-288e-40d3-a3b9-f8a83c48c141"],
Cell[33704, 739, 227, 6, 32, "Echo",ExpressionUUID->"dcf41125-d498-426c-9a95-8bc3c07cfc06"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33980, 751, 206, 4, 37, "Input",ExpressionUUID->"01af72db-bfab-4c6e-8abf-98ad5f400516"],
Cell[34189, 757, 2134, 40, 131, "Output",ExpressionUUID->"a9ca4018-25c8-48e8-85da-c56a7188d326"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36360, 802, 195, 4, 37, "Input",ExpressionUUID->"b4e7132d-1adf-466f-bfdc-e99f838f5998"],
Cell[36558, 808, 1135, 23, 95, "Output",ExpressionUUID->"2ce58828-dcdf-4f8a-8605-d612e8d01626"]
}, Open  ]]
}, Open  ]]
}
]
*)