Матрицы

[smoker_cannabis]

Есть матрица $x[1][1] ...  $x[1][20]
                    ...............................
                    $x[20][1]...$x[20][20]

хочу использовать модуль Math::Matrix для вычисления определителя, но этот модуль хочет чтоб я определял элементы матрицы сам т.е.
$a = new Math::Matrix ([$x[1][1],$x[1][2],$x[1][3], и т.д. ],
                                 еще 18 подобных строк
                                  [$x[20][1],$x[20][2],$x[20][3] ]);


как это сделать более оптимально (с меньшим нажатием клавиш ??

[Green Kakadu]

а в чем проблема - сформировать соотв. структуру массива массивов @x и передать Math::Matrix?

[commander]

smoker_cannabis
простой пример:
#!/usr/bin/perl -w
use strict;
my @x;
my $str;
for my $i(0..20)
{
 map {$x[$i][$_]="[$i]-[$_]"} (0..20);
}
map {$str=join (",",@{$x[$_]})} (0..20);
print $str;

[commander]

сорри ошибся слегка... :
#!/usr/bin/perl -w
use strict;
my @x;
my $str;
for my $i(0..20)
{
 map {$x[$i][$_]="[$i]-[$_]"} (0..20);
}
map {$str=$str.join (",",@{$x[$_]})} (0..20);
print $str;

[smoker_cannabis]

А не подскажите каким модулем найти обратную матрицу?

[commander]

smoker_cannabis
а что самому алгоритм не написать?

[smoker_cannabis]

commander
:-) для нахождения обратной матрицы 80х80 ?
от алгоритма что в институте давали Perl зависнет

а так в принципе неплохая идея %-)