view release on metacpan or  search on metacpan

WxM2.pm  view on Meta::CPAN

1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
        $chill = $temp;
    } else {
        my $v016 = $speed ** 0.16;
 
        $chill = 35.74 + (0.6215 * $temp) - (35.75 * $v016) + 
            (0.4275 * $temp * $v016);
    }
    return $chill;
}
 
# old windchill formula
sub oldWindChill {
    my $self = shift;
    my $speed = $self->{windSpeed};
    my $temp = $self->{outTemp};
    my $chill;
    my @chillTableOne = (156, 151, 146, 141, 133, 123, 110, 87, 61, 14, 0);
    my @chillTableTwo = (0, 16, 16, 16, 25, 33, 41, 74, 82, 152, 0);
 
    $speed = 50 if $speed > 50;