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
>
>