189 lines
4.5 KiB
Factor
189 lines
4.5 KiB
Factor
USING: kernel math prettyprint units units.si inverse ;
|
|
IN: units.imperial
|
|
|
|
! TEMPERATURE
|
|
|
|
: deg-F ( n -- Fahrenheit ) 32 - 5/9 * deg-C ;
|
|
ALIAS: °F deg-F
|
|
|
|
! LENGTH
|
|
|
|
: inches ( n -- dimensioned ) 254/100 * cm ;
|
|
|
|
: thous ( n -- dimensioned ) 1/1000 * inches ;
|
|
|
|
: feet ( n -- dimensioned ) 12 * inches ;
|
|
|
|
: yards ( n -- dimensioned ) 3 * feet ;
|
|
|
|
: miles ( n -- dimensioned ) 1760 * yards ;
|
|
|
|
: furlongs ( n -- dimensioned ) 1/8 * miles ;
|
|
|
|
: chains ( n -- dimensioned ) 1/10 * furlongs ;
|
|
|
|
: leagues ( n -- dimensioned ) 3 * miles ;
|
|
|
|
: links ( n -- dimensioned ) 1/100 * chains ;
|
|
|
|
: rods ( n -- dimensioned ) 5+1/2 * yards ;
|
|
|
|
: barleycorns ( n -- dimensioned ) 1/3 * inches ;
|
|
|
|
: poppyseeds ( n -- dimensioned ) 1/4 * barleycorns ;
|
|
|
|
: lines ( n -- dimensioned ) 1/4 * barleycorns ;
|
|
|
|
: digits ( n -- dimensioned ) 3/4 * inches ;
|
|
|
|
: hands ( n -- dimensioned ) 4 * inches ;
|
|
|
|
: palms ( n -- dimensioned ) 3 * inches ;
|
|
|
|
: shaftments ( n -- dimensioned ) 6 * inches ;
|
|
|
|
: nails ( n -- dimensioned ) 1/16 * yards ;
|
|
|
|
: spans ( n -- dimensioned ) 3 * palms ;
|
|
|
|
: fingers ( n -- dimensioned ) 1/8 * yards ; ! FIXME: or 7/8 * inches?
|
|
|
|
: cubits ( n -- dimensioned ) 18 * inches ;
|
|
|
|
: ells ( n -- dimensioned ) 1+1/4 * yards ;
|
|
|
|
ALIAS: poles rods
|
|
|
|
ALIAS: perches rods
|
|
|
|
: ramsdens-chains ( n -- dimensioned ) 100 * feet ;
|
|
|
|
: nautical-miles ( n -- dimensioned ) 1852 * m ;
|
|
|
|
: fathoms ( n -- dimensioned ) 6 * feet ;
|
|
|
|
: shackles ( n -- dimensioned ) 15 * fathoms ;
|
|
|
|
: cables ( n -- dimensioned ) 608 * feet ;
|
|
|
|
! VOLUME
|
|
|
|
DEFER: imperial-fluid-ounces
|
|
|
|
: minims ( n -- dimensioned ) 1/480 * imperial-fluid-ounces ;
|
|
|
|
: apothecary-fluid-scruples ( n -- dimensioned ) 20 * minims ;
|
|
|
|
: apothecary-fluid-drachms ( n -- dimensioned ) 3 * apothecary-fluid-scruples ;
|
|
|
|
: apothecary-fluid-ounces ( n -- dimensioned ) 8 * apothecary-fluid-drachms ;
|
|
|
|
: apothecary-pints ( n -- dimensioned ) 20 * apothecary-fluid-ounces ;
|
|
|
|
: apothecary-gallons ( n -- dimensioned ) 8 * apothecary-pints ;
|
|
|
|
! MASS
|
|
|
|
: pounds ( n -- dimensioned ) 22/10 / kg ;
|
|
|
|
: drachm ( n -- dimensioned ) 1/256 * pounds ;
|
|
|
|
: grains ( n -- dimensioned ) 1/7000 * pounds ;
|
|
|
|
: ounces ( n -- dimensioned ) 1/16 * pounds ;
|
|
|
|
: nailweights ( n -- dimensioned ) 7 * pounds ;
|
|
|
|
: stones ( n -- dimensioned ) 14 * pounds ;
|
|
|
|
: tods ( n -- dimensioned ) 2 * stones ;
|
|
|
|
: hundredweights ( n -- dimensioned ) 112 * pounds ;
|
|
|
|
: quarters ( n -- dimensioned ) 1/4 * hundredweights ;
|
|
|
|
: tons ( n -- dimensioned ) 20 * hundredweights ;
|
|
|
|
|
|
|
|
: gallons ( n -- dimensioned ) 379/100 * L ;
|
|
|
|
: quarts ( n -- dimensioned ) 1/4 * gallons ;
|
|
|
|
: pints ( n -- dimensioned ) 1/2 * quarts ;
|
|
|
|
: cups ( n -- dimensioned ) 1/2 * pints ;
|
|
|
|
: us-fluid-ounces ( n -- dimensioned ) 1/16 * pints ;
|
|
|
|
: drams ( n -- dimensioned ) 1/8 * us-fluid-ounces ;
|
|
|
|
: teaspoons ( n -- dimensioned ) 1/6 * us-fluid-ounces ;
|
|
|
|
: tablespoons ( n -- dimensioned ) 1/2 * us-fluid-ounces ;
|
|
|
|
: ponies ( n -- dimensioned ) 3/4 * us-fluid-ounces ;
|
|
|
|
: jiggers ( n -- dimensioned ) 1+1/2 * us-fluid-ounces ;
|
|
|
|
: us-gill ( n -- dimensioned ) 4 * us-fluid-ounces ;
|
|
|
|
: knots ( n -- dimensioned ) 1852/3600 * m/s ;
|
|
|
|
: imperial-gallons ( n -- dimensioned ) 454609/100000 * L ;
|
|
|
|
: imperial-quarts ( n -- dimensioned ) 1/4 * imperial-gallons ;
|
|
|
|
: imperial-pints ( n -- dimensioned ) 1/2 * imperial-quarts ;
|
|
|
|
: imperial-fluid-ounces ( n -- dimensioned ) 1/160 * imperial-gallons ;
|
|
|
|
: imperial-gill ( n -- dimensioned ) 5 * imperial-fluid-ounces ;
|
|
|
|
|
|
: dry-gallons ( n -- dimensioned ) 440488377086/100000000000 * L ;
|
|
|
|
: dry-quarts ( n -- dimensioned ) 1/4 * dry-gallons ;
|
|
|
|
: dry-pints ( n -- dimensioned ) 1/2 * dry-quarts ;
|
|
|
|
: pecks ( n -- dimensioned ) 8 * dry-quarts ;
|
|
|
|
: bushels ( n -- dimensioned ) 4 * pecks ;
|
|
|
|
: pins ( n -- dimensioned ) 4+1/2 * imperial-gallons ;
|
|
|
|
: firkins ( n -- dimensioned ) 2 * pins ;
|
|
|
|
: kilderkins ( n -- dimensioned ) 2 * firkins ;
|
|
|
|
: beer-barrels ( n -- dimensioned ) 2 * kilderkins ;
|
|
|
|
: beer-hogsheads ( n -- dimensioned ) 1+1/2 * beer-barrels ;
|
|
|
|
: beer-butts ( n -- dimensioned ) 2 * beer-hogsheads ;
|
|
|
|
ALIAS: beer-pipes beer-butts
|
|
|
|
: beer-tuns ( n -- dimensioned ) 2 * beer-pipes ;
|
|
|
|
: wine-gallons ( n -- dimensioned ) 18/15 * imperial-gallons ;
|
|
|
|
: rundlets ( n -- dimensioned ) 18 * wine-gallons ;
|
|
|
|
: wine-barrels ( n -- dimensioned ) 1+3/4 * rundlets ;
|
|
|
|
: tierces ( n -- dimensioned ) 1+1/3 * wine-barrels ;
|
|
|
|
: wine-hogsheads ( n -- dimensioned ) 2 * wine-barrels ;
|
|
|
|
: wine-punchians ( n -- dimensioned ) 2 * tierces ;
|
|
|
|
ALIAS: wine-tertians wine-punchians
|
|
|
|
: wine-butts ( n -- dimensioned ) 2 * wine-hogsheads ;
|
|
|
|
ALIAS: wine-pipes wine-butts
|
|
|
|
: wine-tun ( n -- dimensioned ) 2 * wine-butts ;
|