mm/MUD.hs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Pilosov 2024-05-18 20:59:44 +00:00
parent 6193828258
commit 6eee88fd4c
2 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/AcceptReject.hs
View File

@ -30,4 +30,3 @@ main = do
normalPointsAR <- generateNormalPointsAR 10 0 1 normalPointsAR <- generateNormalPointsAR 10 0 1
putStrLn "Normal distribution points (Acceptance-Rejection):" putStrLn "Normal distribution points (Acceptance-Rejection):"
print normalPointsAR print normalPointsAR

1
src/RandomUtils.hs
View File

@ -22,4 +22,3 @@ boxMullerTransform mu sigma (u1:u2:us) =
z1 = sqrt (-2 * log u1) * sin (2 * pi * u2) z1 = sqrt (-2 * log u1) * sin (2 * pi * u2)
in (mu + z0 * sigma) : (mu + z1 * sigma) : boxMullerTransform mu sigma us in (mu + z0 * sigma) : (mu + z1 * sigma) : boxMullerTransform mu sigma us
boxMullerTransform _ _ _ = [] -- If input list is not in pairs, return empty list boxMullerTransform _ _ _ = [] -- If input list is not in pairs, return empty list