App-GUI-Juliagraph
view release on metacpan or search on metacpan
just mathematical diagrams, showing you how iterating the equation
"z_n+1 = z_n ** 2 + C" behaves on the complex plane. Our running
variable gets an initial value and gets squared each time, plus an
constant is added, also each time. Mandelbrot mean this constant are the
pixel coordinates, Julia means the coordinates are the starting value.
And the pixel color just contains the information how many iterations
(times) it took until z got greater than our bailout value.
This program has additional capabilities/options:
* iteration formula with up to four monomials
* choosable exponent and factor for each of them
* choosable stop value and stop metric
* free selection of colors
* many option to map th colors onto iteration result values
GUI
lib/App/GUI/Juliagraph.pm view on Meta::CPAN
<img src="https://raw.githubusercontent.com/lichtkind/App-GUI-Juliagraph/master/img/examples/sonne.png" alt="" width="300" height="300">
</p>
This program has additional capabilities/options:
=over 4
=item *
iteration formula with up to four monomials
=item *
choosable exponent and factor for each of them
=item *
choosable stop value and stop metric
=item *
lib/App/GUI/Juliagraph/Frame/Panel/Monomial.pm view on Meta::CPAN
$self->{'init_exp'} = $initial_exp // 0;
$self->{'callback'} = sub {};
$self->{'active'} = Wx::CheckBox->new( $self, -1, ' On', [-1,-1], [ 60, -1]);
$self->{'active'}->SetToolTip("switch usage of this polynome on or off");
$self->{'use_minus'} = Wx::CheckBox->new( $self, -1, ' -', [-1,-1], [ 50, -1]);
$self->{'use_minus'}->SetToolTip('if on, this monomial will be subtracted instead of added');
$self->{'use_log'} = Wx::CheckBox->new( $self, -1, ' log', [-1,-1], [ 60, -1]);
$self->{'use_log'}->SetToolTip(' if on, you put a logarithm in front of this monomial term as in: z_n+1 = log( factor * z_n**exponent )');
$self->{'use_factor'} = Wx::CheckBox->new( $self, -1, ' Factor', [-1,-1], [ 70, -1]);
$self->{'use_factor'}->SetToolTip('if on, you employ the complex factor from the text boxes below (Re and Im) in formula z_n+1 = factor * z_n**exponent');
$self->{'use_coor'} = Wx::CheckBox->new( $self, -1, ' Coor.', [-1,-1], [ 70, -1]);
$self->{'use_coor'}->SetToolTip('if on, the complex factor or 1 gets multiplied with current complex pixel coordinates');
my $exp_txt = "exponent above iterator variable z_n+1 = z_n**exponent * factor\nzero turns factor into constant";
$self->{'lbl_exponent'} = Wx::StaticText->new($self, -1, 'E x p o n e n t :' );
$self->{'lbl_exponent'}->SetToolTip($exp_txt);
$self->{'exponent'} = Wx::ComboBox->new( $self, -1, 2, [-1,-1],[75, 35], [1 .. 16]);
$self->{'exponent'}->SetToolTip($exp_txt);
( run in 1.179 second using v1.01-cache-2.11-cpan-3cd7ad12f66 )