AuK/Probabilistische Algorithmen SS10

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
'''Autoren:'''

#Mateusz Zwierz     ([mailto:simazwie@stud.hs-zigr.de simazwie@stud.hs-zigr.de])
#Hans Markwart      ([mailto:sihamark@stud.hs-zigr.de sihamark@stud.hs-zigr.de])

==Einleitung==

==Pseudozufallszahlen==
<code id="4c02583ebf3d3" hidden>
	(require-library 'sisc/libs/srfi/srfi-19)
	(import srfi-19)
</code>

<code id="4c02583ebfba4">
(define c 262144)

(define pszfzl
  (lambda (z)
    (let ((a 16807)(b 0))
      (if (eq? z 0) 
          4567
          (modulo (+ (* a (pszfzl (- z 1))) b) c)))))

(define randomize
  (lambda ()
    (/ (pszfzl (modulo (time-second (current-time)) c)) c)))

(define myrandom
  (lambda (n)
    (let ((a (randomize)))
      (* a n))))
</code>
<eval id="4c02583ec0377">
(randomize)
</eval>
==Monte-Carlo-Algorithmen==

==Las-Vegas-Algorithmen==

==Ant Colony Optimization==