perl 转置矩阵

Posted mmtinfo

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了perl 转置矩阵相关的知识,希望对你有一定的参考价值。

这里提供一个转置矩阵的perl脚本,R语言中的t()函数同样也能实现转置

 1 use strict;
 2 
 3 open A,"$ARGV[0]";
 4 
 5 my %ha;
 6 my $head=<A>;
 7 chomp($head);
 8 my @tag=split /s+/,$head;
 9 
10 while(<A>){
11         chomp;
12         my @each=split;
13         for(my $i=0;$i<@each;$i++){
14                 $ha{$tag[$i]}.=$each[$i]."	";
15         }
16 }
17 
18 close A;
19 
20 foreach my $k(@tag){
21         print "$k	$ha{$k}
";
22 }

 

 

 

以上是关于perl 转置矩阵的主要内容,如果未能解决你的问题,请参考以下文章

matlab转置矩阵命令

关于稀疏矩阵三元组的转置

矩阵转置python的实现

c++矩阵的转置和快速转置

Python的Numpy库中各种矩阵基本运算的示例代码(加减乘点乘点除乘方转置等)

Java:转置矩阵 - 分而治之