|
|||
Скачать Normal and Gaussian Distribution Random Generator
03.04.1985 { -> 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 } | |||
© 2009–2024 Russian Pascal Developer Network.
Техническая площадка: ISBIZ Хостинг |