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

Finish julia

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

6
Julia.fs
View file

@ -8,15 +8,15 @@ let generatePixel x y height width zoom rMax maxIter =
let c = MandelBrot.getComplexValueForPixel (float x) (float y) (float height) (float width) zoom
let z = Complex(-0.8, 0.156)
let rec findI i z =
let rec findI i c =
if i >= maxIter then i
else if Complex.Abs(z) >= (float rMax) then i
else if Complex.Abs(c) >= (float rMax) then i
else
let newRe = c.Real*c.Real - c.Imaginary*c.Imaginary
let newIm = 2.0 * c.Real * c.Imaginary
findI (i+1) (Complex(newRe, newIm)+z)
MandelBrot.colorMap (findI 0 (Complex(0.0, 0.0))) maxIter
MandelBrot.colorMap (findI 0 c) maxIter
let generate (width:int) height zoom rMax maxIter =
let result = new Bitmap(width, height)