GT::Indicators::Interquartil - Interquartil-Distance
The Interquartil-distance; which is the position at which you can divide the data by x% on the left side and (100-x)% on the right side.
Percentage of the IQD (median = 50%)
The first argument is the period used to calculed the average.
The Data for the calculation.
To create a kind of dynamic borders for the RSI try:
Indicators::Interquartil(90,50,{I:RSI}) Indicators::Interquartil(10,50,{I:RSI})
=cut
sub initialize {
my ($self) = @_;
}
sub calculate { my ($self, $calc, $i) = @_; my $nb = $self->{'args'}->get_arg_values($calc, $i, 2); my $name = $self->get_name;
return if (! defined($nb));
$self->remove_volatile_dependencies();
$self->add_volatile_prices_dependency($nb);
return if (! $self->check_dependencies($calc, $i));
my @values = ();
for(my $n = $i - $nb + 1; $n <= $i; $n++)
{
my $val = $self->{'args'}->get_arg_values($calc, $n, 3);
return if (! defined($val));
push @values, $val;
}
@values = sort { $a <=> $b } @values;
my $pos = int( $self->{'args'}->get_arg_values($calc, $i, 1) * ($#values) / 100 );
$pos = 0 if ($pos < 0);
$pos = $#values if ($pos > $#values);
my $erg = $values[$pos];
$calc->indicators()->set($name, $i, $erg);
}
1;