matlab画无向图，基于坐标的无向图联系作者

%函数名netplot

%使用方法输入请help netplot

%无返回值

%函数只能处理无向图

%作者：tiandsp

%最后修改：2012.12.

function netplot(A,flag)

    %调用方法输入netplot(A,flag)，无返回值

    %A为邻接矩阵或关联矩阵

    %flag=1时处理邻接矩阵

    %flag=2时处理关联矩阵

    %函数只能处理无向图

    if flag==      %邻接矩阵表示无向图

        ND_netplot(A);

        return;

    end

    if flag==      %关联矩阵表示无向图

        [m n]=size(A);      %关联矩阵变邻接矩阵

        W=zeros(m,m);

        for i=:n

            a=find(A(:,i)~=);

            W(a(),a())=;

            W(a(),a())=;

        end

        ND_netplot(W);

        return;

    end

    function ND_netplot(A)

        [n n]=size(A);

        w=floor(sqrt(n));

        h=floor(n/w);

        x=[];

        y=[];

        for i=:h           %使产生的随机点有其范围，使显示分布的更广

            for j=:w

                x=[x *rand()+(j-)*];

                y=[y *rand()+(i-)*];

            end

        end

        ed=n-h*w;

        for i=:ed

           x=[x *rand()+(i-)*];

           y=[y *rand()+h*];

        end

        plot(x,y,'r*');

        title('网络拓扑图');

        for i=:n

            for j=i:n

                if A(i,j)~=

                    c=num2str(A(i,j));                      %将A中的权值转化为字符型

                    text((x(i)+x(j))/,(y(i)+y(j))/,c,'Fontsize',);  %显示边的权值

                    line([x(i) x(j)],[y(i) y(j)]);      %连线

                end

                text(x(i),y(i),num2str(i),'Fontsize',,'color','r');   %显示点的序号

                hold on;

            end

        end

    end

end