Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Anyone know how frostbite thresholds are calculated?
#8
(02-04-2023, 06:17 PM)bplus Wrote: Windchill:
Wind Chill = 35.74 + 0.6215T – 35.75(V^0.16) + 0.4275T(V^0.16)
T is the air temperature in degrees Fahrenheit, and V is the wind speed in miles per hour.

The question is: how do you put the brackets? 
(Calculation of WindChill - felt temperature)

Code: (Select All)
$Console:Only

Option _Explicit

Dim As Double windChillC, windChillF, temp, windV
Dim As Double fahrenheit, celsius

windChillC = 13.12
windChillF = 35.74

Locate 2, 3
Print "Berechnung des WindChill - gefuehlte Temperatur"

Locate 4, 3
Input "Temperatur              : ", temp

Locate 5, 3
'Kilometer pro Stunde
Input "Windgeschwindigkeit (KM): ", windV

windChillC = windChillC + (0.6215 * temp) - (11.37 * (windV ^ 0.16)) + ((0.3965 * temp) * (windV ^ 0.16))
fahrenheit = (windChillC * 1.8) + 32

windChillF = windChillF + (0.6215 * temp) - (35.75 * (windV ^ 0.16)) + ((0.4275 * temp) * (windV ^ 0.16))
celsius = (windChillF - 32) * (5 / 9)

Locate 7, 3
Print Using "Gefuehlte Temperatur ###.## Celsius. --> ###.## Fahrenheit"; windChillC, fahrenheit

Locate 9, 3
Print "Berechnung nach Fahrenheit"
Locate 10, 3
Print Using "WindChill Temperatur ###.## Fahrenheit. --> ###.## Celsius"; windChillF, celsius

End
Reply


Messages In This Thread
RE: Anyone know how frostbite thresholds are calculated? - by Kernelpanic - 02-04-2023, 10:06 PM



Users browsing this thread: 2 Guest(s)