Help for this page

Select Code to Download


  1. or download this
            $counts_rebin[$k] = ($counts_rebin[$k] + $value); # l:1153
  2. or download this
            $counts_rebin[$k] += $value; # l:1153
  3. or download this
           my $totcount = $rawchannel[$j];
       my $split1 = (($energy_before[$j]-$energy_rebin[$k])*$totcount)
+/($energy_before[$j]-$energy_before[${j}-1]); # l:1158
  4. or download this
            $counts_rebin[$k]=($counts_rebin[$k]+($totcount-$split1)); # l
+:1162
  5. or download this
            if(($energy_rebin[$k] >= $energy_before[$j])){ # l:1148
  6. or download this
                until ($k==@energy_rebin or $energy_rebin[$k]>=$energy_bef
+ore[$j]){
                $k += 1;
            }
  7. or download this
            printf REBINOUT pack('V',$counts_rebin[$i]); # l: 1188