sub save_graph
{
my ($title,$xlabel,$ylabel,$IfNum,$fn) = @_;
my $numfile = 1;
my $fnbase = $fn;
my $titlebase = $title;
while ($numfile <= $IfNum)
{
$title = $titlebase;
$fn = $fnbase;
$fn = $fn.$numfile;
my @xarray = ();
my @values = ();
my $max = 0...