{NULE}#! /usr/local/bin/perl -w use strict; my $fVRR = -2.3; my $fVRI = -1.0; my $fMaL = 0.05; for (my $i = 0; $i < 40; $i++) { my $fCI = $fVRI + $i * $fMaL; for (my $j = 0; $j < 60; $j++) { my $fCR = $fVRR + $j * $fMaL; my $fZR = $fCR; my $fZI = $fCI; my $bI = 1; for (0..255) { my $fZRS = $fZR * $fZR; my $fZIS = $fZI * $fZI; if ($fZRS + $fZIS > 4) { $bI = 0; last; } $fZI = 2 * $fZR * $fZI + $fCI; $fZR = $fZRS - $fZIS + $fCR; } print $bI?" ":"+"; } print "\n"; }
In reply to Re: (Golf) Mandelbrot Fractal
by {NULE}
in thread (Golf) Mandelbrot Fractal
by {NULE}
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |