max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Added source Matlab code for reference

Browse source
This commit is contained in:
Waldir Leoncio 2019-12-16 16:47:21 +01:00
parent b8af977117
commit b5d99903d2
186 changed files with 61405 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

56
matlab/graph/viewDendrogram.m Normal file
View file

@ -0,0 +1,56 @@
function viewDendrogram(action)
% VIEWDENDROGRAM function to called by VIEWNJ to draw dendrogram
% trees
handle = gcf;
h0 = findobj(handle,'Tag','attr_menu');
g = get(h0,'Userdata');
g.visualtype = action;
set(h0,'Userdata',g); % store in the attribute menu
cla
axis off
% clf
% close(g.handle);
% h0 = figure('NumberTitle','off');
% g.handle = h0;
% set(h0,'menubar','none','toolbar','figure');
% set(h0,'Tag','nj_plot');
% set(h0,'Name',['Neighbor-Joining tree - ' g.filename]);;
if strcmp(g.type,'NJ')
t = seqNeighJoin(g.D, 'equivar', g.varnames);
else
t = seqlinkage(g.D, 'average', g.varnames);
end
switch action
case 'square'
% plotNJ(g.D, 1, char(g.varnames));
Plot(t,'type','square');
case 'angular'
% plotNJ(g.D, 0, char(g.varnames));
Plot(t,'type','angular');
end
% h1 = uimenu('Parent',handle, ...
% 'Label','Attributes', ...
% 'Tag','attr_menu');
% h2 = uimenu('Parent',h1, ...
% 'Label','Rename clusters', ...
% 'callback', 'plotflow rename', ...
% 'Tag','clustername_menu');
% h2 = uimenu('Parent',h1, ...
% 'Label','Visual type', ...
% 'Tag','visualtype_menu');
% h3 = uimenu('Parent',h2, ...
% 'Label','Square', ...
% 'callback', 'viewDendrogram(''square'')', ...
% 'Tag','viewsquare_menu');
% h3 = uimenu('Parent',h2, ...
% 'Label','Angular', ...
% 'callback', 'viewDendrogram(''angular'')', ...
% 'Tag','viewangular_menu');
% h3 = uimenu('Parent',h2, ...
% 'Label','Radial', ...
% 'callback', 'viewUnrooted', ...
% 'Tag','viewradial_menu');
%set(h1,'Userdata',g); % store in the attribute menu