Вложенные таблицы

Question

РЕДАКТИРОВАТЬ :Я добавил несколько примеров, чтобы проиллюстрировать то, что я хочу сделать.

Я хотел бы иметь возможность рисовать вложенные таблицы Юнга. Определение таблиц Юнга см.https://en.wikipedia.org/wiki/Young_tableau. Под вложенностью я подразумеваю то, что содержимое ячейки таблицы само по себе является таблицей. Например, мой результат должен выглядеть так:

В общем, строки и столбцы могут быть любой длины. Вот еще один пример, иллюстрирующий то, что я хочу уметь делать:

Поскольку мне также нужны таблоиды и столбчатые таблоиды, я рисую свои таблицы, используя метод, описанный в этом ответе (вместо пакетов ytableau или genyoungtabtikz):

таблоиды в колонках против таблоидов в строках

Однако я не привык к tikz, и он не работает так, как мне бы хотелось. Вот минимальный код для моего первого примера (я использовал \Tableau и \PTableau, чтобы компьютер не путал оба метода):

\documentclass{article}

\usepackage{tikz}

\newcount\tableauRow\newcount\tableauCol
\newcommand\Tableau[2]{%
  \begin{tikzpicture}[scale=#2,draw/.append style={thick,black},baseline=-4mm]
    \tableauRow=0
    \foreach \Row in {#1} {
       \tableauCol=1
       \foreach\k in \Row {
          \draw(\the\tableauCol,\the\tableauRow)+(-.5,-.5)rectangle++(.5,.5);
          \draw(\the\tableauCol,\the\tableauRow)node{\k};
          \global\advance\tableauCol by 1
       }
       \global\advance\tableauRow by -1
    }
  \end{tikzpicture}
}
\newcommand\PTableau[2]{%
  \begin{tikzpicture}[scale=#2,draw/.append style={thick,black},baseline=-4mm]
    \tableauRow=0
    \foreach \Row in {#1} {
       \tableauCol=1
       \foreach\k in \Row {
          \draw(\the\tableauCol,\the\tableauRow)+(-.5,-.5)rectangle++(.5,.5);
          \draw(\the\tableauCol,\the\tableauRow)node{\k};
          \global\advance\tableauCol by 1
       }
       \global\advance\tableauRow by -1
    }
  \end{tikzpicture}
}

\begin{document}

\[
\PTableau{{\Tableau{{1,2},{3,4}}{0.5},\Tableau{{5,6},{7,8}}{0.5}}}{1.5}
\]

\end{document}

С этим кодом результат выглядит вот так, а не так, как я хотел (я нарисовал это из-за проблем с компьютером, но он иллюстрирует проблему):

Что мне следует изменить в \PTableau, чтобы получить желаемый результат? И, главное, почему?

Answer 1

Не уверен, соответствует ли результат вашему представлению, но вот подход, использующий \pics, которые на самом деле не вложены, а наложены друг на друга так, что результат выглядит так, как будто они вложены:

\documentclass[border=10pt]{standalone}
\usepackage{tikz}

\tikzset{
    pics/tableau/.style={
        code={
            \tikzset{tableau/.cd, #1}
            \pgfmathsetmacro{\s}{\pgfkeysvalueof{/tikz/tableau/size}*1pt}
            \pgfmathsetmacro{\c}{\pgfkeysvalueof{/tikz/tableau/cols}}
            \begin{scope}[
                shift={(\pgfkeysvalueof{/tikz/tableau/at})},
            ]
                \foreach \n [count=\i from 0] in \tableaulist {
                    \path[\ifx\n\empty\else draw\fi] 
                        ({mod(\i,\c)*\s},{int(-1*\i/\c)*\s})
                            coordinate (-\i)
                            rectangle ++({\s},{-1*\s})
                            node[pos=0.5] (-n\i) { \n };
                }
            \end{scope}
        }
    },
    tableau/list/.store in=\tableaulist,
    tableau/list/.initial={1},
    tableau/cols/.initial={2},
    tableau/size/.initial={1},
    tableau/at/.initial={0,0}
}

\begin{document}
\begin{tikzpicture}

\pic (A) {tableau={list={1,{},9,10,11,{},12,{},20}, cols=3}};

\pic[tableau/size=0.5] (B) {tableau={list={2,3,{},8}, cols=2, at=A-1}};

\pic[tableau/size=0.25, font=\tiny] 
    {tableau={list={4,5,6,7}, cols=2, at=B-2}};

\pic[tableau/size=0.333, font=\tiny] 
    {tableau={list={13,14,15,16,17,18,{},{},19}, cols=3, at=A-7}};

\end{tikzpicture}
\end{document}