小编swa*_*l90的帖子

我编写了一个代码来查找10X10矩阵的行列式.该代码给出了直到9X9矩阵的正确结果.但对于10X10矩阵,会出现以下错误

"在第23行的乘法<*>中使用未初始化的值

第21行非法划分为零"

我也尝试过11X11矩阵,但它给出了错误的答案.

为什么这段代码会出现这样的错误......

以下是代码:

#!/usr/bin/perl
use strict; 
use warnings;

my @x1=(
  [5, 6, 3, 2, 4, 9, 3, 5, 4, 2], 
  [12, 9, 8, 3, 3, 0, 6, 9, 3, 4],
  [8, 6, 5, 8, 9, 3, 9, 3, 9, 5],
  [6, 4, 3, 0, 6, 4, 8, 2, 22, 8],
  [8, 3, 2, 5, 2, 12, 7, 1, 6, 9],
  [5, 9, 3, 9, 5, 1, 3, 8, 4, 2],
  [3, 10, 4, 16, 4, 7, 2, …

我正在尝试对文件中包含的数据执行转置.数据如下:

1 2 3 4 5

2 3 4 5 6

4 5 6 7 9

4 3 7 6 9

我得到的结果如下,这是不正确的.我没有得到代码中的错误,因为最后一列未正确转置.解决方案......

码:

#!/usr/bin/perl
use strict;
use warnings;

my @dependent;    # matrix of dependent variable

# Reading the data from text file to the matrix
open( DATA, "<example.txt" ) or die "Couldn't open file , $!"; #depenedent

# Storing data into the array in matrix form
while ( my $linedata = <DATA> ) {
    push @dependent, [ split '\t', $linedata …