'#sec:Main
''Wet and Dry Bulb 
print
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);"%"
print
print
pause 30'