home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 3.ddi / FILES / MISCELLA.PAK / SIUNITS.M < prev    next >
Encoding:
Text File  |  1992-07-29  |  1.7 KB  |  58 lines
  1.  
  2. (* :Title: SIUnits *)
  3.  
  4. (* :Author: Wolfram Research *)
  5.  
  6. (* :Summary: SI and derived SI unit usage messages *)
  7.  
  8. (* :Package Version: 1.0 *)
  9.  
  10. (* :Copyright: *)
  11.  
  12. (* :Context: Miscellaneous`SIUnits` *)
  13.  
  14. (* :History:
  15.     ECM (Wolfram Research), November, 1990 *)
  16.  
  17. (* :Keywords: *)
  18.  
  19. (* :Source:
  20.     CRC Handbook of Chemistry & Physics, 69th edition, 1988-1989 *)
  21.  
  22. (* :Limitation: none *)
  23.  
  24. (* :Discussion: *)
  25.  
  26. BeginPackage["Miscellaneous`SIUnits`"]
  27.  
  28. (** fundamental SI units usage **)
  29.  
  30. Map[(Evaluate[#[[1]]]::"usage" =
  31.    StringJoin[ToString[#[[1]]], " is the fundamental SI unit of ", #[[2]]])&,
  32.     {{Meter,"length."},{Kilogram,"mass."},{Second,"time."},
  33.      {Ampere,"electric current."},{Kelvin,"thermodynamic temperature."},
  34.      {Mole,"amount of substance."},
  35.      {Candela,"luminous intensity (candlepower)."}}
  36.     ]
  37.  
  38. $NewMessage[ Second, "usage"]
  39. Second::usage = StringJoin[ Second::usage, "   It is also used as the fundamental SI unit of time."]
  40.  
  41. (** derived SI units usage **)
  42.  
  43. Map[(Evaluate[#[[1]]]::"usage" =
  44.     StringJoin[ToString[#[[1]]], " is the derived SI unit of ", #[[2]]])&,
  45.     {{Newton,"force."},{Pascal,"pressure."},{Joule,"energy."},
  46.     {Watt,"power."},{Coulomb,"electric charge."},
  47.     {Volt,"electric potential difference."},{Ohm,"electric resistance."},
  48.     {Siemens,"electric conductance."},{Farad,"electric capacitance."},
  49.     {Weber,"magnetic flux."},{Henry,"inductance."},
  50.     {Tesla,"magnetic flux density."},{Lumen,"luminous flux."},
  51.     {Lux,"illumination (illuminance)."},{Hertz,"frequency."},
  52.     {Becquerel,"radioactivity."},{Gray,"absorbed dose of radiation."}}
  53.     ]
  54. Amp::usage =
  55.     "Amp, short for Ampere, is the fundamental SI unit of electric current."
  56.  
  57. EndPackage[]
  58.