How do I use AFiles in an App?
07-14-2015, 01:56 AM
Post: #1
 Bob Frazee Member Posts: 76 Joined: Dec 2013
How do I use AFiles in an App?
The following code works if you paste it into a copy of the Function App
Here's the App:
Code:

//Variables...
t;rh;
hi;hi2;tmp;

// Subroutine...
HeatIndex();

EXPORT HeatIndex1()
BEGIN
END;

VIEW "Start HeatIndex",START()

BEGIN
t:=AVars("t");rh:=AVars("rh");
STARTVIEW(-1,1);

WHILE GETKEY<>4 DO
REPEAT
tmp:=INPUT({{t,,{60,20,1}},
{rh,,{60,20,2}},
{hi,,{60,20,4}},
{hi2,,{60,20,5}}
},

"Heat Index Input and Output",

{"Temperature, Deg F  : ",
"Relative Humidity, %  : ",
"Heat Index, Deg F  :",
"Heat Index, Deg F  :"
},

{" Air Temperature (80 to 104 °F)",
" Relative Humidity (40 to 100 %)",
" Heat Index from www.weatherimages.org",
" Heat Index from www.4wx.com"
},

{t,rh,hi,hi2},
{t,rh,hi,hi2});

AVars("t"):=t;AVars("rh"):=rh;

IF tmp==0 THEN
STARTVIEW(-4,1);
MSGBOX("End of Program");
RETURN;
END;

UNTIL t>=80. AND t<=104. AND rh>=40. AND rh<=100.;

HeatIndex();

END; // While

STARTVIEW(-4,1);
MSGBOX("End of Program");
END;

HeatIndex()
BEGIN
// This is the 16 element equation used to convert
// dry bulb temperature (T) and relative humidity (RH)
// into the Heat Index. This equation works at
// dry bulb temperatures of 70°F and higher.
// The symbol  "^"   means  "raised to the power of".
//  Source: http://www.weatherimages.org/data/heatindex.html

//  Where:
//  hi = Heat Index
//  t = Temperature (° F)
//  rh = Relative Humidity (%)

tmp:=16.923;
tmp:=tmp+1.85212*10^(-1)*t;
tmp:=tmp+5.37941*rh;
tmp:=tmp-1.00254*10^(-1)*t*rh;
tmp:=tmp+9.41695*10^(-3)*t^2;
tmp:=tmp+7.28898*10^(-3)*rh^2;
tmp:=tmp+3.45372*10^(-4)*t^2*rh;
tmp:=tmp-8.14971*10^(-4)*t*rh^2;
tmp:=tmp+1.02102*10^(-5)*t^2*rh^2;
tmp:=tmp-3.8646*10^(-5)*t^3;
tmp:=tmp+2.91583*10^(-5)*rh^3;
tmp:=tmp+1.42721*10^(-6)*t^3*rh;
tmp:=tmp+1.97483*10^(-7)*t*rh^3;
tmp:=tmp-2.18429*10^(-8)*t^3*rh^2;
tmp:=tmp+8.43296*10^(-10)*t^2*rh^3;
hi:=tmp-4.81975*10^(-11)*t^3*rh^3;
hi:=ROUND(hi,0);

//  Source: http://www.4wx.com/wxcalc/formulas/heatIndex.php
tmp:=-42.379;
tmp:=tmp+2.04901523*t;
tmp:=tmp+10.14333127*rh;
tmp:=tmp-.22475541*t*rh;
tmp:=tmp-6.83783*10^(-3)*t^2;
tmp:=tmp-5.481717*10^(-2)*rh^2;
tmp:=tmp+1.22874*10^(-3)*t^2*rh;
tmp:=tmp+8.5282*10^(-4)*t*rh^2;
hi2:=tmp-1.99*10^(-6)*t^2*rh^2;
hi2:=ROUND(hi2,0);
END;
I want to take the subroutine HeatIndex(), and move it to the AFiles folder of this app. For me, the explanation in the AFiles help section of the emulator is inadequate. I need help in how to structure the code in order to run this App with the subroutine HeatIndex() in the AFiles folder. Thanks for any help you can provide.
rcf
 « Next Oldest | Next Newest »

 Messages In This Thread How do I use AFiles in an App? - Bob Frazee - 07-14-2015 01:56 AM RE: How do I use AFiles in an App? - eried - 07-14-2015, 03:22 AM RE: How do I use AFiles in an App? - cyrille de brébisson - 07-14-2015, 04:34 AM RE: How do I use AFiles in an App? - Bob Frazee - 07-14-2015, 09:39 PM

User(s) browsing this thread: 1 Guest(s)