#!/usr/bin/perl -w

use strict;

use PDL::MatrixOps;

my $mat = pdl [
	       [3.4603, 1.7529, 1.6990,2.1181],
	       [ 2.5459,2.5615,2.2525,2.3606],
	       [ 2.3606, 2.2515, 2.5628,2.5459],
	       [ 2.1181,1.6982,1.7537,3.4603],
	       ];

my $det = determinant($mat);

print "$det\n";