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,[0],{60,20,1}},        {rh,[0],{60,20,2}},        {hi,[0],{60,20,4}},        {hi2,[0],{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)