contrib/units/si-units.factor

   1 USING: math units ;
   2 IN: si-units
   3
   4 ! SI Conversions
   5 ! http://physics.nist.gov/cuu/Units/
   6
   7 ! Y Z E P T G M k h da 1 d c m mu n p f a z y
   8 : yotta>1 1000000000000000000000000 * ;
   9 : zetta>1 1000000000000000000000 * ;
  10 : exa>1   1000000000000000000 * ;
  11 : peta>1  1000000000000000 * ;
  12 : tera>1  1000000000000 * ;
  13 : giga>1  1000000000 * ;
  14 : mega>1  1000000 * ;
  15 : kilo>1  1000 * ;
  16 : hecto>1 100 * ;
  17 : deca>1  10 * ;
  18 : deci>1  10 / ;
  19 : centi>1 100 / ;
  20 : milli>1 1000 / ;
  21 : micro>1 1000000 / ;
  22 : nano>1  1000000000 / ;
  23 : pico>1  1000000000000 / ;
  24 : femto>1 1000000000000000 / ;
  25 : atto>1  1000000000000000000 / ;
  26 : zepto>1 1000000000000000000000 / ;
  27 : yocto>1 1000000000000000000000000 / ;
  28
  29
  30 ! Length
  31 SYMBOL: m
  32 : (m) { m } { } <dimensioned> ;
  33 : m (m) ;
  34 : km kilo>1 (m) ;
  35 : cm centi>1 (m) ;
  36 : mm milli>1 (m) ;
  37 : nm nano>1 (m) ;
  38
  39 ! Mass
  40 SYMBOL: kg
  41 : (kg) { kg } { } <dimensioned> ;
  42 : kg (kg) ;
  43 : g milli>1 (kg) ;
  44
  45 ! Time
  46 SYMBOL: s
  47 : (s) { s } { } <dimensioned> ;
  48 : s (s) ;
  49 : ms milli>1 (s) ;
  50
  51 ! Electric current
  52 SYMBOL: A
  53 : (A) { A } { } <dimensioned> ;
  54 : A (A) ;
  55
  56 ! Temperature
  57 SYMBOL: K
  58 : (K) { K } { } <dimensioned> ;
  59 : K (K) ;
  60
  61 ! Amount of substance
  62 SYMBOL: mol
  63 : (mol) { mol } { } <dimensioned> ;
  64 : mol (mol) ;
  65
  66 ! Luminous intensity
  67 SYMBOL: cd
  68 : (cd) { cd } { } <dimensioned> ;
  69 : cd (cd) ;
  70
  71
  72 ! SI derived units
  73 : m^2 { m m } { } <dimensioned> ;
  74 : m^3 { m m m } { } <dimensioned> ;
  75 : m/s { m } { s } <dimensioned> ;
  76 : m/s^2 { m } { s s } <dimensioned> ;
  77 : m^-1 { } { m } <dimensioned> ;
  78 : kg/m^3 { kg } { m m m } <dimensioned> ;
  79 : A/m^2 { A } { m m } <dimensioned> ;
  80 : A/m { A } { m } <dimensioned> ;
  81 : mol/m^3 { mol } { m m m } <dimensioned> ;
  82 : cd/m^2 { cd } { m m } <dimensioned> ;
  83 : kg/kg { kg } { kg } <dimensioned> ;
  84
  85 : radian ( n -- radian ) { m } { m } <dimensioned> ;
  86 : sr ( n -- steradian ) { m m } { m m } <dimensioned> ;
  87 : Hz ( n -- hertz ) { } { s } <dimensioned> ;
  88 : N ( n -- newton ) { kg m } { s s } <dimensioned> ;
  89 : Pa ( n -- pascal ) { kg } { m s s } <dimensioned> ;
  90 : J ( n -- joule ) { m m kg } { s s } <dimensioned> ;
  91 : W ( n -- watt ) { m m kg } { s s s } <dimensioned> ;
  92 : C ( n -- coulomb ) { s A } { } <dimensioned> ;
  93 : V ( n -- volt ) { m m kg } { s s s A } <dimensioned> ;
  94 : F ( n -- farad ) { s s s s A A } { m m kg } <dimensioned> ;
  95 : ohm ( n -- ohm ) { m m kg } { s s s A A } <dimensioned> ;
  96 : S ( n -- siemens ) { s s s A A } { m m kg } <dimensioned> ;
  97 : Wb ( n -- weber ) { m m kg } { s s A } <dimensioned> ;
  98 : T ( n -- tesla ) { kg } { s s A } <dimensioned> ;
  99 : H ( n -- henry ) { m m kg } { s s A A } <dimensioned> ;
 100 : deg-C ( n -- Celsius ) 273.15 + { K } { } <dimensioned> ;
 101 : lm ( n -- lumen ) { m m cd } { m m } <dimensioned> ;
 102 : lx ( n -- lux ) { m m cd } { m m m m  } <dimensioned> ;
 103 : Bq ( n -- becquerel ) { } { s } <dimensioned> ;
 104 : Gy ( n -- gray ) { m m } { s s } <dimensioned> ;
 105 : Sv ( n -- sievert ) { m m } { s s } <dimensioned> ;
 106 : kat ( n -- katal ) { mol } { s } <dimensioned> ;
 107
 108 ! Extensions to the SI
 109 : arc-deg pi 180 / * radian ;
 110 : arc-min pi 10800 / * radian ;
 111 : arc-sec pi 648000 / * radian ;
 112 : L ( n -- liter ) 1/1000 * m^3 ;
 113 : tons ( n -- metric-ton ) 1000 * kg ;
 114 : Np ( n -- neper ) { } { } <dimensioned> ;
 115 : B ( n -- bel ) 1.151292546497023 * Np ;
 116 : eV ( n -- electronvolt ) 1.60218e-19 * J ;
 117 : u ( n -- unified-atomic-mass-unit ) 1.66054e-27 * kg ;
 118 : au ( n -- astronomical-unit ) 149598000000 * m ;
 119
 120 : nautical-miles 1852 * m ;
 121 : knots 1852/3600 * m/s ;
 122 : a ( n -- are ) 100 * m^2 ;
 123 : ha ( n -- hectare ) 10000 * m^2 ;
 124 : bar ( n -- bar ) 100000 * Pa ;
 125 : angstrom .1 * nm ;
 126 : b ( n -- barn ) 1/10000000000000000000000000000 * m^2 ;
 127 : Ci ( n -- curie ) 37000000000 * Bq ;
 128 : R 0.000258 { s A } { kg } <dimensioned> ;
 129 : rad .01 * Gy ;
 130 : rem .01 * Sv ;
 131