This notebook gives an example of reading the data

Get descriptors from file names and use that to build an index for accessing the data

SetDirectory[NotebookDirectory[ ]]

get all the data file names in the folder/directory

fnames=FileNames["*muc-data*.txt"];(*list all data files matching the name pattern in folder*)

define some useful functions

getID is a composition of two pure functions:  one to parse filename into {potential name string, angular momentum string}, and the second converts the  angular momentum to integer data type.
This produces an ID for accessing the data for use from “mucdata” data structure, 
like this:  mucdata[“Yukawa”,17]

getID=({#[[1]],ToExpression[#[[2]]]})& @*(StringSplit[#,{"muc-data-","-L",".txt"}]&);

getdata[fname_]:=(mucdata[getID[fname]]=ToExpression@StringSplit@Select[Import[fname,"List"],# !=""&]) 
(*Import the data, skip "" lines, interpret the datread into function defining mucdata,mucdata is the "database"*)

next read in all the data for all the files in “fnames” by mapping getdata across the list of file names

getdata/@fnames;(*this reads in all the data at once and defines a function mucdata that serves as database*)

here’s an example (potential name is case sensitives)

argument is {potentialnamestring, l integer} as a list;  
returns list of {n, (Subscript[μ, c])} pairs {integer, Real} to 60 digit accuracy

stuff=mucdata[{"ECSC",20}]

plot it

ListLogLogPlot[Table[mucdata[{"Yukawa",n}],{n,1,20}],PlotRange->All,Joined->True,PlotMarkers->Automatic]

ListLogLogPlot[Table[mucdata[{"ECSC",n}],{n,1,20}],PlotRange->All,Joined->True,PlotMarkers->Automatic]

ListLogLogPlot[Table[mucdata[{"Hulthen",n}],{n,1,20}],PlotRange->All,Joined->True,PlotMarkers->Automatic]

ListLogLogPlot[Table[mucdata[{"PseudoHulthen",n}],{n,1,20}],PlotRange->All,Joined->True,PlotMarkers->Automatic]