From 483ab4dc4a001af02fb1037957a9293f729ccda6 Mon Sep 17 00:00:00 2001 From: Giftpflanze Date: Fri, 8 Sep 2023 20:11:21 +0200 Subject: [PATCH] units.si: Add km^2, more aliases --- extra/units/si/si.factor | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/extra/units/si/si.factor b/extra/units/si/si.factor index d810a7705b..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 } ; : F ( n -- farad ) { s s s s A A } { m m kg } ; : ohm ( n -- ohm ) { m m kg } { s s s A A } ; +ALIAS: Ω ohm : S ( n -- siemens ) { s s s A A } { m m kg } ; : Wb ( n -- weber ) { m m kg } { s s A } ; : T ( n -- tesla ) { kg } { s s A } ; @@ -59,7 +60,7 @@ IN: units.si : deg-C ( n -- Celsius ) 27315/100 + { K } { } ; ALIAS: °C deg-C : lm ( n -- lumen ) { m m cd } { m m } ; -: lx ( n -- lux ) { m m cd } { m m m m } ; +: lx ( n -- lux ) { m m cd } { m m m m } ; : Bq ( n -- becquerel ) { } { s } ; : Gy ( n -- gray ) { m m } { s s } ; : Sv ( n -- sievert ) { m m } { s s } ; @@ -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 ) { } { } ; : 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 ; @@ -147,3 +150,4 @@ ALIAS: Ki kibi : g ( n -- dimensioned ) milli kg ; : ms ( n -- dimensioned ) milli s ; : angstrom ( n -- dimensioned ) 10 / nm ; +ALIAS: Å angstrom -- 2.34.1