API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 11th, 2013
256
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GwBasic 14.39 KB | None | 0 0
raw download clone embed print report
  1. <html><head><title>IREQver4_2</title>
  2. <meta http-equiv=Content-Type
  3. content="text/html; charset=windows-1252"><content="text charset='iso-8859-1"'
  4. html;>
  5. <style type=TEXT/CSS></style>
  6.  
  7. <meta content="MSHTML 6.00.2600.0" name=GENERATOR></head>
  8. <body vlink=#003300 alink=#ff0000 link=#993333 bgcolor=#ffffff>
  9. <script language=JavaScript type=text/javascript>
  10. <!--//  Developed by Ingvar Holmer and Hakan O. Nilsson, 1990.
  11. //  Altered by Hakan O. Nilsson and Ingvar Holmer, 1992.
  12. //  Javascript original by Tomas Morales & Pilar Armenderiz, 1998.
  13. //  Modified content and code by Hakan O. Nilsson and Ingvar Holmer, 2000-2002.
  14.  
  15. function calcIREQ(form) {
  16.     var M,Ta,Tr,p,w,v,rh,Tsk,wetness,Tex,Pex,
  17.     Psks,fcl,W,vp,Icl,Iclr,Pa,Tcl,hc,hr,
  18.     IREQ,Ia,Rt,factor,Balance,R,C,Hres,
  19.     E,S,DLE,ArAdu,IclCorr,slask,worktype,calculation,
  20.     message,IREQneutral,IREQminimal,DLEneutral,DLEminimal = 1;
  21.     M = eval(form.M.value); W = eval(form.W.value);
  22.     Ta = eval(form.Ta.value); Tr = eval(form.Tr.value);
  23.     p = eval(form.p.value); w = eval(form.w.value);
  24.     v = eval(form.v.value); rh = eval(form.rh.value);
  25.     Icl = eval(form.Icl.value);
  26.     form.message.value="CALCULATION IN PROGRESS!";
  27.     if (M<=58) {
  28.         M=58; form.M.value=M;
  29.     }
  30.     if (M>=400) {
  31.         M=400
  32.     ; form.M.value=M;
  33.     }
  34.     if (Ta>=10) {
  35.         Ta=10; form.Ta.value=Ta;
  36.     }
  37.     // Calculation of stationary w (m/s)
  38.     if (w<=0.0052*(M-58)) {
  39.         w=0.0052*(M-58); form.w.value=Math.round(w*10)/10;
  40.     }  
  41.     if (w>=1.2) {
  42.         w=1.2; form.w.value=1.2;
  43.     }
  44.     if (v<=0.4) {
  45.         v=0.4; form.v.value=v;
  46.     }
  47.     if (v>=18) {
  48.         v=18; form.v.value=v;
  49.     }
  50.     Icl=Icl*0.155;
  51.     Ia=0.092*Math.exp(-0.15*v-0.22*w)-0.0045;
  52.     calculation=0;
  53.     do {
  54.         calculation=calculation+1;
  55.         // Calculation of Tsk (C) and wetness (%)
  56.         if (calculation==1) {
  57.             // For IREQminimal, DLEminimal !
  58.             Tsk=33.34-0.0354*M;
  59.             wetness=0.06;
  60.         }
  61.             else    {
  62.             // For IREQneutral, DLEneutral !
  63.             Tsk=35.7-0.0285*M;
  64.             wetness=0.001*M;
  65.         }
  66.         // Calculation of Tex (C) and Pex,Psks,Pa (Pa)
  67.         Tex=29+0.2*Ta;                    
  68.         Pex=0.1333*Math.exp(18.6686-4030.183/(Tex+235));
  69.         Psks=0.1333*Math.exp(18.6686-4030.183/(Tsk+235));
  70.         Pa=(rh/100)*0.1333*Math.exp(18.6686-4030.183/(Ta+235));
  71.         // Calculation of IREQ (m2C/W),Rt (m2kPa/W),fcl (n.d.),hr W/m2C with stepwise iteration
  72.         IREQ=0.5; hr=3; ArAdu=0.77; factor=0.5; // Initial values !
  73.         do {
  74.             fcl=1+1.197*IREQ;        
  75.             Rt=(0.06/0.38)*(Ia+IREQ);
  76.             E=wetness*(Psks-Pa)/Rt;
  77.             Hres=1.73E-2*M*(Pex-Pa)+1.4E-3*M*(Tex-Ta);      
  78.             Tcl=Tsk-IREQ*(M-W-E-Hres);
  79.             hr=5.67E-8*0.95*ArAdu*(Math.exp(4*Math.log(273+Tcl))-
  80.             Math.exp(4*Math.log(273+Tr)))/(Tcl-Tr);
  81.             hc=1/Ia-hr;
  82.             R=fcl*hr*(Tcl-Tr);
  83.             C=fcl*hc*(Tcl-Ta);
  84.             Balance=M-W-E-Hres-R-C;
  85.             if (Balance>0)  {
  86.                 IREQ=IREQ-factor;
  87.                 factor=factor/2;
  88.             }
  89.             else {
  90.                 IREQ=IREQ+factor;        
  91.             }
  92.  
  93.         } while (Math.abs(Balance) > 0.01);
  94.         IREQ=(Tsk-Tcl)/(R+C);
  95.  
  96.         // *** Calculation of Dlimneutral and Dlimminimal ***
  97.         // Calculation of S (W/m2), Rt (m2kPa/W), fcl (n.d.), hr W/m2C with stepwise iteration
  98.         Tcl=Ta; hr=3; S=-40; ArAdu=0.77; factor=500; Iclr=Icl; // Initial values !
  99.         do {
  100.             fcl=1+1.197*Iclr;
  101.             Iclr=((Icl+0.085/fcl)*(0.54*Math.exp(-0.15*v-0.22*w)*Math.pow(p,0.075)-0.06*Math.log(p)+0.5)-
  102.             (0.092*Math.exp(-0.15*v-0.22*w)-0.0045)/fcl);
  103.             Rt=(0.06/0.38)*(Ia+Iclr);
  104.             E=wetness*(Psks-Pa)/Rt;
  105.             Hres=1.73E-2*M*(Pex-Pa)+1.4E-3*M*(Tex-Ta);
  106.             Tcl=Tsk-Iclr*(M-W-E-Hres-S);      
  107.             hr=5.67E-8*0.95*ArAdu*(Math.exp(4*Math.log(273+Tcl))-
  108.             Math.exp(4*Math.log(273+Tr)))/(Tcl-Tr);
  109.             hc=1/Ia-hr;
  110.             R=fcl*hr*(Tcl-Tr);
  111.             C=fcl*hc*(Tcl-Ta);
  112.             Balance=M-W-E-Hres-R-C-S;  
  113.             if (Balance>0)  {
  114.                 S=S+factor;
  115.                 factor=factor/2;
  116.             }
  117.             else {
  118.                 S=S-factor;
  119.             }    
  120.         } while (Math.abs(Balance) > 0.01);
  121.         DLE=-40/S;
  122.         form.message.value="CALCULATION READY!";
  123.         if (calculation==1) {
  124.             form.IREQminimal.value=Math.round((IREQ/0.155)*10)/10;
  125.             form.ICLminimal.value=Math.round((((IREQ+Ia/fcl)/(0.54*Math.exp(-0.15*v-0.22*w)*
  126.             Math.pow(p,0.075)-0.06*Math.log(p)+0.5))-0.085/fcl)/0.155*10)/10;
  127.             if (S>-8)
  128.                 form.DLEminimal.value="more than 8"
  129.             else
  130.                 form.DLEminimal.value=Math.round(DLE*10)/10
  131.         }
  132.         else    {
  133.             form.IREQneutral.value=Math.round((IREQ/0.155)*10)/10;
  134.             form.ICLneutral.value=Math.round((((IREQ+Ia/fcl)/(0.54*Math.exp(-0.15*v-0.22*w)*
  135.             Math.pow(p,0.075)-0.06*Math.log(p)+0.5))-0.085/fcl)/0.155*10)/10;
  136.             if (S>-8)
  137.                 form.DLEneutral.value="more than 8"
  138.             else
  139.                 form.DLEneutral.value=Math.round(DLE*10)/10
  140.             if (Icl/0.155>form.ICLneutral.value)
  141.                 form.message.value="AVAILABLE > REQUIRED MINIMAL & NEUTRAL basic clothing insulation";
  142.         }
  143.     } while (calculation < 2);
  144. }
  145.  
  146. function calcRT(form) {
  147.     var M,Ta,Tr,p,w,v,rh,Tsk,wetness,Tex,Pex,
  148.     Psks,fcl,W,vp,Icl,Iclr,Pa,Tcl,hc,hr,
  149.     IREQ,Ia,Rt,factor,Balance,R,C,Hres,
  150.     E,S,DLE,ArAdu,IclCorr,slask,worktype,calculation,
  151.     message,IREQneutral,IREQminimal,DLEneutral,DLEminimal = 1;
  152.     M = eval(form.M.value); W = eval(form.W.value);
  153.     Ta = eval(form.Ta.value); Tr = eval(form.Tr.value);
  154.     p = eval(form.p.value); w = eval(form.w.value);
  155.     v = eval(form.v.value); rh = eval(form.rh.value);
  156.     Icl = eval(form.Icl.value);
  157.     form.message.value="CALCULATION IN PROGRESS!";
  158.     if (M<=58) {
  159.         M=58; form.M.value=M;
  160.     }
  161.     if (M>=400) {
  162.         M=400; form.M.value=M;
  163.     }
  164.     // Calculation of stationary w (m/s)
  165.     if (w<=0.0052*(M-58)) {
  166.         w=0.0052*(M-58);
  167.         form.w.value=Math.round(w*10)/10;
  168.     }  
  169.     if (w>=1.2) {
  170.         w=1.2; form.w.value=1.2;
  171.     }
  172.     if (v<=0.4) {
  173.         v=0.4; form.v.value=v;
  174.     }
  175.     if (v>=18) {
  176.         v=18; form.v.value=v;
  177.     }
  178.     Icl=Icl*0.155;
  179.     Ia=(0.092*Math.exp(-0.15*v-0.22*w)-0.0045);
  180.     calculation=0;
  181.     do {
  182.         calculation=calculation+1;
  183.         // Calculation of Tsk (C) and wetness (%)
  184.         // For RTneutral!
  185.         Tsk=35.7-0.0285*M;
  186.         wetness=0.001*M;
  187.         // Calculation of Tex (C) and Pex,Psks,Pa (Pa)
  188.         Tex=29+0.2*Ta;                    
  189.         Pex=0.1333*Math.exp(18.6686-4030.183/(Tex+235));
  190.         Psks=0.1333*Math.exp(18.6686-4030.183/(Tsk+235));
  191.         Pa=(rh/100)*0.1333*Math.exp(18.6686-4030.183/(Ta+235));  
  192.         // Calculation of S (W/m2), Rt (m2kPa/W), fcl (n.d.), hr W/m2C with stepwise iteration
  193.         Tcl=Ta; hr=3; S=-40; ArAdu=0.77; factor=100; Iclr=Icl;// Initial values !          
  194.         do {
  195.             fcl=1+1.97*Iclr;
  196.             Iclr=((Icl+0.085/fcl)*(0.54*Math.exp(-0.15*v-0.22*w)*Math.pow(p,0.075)-0.06*Math.log(p)+0.5)-
  197.             (0.092*Math.exp(-0.15*v-0.22*w)-0.0045)/fcl);
  198.             Rt=(0.06/0.38)*(Ia+Iclr);
  199.             E=wetness*(Psks-Pa)/Rt;
  200.             Hres=1.73E-2*M*(Pex-Pa)+1.4E-3*M*(Tex-Ta);
  201.             Tcl=Tsk-Iclr*(M-W-E-Hres-S);      
  202.             hr=5.67E-8*0.95*ArAdu*(Math.exp(4*Math.log(273+Tcl))-Math.exp(4*Math.log(273+Tr)))/(Tcl-Tr);
  203.             hc=1/Ia-hr;
  204.             R=fcl*hr*(Tcl-Tr);
  205.             C=fcl*hc*(Tcl-Ta);
  206.             Balance=M-W-E-Hres-R-C-S;  
  207.             if (Balance>0)  {
  208.                 S=S+factor;
  209.                 factor=factor/2;
  210.             }
  211.             else {
  212.                 S=S-factor;        
  213.             }    
  214.         } while (Math.abs(Balance) > 0.01);
  215.         DLE=-40/S;
  216.         form.message.value="CALCULATION READY!";
  217.         if (DLE>=0)
  218.             form.message.value="CALCULATION INVALID! (Negative body heat storage)"
  219.                  else
  220.             form.RTneutral.value=Math.round(Math.abs(DLE)*10)/10
  221.         } while (calculation<2)
  222. }
  223.  
  224. function calctwc(form) {
  225.     var v,Tawci,WCI,twc = 1;
  226.     v = eval(form.v.value);
  227.     v = v*1.0
  228.     Tawci = eval(form.Tawci.value);
  229.     twc = 13.12+0.6215*Tawci-11.37*Math.pow(v,0.16)+0.3965*Tawci* Math.pow(v,0.16);
  230.     form.twc.value = Math.round(twc);
  231. }
  232.  
  233. function interpret()
  234. {
  235. alert("Read the  standard, ISO 11079!");
  236. }
  237. --></script>
  238.  
  239. <table cellspacing=0 cellpadding=0 width=600 bgcolor=#ffffff border=0>
  240.   <tbody>
  241.   <tr>
  242.     <td>
  243.       <p align=center><font face=Arial color=#4276ff size=3><strong>JAVA applet for
  244.       ISO 11079</strong></font></p>
  245.       <p align=center><font face=Arial color=#4276ff size=4><strong>CALCULATION
  246.       OF REQUIRED CLOTHING INSULATION (IREQ),<br>DURATION LIMITED EXPOSURE
  247.       (Dlim), <br>REQUIRED RECOVERY TIME (RT),<br> and Wind Chill Temperature (twc) </strong></font><font color=#4276ff>
  248.       </font></p>
  249.       <p align=center><font
  250.       face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular>IREQ 2008  <b>ver
  251.       4.2</b>, Hakan O. Nilsson and Ingvar Holmer.<b><br>BOOKMARK THIS PAGE in
  252.       order to ALWAYS use the LATEST VERSION of the code.</b><br>Disclaimer and
  253.       references at the end of the
  254. document.</font></p></td></tr></tbody></FONT></table>
  255. <form name=IREQform action=*>
  256. <table cellspacing=1 width=600 bgcolor=#e1e8ff border=1><font
  257.   face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular>
  258.   <tbody></font>
  259.   <tr>
  260.     <td>
  261.       <p align=center><font face=Arial color=#4276ff size=3><b>CALCULATION OF
  262.       REQUIRED INSULATION, IREQ AND<br>DURATION LIMITED EXPOSURE, D<b>lim</b></b>
  263.       </font></p>
  264.       <p><font face=Arial size=2><input size=5 value=116 name=M> M (W/m2),
  265.       Metabolic energy production (58 to 400 W/m2)<br><input size=5 value=0
  266.       name=W> W (W/m2), Rate of mechanical work, (normally 0)<br><input size=5
  267.       value=-15 name=Ta> Ta (C), Ambient air temperature (&lt; +10 C)<br><input
  268.       size=5 value=-15 name=Tr> Tr (C), Mean radiant temperature (often close to
  269.       ambient air temperature)<br><input size=5 value=8 name=p> p (l/m2s), Air
  270.       permeability (low &lt; 5, medium 50, high &gt; 100 l/m2s) <br><input
  271.       size=5 value=0 name=w> w (m/s), Walking speed (or calculated work created
  272.       air movements)<br><input size=5 value=0.4 name=v> v (m/s), Relative air
  273.       velocity (0.4 to 18 m/s)<br><input size=5 value=85 name=rh> rh (%),
  274.       Relative humidity<br><input size=5 value=2.5 name=Icl> Icl (clo),
  275.       AVAILABLE basic clothing insulation (1 clo = 0.155 W/m2K)</font></p>
  276.       <p align=center><font face=Arial size=2><input onclick=calcIREQ(this.form) type=button value="Calculate IREQ" name=name>
  277. <input onclick=interpret() type=button value="Interpret IREQ" name=name>
  278.       </font></p>
  279.       <p><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular><strong><i>IREQ
  280.       &amp; Dlim RESULTS (minimal to neutral)</i></strong></font></p>
  281.       <p><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular><i>Insulation
  282.       Required, IREQ <input size=10 value=IREQminimal name=IREQminimal> to
  283.       <input size=10 value=IREQneutral name=IREQneutral> (clo)</i></p>
  284.       <p><i>REQUIRED basic clothing insulation (ISO 9920), Icl <input size=10
  285.       value=ICLminimal name=ICLminimal> to <input size=10 value=ICLneutral
  286.       name=ICLneutral> (clo)</i></p>
  287.       <p><i>Duration limited exposure, Dlim <input size=10 value=DLEminimal
  288.       name=DLEminimal> to <input size=10 value=DLEneutral name=DLEneutral>
  289.       (hours)</i></p>
  290.       <p><input size=80 value=message name=message></font>
  291. </p></td></tr></tbody></table></form>
  292. <form name=rtform action=*>
  293. <table cellspacing=1 width=600 bgcolor=#e1e8ff border=1>
  294.   <tbody>
  295.   <tr>
  296.     <td>
  297.       <p align=center><font face=Arial color=#4276ff size=3><b>CALCULATION OF
  298.       REQUIRED RECOVERY TIME, RT</b> </font></p>
  299.       <p><font face=Arial size=2><input size=5 value=90 name=M> M (W/m2),
  300.       Metabolic energy production, (normally lower!)<br><input size=5 value=0
  301.       name=W> W (W/m2), Rate of mechanical work, (normally 0)<br><input size=5
  302.       value=25 name=Ta> Ta (C), Ambient air temperature, (normally
  303.       warmer!)<br><input size=5 value=25 name=Tr> Tr (C), Mean radiant
  304.       temperature, (normally warmer!)<br><input size=5 value=8 name=p> p
  305.       (l/m2s), Air permeability<br><input size=5 value=0 name=w> w (m/s),
  306.       Walking speed (normally lower)<br><input size=5 value=0.4 name=v> v (m/s),
  307.       Relative air velocity (normally lower!)<br><input size=5 value=50 name=rh>
  308.       rh (%), Relative humidity<br><input size=5 value=1.5 name=Icl> Icl (clo),
  309.       Available basic clothing insulation, (normally lower!)</font></p>
  310.       <p align=center><font face=Arial size=2><input onclick=calcRT(this.form) type=button value="Calculate RT" name=name>
  311. <input onclick=interpret() type=button value="Interpret RT" name=name>
  312.       </font></p>
  313.       <p><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular><strong><i>RT
  314.       RESULTS (neutral)</i></strong></p>
  315.       <p><i>Required recovery time <input size=10 value=RTneutral
  316.       name=RTneutral> (hours)</p>
  317.       <p></i><input size=80 value=message name=message>
  318. </p></font></td></tr></tbody></table></form>
  319. <form name=twcform action=*>
  320. <table cellspacing=1 width=600 bgcolor=#e1e8ff border=1 colour="#0000FF">
  321.   <tbody>
  322.   <tr>
  323.     <td>
  324.       <p align=center><font face=Arial color=#4276ff size=3><b>CALCULATION OF
  325.       WINDCHILL TEMPERATURE, twc</b> </font></p>
  326.       <p><font face=Arial size=2><input size=5 value=6.8 name=v> v (km/h),
  327.     <b>Meteorological wind speed (at 10 m)</b><br><input size=5 value=-25 name=Tawci> Ta (C),
  328.       Ambient air temperature </font></p>
  329.       <p align=center><font face=Arial size=2><input onclick=calctwc(this.form) type=button value="Calculate twc" name=name>
  330. <input onclick=interpret() type=button value="Interpret twc" name=name>
  331.       </font></p>
  332.    
  333.       <p>Wind chill temperature, twc <input size=10 value=twc name=twc>
  334.       (C)</i></font> </p></td></tr></tbody></table></form>
  335. <table cellspacing=0 width=600 border=0>
  336.   <tbody>
  337.   <tr>
  338.     <td>
  339.       <hr size=1>
  340.     </td>
  341.     <td valign=bottom width="100%">
  342.       <p align=left><font
  343.       face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular><b>Disclaimer</b><br>The
  344.       authors disclaim all obligations and liabilities for damages arising from
  345.       the use or attempted use of the information, including, but not limited
  346.       to, direct, indirect, special and consequential damages, and attorneys'
  347.       and experts' fees and court costs.<b><br>Any use of the information will
  348.       be at the risk of the user.</b></font></p>
  349.       <p><font
  350.       face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular><b>References</b><br>ISO
  351.       11079, 2007-12-15,  ERGONOMICS OF THE THERMAL
  352.       ENVIRONMENT - DETERMINATION AND INTERPRETATION OF COLD STRESS WHEN USING
  353.       REQUIRED CLOTHING INSULATION (IREQ) AND LOCAL COOLING EFFECTS</p>
  354.      
  355.       Web-contact: <b>Ingvar Holmer </p>
  356.     </b>
  357.     Email:  ingvar.holmer@design.lth.se
  358.     </b></font></a><font
  359.       face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular>&nbsp; </font></p></td>
  360.     <td valign=bottom width="30%"><a
  361.       href="http://www.niwl.se/default_en.htm"><font
  362.       face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular><img height=35 src=""
  363.       width=96 border=0
  364. valign="bottom"></font></a></td></tr></tbody></table></body></html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!