function A=randtreeA(T,m)
[n,n] = size(T);
[nodesi,nodesj]=find(T);
A=[];
for e=1:length(nodesi)
  e1 = nodesi(e);
  e2 = nodesj(e);
  Ae = pnormdim(rand(m,m),1);
  Ae = reshape(Ae,1,1,m,m);
  A(e1,e2,:,:) = Ae;
end
return