Re: Manipulating List Elements In Programs

*To*: mathgroup at smc.vnet.net*Subject*: [mg23952] Re: Manipulating List Elements In Programs*From*: "Hans Staugaard" <hans.staugaard at get2net.dk>*Date*: Sun, 18 Jun 2000 03:00:37 -0400 (EDT)*References*: <8icdhn$9sk@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hello, First I make a function to plot a single file: f[file_String] := With[{tmp = Import[file]}, ListPlot[Drop[tmp, 2], PlotLabel -> tmp[[1, 1]], AxesLabel -> tmp[[2]]]] Then I plot all the files f/@FileNames["output*.dat"] Remember a For or Do loop is almost always a waste of time in Mathematica. Hans Buz Barstow <buz at sys-j25.demon.co.uk> skrev i en nyhedsmeddelelse:8icdhn$9sk at smc.vnet.net... > Hi, > > I'm trying to write a program in Mathematica to automatically plot graphs > from text files that I've generated with a C program. It looks in the > working directory, and retrieves a list of all files with a .dat extension; > > files = FileNames["output*.dat"] > > Then, it gets the number of entries in that list; > > l = Length[files] > > And then uses this information to import each file individually and do a > ListPlot with each list; > > For[i = 1, i <= l, i++, > z = Import[ files[[i]]]; > title = z[[1]]; > lab = z[[2]]; > Delete[z, {1, 2}]; > ListPlot[z, AxesLabel -> lab, PlotLabel -> title] ] > > At the top of each output file there is a heading that I want to use as the > plot's title and two column headings that I want to use to label the axes. > Unfortunately, I can retrieve them and label the plot, but I can't delete > them, so when I include the title, I can't produce the plot. > > Does Mathematica prevent the programming calls deleting things, or am I > missing something? > > Thanks in advance, > > Buz > >