function democours
% Demos for Chapter 3 : Polarization Relations
% Animation of monochromatic waves
% O. Thual, 17/11/02
disp(' Chapter 3 : Animation of momochromatic wave fields')
ondedef=1;
while 1
	onde=input(' 1: sound, 2: internal, 3: surface, 9: quit  ?  ')
	% defaut 
	if isempty(onde)==1
		onde=ondedef
	end
	% 1: sound 
	if onde==1
		animson1d
	end
	% 2: internal
	if onde==2
		animint2d
	end
	%  3: surface
	if onde==3
		animsurf2d
	end
	%  9: quit
	if onde==9
		return
	end
end
