RUN
COMPILE
fn integrate(a, b) let e = 2.718281828459045 let h = ((b - a) / 1000.0) let aa = exp(e, (-1 * (a * a))) let bb = exp(e, (-1 * (b * b))) let sumOdds = 0 let i = 1 while (i < 1000.0) let v = (a + (i * h)) let vv = exp(e, (-1 * (v * v))) sumOdds = (sumOdds + vv) i = (i + 2) endwhile let sumEvens = 0 let j = 2 while (j < 1000) let w = (a + (j * h)) let ww = exp(e, (-1 * (w * w))) sumEvens = (sumEvens + ww) j = (j + 2) endwhile return ( (h / 3.0) * ( ( (aa + bb) + (4.0 * sumOdds) ) + (2.0 * sumEvens) ) ) endfn fn erf(z) return ((2.0 / (√ π)) * integrate(0.0, z)) endfn fn f(x) return ((0.5 * x) * (1.0 + erf( (x / (√ 2))))) endfn let k = 0 while (k < 100) let l = f(k) drawpixel(l, l, 255) k = (k + 0.1) endwhile
Official CA: 0x621b42906f560ef85ccbbbd6fa72dd0a07d91ada
Official CA: 0x621b42906f560ef85ccbbbd6fa72dd0a07d91ada
METAMASK NOT INSTALLED