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,'\umov01'))
load(strcat(file,'\umov02'))
load(strcat(file,'\umov03'))
load(strcat(file,'\umov04'))
load(strcat(file,'\umov05'))
load(strcat(file,'\umov06'))
load(strcat(file,'\umov07'))
load(strcat(file,'\umov08'))
load(strcat(file,'\umov09'))
load(strcat(file,'\umov10'))
load(strcat(file,'\umov11'))
h=contourf(x,y,umov01);
M(:,1)=getframe;
h=contourf(x,y,umov02);
M(:,2)=getframe;
h=contourf(x,y,umov03);
M(:,3)=getframe;
h=contourf(x,y,umov04);
M(:,4)=getframe;
h=contourf(x,y,umov05);
M(:,5)=getframe;
h=contourf(x,y,umov06);
M(:,6)=getframe;
h=contourf(x,y,umov07);
M(:,7)=getframe;
h=contourf(x,y,umov08);
M(:,8)=getframe;
h=contourf(x,y,umov09);
M(:,9)=getframe;
h=contourf(x,y,umov10);
M(:,10)=getframe;
h=contourf(x,y,umov11);
M(:,11)=getframe;
movie(M,11)
set(gca,'fontweight','bold')
xlabel('X (km)','fontweight','bold')
ylabel('Y (km)','fontweight','bold')
