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

102
matlab/graph/plotVarmuus.m Normal file
View file

@ -0,0 +1,102 @@
function plotVarmuus(V, C, pointers, varmuus, coordinates, partition, tekstit)
if nargin < 7
tekstit = pointers;
end
notEmptyPops = length(unique(partition));
if notEmptyPops>30
disp(['Number of populations: ' num2str(notEmptyPops)]);
disp(' ');
disp('Figure can be drawn only if the number of populations');
disp('is less or equal to 30.');
disp(' ');
return;
end
h1 = figure;
hold on
colors=giveColors(notEmptyPops);
[I, J] = find(coordinates>0 | coordinates<0);
I=unique(I);
xmin = min(coordinates(I,1));
xmax = max(coordinates(I,1));
xdiff = (xmax-xmin);
xmean = xmin + xdiff/2;
ymin = min(coordinates(I,2));
ymax = max(coordinates(I,2));
ydiff = (ymax-ymin);
ymean = ymin + ydiff/2;
pituus = max(ydiff,xdiff)*1.1/2;
zmax = 0.8*max(varmuus) + 0.2;
axis([xmean-pituus xmean+pituus ymean-pituus ymean+pituus 0 zmax]);
grid(gca);
d = [1 2 3 1];
for i=1:length(C)
koko = length(C{i});
soluPisteet = V(C{i},:);
center = [mean(soluPisteet(:,1)) mean(soluPisteet(:,2))];
center = repmat(center, [koko 1]);
soluPisteet = soluPisteet + (center - soluPisteet)./1000;
apu = zeros(2*koko, 3);
apu(1:koko, 1:2) = soluPisteet;
apu(koko+1:end, 1:2) = soluPisteet;
apu(koko+1:end, 3) = varmuus(i);
taulu = pointers{i};
if length(taulu)>0
color = colors(partition(taulu(1)),:);
pisteet =[1:koko 1];
patch('XData', apu(pisteet,1), 'YData', apu(pisteet,2), ...
'ZData', apu(pisteet,3), 'FaceColor',color, 'Clipping', ...
'on', 'EdgeColor','k', 'LineWidth', 1);
pisteet = pisteet+koko;
patch('XData', apu(pisteet,1), 'YData', apu(pisteet,2), ...
'ZData', apu(pisteet,3), 'FaceColor',color, 'Clipping', ...
'on', 'EdgeColor','k', 'LineWidth', 1);
for j = 1:koko-1
pisteet = [j j+1 j+koko+1 j+koko j];
patch('XData', apu(pisteet,1), 'YData', apu(pisteet,2), ...
'ZData', apu(pisteet,3), 'FaceColor',color, 'Clipping', ...
'on', 'EdgeColor','k', 'LineWidth', 1);
end
pisteet = [koko 1 koko+1 2*koko koko];
patch('XData', apu(pisteet,1), 'YData', apu(pisteet,2), ...
'ZData', apu(pisteet,3), 'FaceColor',color, 'Clipping', ...
'on', 'EdgeColor','k', 'LineWidth', 1);
end
end
if ~isequal(tekstit, -1)
for i=1:length(pointers)
taulu = pointers{i};
teksti = tekstit{i};
if isnumeric(teksti)
teksti = num2str(teksti);
end
if length(taulu)>0
text(coordinates(taulu(1),1),coordinates(taulu(1),2), ...
varmuus(i) + zmax/100, teksti, 'FontSize', 10);
end
end
end
view(3);
hold off