# makedata.pl
#                      Last Change: 2017-09-04 Mon 21:38:58.
#
#  ai.go への入力データを作る
#  入力ファイル： ./USDJPY.csv
#  出力ファイル： ./ai_input.dat
#  出力形式：
#  通番 年月日 始値 高値 安値 終値 3日平均 7日平均 30日平均
#

use v5.10;
use utf8;

my ( @date, @start, @highest, @lowest, @end );
open my $f, '<', 'USDJPY.csv';
while ( <$f> ) {
    next unless /^\d/;
    chomp;
    my ( $dt, $st, $hi, $lo, $en ) = split /,/;

    $dt =~ s#/#-#g;                  push @date,    $dt;
    $st = sprintf "%.02f", $st;     push @start,   $st;
    $hi = sprintf "%.02f", $hi;     push @highest, $hi;
    $lo = sprintf "%.02f", $lo;     push @lowest,  $lo;
    $en = sprintf "%.02f", $en;     push @end,     $en;
}
close $f;

my ( @ma3, @ma7, @ma30 );
my $i = 0;
for ( @end ) {
    $ma3[$i] = ( $i < 2 ) ? $_ : ( $end[$i-2] + $end[$i-1] + $_ ) / 3;
    $ma7[$i]  = $_;
    $ma30[$i] = $_;
    if ( $i > 5 ) {
        $ma7[$i] += $end[$i-$_] for ( 1..6 );
        $ma7[$i] /= 7;
    }
    if ( $i > 28 ) {
        $ma30[$i] += $end[$i-$_] for ( 1..29 );
        $ma30[$i] /= 30;
    }
    $i++;
}

open $f, '>', 'ai_input.dat';
say {$f} '#通番 年月日    始値   高値   安値   終値   3日平均 7日平均 30日平均';
$i = 0;
for my $dt ( @date ) {
    my $ip    = sprintf "%04d",  $i+1;
    my $ma3p  = sprintf "%.02f", $ma3[$i];
    my $ma7p  = sprintf "%.02f", $ma7[$i];
    my $ma30p = sprintf "%.02f", $ma30[$i];
    say {$f} join ' ' => $ip, $dt, $start[$i], $highest[$i], $lowest[$i], $end[$i], $ma3p, $ma7p, $ma30p;
    $i++;
}
close $f