summaryrefslogtreecommitdiff
path: root/info/examples/lgc/4-10-5.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/lgc/4-10-5.ltx')
-rw-r--r--info/examples/lgc/4-10-5.ltx46
1 files changed, 46 insertions, 0 deletions
diff --git a/info/examples/lgc/4-10-5.ltx b/info/examples/lgc/4-10-5.ltx
new file mode 100644
index 0000000000..b4ede3f1ee
--- /dev/null
+++ b/info/examples/lgc/4-10-5.ltx
@@ -0,0 +1,46 @@
+\documentclass{ppex}
+\nonstopmode
+\usepackage {pstcol,multido}
+\pagestyle{empty}
+\setlength\textwidth{183.0pt}
+\begin{document}
+\ResetPreambleCommands
+\ReadyForTheFray
+\usepackage {pstcol,multido}
+\input random.tex
+\newdimen\X \newdimen\Y\newdimen\Coor
+% #1 is number of steps
+\newcommand{\RandomWalk}[1]{%
+\setrandim\X{0pt}{1pt}
+\setrandim\Y{0pt}{1pt}
+\psdots[dotstyle=*,dotsize=6pt]
+ (\pointless\X,\pointless\Y)
+\pscustom{%
+ \moveto(\pointless\X,\pointless\Y)
+ \multido{\i=1+1}{#1}{%
+ \MoveCoordinate{\X}
+ \MoveCoordinate{\Y}
+ \lineto(\pointless\X,\pointless\Y)}}}
+% Computation of new horizontal
+% or vertical position of point
+\newcommand{\MoveCoordinate}[1]{%
+ \setrandim\Coor{-0.03pt}{0.03pt}
+ \advance #1 by \Coor
+ \ifdim#1>1pt #1=1pt \fi
+ \ifdim#1<0pt #1=0pt \fi
+}
+\newcommand{\randomdemo}[2]{{%
+ \psframe[linewidth=0.6mm](1,1)
+ \rput(#1,#2){\RandomWalk{300}}
+ \psset{linecolor=red}
+ \rput(#1,#2){\RandomWalk{200}}
+ \psset{linecolor=green}
+ \rput(#1,#2){\RandomWalk{100}}
+}}
+\psset{unit=5,dimen=middle}
+\framebox{\begin{pspicture}(1,3)
+ \randomdemo{0}{0}
+ \randomdemo{0}{1}
+ \randomdemo{0}{2}
+\end{pspicture}}
+\end{document}