home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / DERIVE.ZIP / METRIC.MTH < prev    next >
Encoding:
Text File  |  1989-09-18  |  923 b   |  83 lines
  1. "File:  METRIC.MTH  (c)           09/18/89           Soft Warehouse, Inc."
  2.  
  3. "Defines metric measurement units in terms of meters, grams, and seconds:"
  4.  
  5. TERA:=10^12
  6.  
  7. GIGA:=10^9
  8.  
  9. MEGA:=10^6
  10.  
  11. KILO:=1000
  12.  
  13. HECTO:=100
  14.  
  15. DECA:=10
  16.  
  17. DECI:=0.1
  18.  
  19. CENTI:=0.01
  20.  
  21. MILLI:=0.001
  22.  
  23. MICRO:=10^(-6)
  24.  
  25. NANO:=10^(-9)
  26.  
  27. PICO:=10^(-12)
  28.  
  29. METER:=
  30.  
  31. MICRON:=MICRO*METER
  32.  
  33. ANGSTROM:=10^(-8)*CENTI*METER
  34.  
  35. ARE:=100*METER^2
  36.  
  37. HECTARE:=HECTO*ARE
  38.  
  39. LITER:=1/1000*METER^3
  40.  
  41. GRAM:=
  42.  
  43. METRIC_TON:=1000*KILO*GRAM
  44.  
  45. CARAT:=200*MILLI*GRAM
  46.  
  47. SECOND:=
  48.  
  49. MINUTE:=60*SECOND
  50.  
  51. HOUR:=60*MINUTE
  52.  
  53. DAY:=24*HOUR
  54.  
  55. WEEK:=7*DAY
  56.  
  57. YEAR:=365.2422*DAY
  58.  
  59. DECADE:=10*YEAR
  60.  
  61. CENTURY:=100*YEAR
  62.  
  63. NEWTON:=KILO*GRAM*METER/SECOND^2
  64.  
  65. DYNE:=NEWTON/100000
  66.  
  67. JOULE:=NEWTON*METER
  68.  
  69. ERG:=JOULE/10000000
  70.  
  71. WATT:=JOULE/SECOND
  72.  
  73. FOOT:=0.3048*METER
  74.  
  75. POUND:=453.59237*GRAM
  76.  
  77. COULOMB:=SQRT(METER)*SQRT(GRAM)/100
  78.  
  79. DEGREE_KELVIN:=
  80.  
  81. MOLE:=
  82.  
  83.