#!/usr/bin/perl -w

use lib "d:/Programs/Perl/lib";

use strict;
use Sci::Science;

for(my $x = 0.0 ; $x <= 5.0001 ; $x += 0.5) {
	my $y = Sci::erfc($x);
	print "$x\t$y\n";
}