#!/usr/bin/perl
use warnings;
use strict;
use Math::VectorReal;

my $a = vector( 1, 2, 3 );
my $b = vector( 4, 5, 6 );

print "Vector as string (MatrixReal default format)\n\$a => ", $a;
print $a->stringify( "Formated Output   \$a => { %g, %g, %g }\n" );

print "Vector as string (MatrixReal default format)\n\$b => ", $b;
print $b->stringify( "Formated Output   \$b => { %g, %g, %g }\n" );

print 'dot product $a . $b =', $a . $b, "\n\n";
print 'cross product $a x $b =', $a x $b, "\n\n";
[download]