forked from smallbasic/smallbasic.github.io
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy path131.bas
More file actions
39 lines (35 loc) · 664 Bytes
/
Copy path131.bas
File metadata and controls
39 lines (35 loc) · 664 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
'#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'