带标签的 pstricks 螺旋

Question

我正在尝试使用以下螺旋图形重新创建普斯特里克：

看起来应该像

我的第一个想法是使用像这样的对数函数邮政。但我不知道如何添加标签。

另一个想法是使用\pscurve。也许有人知道如何找出图形的点以使用该函数。

Answer 1

一个小的变体，带有阿基米德螺旋：

\documentclass[a4paper, pdf, svgnames]{article}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[f]{esvect}
\pagestyle{empty}

\usepackage{pstricks-add, pst-math, pst-func}
\usepackage{auto-pst-pdf} %% to compile with pdflatex --enable-write18 (MiKTeX) or pdflatex --shell-escape (TeX Live, MacTeX)

\begin{document}

\begin{pspicture}
\psset{plotpoints=200, labelsep=1ex}
\everypsbox{\sffamily}
\psplot[polarplot, arrows=*-, linecolor=Tomato, linewidth=1.2pt, dotsize=2.5pt,]{0}{440}{x 100 div}
\multido{\i = 180 + 40, \n = 1.8 + 0.4}{7}{\uput[\i](\n; \i){A\i}}
\end{pspicture}

\end{document} 

Answer 2

\documentclass[pstricks]{standalone}
\usepackage{pst-plot}
\begin{document}
\begin{pspicture}(-4,-4)(5,5)
\psparametricplot[linecolor=red,linewidth=2pt,plotpoints=1000]{0}{-510}%
  {t sin t DegtoRad 2 div mul t cos t DegtoRad 2 div mul }
\multido{\iA=180+40,\rA=-3.14+-0.698}{7}{%
    \rput*(! \rA\space neg dup RadtoDeg cos 1.5 div mul  
    \rA\space dup RadtoDeg sin 1.6 div mul){A$\iA$}}%
\end{pspicture}
\end{document}

Answer 3

由于已经发布了一些不错的 PStricks 答案，正如 OP 所要求的，我感到可以随意发布相同类型的图，这次使用 MetaPost，可能会对它感兴趣。得益于该luamplib软件包，代码包含在 LuaLaTeX 程序中。

\documentclass[12pt, border=3mm]{standalone}
\usepackage{luatex85, luamplib}
    \mplibsetformat{metafun}
    \mplibtextextlabel{enable}
\begin{document}
\begin{mplibcode}
u := cm;
path spirale;
beginfig(1);
  spirale = origin
    for t = 1 upto 420:
        hide(pair currentpoint; currentpoint = u*t/90*dir t;
                if (t >= 180) and ((t-180) mod 40 = 0):
                    freelabel("A" & decimal t, currentpoint, origin); fi)
        .. currentpoint
    endfor;
  draw spirale withcolor red;
endfig; 
\end{mplibcode}
\end{document}