
% lyngby_uis_mkm_v     - Script for Meta K-means viewing
%
%       See also: lyngby_mkm_global, lyngby_ui_global

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


    if exist('RESULT_MKM_CENTER') & ~isempty(RESULT_MKM_CENTER)
      lyngby_log('Calling result view ...');
      
%      lyngby_ui_view([X_MEAN ; X_STD ; RESULT_MKM_ASSIGN ], ...
%	  'Mean(data)|Std(data)|Clusters', ...
%	  'callback', 'lyngby_ui_view_mkm', ...
%	  'CallbackType', ['Time|Cluster mean seq.|Max value|' ...
%	  'Cluster members']);

      lyngby_ui_view([RESULT_MKM_ASSIGN ; X_MEAN ; X_STD ], ...
	  'Clusters|Mean(data)|Std(data)', ...
	  'callback', 'lyngby_ui_view_mkm', ...
	  'CallbackType', ['Time|Cluster mean seq.|Max value|' ...
	  'Cluster members|Convergence']);
      
      lyngby_log('Result view called!');
    else
      lyngby_ui_message(['There are no Meta K-Means results. ' ...
	    'Please press ''Calculate!''']); 
    end
	
