#!/usr/bin/perl

$no3d =1 if $ARGV[0];

$x = rand(1);
for $i (1..1500){
    $y = sin($x);
    $d = rand(1);
    $x += $d;
    $y2 = sin($x);
    $dy2 = 100*$y2;
    $dd = 100*$d;
    $dy = 100*$y;
    $dx = 100*$x;
    if($no3d){
	print "$dy2 $x 0\n";
    }
    else{
	print("$dy2 $dd $dy\n");
    }
}