diff options
| author | Ori Bernstein <ori@eigenstate.org> | 2014-09-18 16:38:52 -0400 |
|---|---|---|
| committer | Ori Bernstein <ori@eigenstate.org> | 2014-09-18 16:38:52 -0400 |
| commit | 093dd263b29bd0014d4869d7bca8520cc382952e (patch) | |
| tree | 5c02858ffadf9a87f21d3fc301f7b12a139bc9a8 /bench/mandelbrot.myr | |
| parent | 36a26aa671237ac768d99d0a30edc35fd10dffd0 (diff) | |
| download | mc-093dd263b29bd0014d4869d7bca8520cc382952e.tar.gz | |
Add mandelbrot benchmark.
Diffstat (limited to 'bench/mandelbrot.myr')
| -rw-r--r-- | bench/mandelbrot.myr | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/bench/mandelbrot.myr b/bench/mandelbrot.myr new file mode 100644 index 0000000..c97176d --- /dev/null +++ b/bench/mandelbrot.myr @@ -0,0 +1,54 @@ +use std +use bio + +const Bailout : flt64 = 16.0 +const Maxiter = 1000 + +const mandelbrot = {x, y + var cr, ci, zr, zi + var tmp, zr2, zi2 + var i : int + + cr = y - 0.5 + ci = x + zr = 0.0 + zi = 0.0 + + i = 0 + + while true + i++ + tmp = zr * zi + zr2 = zr * zr + zi2 = zi * zi + zr = zr2 - zi2 + cr + zi = tmp + tmp + ci + if zi2 + zr2 > Bailout + -> i + ;; + if i > Maxiter + -> 0 + ;; + ;; +} + +const main = {args : byte[:][:] + var x : flt64, y : flt64, i + var f + + f = bio.mkfile(1, bio.Wr) + for i = 0; i < 10; i++ + for y = -39.0; y < 39.0; y = y + 1.0 + for x = -39.0; x < 39.0; x = x + 1.0 + if mandelbrot(x/40.0, y/40.0) == 0 + bio.write(f, "*") + else + bio.write(f, " ") + ;; + ;; + bio.write(f, "\n") + ;; + ;; + bio.write(f, "\n") + bio.close(f) +} |