How to draw a Catalan number diagram on TikZ
An idea:
\documentclass[border=2mm]{standalone}
\usepackage{tikz}
\newcommand\catalannumber[3]{
% start point, size, Dyck word (size x 2 booleans)
\fill[cyan!25] (#1) rectangle +(#2,#2);
\fill[fill=lime]
(#1)
\foreach \dir in {#3}{
\ifnum\dir=0
-- ++(1,0)
\else
-- ++(0,1)
\fi
} |- (#1);
\draw[help lines] (#1) grid +(#2,#2);
\draw[dashed] (#1) -- +(#2,#2);
\coordinate (prev) at (#1);
\foreach \dir in {#3}{
\ifnum\dir=0
\coordinate (dep) at (1,0);
\else
\coordinate (dep) at (0,1);
\fi
\draw[line width=2pt,-stealth] (prev) -- ++(dep) coordinate (prev);
};
}
\begin{document}
\begin{tikzpicture}
\catalannumber{0,0}{4}{0,1,0,0,1,1,0,1};
\catalannumber{0,-9}{8}{0,1,0,0,1,1,0,0,0,0,1,1,0,1,1,1};
\end{tikzpicture}
\end{document}
Version with all Dyck numbers:
\documentclass{article}
\usepackage[margin=1cm]{geometry}
\usepackage{tikz}
\usepackage{ifthen}
\pagestyle{empty}
\newcommand\catalannumber[3]{
% start point, size, Dyck word (size x 2 booleans)
\fill[cyan!25] (#1) rectangle +(#2,#2);
\fill[fill=lime]
(#1)
\foreach \dir in {#3}{
\ifnum\dir=0
-- ++(1,0)
\else
-- ++(0,1)
\fi
} |- (#1);
\draw[help lines] (#1) grid +(#2,#2);
\draw[dashed] (#1) -- +(#2,#2);
\coordinate (prev) at (#1);
\foreach \dir in {#3}{
\ifnum\dir=0
\coordinate (dep) at (1,0);
\tikzset{label/.style={below}};
\else
\coordinate (dep) at (0,1);
\tikzset{label/.style={left}};
\fi
\draw[line width=2pt,-stealth] (prev) --
++(dep) coordinate (prev);
};
}
\newcommand\genallcatalannumbers[6]{%
\pgfmathtruncatemacro{\steps}{#4+#5}%
\ifthenelse{#3>\steps}{%
\ifthenelse{#5<#4}{%
{%
\ifthenelse{#4<#2}{%
\pgfmathtruncatemacro{\nbzero}{#4+1}%
\genallcatalannumbers{#1}{#2}{#3}{\nbzero}{#5}{#6,0}%
}{}%
}%
{%
\pgfmathtruncatemacro{\nbone}{#5+1}%
\genallcatalannumbers{#1}{#2}{#3}{#4}{\nbone}{#6,1}%
}%
}{%
\pgfmathtruncatemacro{\nbzero}{#4+1}%
\genallcatalannumbers{#1}{#2}{#3}{\nbzero}{#5}{#6,0}%
}%
}{%
\begin{tikzpicture}[myscale]
\catalannumber{#1}{#2}{#6}
\end{tikzpicture} %
}%
}
\newcommand\allcatalannumbers[2]{%
\pgfmathtruncatemacro{\nbsteps}{2*#2}%
\genallcatalannumbers{#1}{#2}{\nbsteps}{1}{0}{0}%
}
\begin{document}
\begin{enumerate}
\foreach \num in {1,...,5}{
\item%{\LARGE\bfseries \num}
\tikzset{myscale/.style={scale=2/\num}}
\noindent\allcatalannumbers{0,0}{\num}\par
}
\end{enumerate}
\end{document}
As TikZ runs slower than PSTricks and I don't know how to write a recursive function in PSTricks, I was forced to make use of an external application executed from within LaTeX by \write18 macro.
If you compile the following C# source code
// This is CatalanLocator.cs
using System.Collections.Generic;
using System.IO;
namespace CatalanLocator
{
class Program
{
static void Populate(List<bool> set, int m, int n)
{
if (m == 0)
{
if (n == 0)
{
using (StreamWriter sw = new StreamWriter("data.txt", true))
{
sw.Write("{");
int x;
for (x = 0; x < set.Count - 1; x++)
sw.Write("{0},", set[x] ? 1 : 0);
sw.WriteLine("{0}}}", set[x] ? 1 : 0);
}
}
else
{
List<bool> temp = new List<bool>(set);
temp.Add(true);
Populate(temp, m, n - 1);
}
}
else
{
if (m == n)
{
List<bool> temp = new List<bool>(set);
temp.Add(false);
Populate(temp, m - 1, n);
}
else
{
List<bool> temp1 = new List<bool>(set);
temp1.Add(false);
Populate(temp1, m - 1, n);
List<bool> temp2 = new List<bool>(set);
temp2.Add(true);
Populate(temp2, m, n - 1);
}
}
}
static void Main(string[] args)
{
int N = int.Parse(args[0]);
Populate(new List<bool>(), N, N);
}
}
}
with csc CatalanLocator.cs, you will get an executable file named CatalanLocator.exe.
Executing CatalanLocator 6 manually, for example, from DOS prompt, will produce a text file named data.txt. It contains rows of sets of binary numbers. Each set represent a Catalan's path. (Catalan's path is my own terminology. Wikipedia might not have such a definition.)
However, I prefer to execute CatalanLocator from a LaTeX input file as described in the following code:
% CatalanDiagram.tex
\documentclass{article}
\usepackage{pstricks-add}
\usepackage[active,tightpage]{preview}
\PreviewBorder=12pt
\PreviewEnvironment{pspicture}
\newcounter{oX}% old x
\newcounter{oY}% old y
\newcounter{nX}% new x
\newcounter{nY}% new y
\newcounter{N}% N by N grid
\newcommand\CatalanPath[2][-]
{
% reset all counters
\setcounter{nX}{0}\setcounter{nY}{0}\setcounter{oX}{0}\setcounter{oY}{0}
% please make sure there is no blank line allowed in \psforeach
\psforeach{\i}{#2}
{
\ifnum\i=0
\stepcounter{nX}% move to the right
\else
\stepcounter{nY}% move upward
\fi
%
% draw a single segment
\psline[arrows=#1,linewidth=1pt](\theoX,\theoY)(\thenX,\thenY)
%
% renew the old counters
\setcounter{oX}{\value{nX}}
\setcounter{oY}{\value{nY}}
}
}
\newcommand\CatalanDiagram[1]
{
% probe the given Catalan's set and find the corresponding grid dimension
\setcounter{N}{0}\psforeach{\i}{#1}{\stepcounter{N}}\setcounter{N}{\numexpr\theN/2\relax}
\begin{pspicture}(\theN,\theN)
{
\psset{fillstyle=solid,linestyle=none,opacity=0.5}
% fill the upper region
\pscustom[fillcolor=cyan]{\CatalanPath{#1}\psline(\thenX,\thenY)(0,\thenY)}
% fill the lower region
\pscustom[fillcolor=yellow]{\CatalanPath{#1}\psline(\thenX,\thenY)(\thenX,0)}
}
% draw grid
\psgrid[style=gridstyle,gridlabels=0pt]
% draw a diagonal line
\psline[linestyle=dashed,dash=3pt 1.5pt,linecolor=red](\theN,\theN)
% draw Catalan path
\CatalanPath[->]{#1}
\end{pspicture}
}
\newread\myfile
\def\temp#1{\CatalanDiagram{#1}}
\begin{document}
\immediate\write18{cmd /C del data.txt}
\immediate\write18{CatalanLocator.exe 6}
\openin\myfile=data.txt\relax
\loop
\read\myfile to \j
\unless\ifeof\myfile
\expandafter\temp\j\relax
\repeat
\closein\myfile
\end{document}
Executing latex --shell-escape CatalanDiagram followed by dvips CatalanDiagram followed by ps2pdf CatalanDiagram.ps produces CatalanDiagram.pdf.
The following GIF image is the animated 6 by 6 Catalan diagram. I intentionally made it very small to save your bandwidth.
Just for fun... a randomized version based on PolGab's first answer.
\documentclass{article}
\usepackage{tikz}
\usetikzlibrary{backgrounds}
\pgfdeclarelayer{mylayer}
\pgfsetlayers{background,mylayer,main}
\usepackage{etoolbox}
% counters to check movements
\newcounter{up}
\newcounter{rightp}
\newcommand\catalannumber[2]{
\setcounter{up}{0}
\setcounter{rightp}{0}
% start point, size
\begin{pgfonlayer}{background}
\fill[cyan!25] (#1) rectangle +(#2,#2);
\end{pgfonlayer}
\draw[help lines] (#1) grid +(#2,#2);
\draw[dashed] (#1) -- +(#2,#2);
\coordinate (prev) at (#1);
\pgfmathtruncatemacro\dim{#2*2}
\foreach \x in {1,...,\dim}{
\pgfmathtruncatemacro\dir{round(rand)}
% first case
\ifnum\x=1
\pgfmathtruncatemacro\dir{0}
\fi
% normal behaviour
\ifnumodd{\x}{
% check number of up to not exceed the diagonal
\pgfmathtruncatemacro\numupadmitted{\x/2}%
\ifnum\numupadmitted=\theup
\pgfmathtruncatemacro\dir{0}
\fi
}{}
% check number of rightp to not exceed the border
\ifnum\therightp=#2
\pgfmathtruncatemacro\dir{1}
\fi
% movements
\ifnum\dir=0
\coordinate (dep) at (1,0);
\stepcounter{rightp}
\else
\coordinate (dep) at (0,1);
\stepcounter{up}
\fi
\draw[line width=2pt,-stealth] (prev) -- ++(dep) node(a\x){} coordinate (prev){};
}
\begin{pgfonlayer}{mylayer}
\fill[orange!25](#1)
\foreach \x in {1,...,\dim}{
--(a\x.center)
}|-(#1);
\end{pgfonlayer}
}
\begin{document}
\begin{tikzpicture}
\catalannumber{0,0}{7};
\catalannumber{0,-10}{9};
\end{tikzpicture}
\end{document}
