Latex Forest Package 减少节点之间的线的长度？

Question

请注意，我使用您编写的树作为示例。第四棵树没有红色节点，因此，由于问题具体涉及调整红色子节点和黑色父节点之间的距离，因此在这种情况下无需执行任何操作。

因此，问题基本上是问如何以三种不同的方式格式化一棵树。在下面的代码中，@+\rbtree扩展到树的括号规范模数，并使用修改后的样式等进行整理。

\begin{forest}
  red black,
  @+\rbtree
\end{forest}

这样会得到问题中所示的结果，但会进行少许修改，使其更接近您想要的结果。这是基线/起点。

\begin{forest}
  red black,
  squash,
  @+\rbtree
\end{forest}

这近似于下一棵树。红色节点移近黑色父节点，但它们不允许重叠。

\begin{forest}
  red black,
  squash,
  not distinct,
  s adjust'=4,
  l short'=10pt,
  @+\rbtree
\end{forest}

此代码缩短了距离，但使用了非默认值，s adjust因此l short红色子节点相互重叠并覆盖其黑色父节点。not distinct关闭阴影，禁用用于鼓励节点分离的代码并改变树的绘制顺序。通常，树是从上往下绘制的，但我们不希望这样，所以我们改为tree children-first从下往上绘制树。这会让子节点覆盖父节点而不是覆盖父节点。

\documentclass[tikz,border=5pt]{standalone}
\usepackage{forest}
\usetikzlibrary{shadows}
% ateb : https://tex.stackexchange.com/a/707076/ addaswyd o gwestiwn İbrahim Uğur ABA: https://tex.stackexchange.com/q/706871/
\forestset{%
  declare boolean={red node}{0},
  declare boolean={black node}{0},
  declare boolean={squashed}{0},
  declare boolean register={squash},
  declare boolean register={distinct},
  not squash,
  distinct,
  declare dimen register={l short},
  declare count register={s adjust},
  l short'=15pt,
  s adjust'=5,
  red black/.style={%
    for tree={%
      fit=band,
      circle, 
      draw, 
      s sep'=15pt, 
      l'=5pt, 
      l sep'=5pt,
      edge+=thick,
      if n children=0{%
        inner sep=.5pt,
        fill,
        before computing xy={l'=12pt},
      }{%
        text=white,
        font=\tiny\sffamily\bfseries, 
        minimum size=15pt,
      },
    },
    before typesetting nodes={%
      if squash={%
        for descendants={%
          if={ > OO& {red node}{!u.black node} }{%
            before computing xy={%
              l/.register=l short,
              if={ > OOw+P< {n} {!u.n children}{(##1+1)/2} }{%
                s/.process={ ORw2+Pw+d {n}{s adjust}{-##2*##1}{##1pt} }
              }{%
                s/.process={ ORw2+Pw+d {n}{s adjust}{##2*##1}{##1pt} }
              },
            },
          }{},
        },
        if distinct={%
          where black node={%
            tempcounta'=0,
            if nodewalk empty={filter={children}{>O{red node}}}{}{%
              for nodewalk={filter={children}{>O{red node}}}{%
                if={ > O_ > {n}{1} }{%
                  if={ > O {!p.red node} }{%
                    insert before={[,phantom]}
                  }{},
                }{},
              },
            },
          }{},
        }{%
          /tikz/circular drop shadow/.style={},
          draw tree processing order/.nodewalk style=tree children-first,
        },
      }{},
    },
  },
  red one/.style={fill=red,circular drop shadow,red node},
  black one/.style={fill=black,circular drop shadow,black node},
}
\bracketset{action character=@}
\NewDocumentCommand \rbtree {}{%
  [, black one
    [, black one
      []
      []
    ]
    [, red one
      [, black one
        [, red one
          []
          []
        ]
        [, red one
          []
          []
        ]
      ]
      [, black one
        []
        [, red one
          []
          []
        ]
      ]
    ]
  ]%
}
\begin{document}

\begin{forest}
  red black,
  @+\rbtree
\end{forest}
\begin{forest}
  red black,
  squash,
  @+\rbtree
\end{forest}
\begin{forest}
  red black,
  squash,
  not distinct,
  s adjust'=4,
  l short'=10pt,
  @+\rbtree
\end{forest}
            
\end{document}

请注意，使用\rbtree纯粹是为了方便。除非您需要在多棵树中使用相同的内容，否则您应该忽略这一点，并以通常的方式指定您的树。它只是避免了重复，因为前三棵树具有相同的规格。

Answer 1