Un símbolo de una gráfica de una función sin usar TikZ y similares.

Question

De un libro de texto americano he visto este símbolo magenta cerca de la numeración de un ejercicio que me gustó tanto que representa una gráfica genérica de una función en un sistema de referencia cartesiano.

Investigué un poco pero no creo que exista ningún paquete que pueda generar este símbolo sin TikZ-pgf. Aquí está mi MWE sin la curva en la cuadrícula.

\documentclass[a4paper,12pt]{article}
\usepackage{xcolor}
\usepackage{amssymb}
\usepackage{relsize}
\begin{document}
$\textcolor{magenta}{\mathlarger{\boxplus}}$
\end{document}

No he encontrado un símbolo de curva para superponerlo al símbolo.

Answer 1

Puedes usar pict2e:

\documentclass{article}
\usepackage{xcolor,pict2e}

\newcommand{\usegraph}{%
  \begingroup\setlength{\unitlength}{0.16pt}%
  \begin{picture}(100,100)
  \color{magenta}
  \polygon(0,0)(100,0)(100,100)(0,100)
  \Line(50,0)(50,100)
  \Line(0,50)(100,50)
  \cbezier(0,0)(60,200)(40,0)(100,100)
  \end{picture}%
  \endgroup
}

\begin{document}

\usegraph

\end{document}

Una versión con una curva más gruesa:

\documentclass{article}
\usepackage{xcolor,pict2e}

\newcommand{\usegraph}{%
  \begingroup\setlength{\unitlength}{0.16pt}%
  \begin{picture}(100,100)
  \color{magenta}
  \polygon(0,0)(100,0)(100,100)(0,100)
  \Line(50,0)(50,100)
  \Line(0,50)(100,50)
  \linethickness{0.8pt}
  \cbezier(1,0)(60,200)(40,0)(99,100)
  \end{picture}%
  \endgroup
}

\begin{document}

\usegraph

\end{document}

Con el paquete (bastante nuevo) l3draw.

\documentclass{article}
\usepackage{xparse,l3draw,xcolor}

\ExplSyntaxOn

\NewDocumentCommand{\usegraph}{O{16pt}}
 {
  \raisebox{0pt}[#1][0pt]{\color{magenta}\egreg_usegraph:n { #1 }}
 }

\dim_new:N \l__egreg_usegraph_size_dim

\cs_new_protected:Nn \egreg_usegraph:n
 {
  \dim_set:Nn \l__egreg_usegraph_size_dim { #1 }
  \draw_begin:
  \draw_linewidth:n { 0.025*(#1) }
  \draw_path_moveto:n { 0\l__egreg_usegraph_size_dim , 0\l__egreg_usegraph_size_dim }
  \draw_path_lineto:n { 1\l__egreg_usegraph_size_dim , 0\l__egreg_usegraph_size_dim }
  \draw_path_lineto:n { 1\l__egreg_usegraph_size_dim , 1\l__egreg_usegraph_size_dim }
  \draw_path_lineto:n { 0\l__egreg_usegraph_size_dim , 1\l__egreg_usegraph_size_dim }
  \draw_path_close:
  \draw_path_use_clear:n { stroke }
  \draw_path_moveto:n { 0.5\l__egreg_usegraph_size_dim , 0\l__egreg_usegraph_size_dim }
  \draw_path_lineto:n { 0.5\l__egreg_usegraph_size_dim , 1\l__egreg_usegraph_size_dim }
  \draw_path_use_clear:n { stroke }
  \draw_path_moveto:n { 0\l__egreg_usegraph_size_dim , 0.5\l__egreg_usegraph_size_dim }
  \draw_path_lineto:n { 1\l__egreg_usegraph_size_dim , 0.5\l__egreg_usegraph_size_dim }
  \draw_path_use_clear:n { stroke }
  \draw_linewidth:n { 0.05*(#1) }
  \draw_path_moveto:n { 0.01\l__egreg_usegraph_size_dim , 0\l__egreg_usegraph_size_dim }
  \draw_path_curveto:nnn 
    { 0.6\l__egreg_usegraph_size_dim , 2\l__egreg_usegraph_size_dim }
    { 0.4\l__egreg_usegraph_size_dim , 0\l__egreg_usegraph_size_dim }
    { 0.99\l__egreg_usegraph_size_dim , 1\l__egreg_usegraph_size_dim }
  \draw_path_use_clear:n { stroke }
  \draw_end:
 }

\ExplSyntaxOff

\begin{document}

\usegraph\quad\usegraph[1em]\quad\usegraph[30pt]

\end{document}