' ******************************************************************
' This is another function to create random values having a
' normal distribution with a specified Mean and Standard Deviation
' by Erik Christensen  -- Adapted to BCX by Kevin Diggins 2002
' ******************************************************************

FUNCTION RandomNormalValue(Mean AS DOUBLE,SD AS DOUBLE) AS DOUBLE
LOCAL PI2# : PI2 = 6.2831853071796
FUNCTION = SQR(-2 * LOG(RND)) * COS(PI2 * RND) * SD + Mean
END FUNCTION


REPEAT 10
  PRINT RandomNormalValue#( 0.5, 0.01)
END REPEAT