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,'\mmov01'))
load(strcat(file,'\mmov02'))
load(strcat(file,'\mmov03'))
load(strcat(file,'\mmov04'))
load(strcat(file,'\mmov05'))
load(strcat(file,'\mmov06'))
load(strcat(file,'\mmov07'))
load(strcat(file,'\mmov08'))
load(strcat(file,'\mmov09'))
load(strcat(file,'\mmov10'))
load(strcat(file,'\mmov11'))
h=contourf(x,y,mmov01);
M(:,1)=getframe;
h=contourf(x,y,mmov02);
M(:,2)=getframe;
h=contourf(x,y,mmov03);
M(:,3)=getframe;
h=contourf(x,y,mmov04);
M(:,4)=getframe;
h=contourf(x,y,mmov05);
M(:,5)=getframe;
h=contourf(x,y,mmov06);
M(:,6)=getframe;
h=contourf(x,y,mmov07);
M(:,7)=getframe;
h=contourf(x,y,mmov08);
M(:,8)=getframe;
h=contourf(x,y,mmov09);
M(:,9)=getframe;
h=contourf(x,y,mmov10);
M(:,10)=getframe;
h=contourf(x,y,mmov11);
M(:,11)=getframe;
movie(M,11)
set(gca,'fontweight','bold')
xlabel('X (km)','fontweight','bold')
ylabel('Y (km)','fontweight','bold')
