"noise" in sin-Funktion (PSTricks)

[LordSnyder]

Hallo ich möchte gerne eine Sinusfunktion mit einem bestimmten "noise" abbilden. Die Funktion soll also zufällig kleine Ausschläge haben.

Dazu habe ich mir mal die Vorlage von Herbert Voss genommen und versucht, es abzuwandeln. Jedoch bekomme ich nur Fehler bei der Erzeugung mit Postscript.

Ich kann mir aber nicht erklären, was an der Verwendung der Zufallszahlen falsch sein soll.

Evtl. hilft der Code:


\documentclass{article}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[ngerman]{babel}
\usepackage{amsmath}
\usepackage{pstricks}
\usepackage{pst-plot}
\title{Offset}

\begin{document}

\pstVerb{

/randReal { rand 2.147483647e09 div } def

rrand srand

}

\psset{xunit=1cm, yunit=1cm, runit=1cm}
\begin{figure}
\begin{pspicture}(0,0)(10,10)
\psaxes[axesstyle=axes,linewidth=1.5pt]{->}(0,0)(0,-1)(9,4)
\pstVerb{ 987654321 srand }
\psplot[linecolor=black,linewidth=1.5pt]{0}{9}{x rrandReal div 2 div RadtoDeg sin}
\end{pspicture}
\end{figure}

\end{document}

Vielen Dank schon mal für eure Hilfe.

[mechanicus]

Hi,


\documentclass{article}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[ngerman]{babel}
\usepackage{amsmath}
\usepackage{pstricks}
\usepackage{pst-plot}
\title{Offset}

\begin{document}


\psset{xunit=1cm, yunit=1cm, runit=1cm}
\begin{figure}
\begin{pspicture}(0,0)(10,10)
\pstVerb{
/randReal { rand 2.147483647e09 div } def
rrand srand
}
\psaxes[axesstyle=axes,linewidth=1.5pt]{->}(0,0)(0,-1)(9,4)
\pstVerb{ 987654321 srand }
\psplot[linecolor=black,linewidth=1.5pt]{0}{9}{x randReal div 2 div RadtoDeg sin}
\end{pspicture}
\end{figure}

\end{document}

Gruß
Marco

[voss]

Hallo ich möchte gerne eine Sinusfunktion mit einem bestimmten "noise" abbilden. Die Funktion soll also zufällig kleine Ausschläge haben.



\documentclass{article}
\usepackage{pst-plot}

\begin{document}

\begin{pspicture}(0,-1.5)(10,1.5)
\psaxes[axesstyle=axes]{->}(0,0)(0,-2)(9,2)
\psplot[linecolor=blue,linewidth=1.5pt,plotpoints=200]
{0}{9}
[ rrand srand ]
{x RadtoDeg sin Rand Rand 0.5 gt {add}{sub}ifelse}
\end{pspicture}

\end{document}

Herbert

[LordSnyder]

Vielen, vielen Dank für die Vorlagen, das hat mir sehr geholfen.

Viele Grüße.