
% lyngby_uis_km_v      - Script for K-means view
%
%       See also: lyngby_km_global, lyngby_ui_global

% cvs : $Id: lyngby_uis_km_v.m,v 1.8 2001/09/05 12:31:56 mgl Exp $ 
%       $Revision: 1.8 $    

    if exist('RESULT_KM_CENTER') & ~isempty(RESULT_KM_CENTER)
      lyngby_log('Calling result view ...');

      if isempty(RESULT_KM_CENTERSIM)
	sLabels = 'Clusters|Mean(data)|Std(data)';
      else
	sLabels = 'Clusters|Cluster center similarity|Mean(data)|Std(data)';
      end
	
      lyngby_ui_view( [ RESULT_KM_ASSIGN ; RESULT_KM_CENTERSIM ; ...
	X_MEAN ; X_STD ], sLabels, ...
	  'title', 'K-means', ...
	  'callback', 'lyngby_ui_view_km', 'CallbackType', ...
	  [ 'Time|Max value|Cluster members|Cluster mean seq.|' ... 
	    'Cluster center scattergram|Similarity summary|Convergence|All cluster means']); 

      lyngby_log('Result view called!');
    else
      lyngby_ui_message('There are no K-Means results. Please press ''Calculate!''');
    end








