49 lines
761 B
Mathematica
49 lines
761 B
Mathematica
|
function [d] = gplotLength(a, x, linewidth)
|
||
|
|
% function [d] = gplotFancy2(a, x,linewidth)
|
||
|
|
%
|
||
|
|
% plot with colors depending on lengths of
|
||
|
|
% edges in x,
|
||
|
|
% a: Adjacency
|
||
|
|
% x: coords
|
||
|
|
% linewidth: for ploting
|
||
|
|
|
||
|
|
[ai,aj] = find(a);
|
||
|
|
m = length(ai);
|
||
|
|
d = double(a);
|
||
|
|
|
||
|
|
for i = 1:m,
|
||
|
|
d(ai(i),aj(i)) = norm(x(ai(i),:)-x(aj(i),:));
|
||
|
|
end
|
||
|
|
|
||
|
|
[di,dj,dv] = find(d);
|
||
|
|
|
||
|
|
sdv = sort(dv);
|
||
|
|
l = length(sdv);
|
||
|
|
|
||
|
|
ran = [64:-1:0]/64;
|
||
|
|
ran = ran.^2;
|
||
|
|
ran = 1-ran;
|
||
|
|
|
||
|
|
ll = round([1:l/65:l]);
|
||
|
|
ranges = sdv(ll);
|
||
|
|
|
||
|
|
hold on;
|
||
|
|
set(gca,'Color',[0 0 0])
|
||
|
|
|
||
|
|
cm = jet;
|
||
|
|
|
||
|
|
%cm = .3+.7*cm;
|
||
|
|
|
||
|
|
for i = 1:64;
|
||
|
|
ind = (dv <= ranges(i+1))&(dv>ranges(i));
|
||
|
|
|
||
|
|
thisa = sparse(ai(ind),aj(ind),1);
|
||
|
|
[gpx,gpy] = gplot(thisa,x);
|
||
|
|
if (~isempty(gpx)),
|
||
|
|
ph(i) = plot(gpx,gpy,'-','Color',cm(i,:),'LineWidth',linewidth);
|
||
|
|
axis off
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|
||
|
|
|