% Optical_cast - 
%
%    J. G. Bellingham, 20-Sept-1998
%
%    Copyright (C) 1995-1998
%    Massachussetts Institute of Technology
%    Sea Grant AUV Laboratory


%----------------------------------------------------
% Plot Temperature as function of depth

figure;
title( ['Optical Sensors:  ' run_name] );

subplot(1,3,1)
plot( data(:, water_temp), data(:, m_depth), 'r' );
set( gca, 'YDir', 'rev' );
xlabel( 'Temperature (^{o}C)')
ylabel( 'data(:, m_depth) (m)' );

% Plot Fluorometer as function of depth...
subplot(1,3,2)
plot( data(:, m_fl_voltage), data(:, m_depth), 'g'); 
set( gca, 'YDir', 'rev' );
xlabel( 'Fluorometer (mV)')

% Plot optical backscatter...
subplot( 1, 3, 3 )
plot( data(:, m_bs_voltage), data(:, m_depth), 'b' ); 
set( gca, 'YDir', 'rev' );
xlabel( 'Opical Backscatter (mV)' )
zoom on

%----------------------------------------------------
% Plot optical backscatter as function of time...
figure;
title( ['Optical Sensors:  ' run_name] );

subplot(3,1,1); 
plot(time, data(:, m_bs_voltage));
ylabel( 'Opical Backscatter (mV)' );

subplot(3,1,2); 
plot(time, data(:, m_fl_voltage));
ylabel( 'Fluorometer (mV)');

subplot(3,1,3); 
plot(time, data(:, m_depth));
ylabel( 'data(:, m_depth) (m)');
set( gca, 'YDir', 'rev' );
zoom on;

