#!perl -w

# converts the output of "randomblob coeff" to a formula.

die unless defined($_=<>);
die unless ($degree)=/^degree = (\d+)$/;
die unless defined($_=<>);
die unless ($dc)=/^dc = (\S+)$/;
for$i(1..$degree){
    die unless defined($_=<>);
    die unless ($linei,$a,$p)=/^(\d+) (\S+) (\S+)$/;
    die unless ($linei==$i);
    push @a,$a;
    push @p,$p;
}
if(defined($_=<>)){
    die unless /^sum \S+$/;
}

print"r(t) = $dc";
for($iminus1=0;$iminus1<$degree;++$iminus1){
    $i=$iminus1+1;
    print " + $a[$iminus1]*cos($i*t-$p[$iminus1])";
}
print"\n";