function wireframe(D,C,n) % given 2 dim array f n Data points and square nxn adjacency % array C of connections % plot wireframe edge by edge between projected Begin and End x,y % coordinates % vectors X and Y are of length 2 and contain respectively the two % x and y coordinates of the Begin- and Endpoints % determine x,y range first for whole dataset % wel het figuurtje laten zien natuurlijk figure % hulp lijntjes grid on % even randen % xmin=1.2*min(min(D([1],:))); % xmax=1.2*max(max(D([1],:))); % ymin=1.2*min(min(D([2],:))); % ymax=1.2*max(max(D([2],:))); % gebruik onderstaande voor een vierkant xmin=1.2*min(min(D([1 2],:))); xmax=1.2*max(max(D([1 2],:))); ymin = xmin; ymax = xmax; axis([xmin,xmax,ymin,ymax]); X = [0; 10]; Y = [0; 10]; % no cleanups between plot commands hold on % loop door de connectie array heen % we trekken enkel lijntjes van de kleine naar de grootte om dubbel % werk te voorkomen for i=1:n for j=i:n if ( C(i,j) == 1 ) point1 = D(:,i); point2 = D(:,j); X = [ point1(1); point2(1) ]; Y = [ point1(2); point2(2) ]; plot(X, Y,'k-') end end end %draw black line between 2 connected data vertex points at a time hold off