smallbasic.github.io/samples/node/131.bas at master · smallbasic/smallbasic.github.io · GitHub

39 lines (35 loc) · 664 Bytes

'#sec:Main

''Wet and Dry Bulb

Input "Wet Bulb";wet

Input "Dry Bulb";dry

Input "Pressure";Pressure

ed=6.11*exp(17.27*dry/(dry+237.3))

ew=6.11*exp(17.27*wet/(wet+237.3))

wd=.62197*ed/(pressure-ed)

ww=.62197*ew/(pressure-ew)

w=(2500*ww-1.0046*(dry-wet))/(2500+1.81*(dry-wet))

f=w/wd

v=pressure*w/(.62197+w)

td=(237.3*LOG10(v)-186.527)/(8.286-LOG10(v))

cls

Print "Reletive Humidity"

locate 4,2

print"Wet Bulb"

print "Dry Bulb"

print "Pressure"

print "Dewpoint"

print "Reletive Humidity"

locate 4,16

print wet

locate 5,16

print dry

locate 6,16

print pressure

locate 7,16

print round (td,1);" deg C"

locate 8,16

print round(f*100,1);"%"

pause 30'

Expand file tree