Select Code to Download

my ($r, $rad, $twopi, $sig, $pi, $a0, $c0);

    if ($r>20)
        {
...
        my $sig = $pi*($rad**2)*$a0*(1-exp((-$c0)*$rad));
        push (@sigs, $sig);
        }