Символ графика функции без использования TikZ и подобных

Question

В одном американском учебнике я увидел этот пурпурный символ рядом с нумерацией упражнения, который мне так понравился, что он представляет собой обобщенный график функции в декартовой системе отсчета.

Я провел некоторые исследования, но не думаю, что есть какой-либо пакет, который может генерировать этот символ без TikZ-pgf. Вот мой MWE без кривой в сетке.

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

Я не нашел символа кривой, который можно было бы совместить с символом.

Answer 1

Вы можете использовать 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}

Версия с более толстым изгибом:

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

С (довольно новым) 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}