How To Calculate Ichimoku Cloud 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

use List::Util qw( min max );

# Sample data (high, low, close prices)
my @high = (100, 105, 110, 115, 120, 125, 130);
my @low = (95, 100, 105, 110, 115, 120, 125);
my @close = (98, 103, 108, 113, 118, 123, 128);

# Number of periods for calculation
my $period = 9;

# Calculate Tenkan-sen (Conversion Line)
my @tenkan_sen = ();
for (my $i = 0; $i < scalar(@close) - $period; $i++) {
    my $high = max @high[$i .. $i + $period - 1];
    my $low = min @low[$i .. $i + $period - 1];
    my $tenkan = ($high + $low) / 2;
    push @tenkan_sen, $tenkan;
}

# Calculate Kijun-sen (Base Line)
my @kijun_sen = ();
for (my $i = 0; $i < scalar(@close) - $period; $i++) {
    my $high = max @high[$i .. $i + $period*2 - 1];
    my $low = min @low[$i .. $i + $period*2 - 1];
    my $kijun = ($high + $low) / 2;
    push @kijun_sen, $kijun;
}

# Calculate Senkou Span A (Leading Span A)
my @senkou_span_a = ();
for (my $i = $period; $i < scalar(@close); $i++) {
    my $senkou = ($tenkan_sen[$i - $period] + $kijun_sen[$i - $period]) / 2;
    push @senkou_span_a, $senkou;
}

# Calculate Senkou Span B (Leading Span B)
my @senkou_span_b = ();
for (my $i = 0; $i < scalar(@close) - $period; $i++) {
    my $high = max @high[$i .. $i + $period*2 - 1];
    my $low = min @low[$i .. $i + $period*2 - 1];
    my $senkou = ($high + $low) / 2;
    push @senkou_span_b, $senkou;
}

# Calculate Chikou Span (Lagging Span)
my @chikou_span = ();
for (my $i = $period * 2; $i < scalar(@close); $i++) {
    push @chikou_span, $close[$i - $period * 2];
}

# Output results
print "Tenkan-sen: @tenkan_sen
";
print "Kijun-sen: @kijun_sen
";
print "Senkou Span A: @senkou_span_a
";
print "Senkou Span B: @senkou_span_b
";
print "Chikou Span: @chikou_span
";