| ²é¿´: 1278 | »Ø¸´: 10 | ||||
junruiwangר¼Ò¹ËÎÊ
|
[ÇóÖú]
Çó¸÷λ´óÉñ£¬perl ¶ÔÌØ¶¨·¶Î§ÄÚµÄÊý¾ÝÇ󯽾ùÖµ ÒÑÓÐ1È˲ÎÓë
|
|||
|
ÎļþΪ£º Chr Pos Y 1 49820 -1.68855 1 54414 -1.55555 1 99585 -1.05338 1 103929 -0.523771 1 124119 -0.261121 1 200009 -0.1234 1 390189 2.2456 2 48625 0.0250024 2 88663 -0.659643 2 90128 -0.302134 2 122780 -0.366919 2 555583 -1.00859 Ïë¸ù¾ÝµÚÒ»Áк͵ڶþÁеķ¶Î§À´ÇóµÚÈýÁÐµÄÆ½¾ùÖµ£¬¾ßÌåΪ£ºµÚ¶þÁеİ´ÕÕÿ100,000µÄ³¤¶ÈÀ´·Ö×飬°ÑµÚÈýÁÐÇóÒ»¸öƽ¾ùÖµ£¬Èç¹ûÓÐЩ·¶Î§Ã»ÓÐÊýÖµÔòдΪ0£¨ÈçÏ£©¡£ÏëµÃµ½µÄ½á¹ûÊÇ£º 1 100,000 -1.432493333 1 200,000 -0.392446 1 300,000 -0.1234 1 400,000 2.2456 2 100,000 -0.3259234 2 200,000 0 2 300,000 0 2 400,000 0 2 500,000 0 2 600,000 -1.00859 ÆäÖÐ100,000¡¢200,000...´ú±í0-100,000¡¢100,000-200,000·¶Î§µÄÒâ˼¡£ Çó¸÷λ´óÉñ°ïæÀ²£¡ |
» ÊÕ¼±¾ÌûµÄÌÔÌûר¼ÍƼö
³ÌÐò |
» ²ÂÄãϲ»¶
309·Ö085801Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
ÉúÎïѧ308·ÖÇóµ÷¼Á£¨Ò»Ö¾Ô¸»ª¶«Ê¦´ó£©
ÒѾÓÐ3È˻ظ´
Çóµ÷¼Á£ºÒ»Ö¾Ô¸£ºÄϾ©´óѧ רҵ£º0705 ×Ü·Ö320 £¬±¾¿Æ985£¬ËÄÁù¼¶Òѹý
ÒѾÓÐ3È˻ظ´
»·¾³¹¤³Ì 085701£¬267Çóµ÷¼Á
ÒѾÓÐ14È˻ظ´
308Çóµ÷¼Á
ÒѾÓÐ12È˻ظ´
Çóµ÷¼Á£º085600²ÄÁÏÓ뻯¹¤£¬¿¼²Ä¿Æ»ù£¬×Ü·Ö319
ÒѾÓÐ21È˻ظ´
311Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
294·Ö080500²ÄÁÏ¿ÆÑ§Ó빤³ÌÇóµ÷¼Á
ÒѾÓÐ13È˻ظ´
288Çóµ÷¼Á Ò»Ö¾Ô¸¹þ¹¤´ó ²ÄÁÏÓ뻯¹¤
ÒѾÓÐ19È˻ظ´
288×ÊÔ´Óë»·¾³×¨Ë¶Çóµ÷¼Á£¬²»ÏÞרҵ£¬ÓÐѧÉϾÍÐÐ
ÒѾÓÐ23È˻ظ´
FMStation
ʵϰ°æÖ÷
![]()
![]()
![]()
![]()
- Ó¦Öú: 591 (²©Ê¿)
- ¹ó±ö: 0.03
- ½ð±Ò: 18369.7
- ºì»¨: 97
- Ìû×Ó: 8891
- ÔÚÏß: 1490.6Сʱ
- ³æºÅ: 2400059
- ×¢²á: 2013-04-04
- רҵ: ¼ÆËã»úÓ¦Óü¼Êõ
¡¾´ð°¸¡¿Ó¦Öú»ØÌû
|
[perl code] # Program in Perl use Data: umper;use POSIX; my @sumY, @numY; open my $fh, '<', "output.txt" or die "could not open file: $!"; $line = <$fh>; while (my $line = <$fh> { my($Chr, $Pos, $Y) = split /\s+/, $line; $cPos = floor($Pos / 100000) ; $sumY[$Chr][$cPos]+=$Y; $numY[$Chr][$cPos]++; } for (my $j= 1; $j <= 2; $j++) { for (my $i= 0; $i <= 5; $i++) { $range = ($i+1)*100000; if ( !defined $numY[$j][$i] ) { $avg = 0; } else { $avg = $sumY[$j][$i] / $numY[$j][$i]; } print "$j $range $avg\n"; } } close $fh; [output] 1 100000 -1.43249333333333 1 200000 -0.392446 1 300000 -0.1234 1 400000 2.2456 1 500000 0 1 600000 0 2 100000 -0.3122582 2 200000 -0.366919 2 300000 0 2 400000 0 2 500000 0 2 600000 -1.00859 |
8Â¥2016-08-18 06:01:25
FMStation
ר¼Ò¹ËÎÊ
![]()
![]()
![]()
![]()
- Ó¦Öú: 591 (²©Ê¿)
- ¹ó±ö: 0.03
- ½ð±Ò: 18369.7
- ºì»¨: 97
- Ìû×Ó: 8891
- ÔÚÏß: 1490.6Сʱ
- ³æºÅ: 2400059
- ×¢²á: 2013-04-04
- רҵ: ¼ÆËã»úÓ¦Óü¼Êõ
2Â¥2016-08-17 17:52:51
FMStation
ʵϰ°æÖ÷
![]()
![]()
![]()
![]()
- Ó¦Öú: 591 (²©Ê¿)
- ¹ó±ö: 0.03
- ½ð±Ò: 18369.7
- ºì»¨: 97
- Ìû×Ó: 8891
- ÔÚÏß: 1490.6Сʱ
- ³æºÅ: 2400059
- ×¢²á: 2013-04-04
- רҵ: ¼ÆËã»úÓ¦Óü¼Êõ
¡¾´ð°¸¡¿Ó¦Öú»ØÌû
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
|
#!/usr/bin/perl use warnings; use strict; my $sum = 0; my $n = 0; while (<> {$sum += $_; $n++; } print $sum/$n, "\n"; https://stackoverflow.com/questi ... averages-using-perl |
3Â¥2016-08-17 18:09:15
FMStation
¶Ò»»¹ó±ö
![]()
![]()
![]()
![]()
- Ó¦Öú: 591 (²©Ê¿)
- ¹ó±ö: 0.03
- ½ð±Ò: 18369.7
- ºì»¨: 97
- Ìû×Ó: 8891
- ÔÚÏß: 1490.6Сʱ
- ³æºÅ: 2400059
- ×¢²á: 2013-04-04
- רҵ: ¼ÆËã»úÓ¦Óü¼Êõ
4Â¥2016-08-17 18:10:25
James_ever
¶Ò»»¹ó±ö
![]()
![]()
![]()
![]()
- Ó¦Öú: 7 (Ó×¶ùÔ°)
- ½ð±Ò: 805.1
- É¢½ð: 910
- ºì»¨: 62
- ɳ·¢: 1
- Ìû×Ó: 11151
- ÔÚÏß: 1117Сʱ
- ³æºÅ: 308106
- ×¢²á: 2006-12-17
- רҵ: ½ðÈÚ¹¤³Ì

