Date[]

<< Graphics`

Directory[]

SetDirectory["C:\Documents and \
Settings\burkardt\Desktop\Misc\mathematica\data"]

SetDirectory["C:\Documents and \
Settings\\burkardt\Desktop\Misc\mathematica\data"]

FileNames[]

filename  =  "vel00.txt"

p  =  
        ReadList[
          filename,  { {Real, Real}, {Real, Real} } ] ;

ListPlotVectorField[p, ScaleFactor ->  .1,  
      ColorFunction -> Hue ]

(* OK,  
      let' s do the whole set of files. *) 
 (* 
      You can select Animate Selected Graphics to make a movie. *) 
 (* 
      But how you SAVE the thing as an actual separate movie file I don' t know! *) 
 (* 
      You start the process by specifying the first file in the sequence. *) 
 (* 
      You stop the process by specifying an appropriate upper limit on the Do loop. *)

filename  =  "vel00.txt";
lens  =  
        StringLength [ 
          filename];

Do[  {

p  =  
            ReadList[
              filename,  { {Real, Real}, {Real, 
                  Real} } ] ;

        ListPlotVectorField[p, ScaleFactor ->  .1,  
            ColorFunction -> 
              Hue ];


        change  =  0;

        Do [ {
c  =  
              StringTake[ filename,  {i}], 
code  =  
              ToCharacterCode[c], 
digit  =  
              code[[1]]  -  48, 
If [ 
              0  ≤  digit &&  digit  ≤  9, { 
                change  =  change + 1, 
digit  =  
                  digit  +  1,  
If [ 
                  digit  ==  10,  
                  digit  =  0 ], 
c  =  
                  FromCharacterCode[
                    digit + 48],   
filename  =  
                  StringDrop[
                    filename, {i}],  
filename  =  
                  StringInsert[filename, 
                    c, {i}],   
If [ 
                  digit  ≠  0,  
                  Break[] ] } ] }, 
{ i,  lens,  
            1 ,  -1}  ],

 }, { k, 1, 50 } ]