%  Smooth optical backscatter data...
ok = find(~isnan(data(:, real_x)));
b0 = conv(data(ok, real_x), [1 1 1 1 1 1 1 1 1 1 1 1 1 1 1])/15;
n = length(b0);
b0 = b0(8:(n-7));
b1(1:length(time))= NaN;
b1(ok) = b0;
b1 = b1';

ok = find(~isnan(data(:, m_bs_voltage)));
b0 = conv(data(ok, m_bs_voltage), [1 1 1 1 1 1 1 1 1 1 1 1 1 1 1])/15;
n = length(b0);
b0 = b0(8:(n-7))';
b2(1:length(time))= NaN;
b2(ok) = b0;
b2 = b2';

%  Make some plots...
figure;
plot(time, [b1, b2]);
zoom on;
xlabel('Time (s)');
ylabel('Bottom and FWD OBS');
zoom on;

figure;
plot(b1(going_up), b2(going_up), '.r');
hold on;
plot(b1(going_down), b2(going_down), '.b');
xlabel('FWD OBS (mV)');
ylabel('Bottom OBS (mV)');
zoom on;