如何绘制狄利克雷函数

如何绘制狄利克雷函数

我正在写一篇数学文档,我想添加狄利克雷函数的图形。我在谷歌上搜索类似的东西的 tikz 代码,但不幸的是我什么也没找到...

该图表就是图片中显示的内容: 在此处输入图片描述

我不知道如何在 tikz 中绘制它...我找到了一个链接https://github.com/MartinThoma/LaTeX-examples/blob/master/tikz/dirichlet-function/dirichlet-function.tex

虽然它被编译了...但图表却无处可见。

因此,如果有人能给我提供一个链接让我可以复制该 cody 或者为我绘制它,我会非常高兴...我知道这是一个很长的尝试!

答案1

对爆米花功能的修改。希望\psThomase@i将成为下一版本的一部分pst-func

\documentclass[]{article}
\pagestyle{empty}
\usepackage{pst-func}
\makeatletter
\def\psThomae@i(#1,#2)#3{%
  \addbefore@par{dotsize=1pt}
  \begin@ClosedObj
  \addto@pscode{
    1 1 #3 {
      dup 
      /ipSave ED    % save loop value
      /ip ED        % dito
      1 1 #3 {      
        dup     
        /iqSave ED  % save loop value
        /iq ED      % dito
        { 
          iq 0 le { exit } if
          ip iq mod 
          /ip iq def
          /iq ED 
        } loop
        ip 1 eq { 
          /xVal ipSave iqSave div def
          xVal #1 ge { xVal #2 lt {
            \pst@number\pslinewidth SLW
            \pst@usecolor\pslinecolor xVal 1 iqSave div \tx@ScreenCoor            
            2 copy pop 0 moveto lineto } if } if
        } if
      } for 
    } for
  }%
  \end@ClosedObj%
}
\makeatother
\begin{document}

\psset{unit=4cm}
\begin{pspicture}(-0.1,-0.2)(2.5,1.15)
    \psaxes{->}(0,0)(2.25,1.1)
    \psThomae[linewidth=1pt](0,2){200}
\end{pspicture}

\end{document}

在此处输入图片描述

相关内容