Null
<<"/cook2/Research/Graphs/PhredLayouts/Network.m"
Process[dir_String,s_String]:=(ToExpression[s<>" = ReadNetwork[\""<>dir<>s<>"\"]"];ToExpression["Put["<>s<>", \""<>dir<>s<>".m\"]"];)
ProcessDir[dir_String]:=(SetDirectory[dir];(Process[dir,#1]&)/@(StringTake[#1,{1,-7}]&)/@FileNames["*.phred"];ResetDirectory[];)
BaseDir="/cook2/Research/Graphs/PhredLayouts/TrivalentExamples/";
ProcessDir[BaseDir<>"UpTo4Nodes/"]
Read 4 nodes.
Read 6 arcs.
Read 2 nodes.
Read 3 arcs.
Read 4 nodes.
Read 6 arcs.
Read 4 nodes.
Read 6 arcs.
Read 4 nodes.
Read 6 arcs.
Read 2 nodes.
Read 3 arcs.
Read 4 nodes.
Read 6 arcs.
ProcessDir[BaseDir<>"MiscExamples/"]
Read 12 nodes.
Read 18 arcs.
Read 12 nodes.
Read 18 arcs.
Read 8 nodes.
Read 12 arcs.
Read 20 nodes.
Read 30 arcs.
Read 6 nodes.
Read 9 arcs.
Read 6 nodes.
Read 9 arcs.
Read 22 nodes.
Read 33 arcs.
ProcessDir[BaseDir<>"Petersen/"]
Read 10 nodes.
Read 15 arcs.
Read 10 nodes.
Read 15 arcs.
Read 10 nodes.
Read 15 arcs.
Read 10 nodes.
Read 15 arcs.
Read 10 nodes.
Read 15 arcs.
Read 10 nodes.
Read 15 arcs.
Read 10 nodes.
Read 15 arcs.
Read 10 nodes.
Read 15 arcs.
Read 10 nodes.
Read 15 arcs.