Criando um novo comando para desenhar blocos de base dez

Question

Ignasicriei um ótimo código para blocos de base dez e tenho tentado usá-lo para gerar automaticamente representações de números de 2 dígitos.

%%Base 10 Blocks
\tikzset {
    node distance=.1cm,
    hundred/.style={
        draw,
        minimum size=1cm,
        inner sep=0pt
        },
    tenv/.style={
        line width=0.1mm,
        fill=red,
        draw,
        minimum height=1cm,
        minimum width=0.1cm,
        inner sep=0pt,
    },
    tenthh/.style={
        draw,
        minimum height=0.1cm,
        minimum width=1cm,
        inner sep=0pt,
    },
    unitone/.style={
         line width=0.1mm,
        draw,
        minimum size=0.1cm,
        inner sep=0pt,
    },
   base graph/.pic={
        \node[hundred] (00) {};
        \node[hundred, below=of 00] (10) {};
        \node[tenthh, below=of 10] (20) {};
        \foreach \i [count=\xi, remember=\xi as \lasti (initially 0)] in {1,2,3,4} 
          \node[tenv, right=of 0\lasti] (0\xi) {};         
        \path (00.north west) -- (20.south west) node[midway, left] {2.1} ;
        \path (00.north west) -- (04.north east) node[midway, above] {1.4} ;
        }
    }

Aqui está um código que fiz para gerar o número 37

 \begin{center} \begin{tikzpicture}[transform canvas={scale=3}]
 \foreach \y in {-0.95,-0.85,...,-0.35}{
 \node[unitone] at (0.1,\y){};}
 \foreach \x in {-0.5,-0.3,...,-0.1}{
 \node[tenv] at (\x,-0.5){};}
 \end{tikzpicture}\end{center}

Parece a parte ...

Embora tenha sido muito complicado e criado em Excel.

Eu adoraria que um código como \basetenpic{7}{3}esse criasse automaticamente uma imagem semelhante. (Onde o valor das unidades vai primeiro para permitir mais posições de valor posicional, assim \basetenpic{2}{0}{3}faria uma imagem com 3 centenas seguidas de 2 unidades...)

Alguém tem alguma idéia?

Answer 1

Adaptações

• comprimentos definidos \unitsizee\unitsep
• use foreachpara desenhar nós
• use \ifnumgreater{\tens}{0}{}{}etc. para verificar quais blocos devem ser desenhados
• Também pensei em usar apenas o número como um parâmetro, como uma extensão, mas depois vi que isso já está feito na resposta do Jasper. Então, acabei de adicionar uma função wrapper \basetenpicx{<number>}.

Resultado

Código

\documentclass{article}

\usepackage{etoolbox}
\usepackage{tikz}

\newlength{\unitsize}
\setlength{\unitsize}{3mm}

\newlength{\unitsep}
\setlength{\unitsep}{3mm}

% Base 10 Blocks
\tikzset {
    node distance=\unitsep,
    hundred/.style={
        draw,
        fill=yellow,
        anchor=south west,
        minimum size=10*\unitsize,
        inner sep=0pt
    },
    tenv/.style={
        anchor=south west,
        line width=0.1mm,
        fill=red,
        draw,
        minimum height=10*\unitsize,
        minimum width=\unitsize,
        inner sep=0pt,
    },
    tenthh/.style={
        anchor=south west,
        draw,
        minimum height=\unitsize,
        minimum width=10*\unitsize,
        inner sep=0pt,
    },
    unitone/.style={
        anchor=south west,
        line width=0.1mm,
        draw,
        minimum size=\unitsize,
        inner sep=0pt,
    },
}

