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

Fixed radians and steradians to be unitless

release
Daniel Ehrenberg 2007-11-29 12:19:57 -05:00
parent 374a661975
commit 33fecfef7d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -38,8 +38,11 @@ IN: units.si
: cd/m^2 { cd } { m m } <dimensioned> ; : cd/m^2 { cd } { m m } <dimensioned> ;
: kg/kg { kg } { kg } <dimensioned> ; : kg/kg { kg } { kg } <dimensioned> ;
: radians ( n -- radian ) { m } { m } <dimensioned> ; ! Radians are really m/m, and steradians are m^2/m^2
: sr ( n -- steradian ) { m m } { m m } <dimensioned> ; ! but they need to be in reduced form here.
: radians ( n -- radian ) scalar ;
: sr ( n -- steradian ) scalar ;
: Hz ( n -- hertz ) { } { s } <dimensioned> ; : Hz ( n -- hertz ) { } { s } <dimensioned> ;
: N ( n -- newton ) { kg m } { s s } <dimensioned> ; : N ( n -- newton ) { kg m } { s s } <dimensioned> ;
: Pa ( n -- pascal ) { kg } { m s s } <dimensioned> ; : Pa ( n -- pascal ) { kg } { m s s } <dimensioned> ;