Select Code to Download

Select or download this

use Math::Matrix;
Math::Matrix->new(
...
# says
# -7.00000    7.00000 
#  4.00000   -4.00000

Select or download this
```
x -7*t + 7 = 0 => x = 7*t - 7
```
Select or download this
```
y + 4*t -4 = 0 => y = -4*t + 4
```

Select or download this

use Math::MatrixLUP;
my @planes3D = (
...
# says
# [1, 0, -7, 7],
# [0, 1, 4, -4]

Select or download this
```
x -7 * t + 7 = 0 => x = 7*t-7
```

Select or download this

use strict;
use warnings;
...
    }
    print "all points lie on the intersecting planes\n";
}

Select or download this

my @planes5D = (
  [1, 2, 1, -2, 3, -1], # ax+by+cz+n=0
...
  [3, -1, -2, -5, 6, 2],
  # only 3 planes (it was successful with 4)
)

Select or download this

Solves a equation system given by the matrix. The number of colums mus
+t be greater than the number of rows. If variables are dependent from
+ each other, the second and all further of the dependent coefficients
+ are 0. This means the method can handle such systems. The method ret
+urns a matrix containing the solutions in its columns or undef in cas
+e of error.