Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Rearranging a data array containing calendrical as well as data entries.

  • To: mathgroup at smc.vnet.net
  • Subject: [mg54863] Re: [mg54827] Rearranging a data array containing calendrical as well as data entries.
  • From: János <janos.lobb at yale.edu>
  • Date: Fri, 4 Mar 2005 05:07:58 -0500 (EST)
  • References: <200503030329.WAA21121@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

I do not have a full fledged program for it, but you can start out with 
something like:

In[1]:=
SetDirectory[
   "~/Documents/Own Solutions"]
Out[1]=
"/Volumes/Data/janos/Document\
s/Own solutions"

In[3]:=
fp = FileNames["usgs.txt"]
Out[3]=
{"usgs.txt"}

In[73]:=
usgsData = ReadList[fp[[1]],
     Record];

In[78]:=
usgsColumns = Flatten[
    (Thread[{StringJoin[
         StringTake[StringJoin[
           "00", ToString[
           ToExpression[
           #1[[3]]]*7]], -2],
         StringTake[StringJoin[
           "00", ToString[
           ToExpression[
           #1[[2]]]]], -2],
         #1[[1]]], Rest[
         Rest[Rest[
           #1]]]}] & ) /@
     (Flatten[{StringTake[#1,
          4], StringTake[#1,
          {5, 6}], StringTake[
          #1, {7, 8}],
         StringSplit[
          StringTake[#1,
           -(StringLength[
           #1] - 9)]]}] & ) /@
      usgsData, 1]

Here are a few output lines:

{07091998, 400.29}, {07091998, 400.29}, {07091998, 400.29}, {07091998, \
400.29}, {07091998, 537.87}, {07091998, 537.87}, {07091998, 537.87}, \
{07091998, 537.87}, {14091998, 537.87}, {14091998, 498.97}, {14091998, \
498.97}, {14091998, 498.97}, {14091998, 498.97}, {14091998, 498.97}, \
{14091998, 486.75}, {14091998, 486.75}, {21091998, 486.75}, {21091998, \
486.75}, {21091998, 486.75}, {21091998, 588.83}, {21091998, 588.83}, \
{21091998, 588.83}, {21091998, 588.83}, {21091998, 588.83}, {28091998, \
539.64}, {28091998, 539.64}

where the first value of a pair is the date in ddmmyyyy form and the 
second value is an appropriate element from the associated data.  You 
can see that some of the extra string manipulations were done because 
of lack of whitespace between date elements in the file if the month or 
day is over 9.

 From here on you can make it a function with your date range passed as 
parameters and make a selection out of usgsData first, based upon the 
date range.

János
On Mar 2, 2005, at 10:29 PM, Gilmar wrote:

> Dear Mathematica User Friends:
> I have a file containing flow data from the USGS, in the following
> format:
> 1999 1 1 489.82 489.82 495.01 495.01 495.01 495.01 495.01 490.51
> 1999 1 2 490.51 490.51 490.51 490.51 490.38 490.38 490.38 490.38
> 1999 1 3 490.38 510.38 510.38 510.38 510.38 510.38 528.66 528.66
> 1999 1 4 528.66 528.66 528.66 501.68 501.68 501.68 501.68
> 1999 2 1 501.68 496.44 496.44 496.44 496.44 496.44 478.72 478.72
> 1999 2 2 478.72 478.72 478.72 452.82 452.82 452.82 452.82 452.82
> 1999 2 3 450.19 450.19 450.19 450.19 450.19 443.98 443.98 443.98
> 1999 2 4 443.98 443.98 440.14 440.14
> 1999 3 1 440.14 440.14 440.14 453.64 453.64 453.64 453.64 453.64
> 1999 3 2 503.98 503.98 503.98 503.98 503.98 500.84 500.84 500.84
> 1999 3 3 500.84 500.84 473.48 473.48 473.48 473.48 473.48 463.19
> 1999 3 4 463.19 463.19 463.19 463.19 457.54 457.54 457.54
> This format is used by the USGS to compress their data records.
> Each row contains:
> Year, Month Number(1 to 12), Row Number (1 to 4), and data entries.
> The first row:
> 1999 1 1 489.82 489.82 495.01 495.01 495.01 495.01 495.01 490.51
> contains flow values corresponding to: January 1 to January 8,
> of the year 1999.
> The second row:
> 1999 1 2 490.51 490.51 490.51 490.51 490.38 490.38 490.38 490.38
> contains flow values corresponding to: January 9 to January 16,
> of the year 1999.
> The third row:
> 1999 1 3 490.38 510.38 510.38 510.38 510.38 510.38 528.66 528.66
> contains flow values corresponding to: January 17 to January 24,
> of the year 1999.
> The fourth row:
> 1999 1 4 528.66 528.66 528.66 501.68 501.68 501.68 501.68
> contains flow values corresponding to: January 25 to January 31,
> of the year 1999.
> I think that you get the picture of how this data set is assembled.
> What I need is a program that can turn the above mentioned horizontal
> array, into a simple vertical array, containing two columns;
> the first column contains the dates when the data was collected,
> and the second column contains the flow values; i.e.
> 01Jan1999 489.82
> 02Jan1999 489.82
> 03Jan1999 495.01
> etc.
> If I give the program a starting date, and ending date for an
> arbitrary record; the program should be able to allocate two
> arrays to:
> (1.) put the dates between the starting date, and ending date,
> to form the first column of the vertical array.
> (2.)match correctly those dates with the data to appear in
> the second column of the vertical array.
> The program should discern between regular years, and leap
> years.  Those of you that are still using FORTRAN, and have
> experienced how difficult it is to deal with date functions
> using FORTRAN, might sympathize with my request.
> P.S. To get a larger set of USGS flow data to test your program
> please download the following file:
> http://www.gilmarlily.netfirms.com/download/flow.dat
> Thank you for your help!


  • Prev by Date: Re: FinFit question
  • Next by Date: Re: FindRoot/NDSolve problem in VS5
  • Previous by thread: Rearranging a data array containing calendrical as well as data entries.
  • Next by thread: Re: Rearranging a data array containing calendrical as well as data entries.