++$writeld;
}
+ my $wkph = $wind->{w} * 3.6;
+ $h{WindChill} = nearest(0.1, $wind->{w} >= 1.2 ? 13.12 + 0.6215 * $temp - 11.37 * $wkph ** 0.16 + 0.3965 * $temp * $wkph ** 0.16 : $temp);
+
if ($ts >= $ld->{last_hour} + 1800) {
$h{Pressure_Trend} = unpack("C", substr $blk,3,1);
$h{Pressure_Trend_txt} = $bar_trend{$h{Pressure_Trend}};
}
}
chop $s if length $s;
- say $s;
%><%= $s %>
],
tooltip: {
}
}
chop $s if length $s;
- say $s;
%><%= $s %>
],
tooltip: {
<tr><th>Wind:</th><td><span id="Dir"> </span> ° @ <span id="Wind"> </span> mph</td>
<th>Wind Minute Avg:</th><td> <span id="Dir_1m"> </span> ° @ <span id="Wind_1m"> </span> mph </td>
<th>Day Max Speed:</th><td> <span id="Wind_Max"> </span> mph @ <span id="Wind_Max_T"> </span></td>
+ <th>Wind Chill:</th><td> <span id="WindChill"> °C</span></td>
</tr>
<tr>
<th>Rain 30mins:</th><td> <span id="Rain_1h"> </span> mm</td>