Sorry, I meant GT::Indicators::Prices
Attached.... Th.
Robert A. Schmied wrote:
> Thomas Weigert wrote:
>> RAS,
>>
>> assuming the "other data" is just another market, all that is required
>> is to use my modified version of GT::Prices. You can then load the other
>
> your version of GT::Prices is on the exp branch, on trunk, or on cpan
> or ?
>
>
package GT::Indicators::Prices;
# Copyright 2000-2003 Raphaël Hertzog
# This file is distributed under the terms of the General Public License
# version 2 or (at your option) any later version.
# Standards-Version: 1.0
use strict;
use vars qw(@ISA @NAMES);
use GT::Indicators;
use GT::Prices;
use GT::Eval;
@ISA = qw(GT::Indicators);
@NAMES = ("Prices[#*]");
=head1 NAME
GT::Indicators::Prices - Return the prices/volume/date of any share
=head1 DESCRIPTION
As you often need the prices while using Generic indicators, this
modules makes it easy for you to include prices through an indicator:
{I:Prices OPEN} or {I:Prices LOW 13330}
=head1 PARAMETERS
=over
=item Data
You have to tell in which data you're interested. You have to choose between
OPEN, HIGH, LOW, CLOSE, VOLUME, DATE.
=item Share
If you don't specify a second argument, you will use the data of the share
that you're working on. But sometimes you may want to use the prices of a
second share (for comparison, etc). In that case you can specify its code.
=back
=cut
sub initialize {
my $self = shift;
my $data = "">
# First parameter: which data
if ($self->{'args'}->get_nb_args() > 0) {
my $arg = $self->{'args'}->get_arg_constant(1);
if ($arg =~ /OPEN|FIRST/i) { $data = "" }
elsif ($arg =~ /HIGH/i) { $data = "" }
elsif ($arg =~ /LOW/i) { $data = "" }
elsif ($arg =~ /CLOSE|LAST/i) { $data = "" }
elsif ($arg =~ /VOLUME/i) { $data = "" }
elsif ($arg =~ /DATE/i) { $data = "" }
}
# Second parameter: code of the share
if ($self->{'args'}->get_nb_args() > 1) {
$self->{'use_std_prices'} = 0;
my $db = create_db_object();
my $q = $db->get_prices($self->{'args'}->get_arg_constant(2));
$self->{'special_prices'} = $q;
} else {
$self->{'use_std_prices'} = 1;
}
# Misc init
$self->{'data_ind'} = $data;
}
sub calculate {
my ($self, $calc, $i) = @_;
return if ($calc->indicators->is_available($self->get_name, $i));
my $indic = $calc->indicators;
my $DATA = "">
if ($self->{'use_std_prices'}) {
$indic->set($self->get_name, $i, $calc->prices->at($i)->[$DATA]);
} else {
my $prices = $self->{'special_prices'};
my $date = $calc->prices->at($i)->[$DATE];
# make sure that the timeframe is the same as $calc
# Warning: If this object is used for different $calc, we
# should keep track of the series in multiple timeframes?
if ($prices->{timeframe} != $calc->prices->{timeframe}) {
$prices = $prices->convert_to_timeframe($calc->prices->{timeframe});
$self->{'special_prices'} = $prices;
}
if ($prices->has_date($date)) {
$indic->set($self->get_name, $i, $prices->at_date($date)->[$DATA]);
}
}
}
1;