首页 知道 学习正文

用perl程序解决序列标准化100定义：  Ni1=100ni1/ni0   &

学习 时间:2026-04-03 08:12:05 阅读：452
用perl程序解决序列标准化100定义： Ni1=100ni1/ni0 四舍五入取整 Ni2=100ni2/ni0四舍说明例如第一行序列 ni1为第一个数（ 第一数13=ni1） ni2为第二个数（第二个数23=ni2) 最后一个数49=ni0I001 13 TTGTAACAAAC 23 49I001 16 AAATTTTGTAAAAATTAAC 34 50I002 11 AACTAATTGTA 21 47上面序列经过标准化100后,结果如下：（标准化后的第一个数为 Ni1；第二个数为 Ni1；最后一个数为100）I001 27 TTGTAACAAAC 47 100I001 32 AAATTTTGTAAAAATTAAC 68 100I002 23 AACTAATTGTA 45 100
提问 回复

最佳回答

活泼的抽屉

高高的哈密瓜，数据线

2026-04-03 08:12:05

给你个思路,这只是一种方法而已,方法还有很多。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";}

最新回答共有2条回答

  • 专注的雪碧
    回复
    2026-04-03 08:12:05

    给你个思路,这只是一种方法而已,方法还有很多。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";}

上一篇 sb's favourite subject is English.这句话的同义句.

下一篇 写人与动物之间感情的作文