clear
clf
file=input('Enter output file (default = output)','s');
if isempty(file)
   file='output';
end   
load(strcat(file,'\x.out'))
load(strcat(file,'\y.out'))
load(strcat(file,'\vmov01'))
load(strcat(file,'\vmov02'))
load(strcat(file,'\vmov03'))
load(strcat(file,'\vmov04'))
load(strcat(file,'\vmov05'))
load(strcat(file,'\vmov06'))
load(strcat(file,'\vmov07'))
load(strcat(file,'\vmov08'))
load(strcat(file,'\vmov09'))
load(strcat(file,'\vmov10'))
load(strcat(file,'\vmov11'))
h=contourf(x,y,vmov01);
M(:,1)=getframe;
h=contourf(x,y,vmov02);
M(:,2)=getframe;
h=contourf(x,y,vmov03);
M(:,3)=getframe;
h=contourf(x,y,vmov04);
M(:,4)=getframe;
h=contourf(x,y,vmov05);
M(:,5)=getframe;
h=contourf(x,y,vmov06);
M(:,6)=getframe;
h=contourf(x,y,vmov07);
M(:,7)=getframe;
h=contourf(x,y,vmov08);
M(:,8)=getframe;
h=contourf(x,y,vmov09);
M(:,9)=getframe;
h=contourf(x,y,vmov10);
M(:,10)=getframe;
h=contourf(x,y,vmov11);
M(:,11)=getframe;
movie(M,11)
set(gca,'fontweight','bold')
xlabel('X (km)','fontweight','bold')
ylabel('Y (km)','fontweight','bold')
