Gibt es vielleicht schon irgendwo, habe es aber bei der gegenwärtigen Wetterlage schnell selbst implementiert: Berechnung der subjektiv empfundenen Temperatur aus drei Werten Temperatur, Windgeschwindigkeit (in m/s) und relativer Feuchte in Prozent.
#############################################################################
#
# Windchill und Hitzeindex
#
#############################################################################
sub TempWCHI($$$){
my($temp,$wspeed,$hum) = @_;
my $twchi;
if( $temp < 10 && $wspeed > 1){
$twchi = 13.12+0.6215*$temp+(0.3965*$temp-11.37)*($wspeed*3.6)**0.16;
$twchi = int(10*$twchi)/10;
}elsif( $temp > 26.7 && $hum > 40 ){
$twchi = -8.784695+1.61139411*$temp+2.338549*$hum-0.14611605*$temp*$hum-
0.012308094*$temp*$temp-0.016424828*$hum*$hum+0.002211732*$temp*$temp*$hum+
0.00072546*$temp*$hum*$hum-
0.000003582*$temp*$temp*$hum*$hum;
$twchi = int(10*$twchi)/10;
}else{
$twchi = "";
}
return $twchi;
}
Gilt für T < 10 (Windchill) und Windgeschwindigkeit > 1m/s bzw. T > 26.7 und Feuchte > 40% (Heat Index), sonst wird ein leerer String zurückgegeben
LG
pah