5Â¥2016-08-17 19:07:00
junruiwang
ר¼Ò¹ËÎÊ
![]()
![]()
![]()
![]()
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 153.2
- É¢½ð: 30
- ºì»¨: 1
- Ìû×Ó: 89
- ÔÚÏß: 16.2Сʱ
- ³æºÅ: 3501565
- ×¢²á: 2014-10-27
- ÐÔ±ð: MM
- רҵ: ×÷ÎïÖÖÖÊ×ÊÔ´ÓëÒÅ´«ÓýÖÖѧ
6Â¥2016-08-17 19:20:04
junruiwang
ʵϰ°æÖ÷
![]()
![]()
![]()
![]()
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 153.2
- É¢½ð: 30
- ºì»¨: 1
- Ìû×Ó: 89
- ÔÚÏß: 16.2Сʱ
- ³æºÅ: 3501565
- ×¢²á: 2014-10-27
- ÐÔ±ð: MM
- רҵ: ×÷ÎïÖÖÖÊ×ÊÔ´ÓëÒÅ´«ÓýÖÖѧ
7Â¥2016-08-17 19:23:01
FMStation
°æÖ÷
![]()
![]()
![]()
![]()
- Ó¦Öú: 591 (²©Ê¿)
- ¹ó±ö: 0.03
- ½ð±Ò: 18369.7
- ºì»¨: 97
- Ìû×Ó: 8891
- ÔÚÏß: 1490.6Сʱ
- ³æºÅ: 2400059
- ×¢²á: 2013-04-04
- רҵ: ¼ÆËã»úÓ¦Óü¼Êõ
¡¾´ð°¸¡¿Ó¦Öú»ØÌû
¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ...
junruiwang: ½ð±Ò+100, ¡ï¡ï¡ï¡ï¡ï×î¼Ñ´ð°¸, ¸Ðл¡« 2016-08-20 14:33:13
junruiwang: ½ð±Ò+100, ¡ï¡ï¡ï¡ï¡ï×î¼Ñ´ð°¸, ¸Ðл¡« 2016-08-20 14:33:13
|
|
» ±¾ÌûÒÑ»ñµÃµÄºì»¨£¨×îÐÂ10¶ä£©
9Â¥2016-08-18 06:02:35
junruiwang
³¬¼¶°æÖ÷
![]()
![]()
![]()
![]()
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 153.2
- É¢½ð: 30
- ºì»¨: 1
- Ìû×Ó: 89
- ÔÚÏß: 16.2Сʱ
- ³æºÅ: 3501565
- ×¢²á: 2014-10-27
- ÐÔ±ð: MM
- רҵ: ×÷ÎïÖÖÖÊ×ÊÔ´ÓëÒÅ´«ÓýÖÖѧ
|
Ì«¸ÐлÀ²£¡¹ØÓÚ×Ôѧperl£¬´óÉñÄÜ·ñ¸øÖ¸ÌõÃ÷·°¡£¿ÊµÑéÊÒÖ»ÓÐÎÒÒ»¸öÈ˸տªÊ¼Ñ§£¬¸Ð¾õºÃ·Ñ¾¢¡£¡£¡£ ·¢×ÔСľ³æAndroid¿Í»§¶Ë |
10Â¥2016-08-18 11:48:41














»Ø¸´´ËÂ¥
umper;
{
junruiwang