mirror of
https://github.com/cookiengineer/audacity
synced 2025-11-03 23:53:55 +01:00
59 lines
1.2 KiB
Perl
Executable File
59 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
@quant=(
|
|
0, 1, 1, 2, 2, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6,
|
|
6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9,
|
|
9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11,
|
|
11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
|
|
12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12
|
|
);
|
|
|
|
|
|
use POSIX;
|
|
my($groupn)=@ARGV;
|
|
my%hash;
|
|
my$count=0;
|
|
my$lines=0;
|
|
|
|
if(!defined($groupn)){
|
|
print "Usage: residue_entropy <groupsize> \n";
|
|
exit(1);
|
|
}
|
|
$|=1;
|
|
|
|
while (<STDIN>) {
|
|
chop;
|
|
my@nums = ();
|
|
@nums = split(/,/);
|
|
$lines++;
|
|
|
|
my$step=$#nums/$groupn;
|
|
for(my$i=0;$i<$step;$i++){
|
|
my$key="";
|
|
for(my$j=$i;$j<$#nums;$j+=$step){
|
|
if($nums[$j]<0){
|
|
$num=-$quant[int(-$nums[$j]*2)];
|
|
}else{
|
|
$num=$quant[int($nums[$j]*2)];
|
|
}
|
|
$key.=":$num";
|
|
}
|
|
|
|
if(!defined($hash{$key})){
|
|
$count++;
|
|
$hash{$key}=1;
|
|
}
|
|
}
|
|
|
|
if(($lines % 1000)==0){
|
|
print "\rworking... $lines lines, found $count values so far";
|
|
}
|
|
}
|
|
|
|
foreach $key (keys %hash){
|
|
print "\t$key\n";
|
|
}
|
|
|
|
print "\r$count values total \n";
|
|
print "Done.\n\n";
|