function y=W1(lambda);
% 2005.12
% Emmanuel Boss
% emmanuel.boss@maine.edu
% School of Marine Sciences, University of Maine, USA
%
% Calculates the wavelength weighting function for Eco-type sensors.
%
% INPUT
% Incident wave wavenumber                      (lambda) [nm] 
% NB: the LED output and filter wavelengths response are loaded from the files LED_spectra
% (computed by us for our sensor) and Wetlabs (where the receiver filters
% are). Photodiode responsivity curve is a digitazation of a curve found on
% the WWW at http://beammeasurement.mellesgriot.com/tut_photo_det.asp

% OUTPUT
% integrand value                               (y)

W1c=[400 0.;659 0.;659.5 0.5;660 1;660.5 0.5;661 0;800 0]';
W1c_l=interp1(W1c(1,:), W1c(2,:),lambda,'linear');

y=W1c_l;
