diff options
| -rw-r--r-- | Auxiliary/Cactus/IOASCII.m | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Auxiliary/Cactus/IOASCII.m b/Auxiliary/Cactus/IOASCII.m index 85de605..118db8d 100644 --- a/Auxiliary/Cactus/IOASCII.m +++ b/Auxiliary/Cactus/IOASCII.m @@ -12,8 +12,12 @@ ReadIOASCII[file_] := data2 = Select[SplitBy[data1, Length[#] == 0 &], #[[1]] != {} &]; data3 = Map[{First[#][[3]], Drop[#, 1]} &, data2]]; -MGraph[file_] := +MGraph[file_String] := Module[{data = ReadIOASCII[file]}, + MGraph[data]]; + +MGraph[data_List] := + Module[{}, Manipulate[ ListLinePlot[data[[it, 2]], PlotLabel -> data[[it, 1]]], {{it,1,"it"}, 1, Length[data], 1}]]; |