home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Internet / jvscript116beta / JvScript / !JvScript / Resources / Scripts / XCalcs / 6 < prev   
Encoding:
Text File  |  1999-09-15  |  1.3 KB  |  58 lines
  1. #newformat
  2. _title:Wind Chill
  3. _author:James P. Dildine
  4. _source:http://www.mste.uiuc.edu/dildine
  5. _description:Calculates the wind chill factor, given wind speed and air temperature.
  6.  
  7. _insert-in:inhead
  8. <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
  9. <!-- Original:  James P. Dildine (jpd@wlsmail.com) -->
  10. <!-- Web Site:  http://www.mste.uiuc.edu/dildine -->
  11.  
  12. <!-- This script and many more are available free online at -->
  13. <!-- The JavaScript Source!! http://javascript.internet.com -->
  14.  
  15. <!-- Begin
  16. function windChill(form) {
  17. wind=eval(form.wind.value);
  18. temp=eval(form.temp.value);
  19. chill=(0.0817*(3.71*(Math.pow(wind, 0.5))+
  20. 5.81-0.25*wind)*(temp-91.4)+91.4);
  21. form.windchill.value = chill;
  22. }
  23. //  End -->
  24. </SCRIPT>
  25. _end-insert:
  26.  
  27. _insert-in:inbody
  28. <FORM ACTION="" METHOD=POST NAME=windform>
  29. <CENTER>
  30. <TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0 WIDTH="250">
  31. <TR>
  32. <TD ALIGN=CENTER>
  33. Wind Speed (MPH) =
  34. </TD>
  35. <TD ALIGN=CENTER>
  36. <INPUT TYPE=TEXT NAME=wind VALUE="" SIZE=6>
  37. </TD>
  38. </TR>
  39. <TR>
  40. <TD ALIGN=CENTER>
  41. Air Temperature (ºF) =
  42. </TD>
  43. <TD ALIGN=CENTER>
  44. <INPUT TYPE=TEXT NAME=temp VALUE="" SIZE=6>
  45. </TD>
  46. </TR>
  47. <TR>
  48. <TD COLSPAN=2 ALIGN=CENTER>
  49. <BR>
  50. <INPUT TYPE=BUTTON VALUE="Calculate Wind Chill" onclick="windChill(this.form)">
  51. <P>
  52. <INPUT NAME=windchill TYPE=TEXT VALUE="" SIZE=10> ° F
  53. </TD>
  54. <TR>
  55. </TABLE>
  56. </CENTER>
  57. </FORM>
  58. _end-insert: