units.si: add four new si units

https://www.nature.com/articles/d41586-022-03747-9

diff --git a/extra/units/si/si.factor b/extra/units/si/si.factor
index f03d1049d1922e4c7d080c6c7df36cf756d7ca9e..d810a7705b0b7026f0287cbfa1693a1ea84c76a8 100644 (file)
--- a/extra/units/si/si.factor
+++ b/extra/units/si/si.factor
@@ -95,27 +95,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 * ;