package MyMatrixReal
@ISA = qw()

sub new
my ($class, $pContent, $rows, $columns) = @_;
return $this;

sub DESTROY
my $this = shift;

sub UnitMatrix
my ($this) = @_;
return $this->one();

sub Zero
my ($this) = @_;
return $this->zero();

sub e
my ($this, $row, $column) = @_;
return $this->element($row, $column);

sub MakeDiagonalMatrix
my ($this, $pArray) = @_;
return $this = Math::MatrixReal->new_diag($pArray);

sub dim
my ($this) = @_;
return $this->dim();

sub Determinant
my ($this) = @_;
return $this->det();

sub DiagonalizeSymmetricMatrix
my ($this) = @_;
return ($l, $V);

sub DiagonalizeTridiagonalMatrix
my ($this) = @_;
return ($l, $V);

sub Householder
my ($this) = @_;
return ($T, $Q);

sub LRDecomposition
my ($this) = @_;
return $this->decompose_LR();

sub inverse
my ($this) = @_;
return $this->inverse();

sub trace
my ($this) = @_;
return $this->trace();

sub transpose
my ($this, $m) = @_;
return $this->transpose($m);

sub LinearSolve
my ($M, $A) = @_;
return $solution;