求助(分段函数)

zhagnqiang829

分段函数
fij=m（第三列值）  Ni1≤j≤Ni2  ；
fij=0                   j<Ni1或j>Ni2 ；

Ni1（第一列数值），Ni2（第二列数值）；
(j=1,2,…,9,10)；（i=1,2,...)为数据的行数； m为第三列对应的值。
数据如下：
一      二      三

4        8        0.1
5        7        0.3
1        3        1.2
6        9        0.5
5        6        0.9
1        10        1.1

结果：第一步按分段函数进行计算。
0    0    0   0.1 0.1 0.1 0.1 0.1 0    0

0    0    0    0   0.3 0.3 0.3 0    0    0

1.2 1.2 1.2 0   0    0    0    0    0    0

0    0    0    0   0    0.5 0.5 0.5 0.5 0

0    0    0    0   0.9 0.9  0   0    0    0

1.3 1.3 1.3 1.3 1.3 1.3 1.3 1.3 1.3 1.3

第二步：对每列数据进行求和。
2.5
2.5
2.5
1.5
2.6
3.1
1.9
1.8
1.3

pitonas

1.3 1.3 1.3 1.3 1.3 1.3 1.3 1.3 1.3 1.3
1        10        1.1
{:2_172:} 提供一个可行的思路

1. #!/usr/bin/perl
   
2. 
   
3. my @sum;
   
4. while (<DATA>) {
   
5.     my ( $beg, $end, $val ) = split;
   
6.     $sum[$_] += $val for $beg .. $end;
   
7. }
   
8. 
   
9. print $_ // 0, "\n" for @sum[ 1 .. $#sum ];
   
10. 
    
11. __DATA__
    
12. 4        8        0.1
    
13. 5        7        0.3
    
14. 1        3        1.2
    
15. 6        9        0.5
    
16. 5        6        0.9
    
17. 1        10        1.1
    

复制代码

zhagnqiang829

呵呵，谢谢你。
这么精辟的代码，我用Excel算了好多天。。。回复 2# pitonas


   

TrishaTie

回复 2# pitonas
果断太精辟了~思路很赞！
{:2_168:}

   

yakczh_cu

$_ // 0　
这是什么

xiumu2280

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. use File::Basename;
   
6. 
   
7. 
   
8. my @data = map {[split]} <DATA>;
   
9. my @d = map {my $key =$_;my $total;map {$key >= $_->[0] && $key<= $_->[1] && ($total += $_->[2])}@data;$total}1..10;
   
10. print Dumper @d;
    
11. 
    
12. 
    
13. 
    
14. __DATA__
    
15. 4        8        0.1
    
16. 5        7        0.3
    
17. 1        3        1.2
    
18. 6        9        0.5
    
19. 5        6        0.9
    
20. 1        10        1.1

复制代码

来一发

yakczh_cu

什么是晦涩，这就是标准的例子

rubyish

太精辟了, 学习了！{:3_188:}

pitonas

mark一下。{:2_172:}
代码精简，只有  6 行，十分优美, 十分低调。