joachim/fsharp-mandelbrot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WIP julia

Browse source
This commit is contained in:
joachimschmidt557 2019-02-09 22:10:15 +01:00
parent 880370c5e6
commit a0b4e19007
8 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
MandelBrot.fs
View file

@ -66,8 +66,7 @@ let generatePixel x y height width zoom rMax maxIter =
let rec findI i z =
if i >= maxIter then i
else if Complex.Abs(z) >= (float rMax) then i
//else findI (i+1) (z*z+c)
else findI (i+1) (Complex.Add(c, (Complex.Multiply(z, z))))
else findI (i+1) (c+z*z)
colorMap (findI 0 (Complex(0.0, 0.0))) maxIter