数据结构 十字链表示意图自动生成器（MATLAB）

这个程序用来生成有向图十字链表的示意图，
运行效果：

使用方式：
输入图所对应的邻接矩阵，并调用函数即可，如下图：


完整代码：

function crossForm(adjMat)
if (nargin<1)
    adjMat=[0 0 1 0 0 0 0 0 1;
            0 0 0 0 0 1 0 0 0;
            0 0 0 1 0 1 0 0 1;
            1 1 1 0 0 0 1 0 0;
            0 0 1 0 0 1 0 0 0;
            1 0 0 1 0 0 1 0 0;
            0 0 1 0 0 1 0 1 0;
            1 0 0 1 0 0 1 0 1;
            0 1 1 0 0 1 0 0 0];
end
%==========================================================================
f=figure;
f.MenuBar='none';
f.ToolBar='figure';
f.Position=[50 50 1200 600];
f.Name='crossForm';
f.NumberTitle='off';

ax=axes(f);
ax.Position=[0 0 1 1];
ax.XLim=[0 50];
ax.YLim=[0 19];
ax.XTick=0:1:50;
ax.YTick=0:1:19;
ax.XGrid='on';
ax.YGrid='on';
ax.XColor='none';
ax.YColor='none';
ax.YDir='reverse';
ax.TickDir='out';
hold(ax,'on');


N=size(adjMat,1);
for i=1:N
    drawSq(1,2*i-1);
    drawSq(2,2*i-1);
    drawSq(3,2*i-1);
    drawTxt(0,2*i-1,num2str(i-1),16);
    drawTxt(1,2*i-1,['V',num2str(i)],12);
    for j=1:N
        if adjMat(i,j)==1
            drawSq(5*j,2*i-1);
            drawSq(5*j+1,2*i-1);
            drawSq(5*j+2,2*i-1);
            drawSq(5*j+3,2*i-1);
            drawTxt(5*j,2*i-1,num2str(i-1),16);
            drawTxt(5*j+1,2*i-1,num2str(j-1),16);
        end
    end
end

for i=1:N
    if all(adjMat(i,:)==0)
       drawTxt(3,2*i-1,'∧',15);
    else
        j=find(adjMat(i,:)==1,1,'last');
        jf=find(adjMat(i,:)==1,1,'first');
        drawArrow(3,2*i-1,5*jf,2*i-1,1);
        drawTxt(5*j+3,2*i-1,'∧',15);
    end
    if all(adjMat(:,i)==0)
    else
        j=find(adjMat(:,i)==1,1,'last');
        drawTxt(5*i+2,2*j-1,'∧',15);
    end
end

for i=1:N
    if sum(adjMat(i,:)==1)>=2
        l=sum(adjMat(i,:)==1);
        jSet=find(adjMat(i,:)==1);
        for j=1:(l-1)
            drawArrow(5*jSet(j)+3,2*i-1,5*jSet(j+1),2*i-1,1);
        end
    end
end

for j=1:N
    if sum(adjMat(:,j)==1)>=2
        l=sum(adjMat(:,j)==1);
        iSet=find(adjMat(:,j)==1);
        for i=1:(l-1)
            drawArrow(5*j+2,2*iSet(i)-1,5*j+2,2*iSet(i+1)-1,2);
        end
    end
end

for i=1:N
    if all(adjMat(:,i)==0)
        drawTxt(2,2*i-1,'∧',15);
    else
        j1=adjMat(:,i)==1;
        j2=(1:N)'<i;
        j=find(j1&j2,1,'last');
        if ~isempty(j)
            drawArrow(2,2*i-1,5*i+1,2*j,3);
        else
            j=find(j1&(~j2),1,'first');
            drawArrow(2,2*i-1,5*i+2,2*j-1,3)
        end
    end
end

%==========================================================================
    function drawSq(x,y)
        plot([x,x+1],[y,y],'LineWidth',1.5,'Color',[1,1,1].*.3);
        plot([x,x+1],[y+1,y+1],'LineWidth',1.5,'Color',[1,1,1].*.3);
        plot([x,x],[y,y+1],'LineWidth',1.5,'Color',[1,1,1].*.3);
        plot([x+1,x+1],[y,y+1],'LineWidth',1.5,'Color',[1,1,1].*.3);
        
    end
    function drawTxt(x,y,str,size)
        text(x+0.5,y+0.5,str,'Color',[1,1,1].*.3,'HorizontalAlignment',...
            'center','FontSize',size,'FontWeight','bold');
        
    end
    function drawArrow(x1,y1,x2,y2,type)
        switch type
            case 1
                annotation('arrow',[x1+0.5,x2]./50,1-[y1+0.5,y2+0.5]./19);
            case 2
                annotation('arrow',[x1+0.5,x2+0.5]./50,1-[y1+0.5,y2]./19);
            case 3
                annotation('line',[x1+0.5,x1+0.5]./50,1-[y1+0.5,y1+1+0.5]./19);
                annotation('line',[x1+0.5,x2+0.5]./50,1-[y1+1+0.5,y1+1+0.5]./19);
                annotation('arrow',[x2+0.5,x2+0.5]./50,1-[y1+1+0.5,y2]./19);
        end
    end
end