\documentclass{scrartcl}
\usepackage{color}
\usepackage{multicol}
\usepackage[final]{graphicx}
\usepackage{pst-plot,pstricks}
	\input{pstplot-logarithmic-axes}
\begin{document}
	\psset{xunit=0.1cm,yunit=1cm}
	\begin{pspicture}(-5,-0.5)(105,3.5)
		\psgrid[xunit=5,yunit=1,subgriddiv=0,griddots=5,gridlabels=0](0,0)(21,3)
		\psaxes[Dx=20,Dy=5]{->}(0,0)(-5,-0.5)(105,3.5)
		\psplot[plotstyle=curve,linecolor=green]{0}{20}{x 100 div 180 mul sin x 100 div 180 mul sin mul 3 mul}
		\psplot[plotstyle=curve]{20}{100}{x 100 div 180 mul sin x 100 div 180 mul sin mul 3 mul}
		\rput[r](-3,3.5){$\left|\underline{H}\left(f\right)\right|$}
		\rput[l](110,0.5){$\frac{f}{kHz}$}
	\end{pspicture}
\end{document}
