/*
This file is part of libszdist.

libszdist is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

libszdist is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with libszdist.  If not, see <http://www.gnu.org/licenses/>.
*/


// Compares results of inversion algorithms : libszdist vs. Labview at PDD

// Set these 3 variables in console. e.g. :
//fRef="../files/out/121231Pdd.csv";
//fTst="../files/lamp2005/SMPS121231longPdd.dat";
//info="PDD, 2012-12-31, Flow 1:7, eq len = 10 m";

// testLib -i ../../files/lamp2005/121231Pdd -o ../../files/out/121231Pdd.csv -t lamp2005

exec('plotResults.sci');

scf();

//-----------------------------------------------------------------------------
subplot(2,1,1);

scRef=avgScan(fRef,"lamp");
plotScan(scRef,color("red"),"LaMP new");

errL=[scRef(:,1), scRef(:,2)*0.90];
plotScan(errL,color("grey"),"LaMP new -10%");
errH=[scRef(:,1), scRef(:,2)*1.10];
plotScan(errH,color("grey"),"LaMP new +10%");

scTst=avgScan(fTst,"lamp2005");
plotScan(scTst,color("blue"),"LaMP old");

xgrid(2);
a=gca();
a.grid=[color("grey"),color("grey"),-1];
a.data_bounds(1,1)=10;
a.data_bounds(2,1)=1000;
xtitle(info,"Dp (nm)","dN/dLog");


//-----------------------------------------------------------------------------
subplot(2,1,2);
plotRatio(scTst,scRef,color("blue"),"LaMP old / LaMP new");
xgrid(2);
a=gca();
a.grid=[color("grey"),color("grey"),-1];
a.data_bounds(1,1)=10;        // xmin
a.data_bounds(2,1)=1000;      // xmax
//a.data_bounds(1,2)=0.8;       // ymin
//a.data_bounds(2,2)=1.2;       // ymax
xtitle("","Dp (nm)","ratio");