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

choose different points for the example

Browse Source
This commit is contained in:
Michael Pilosov 2024-05-18 02:00:01 +00:00
parent 32cdc46325
commit 0c1498809a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Main.hs
View File

@ -11,8 +11,8 @@ main = do
let numData = 100 let numData = 100
let mesh = [-1, -0.995 .. 1] let mesh = [-1, -0.995 .. 1]
lam_lg <- generateUniformPoints 1000 (-1.0, 1.0) lam_lg <- generateUniformPoints 1000 (-1.0, 1.0)
let trueValue = 0.1 let trueValue = 0.2
let noiseLevel = 0.121 let noiseLevel = 0.15
noise <- generateNormalPoints numData 0 noiseLevel noise <- generateNormalPoints numData 0 noiseLevel
let d = replicate numData trueValue let d = replicate numData trueValue
let noisyData = zipWith (+) d noise let noisyData = zipWith (+) d noise