Forum Webscript.Ru
Программирование => Perl => Тема начата: smoker_cannabis от 15 Ноября 2004, 09:34:25
-
Есть матрица $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] ]);
как это сделать более оптимально (с меньшим нажатием клавиш :) ??
-
а в чем проблема - сформировать соотв. структуру массива массивов @x и передать Math::Matrix?
-
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;
-
сорри ошибся слегка... :
#!/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
:-) для нахождения обратной матрицы 80х80 ?
от алгоритма что в институте давали Perl зависнет
а так в принципе неплохая идея %-)