/usr/share/genius/examples/complex-analysis-mandelbrot-set.gel is in genius-common 1.0.23-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | # Category: Complex Analysis
# Name: Mandelbrot set
#
# Draw the Mandelbrot set
#
iterations = 30;
LinePlotWindow = [-2,2,-2,2];
LinePlotDrawLegends = false;
PlotWindowPresent(); # Make sure the window is raised
points = null;
k=1;
function DrawThePlot () = (
PlotCanvasFreeze ();
LinePlotClear ();
LinePlotDrawPoints (points, "color", "green", "thickness", 3);
PlotCanvasThaw ();
);
for x = -2.0 to 2.0 by 0.02 do (
for y = -2.0 to 2.0 by 0.02 do (
c = z = x+1i*y;
for m=0 to iterations do (
z = z^2+c;
if |z| >= 2.0 then break
);
if m == iterations then
points = [points;c];
increment k;
# every 500's point display intermediate picture
if k % 500 == 0 then
DrawThePlot()
)
);
DrawThePlot();
|