%This program is used when the user requests to see the numerical parameter results.  It is 
%shown in the command window.


%Check to see if user wants to see results
if strcmp(get(oparam,'Checked'),'on'),

	fprintf('\nTimes Used to Fit Lines:\n\n');

	fprintf('For X:\nLINE 1: initial lag = %7.3f,  final lag = %7.3f\n', fitTimeX(1)-.01, fitTimeX(2));
	fprintf('LINE 2: initial lag = %7.3f,  final lag = %7.3f\n', fitTimeX(3), fitTimeX(4));
	fprintf('\nFor Y:\nLINE 1: initial lag = %7.3f,  final lag = %7.3f\n', fitTimeY(1)-.01, fitTimeY(2));
	fprintf('LINE 2: initial lag = %7.3f,  final lag = %7.3f\n', fitTimeY(3), fitTimeY(4));
	fprintf('\nFor R:\nLINE 1: initial lag = %7.3f,  final lag = %7.3f\n', fitTimeR(1)-.01, fitTimeR(2));
	fprintf('LINE 2: initial lag = %7.3f,  final lag = %7.3f\n', fitTimeR(3), fitTimeR(4));
	
	fprintf('\nDiffusion Coefficients:\n\n');
	fprintf('Dxs = slope/2= \t%7.3f\n', fitcoeffx1(1)/2);
	fprintf('Dxl = slope/2= \t%7.3f\n', fitcoeffx2(1)/2);
	fprintf('Dys = slope/2= \t%7.3f\n', fitcoeffy1(1)/2);
	fprintf('Dyl = slope/2= \t%7.3f\n', fitcoeffy2(1)/2);
	fprintf('Drs = slope/2= \t%7.3f\n', fitcoeffr1(1)/2);
	fprintf('Drl = slope/2= \t%7.3f\n', fitcoeffr2(1)/2);
	
%Show log-log data
	fprintf('\nScaling Exponents:\n\n');

	fprintf('Hxs = slope/2= \t%7.3f\n', fitcoeffx1log(1)/2);
	fprintf('Hxl = slope/2= \t%7.3f\n', fitcoeffx2log(1)/2);
	fprintf('Hys = slope/2= \t%7.3f\n', fitcoeffy1log(1)/2);
	fprintf('Hyl = slope/2= \t%7.3f\n', fitcoeffy2log(1)/2);
	fprintf('Hrs = slope/2= \t%7.3f\n', fitcoeffr1log(1)/2);
	fprintf('Hrl = slope/2= \t%7.3f\n', fitcoeffr2log(1)/2);

%Show critical times
	fprintf('\nCritical Point Coordinates:\n\n');

	fprintf('delta txc= \t%7.3f\n',critpointX*.01);
	fprintf('<X^2>= \t\t%7.3f\n',X(critpointX));
	fprintf('delta tyc= \t%7.3f\n',critpointY*.01);
	fprintf('<Y^2>= \t\t%7.3f\n',Y(critpointY));
	fprintf('delta trc= \t%7.3f\n',critpointR*.01);
	fprintf('<R^2>= \t\t%7.3f\n',R(critpointR));
end