\newcommand{\basetenpic}[3]{
    \edef\ones{#1}
    \edef\tens{#2}
    \edef\hundreds{#3}
    \begin{tikzpicture}
        % uncomment this to have the same height
        %\node[inner sep=0pt] at (0,10*\unitsize) {};
        % one
        \ifnumgreater{\ones}{0}{
            \foreach \i in {1, ..., \ones}{
                \node[unitone] at ({\hundreds*(10*\unitsize+\unitsep) + \tens*(\unitsize+\unitsep)}, {(\i-1)*\unitsize}) {};
            }
        }{}
        % ten
        \ifnumgreater{\tens}{0}{
            \foreach \i in {1, ..., \tens}{
                \node[tenv] at ({\hundreds*(10*\unitsize+\unitsep) + (\i-1)*(\unitsize+\unitsep)}, 0) {};
            }
        }{}
        % hundret
        \ifnumgreater{\hundreds}{0}{
            \foreach \i in {1, ..., \hundreds}{
                \node[hundred] at ({(\i-1)*(10*\unitsize+\unitsep)}, 0) {};
            }
        }{}
    \end{tikzpicture}   
}

\newcommand{\basetenpicx}[1]{
    \pgfmathtruncatemacro{\ones}{mod(#1, 10)}
    \pgfmathtruncatemacro{\tens}{mod(#1 - \ones, 100)/10}
    \pgfmathtruncatemacro{\hundreds}{mod(#1 - \tens - \ones, 1000)/100}
    \basetenpic{\ones}{\tens}{\hundreds}
}

\begin{document}

\obeylines
\verb|\basetenpic{7}{0}{0}|:
\basetenpic{7}{0}{0}

\verb|\basetenpic{7}{3}{0}|:
\basetenpic{7}{3}{0}

\verb|\basetenpicx{203}|:
\basetenpicx{203}

\verb|\basetenpicx{60}|:
\basetenpicx{60}

\end{document}

Answer 2

Eu acho que uma abordagem ainda melhor do que ter uma macro que aceite um, dois ou três argumentos seria apenas deixar o PGF fazer as contas. Dessa forma, basta digitar números arbitrários entre 1 e 999 no único argumento da macro \basetenpice o número de caixas será calculado automaticamente.

Eu provavelmente também ajustaria os tamanhos das caixas e lacunas para que 10 caixas menores (incluindo as lacunas) tivessem a mesma largura ou altura de uma caixa maior. (Claro, como @dexteritas apontou, não é possível combinar as áreas das diferentes caixas e os valores que elas representam e, ao mesmo tempo, ter 10 caixas simples, incluindo as lacunas, correspondendo à altura de 1 caixa dez .)

O seguinte geraria essas caixas. Você pode estilizar as diferentes caixas de acordo com seu gosto, por exemplo, preenchê-las com amarelo ou qualquer outra coisa. A macro usa um argumento opcional para adicionar opções personalizadas ao tikzpictureestilo:

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

\tikzset{
    basetenpic/.style={
        node distance=0.05cm,
        every node/.style={
            draw,
            line width=0.01cm,
            inner sep=0pt,
        },
        hundreds/.style={
            % = 10 x height of boxes + 9 x line width + 9 x gap
            % = 10 x 0.1cm + 9 x 0.01cm + 9 x 0.05cm
            minimum size=1.54cm,
        },
        tens/.style={
            minimum height=1.54cm,
            minimum width=0.1cm,
        },
        ones/.style={
            minimum size=0.1cm,
        }
    }
}

\newcounter{boxcount}
\newcommand{\basetenpic}[2][]{
    \pgfmathtruncatemacro{\ones}{mod(#2, 10)}
    \pgfmathtruncatemacro{\tens}{mod(#2 - \ones, 100)/10}
    \pgfmathtruncatemacro{\hundreds}{mod(#2 - \tens - \ones, 1000)/100}
    \setcounter{boxcount}{0}
    \begin{tikzpicture}[basetenpic, #1]
        \coordinate (n0) at (0,0);
        \ifnum\hundreds>0\relax
            \foreach \i [evaluate={\theboxcount as \lastboxcount}] in {1,...,\hundreds} {
                \stepcounter{boxcount}
                \node[right=of n\lastboxcount, hundreds] (n\theboxcount) {};
            }
        \fi
        \ifnum\tens>0\relax
            \foreach \i [evaluate={\theboxcount as \lastboxcount}] in {1,...,\tens} {
                \stepcounter{boxcount}
                \node[right=of n\lastboxcount, tens] (n\theboxcount) {};
            }
        \fi
        \ifnum\ones>0\relax
            \foreach \i [evaluate={\theboxcount as \lastboxcount}] in {1,...,\ones} {
                \stepcounter{boxcount}
                \ifnum\i=1\relax
                    \node[right=of n\lastboxcount.south east, anchor=south west, ones] (n\theboxcount) {};
                \else
                    \node[above=of n\lastboxcount, ones] (n\theboxcount) {};
                \fi
            }
        \fi
    \end{tikzpicture}
}

\begin{document}
    
\basetenpic{26}

\basetenpic{302}

\basetenpic[hundreds/.append style={fill=yellow}]{137}

\end{document}

A resposta original à qual você vincula cria um pic, enquanto esta solução gera um arquivo tikzpicture. Mas não é muito complicado converter um no outro.

---

Se você remover as lacunas, as áreas das caixas terão a relação exata entre si (ou seja, a caixa das dezenas será 10 vezes a área de uma caixa pequena, etc.). Gostaria, no entanto, por uma questão de consistência, de eliminar todas as lacunas. Você pode alterar a \tikzsetparte do MWE acima da seguinte forma:

\tikzset{
    basetenpic/.style={
        % = minus half the line width    
        node distance=-0.005cm,
        every node/.style={
            draw,
            line width=0.01cm,
            inner sep=0pt,
        },
        hundreds/.style={
            minimum size=1cm,
        },
        tens/.style={
            minimum height=1cm,
            minimum width=0.1cm,
        },
        ones/.style={
            minimum size=0.1cm,
        }
    }
}

Resultado de exemplo: