如何寫鄰接矩陣程式碼

Question 1

有了nicematrix，超簡單

\documentclass{article}
\usepackage{nicematrix}

\begin{document}

\[
\mathbf{A}_H = 
\begin{bNiceMatrix}[first-row,first-col]
    & v_6 & v_3 & v_4 & v_5 & v_1 & v_2 \\
v_6 & 0   & 1   & 0   & 1   & 0   & 0   \\
v_3 & 1   & 0   & 1   & 0   & 0   & 1   \\
v_4 & 0   & 1   & 0   & 1   & 0   & 0   \\
v_5 & 1   & 0   & 1   & 0   & 1   & 0   \\
v_1 & 0   & 0   & 0   & 1   & 0   & 1   \\
v_2 & 0   & 1   & 0   & 0   & 1   & 0   \\
\end{bNiceMatrix}
\]

\end{document}

Answer

有了nicematrix，超簡單

\documentclass{article}
\usepackage{nicematrix}

\begin{document}

\[
\mathbf{A}_H = 
\begin{bNiceMatrix}[first-row,first-col]
    & v_6 & v_3 & v_4 & v_5 & v_1 & v_2 \\
v_6 & 0   & 1   & 0   & 1   & 0   & 0   \\
v_3 & 1   & 0   & 1   & 0   & 0   & 1   \\
v_4 & 0   & 1   & 0   & 1   & 0   & 0   \\
v_5 & 1   & 0   & 1   & 0   & 1   & 0   \\
v_1 & 0   & 0   & 0   & 1   & 0   & 1   \\
v_2 & 0   & 1   & 0   & 0   & 1   & 0   \\
\end{bNiceMatrix}
\]

\end{document}

Question 2

這是一個有趣的問題。這裡我定義了一個圖的資料結構，提供列印鄰接矩陣，但我們可以想像其他用途。

這個想法是將頂點的索引儲存在一個序列中，並將邊列表儲存在另一個序列中。

頂點列表被映射（兩次）以檢查給定的邊是否在邊列表中；在這種情況下1被加到矩陣主體，否則0.

使用nicematrix還可以填充外部行和列。

\documentclass{article}
\usepackage{nicematrix}

\ExplSyntaxOn

\NewDocumentCommand{\definegraph}{mmm}
 {% #1 = graph name, #2 = vertex list, #3 = edge list
  \ryl_graph_define:nnn { #1 } { #2 } { #3 }
 }

\NewDocumentCommand{\adjacencymatrix}{m}
 {% #1 = graph name
  \ryl_graph_adjacency:n { #1 }
 }

\cs_new_protected:Nn \ryl_graph_define:nnn
 {
  \seq_clear_new:c { l__graph_vertex_#1_seq }
  \seq_set_from_clist:cn { l__graph_vertex_#1_seq } { #2 }
  \seq_clear_new:c { l__graph_edge_#1_seq }
  \seq_set_from_clist:cn { l__graph_edge_#1_seq } { #3 }
 }

\tl_new:N \l__ryl_graph_adjacency_tl

\cs_new_protected:Nn \ryl_graph_adjacency:n
 {
  \tl_clear:N \l__ryl_graph_adjacency_tl
  \seq_map_inline:cn { l__graph_vertex_#1_seq }
   {
    \tl_put_right:Nn \l__ryl_graph_adjacency_tl { & v\sb{##1} }
   }
  \tl_put_right:Nn \l__ryl_graph_adjacency_tl { \\ }
  \seq_map_inline:cn { l__graph_vertex_#1_seq }
   {
    \tl_put_right:Nn \l__ryl_graph_adjacency_tl { v\sb{##1} }
    \seq_map_inline:cn { l__graph_vertex_#1_seq }
     {
      \seq_if_in:cnTF { l__graph_edge_#1_seq } { ##1-####1 }
       {% the edge is in
        \tl_put_right:Nn \l__ryl_graph_adjacency_tl { & 1 }
       }
       {
        \seq_if_in:cnTF { l__graph_edge_#1_seq } { ####1-##1 }
         {% the edge is in
          \tl_put_right:Nn \l__ryl_graph_adjacency_tl { & 1 }
         }
         {
          \tl_put_right:Nn \l__ryl_graph_adjacency_tl { & 0 }
         }
       }
     }
    \tl_put_right:Nn \l__ryl_graph_adjacency_tl { \\ }
   }
  \begin{bNiceMatrix}[first-row,first-col]
  \tl_use:N \l__ryl_graph_adjacency_tl
  \end{bNiceMatrix}
 }

\ExplSyntaxOff

\definegraph{A}{1,2,3}{1-2,1-3,2-3}
\definegraph{B}{6,3,4,5,1,2}{6-3,6-5,3-6,3-4,3-2,4-3,4-5,5-1,1-2}

\begin{document}


\[
\adjacencymatrix{A}
\]

\[
\mathbf{A}_{H}=\adjacencymatrix{B}
\]

\end{document}

在第二個範例中，您可以看到列出重複的邊是無關緊要的。

Answer