How To Compute Chaikin Money Flow (CMF) in Perl?

 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
43
44
45
46

use strict;
use warnings;

sub calculate_cmf {
    my ($high, $low, $close, $volume, $period) = @_;

    my @cmf_values;
    my $adl = 0;
    my $total_volume = 0;

    for (my $i = 0; $i < scalar(@$close); $i++) {
        my $mfm = (($$close[$i] - $$low[$i]) - ($$high[$i] - $$close[$i])) / ($$high[$i] - $$low[$i]);
        my $mfv = $mfm * $$volume[$i];

        $adl += $mfv;
        $total_volume += $$volume[$i];

        if ($i >= $period) {
            $adl -= $mfv[$i - $period];
            $total_volume -= $$volume[$i - $period];
        }

        if ($total_volume != 0) {
            my $cmf = $adl / $total_volume;
            push @cmf_values, $cmf;
        } else {
            push @cmf_values, 0;
        }
    }

    return @cmf_values;
}

# Example data
my @high = (50, 55, 60, 65, 70);
my @low = (40, 45, 50, 55, 60);
my @close = (45, 50, 55, 60, 65);
my @volume = (1000, 1200, 1500, 1800, 2000);
my $period = 3;

my $cmf_values = calculate_cmf(@high, @low, @close, @volume, $period);

print "CMF values: ";
foreach my $cmf (@$cmf_values) {
    print "$cmf ";
}