
% lyngby_uis_ks_v      - Script for Kolmogorov-Smirnov view
%
%       See also: lyngby_ks_global, lyngby_ui_global

% cvs : $Id: lyngby_uis_ks_v.m,v 1.4 2000/05/16 15:06:18 mgl Exp $ 
%       $Revision: 1.4 $    


   if exist('RESULT_KS') & ~isempty(RESULT_KS)          
     STRENGTH_KS = RESULT_KS;
     
%     lyngby_ui_view([ X_MEAN ; X_STD ; RESULT_KS ; PROB_KS ], ...
%	 'Mean(data)|Std(data)|ks-statistics|Probability map', ...
%	 'title', 'Kolmogorov-Smirnov', ...
%	 'callback','lyngby_ui_view_ks', ...
%	 'CallbackType', 'Time|Histogram|Stairs');

     lyngby_ui_view([RESULT_KS ; PROB_KS ; X_MEAN ; X_STD ], ...
	 'ks-statistics|Probability map|Mean(data)|Std(data)', ...
	 'title', 'Kolmogorov-Smirnov', ...
	 'callback','lyngby_ui_view_ks', ...
	 'CallbackType', 'Time|Histogram|Stairs');
     
   else
     lyngby_ui_message(['There are no Kolmogorov ' ...
	   'Smirnov-test results. Please press ''Calculate!''']);
   end
   

