filename="C:\\Ebeltoft 2010\\Numerical\\SF\\DBA\\OUTSF7.txt";

dataf=OpenRead[filename];i=0;imax=Length[ReadList[dataf,String]]-27; values=Table[0,{imax},{6}];
dataf=OpenRead[filename]; Find[dataf,"Number of increments:"]; Read[dataf,String];Read[dataf,String];
 Do[i++; values[[i]]=Read[dataf,Table[Number,{6}]],{imax}]

ListPlot[values[[All,{1,3}]],Joined->True]

p=((values[[Length[values],1]])/3);

ffun1=Interpolation[values[[All,{1,3}]]];

Animate[Plot[{Abs[ffun1[x]-(E^(I 120°))ffun1[x+p]],-Abs[ffun1[x]-(E^(I 120°))ffun1[x+p]],Re[( ffun1[x+p]-(E^(I 120°))ffun1[x])(E^(I φ))]},{x,0,p},PlotRange->{-2,2}],{φ,0,2 π}]

Export["Travellingwave.gif",Table[Plot[{Abs[ffun1[x]-(E^(I 120°))ffun1[x+p]],-Abs[ffun1[x]-(E^(I 120°))ffun1[x+p]],Re[( ffun1[x+p]-(E^(I 120°))ffun1[x])(E^(I φ))]},{x,0,p},PlotRange->{-2*^6,2*^6}],{φ,0,2 π,0.1 π}]]