Um símbolo de um gráfico de uma função sem usar TikZ e similares

Question

Num livro americano vi este símbolo magenta próximo à numeração de um exercício que gostei tanto que representa um gráfico genérico de uma função em um sistema de referência cartesiano.

Fiz algumas pesquisas, mas não acho que exista nenhum pacote que possa gerar esse símbolo sem TikZ-pgf. Aqui está meu MWE sem a curva na grade.

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

Não encontrei um símbolo de curva para se sobrepor ao símbolo.

Answer 1

Você pode 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}

Uma versão com curva mais espessa:

\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}

Com o pacote (bastante novo) 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}