function out = w02waveF1(x,n)
% 
%  initial data functions (djm: 15 sept 2010)
% 
%  strauss, p36, ex #2
%
%  set b = 1, a = 2
%

switch n
    case{1}
        out = (1 - abs(x)/2).*(abs(x)<2);
    case{2}
        out = (1 - abs(x)/2).*(abs(x)<2);
end