Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Математика    >>    randpas
   
 
 Normal and Gaussian Distribution Random Generator  Unknown 03.04.1985

Простые генераторы случайных чисел с нормальным и Гауссовым законом распределения.



1k 
 

{ -> 35 } function randg(mean,sigma: real): real; { produce random numbers with a gaussian distribution } { MEAN and SIGMA are supplied by calling program } { function RANDOM is required !!! } var i : integer; sum : real; begin sum:=0.0; for i:=1 to 12 do sum:=sum+random(0); randg:=(sum-6)*sigma+mean end; { function randg }