#!/usr/bin/perl

for ( $x=-5.0; $x<=5.0; $x+=0.2 ) {
	for ( $y=-5.0; $y<=5.0; $y+=0.2 ) {
		$z = sin($x)*sin($y)/ ( $x*$y );
		print "$x $y $z\n";
	}
	print "\n";
}
