求教各位大大们，这个问题用perl怎么处理

mingoing

快了，貌似[13250000, 13950000]    = -911.185874还有点问题，因为[13250000, 13950000] 是在区间[13200000 14100000]内的，所以直接可以确定为-844.211609。{:2_172:} 回复 10# pitonas


   

mingoing

我研究一下 回复 9# xiumu2280


   

pitonas

{:2_172:} 多谢提醒

1. [8650000, 9750000]      = -634.355527
   
2. [13250000, 13950000]    = -844.211609
   
3. [17650000, 18850000]    = -831.1381455
   

复制代码

1. #!/usr/bin/perl
   
2. 
   
3. my @range = (
   
4.           [ 8650000, 9750000 ],
   
5.           [ 13250000, 13950000 ],
   
6.           [ 17650000, 18850000 ],
   
7. );
   
8.          
   
9. @range = sort { $a->[0] <=> $b->[0] } @range;
   
10. my $index = 0;
    
11. my @data  = map { [split] } <DATA>;
    
12. 
    
13. range: for my $R (@range) {
    
14.     my $L = $R->[1] - $R->[0];
    
15.     my $ave;
    
16.     for my $i ( $index .. $#data ) {
    
17.         next if $R->[0] > $data[$i][1];
    
18.         $index = $i;
    
19.         my ( $r1, $r2, $v ) = @{ $data[$i] };
    
20.         if ( $R->[1] <= $r2 ) {
    
21.             print "[$R->[0], $R->[1]]\t= $v\n";
    
22.             next range;
    
23.         }
    
24.         $ave += ( $r2 - $R->[0] ) / $L * $v;
    
25. 
    
26.         for my $j ( $index + 1 .. $#data ) {
    
27.             my ( $r1, $r2, $v ) = @{ $data[$j] };
    
28.             $ave += ( $r2 - $r1 ) / $L * $v and next if $R->[1] > $r2;
    
29.             $ave += ( $R->[1] - $r1 ) / $L * $v;
    
30.             print "[$R->[0], $R->[1]]\t= $ave\n";
    
31.             next range;
    
32.         }
    
33.     }
    
34. }
    
35. 
    
36. __DATA__
    
37. 7400000 8200000  -747.871582
    
38. 8200000 8500000  -311.464386
    
39. 8500000 9100000  -552.063538
    
40. 9100000 9800000  -691.326904
    
41. 9800000 10700000  -860.887024
    
42. 10700000 11500000  -775.908630
    
43. 11500000 12300000  -748.672424
    
44. 12300000 13200000  -868.078918
    
45. 13200000 14100000  -844.211609
    
46. 14100000 14600000  -531.665039
    
47. 14600000 15500000  -934.396790
    
48. 15500000 16300000  -808.178162
    
49. 16300000 17500000  -1163.265747
    
50. 17500000 17900000  -425.282043
    
51. 17900000 18900000  -937.942383
    
52. 18900000 19600000  -743.132019
    
53. 19600000 20800000  -1200.120850
    
54. 20800000 21100000  -285.289520

复制代码

回复 11# mingoing


   

mingoing

哥们太赞了，学习了{:2_172:} 回复 13# pitonas


   

kernel69

来个想要求出结果的栗子
回复 1# mingoing