source: liacs/la/opdr4/wireframe.m@ 422

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