File indexing completed on 2024-05-19 04:34:06 

0001 #!/usr/bin/perl
0002 #
0003 
0004 
0005 open(OUTPUT, ">$ARGV[0]") || die "Can't open $ARGV[0]: $!";
0006 
0007 $i = 0;
0008 
0009 while (true) {
0010     print OUTPUT "$i ";
0011     $ii = $i/10;
0012     print OUTPUT sin($ii) + rand(0.4) - 0.2;
0013     print OUTPUT " ";
0014     print OUTPUT cos($ii) + rand(0.4) - 0.2;
0015     print OUTPUT " ";
0016     print OUTPUT sin($ii * $ii) * (cos($ii) + rand(0.4) - 0.2);
0017     print OUTPUT " ";
0018     print OUTPUT "\n";
0019     $i++;
0020     select(undef, undef, undef, 0.1);
0021 }
0022