Rand := W; exit end; S := S + W; end; S := S * 1.54919; Rand := ( sqr(S) - 3.0 ) * S * 0.01 + S; end; begin R := Rand(0); for i := 1 to 200 do writeln( Rand(2):18:10) end. При n = 0 происходит параметрическая настройка или т.н. «установка». При n = 1 будем получать равномерно распределенную случайную величину. При n = 2 будет гауссово (нормальное) распределение. ["всем, пожалуйста, поиграться с этим алгоритмом и построить график" (с) by Рудаков]
|