steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

units.[imperial|si]: add a couple of Unicode aliases

factor-shell
Alexander Iljin 2017-10-17 20:36:34 +03:00 committed by John Benediktsson
parent 083c73b232
commit dd4b3e6938
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/units/imperial/imperial.factor
View File

@ -1,6 +1,11 @@
USING: kernel math prettyprint units units.si inverse ; USING: kernel math prettyprint units units.si inverse ;
IN: units.imperial IN: units.imperial
! TEMPERATURE
: deg-F ( n -- Fahrenheit ) 32 - 5/9 * deg-C ;
ALIAS: °F deg-F
! LENGTH ! LENGTH
: inches ( n -- dimensioned ) 254/100 * cm ; : inches ( n -- dimensioned ) 254/100 * cm ;
@ -125,8 +130,6 @@ DEFER: imperial-fluid-ounces
: knots ( n -- dimensioned ) 1852/3600 * m/s ; : knots ( n -- dimensioned ) 1852/3600 * m/s ;
: deg-F ( n -- dimensioned ) 32 - 5/9 * deg-C ;
: imperial-gallons ( n -- dimensioned ) 454609/100000 * L ; : imperial-gallons ( n -- dimensioned ) 454609/100000 * L ;
: imperial-quarts ( n -- dimensioned ) 1/4 * imperial-gallons ; : imperial-quarts ( n -- dimensioned ) 1/4 * imperial-gallons ;

1
extra/units/si/si.factor
View File

@ -57,6 +57,7 @@ IN: units.si
: T ( n -- tesla ) { kg } { s s A } <dimensioned> ; : T ( n -- tesla ) { kg } { s s A } <dimensioned> ;
: H ( n -- henry ) { m m kg } { s s A A } <dimensioned> ; : H ( n -- henry ) { m m kg } { s s A A } <dimensioned> ;
: deg-C ( n -- Celsius ) 27315/100 + { K } { } <dimensioned> ; : deg-C ( n -- Celsius ) 27315/100 + { K } { } <dimensioned> ;
ALIAS: °C deg-C
: lm ( n -- lumen ) { m m cd } { m m } <dimensioned> ; : 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> ; : Bq ( n -- becquerel ) { } { s } <dimensioned> ;