06-27-2016, 03:33 AM
(source: http://ag.arizona.edu/azmet/dewpoint.html )
Code:
Program DEWPOINT
10 DESTROY T,H,V,W,C,D
20 INPUT “TEMP °F”;T
22 C=(T-32)*5/9
26 INPUT “REL HUMIDITY (%):”;H
30 V=(LOG(H%1)+17.27*C/(237.3+C))/17.27
32 W=237.3*V/(1-V)
40 D=9/5*W+32
42 DISP “DEW POINT °F:”;D
// Degree symbol: [ g ] [RUN] (CTRL) [ A ]