#!/usr/bin/perl

$x = rand(1);
for $i (1..600){
    $y1 = sin($x);
    $y2 = sin($x-.3);
    $y3 = sin($x-.6);
    $x += .3;
    $dy2 = 100*$y2;
    $dy1 = 100*$y1;
    $dy3 = 100*$y3;
    print("$dy1 $dy2 $dy3\n");
}