ISO 80000 International System of Quantities binary prefixes

Not strictly part of the International System of Units (SI)

diff --git a/extra/units/si/authors.txt b/extra/units/si/authors.txt
index 7c1b2f22790bfdca05f14a555a40b7eaa3ce2abd..be7beea8bddf161f5f546cfc06c89f8721fcb816 100644 (file)
--- a/extra/units/si/authors.txt
+++ b/extra/units/si/authors.txt
@@ -1 +1,2 @@
 Doug Coleman
+nomennescio

diff --git a/extra/units/si/si-tests.factor b/extra/units/si/si-tests.factor
index 711381b8dfbb7c09f840d84157330df83ad86a98..e2d1aa291d9227527c9697821031255d8675f339 100644 (file)
--- a/extra/units/si/si-tests.factor
+++ b/extra/units/si/si-tests.factor
@@ -10,3 +10,6 @@ math.functions units.imperial ;
 { -40 } [ -40 deg-F [ deg-C ] undo ] unit-test
 
 { -40 } [ -40 deg-C [ deg-F ] undo ] unit-test
+
+{ 1024 } [ 1 kibi ] unit-test
+{ 1024 } [ 1 Ki ] unit-test
\ No newline at end of file

diff --git a/extra/units/si/si.factor b/extra/units/si/si.factor
index 36ad73ea28b49cfd201658051f14cf11e3804516..f03d1049d1922e4c7d080c6c7df36cf756d7ca9e 100644 (file)
--- a/extra/units/si/si.factor
+++ b/extra/units/si/si.factor
@@ -117,6 +117,25 @@ ALIAS: °C deg-C
 : zepto ( n -- x ) 1000000000000000000000 / ;
 : yocto ( n -- x ) 1000000000000000000000000 / ;
 
+! Yi Zi Ei Pi Ti Gi Mi Ki
+: yobi ( n -- x ) 1208925819614629174706176 * ;
+: zebi ( n -- x ) 1180591620717411303424 * ;
+: exbi ( n -- x ) 1152921504606846976 * ;
+: pebi ( n -- x ) 1125899906842624 * ;
+: tebi ( n -- x ) 1099511627776 * ;
+: gibi ( n -- x ) 1073741824 * ;
+: mebi ( n -- x ) 1048576 * ;
+: kibi ( n -- x ) 1024 * ;
+
+ALIAS: Yi yobi
+ALIAS: Zi zebi
+ALIAS: Ei exbi
+ALIAS: Pi pebi
+ALIAS: Ti tebi
+ALIAS: Gi gibi
+ALIAS: Mi mebi
+ALIAS: Ki kibi
+
 : km ( n -- dimensioned ) kilo m ;
 : cm ( n -- dimensioned ) centi m ;
 : mm ( n -- dimensioned ) milli m ;