Boston 2/boston-2.iso/DOS/PROGRAM/PASCAL/NRPAS/EXPDEV.PAS

Pascal/Delphi Source File | 1993-12-01 | 86b | 5 lines

FUNCTION expdev(VAR idum: integer): real;
BEGIN
   expdev := -ln(ran3(idum))
END;