Náhodné číslo

Funkce generuje pseudonáhodná čísla s pomocí hodnoty systémové proměnné DATE. Výstupem je číslo v intervalu od 0 do 1.

---

(defun rnd (/ modulus multiplier increment random)
  (if (not seed)
    (setq seed (getvar "DATE"))
  )
  (setq modulus    65536
        multiplier 25173
        increment  13849
        seed  (rem (+ (* multiplier seed) increment) modulus)
        random     (/ seed modulus)
  )
)

---

Soubor ke stažení