Creando un nuevo comando para dibujar bloques de base diez

Question

IgnacioHice un gran código para bloques de base diez y he estado intentando usarlo para generar automáticamente representaciones 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} ;
        }
    }

Aquí hay un código que hice para generar el 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 la parte...

Aunque era muy complicado y estaba creado en Excel.

Me encantaría que un código como \basetenpic{7}{3}ese creara automáticamente una imagen similar. (Donde el valor de las unidades va primero para permitir más posiciones de valor posicional, así \basetenpic{2}{0}{3}se formaría una imagen con 3 centenas seguidas de 2 unidades...)

¿Alguien tiene alguna idea?

Answer 1

Adaptaciones

• longitudes definidas \unitsizey\unitsep
• utilizar foreachpara dibujar nodos
• use \ifnumgreater{\tens}{0}{}{}etc. para comprobar si qué bloques deben dibujarse
• También pensé en usar solo el número como parámetro, como una extensión, pero luego vi que esto ya está hecho en la respuesta de Jasper. Así que acabo de agregar una función contenedora \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

Creo que un enfoque aún mejor que tener una macro que acepte uno, dos o tres argumentos sería simplemente dejar que PGF haga los cálculos. De esta manera, simplemente escriba números arbitrarios entre 1 y 999 en el argumento único de la macro \basetenpicy el número de cuadros se calculará automáticamente.

Probablemente también ajustaría los tamaños de las cajas y los espacios para que 10 cajas más pequeñas (incluidos los espacios) tengan el mismo ancho o alto que una caja más grande. (Por supuesto, como señaló @dexteritas, no es posible hacer coincidir las áreas de los diferentes cuadros y los valores que representan y, al mismo tiempo, tener 10 cuadros individuales, incluidos los espacios, coinciden con la altura de 1 cuadro diez .)

Lo siguiente generaría dichos cuadros. Es posible que desees diseñar los diferentes cuadros según tu gusto, por ejemplo, llenarlos de amarillo o lo que sea. La macro toma un argumento opcional para agregar opciones personalizadas al 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}

La respuesta original a la que vincula crea un pic, mientras que esta solución genera un archivo tikzpicture. Pero no es demasiado complicado convertir uno en otro.

---

Si elimina los espacios, las áreas de las cajas tendrán la relación exacta entre sí (es decir, la caja para las decenas será 10 veces el área de una caja pequeña, etc.). Sin embargo, en aras de la coherencia, eliminaría todas las lagunas. Puede cambiar la \tikzsetparte del MWE anterior de la siguiente manera:

\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 ejemplo: