用perl程序解决序列标准化100定义: Ni1=100ni1/ni0 四舍五入取整 Ni2=100ni2/ni0 四舍说明 例如第一行序列 ni1为第一个数( 第一数13= ni1) ni2为第二个数( 第二个数23=ni2) 最
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/27 18:13:19
用perl程序解决序列标准化100定义: Ni1=100ni1/ni0 四舍五入取整 Ni2=100ni2/ni0 四舍说明 例如第一行序列 ni1为第一个数( 第一数13= ni1) ni2为第二个数( 第二个数23=ni2) 最
用perl程序解决
序列标准化100定义: Ni1=100ni1/ni0 四舍五入取整
Ni2=100ni2/ni0 四舍
说明 例如第一行序列 ni1为第一个数( 第一数13= ni1) ni2为第二个数( 第二个数23=ni2) 最后一个数49=ni0
I001 13 TTGTAACAAAC 23 49
I001 16 AAATTTTGTAAAAATTAAC 34 50
I002 11 AACTAATTGTA 21 47
上面序列经过标准化100后,结果如下:(标准化后的第一个数为 Ni1;第二个数为 Ni1;最后一个数为100)
I001 27 TTGTAACAAAC 47 100
I001 32 AAATTTTGTAAAAATTAAC 68 100
I002 23 AACTAATTGTA 45 100
用perl程序解决序列标准化100定义: Ni1=100ni1/ni0 四舍五入取整 Ni2=100ni2/ni0 四舍说明 例如第一行序列 ni1为第一个数( 第一数13= ni1) ni2为第二个数( 第二个数23=ni2) 最
给你个思路,这只是一种方法而已,方法还有很多.
open F, "F:/h.txt"; #h.txt是你的数据文件
@array=;
foreach (@array){
($s1, $s2, $s3, $s4, $s5)=split(/\s+/,$_);
$s2=int(100*$s2/$s5);
$s4=int(100*$s4/$s5);
$s5=int(100*$s5/$s5);
print"$s1 $s2 $s3 $s4 $s5\n";
}