Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl

        use Math::Matrix;
...
        $f = $a->cross_product( $a, $x );
        print "output of a->cross_product( a, x ) is: '$f'\n\n";
        if( defined( $f ) ) { $f->print( "Cross product is \n" ) };

Select or download this

$ mathtest.pl 
A
   1.00000 
...
output of a->cross_product( x ) is: ''

output of a->cross_product( a, x ) is: ''