package Vector
@ISA = qw()

sub new
my ($module) = @_;
return $this;

sub DESTROY
my $this = shift;

sub Angle
my ($pa, $pb, $UseDeg) = @_;
return Sci::acos($cosQ) if(!$UseDeg);
return Sci::acos($cosQ) * $todeg;

sub OuterProduct
my (@a) = @_;
return ($a[1]*$a[2+$dim]-$a[2]*$a[1+$dim], $a[2]*$a[0+$dim]-$a[0]*$a[2+$dim], $a[0]*$a[1+$dim]-$a[1]*$a[0+$dim]);

sub InnerProduct
my (@a) = @_;
return $c;

sub Difference
my (@a) = @_;
return @c;