X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Funits%2Fsi%2Fsi.factor;h=d810a7705b0b7026f0287cbfa1693a1ea84c76a8;hp=f03d1049d1922e4c7d080c6c7df36cf756d7ca9e;hb=HEAD;hpb=004d2ed3b520eb9aa005b541a63d7abf57ebe01d

diff --git a/extra/units/si/si.factor b/extra/units/si/si.factor
index f03d1049d1..4ad2249493 100644
--- a/extra/units/si/si.factor
+++ b/extra/units/si/si.factor
@@ -52,6 +52,7 @@ IN: units.si
 : V ( n -- volt ) { m m kg } { s s s A } <dimensioned> ;
 : F ( n -- farad ) { s s s s A A } { m m kg } <dimensioned> ;
 : ohm ( n -- ohm ) { m m kg } { s s s A A } <dimensioned> ;
+ALIAS: Ω ohm
 : S ( n -- siemens ) { s s s A A } { m m kg } <dimensioned> ;
 : Wb ( n -- weber ) { m m kg } { s s A } <dimensioned> ;
 : T ( n -- tesla ) { kg } { s s A } <dimensioned> ;
@@ -59,7 +60,7 @@ IN: units.si
 : deg-C ( n -- Celsius ) 27315/100 + { K } { } <dimensioned> ;
 ALIAS: °C deg-C
 : lm ( n -- lumen ) { m m cd } { m m } <dimensioned> ;
-: lx ( n -- lux ) { m m cd } { m m m m  } <dimensioned> ;
+: lx ( n -- lux ) { m m cd } { m m m m } <dimensioned> ;
 : Bq ( n -- becquerel ) { } { s } <dimensioned> ;
 : Gy ( n -- gray ) { m m } { s s } <dimensioned> ;
 : Sv ( n -- sievert ) { m m } { s s } <dimensioned> ;
@@ -70,6 +71,7 @@ ALIAS: °C deg-C
 : arc-min ( n -- x ) pi 10800 / * radians ;
 : arc-sec ( n -- x ) pi 648000 / * radians ;
 : L ( n -- liter ) 1/1000 * m^3 ;
+ALIAS: l L
 : tons ( n -- metric-ton ) 1000 * kg ;
 : Np ( n -- neper ) { } { } <dimensioned> ;
 : B ( n -- bel ) 1.151292546497023 * Np ;
@@ -81,6 +83,7 @@ ALIAS: °C deg-C
 
 : a ( n -- are ) 100 * m^2 ;
 : ha ( n -- hectare ) 10000 * m^2 ;
+: km^2 ( n -- dimensioned ) 1000000 * m^2 ;
 : bar ( n -- bar ) 100000 * Pa ;
 : b ( n -- barn ) 1/10000000000000000000000000000 * m^2 ;
 : Ci ( n -- curie ) 37000000000 * Bq ;
@@ -95,27 +98,31 @@ ALIAS: °C deg-C
 : hours ( n -- dimensioned ) 60 * minutes ;
 : days ( n -- dimensioned ) 24 * hours ;
 
-! Y Z E P T G M k h da 1 d c m mu n p f a z y
-: yotta ( n -- x ) 1000000000000000000000000 * ;
-: zetta ( n -- x ) 1000000000000000000000 * ;
-: exa   ( n -- x ) 1000000000000000000 * ;
-: peta  ( n -- x ) 1000000000000000 * ;
-: tera  ( n -- x ) 1000000000000 * ;
-: giga  ( n -- x ) 1000000000 * ;
-: mega  ( n -- x ) 1000000 * ;
-: kilo  ( n -- x ) 1000 * ;
-: hecto ( n -- x ) 100 * ;
-: deca  ( n -- x ) 10 * ;
-: deci  ( n -- x ) 10 / ;
-: centi ( n -- x ) 100 / ;
-: milli ( n -- x ) 1000 / ;
-: micro ( n -- x ) 1000000 / ;
-: nano  ( n -- x ) 1000000000 / ;
-: pico  ( n -- x ) 1000000000000 / ;
-: femto ( n -- x ) 1000000000000000 / ;
-: atto  ( n -- x ) 1000000000000000000 / ;
-: zepto ( n -- x ) 1000000000000000000000 / ;
-: yocto ( n -- x ) 1000000000000000000000000 / ;
+! Q R Y Z E P T G M k h da 1 d c m mu n p f a z y r q
+: quetta ( n -- x ) 1000000000000000000000000000000 * ;
+: ronna  ( n -- x ) 1000000000000000000000000000 * ;
+: yotta  ( n -- x ) 1000000000000000000000000 * ;
+: zetta  ( n -- x ) 1000000000000000000000 * ;
+: exa    ( n -- x ) 1000000000000000000 * ;
+: peta   ( n -- x ) 1000000000000000 * ;
+: tera   ( n -- x ) 1000000000000 * ;
+: giga   ( n -- x ) 1000000000 * ;
+: mega   ( n -- x ) 1000000 * ;
+: kilo   ( n -- x ) 1000 * ;
+: hecto  ( n -- x ) 100 * ;
+: deca   ( n -- x ) 10 * ;
+: deci   ( n -- x ) 10 / ;
+: centi  ( n -- x ) 100 / ;
+: milli  ( n -- x ) 1000 / ;
+: micro  ( n -- x ) 1000000 / ;
+: nano   ( n -- x ) 1000000000 / ;
+: pico   ( n -- x ) 1000000000000 / ;
+: femto  ( n -- x ) 1000000000000000 / ;
+: atto   ( n -- x ) 1000000000000000000 / ;
+: zepto  ( n -- x ) 1000000000000000000000 / ;
+: yocto  ( n -- x ) 1000000000000000000000000 / ;
+: ronto  ( n -- x ) 1000000000000000000000000000 / ;
+: quecto ( n -- x ) 1000000000000000000000000000000 / ;
 
 ! Yi Zi Ei Pi Ti Gi Mi Ki
 : yobi ( n -- x ) 1208925819614629174706176 * ;
@@ -143,3 +150,4 @@ ALIAS: Ki kibi
 : g ( n -- dimensioned ) milli kg ;
 : ms ( n -- dimensioned ) milli s ;
 : angstrom ( n -- dimensioned ) 10 / nm ;
+ALIAS: Å angstrom