extra/units/imperial/imperial.factor

   1 USING: math units units.si ;
   2 IN: units.imperial
   3
   4 ! TEMPERATURE
   5
   6 : deg-F ( n -- Fahrenheit ) 32 - 5/9 * deg-C ;
   7 ALIAS: °F deg-F
   8
   9 ! LENGTH
  10
  11 : inches ( n -- dimensioned ) 254/100 * cm ;
  12
  13 : thous ( n -- dimensioned ) 1/1000 * inches ;
  14
  15 : feet ( n -- dimensioned ) 12 * inches ;
  16
  17 : yards ( n -- dimensioned ) 3 * feet ;
  18
  19 : miles ( n -- dimensioned ) 1760 * yards ;
  20
  21 : furlongs ( n -- dimensioned ) 1/8 * miles ;
  22
  23 : chains ( n -- dimensioned ) 1/10 * furlongs ;
  24
  25 : leagues ( n -- dimensioned ) 3 * miles ;
  26
  27 : links ( n -- dimensioned ) 1/100 * chains ;
  28
  29 : rods ( n -- dimensioned ) 5+1/2 * yards ;
  30 ALIAS: poles rods
  31 ALIAS: perches rods
  32
  33 : barleycorns ( n -- dimensioned ) 1/3 * inches ;
  34
  35 : poppyseeds ( n -- dimensioned ) 1/4 * barleycorns ;
  36
  37 : lines ( n -- dimensioned ) 1/4 * barleycorns ;
  38
  39 : digits ( n -- dimensioned ) 3/4 * inches ;
  40
  41 : hands ( n -- dimensioned ) 4 * inches ;
  42
  43 : palms ( n -- dimensioned ) 3 * inches ;
  44
  45 : shaftments ( n -- dimensioned ) 6 * inches ;
  46
  47 : nails ( n -- dimensioned ) 1/16 * yards ;
  48
  49 : spans ( n -- dimensioned ) 3 * palms ;
  50
  51 : fingers ( n -- dimensioned ) 7/8 * inches ;
  52
  53 : cubits ( n -- dimensioned ) 18 * inches ;
  54
  55 : ells ( n -- dimensioned ) 1+1/4 * yards ;
  56
  57 : ramsdens-chains ( n -- dimensioned ) 100 * feet ;
  58
  59 : nautical-miles ( n -- dimensioned ) 1852 * m ;
  60
  61 : fathoms ( n -- dimensioned ) 6 * feet ;
  62
  63 : shackles ( n -- dimensioned ) 15 * fathoms ;
  64
  65 : cables ( n -- dimensioned ) 608 * feet ;
  66
  67 ! AREA
  68
  69 : square-rods ( n -- dimensioned ) 25+1830329/6250000 * m^2 ;
  70 ALIAS: square-poles square-rods
  71 ALIAS: square-perches square-rods
  72
  73 : roods ( n -- dimensioned ) 40 * perches ;
  74
  75 : acres ( n -- dimensioned ) 4 * roods ;
  76
  77 : square-miles ( n -- dimensioned ) 640 * acres ;
  78
  79 ! VOLUME
  80
  81 DEFER: imperial-fluid-ounces
  82
  83 : minims ( n -- dimensioned ) 1/480 * imperial-fluid-ounces ;
  84
  85 : apothecary-fluid-scruples ( n -- dimensioned ) 20 * minims ;
  86
  87 : apothecary-fluid-drachms ( n -- dimensioned ) 3 * apothecary-fluid-scruples ;
  88
  89 : apothecary-fluid-ounces ( n -- dimensioned ) 8 * apothecary-fluid-drachms ;
  90
  91 : apothecary-pints ( n -- dimensioned ) 20 * apothecary-fluid-ounces ;
  92
  93 : apothecary-gallons ( n -- dimensioned ) 8 * apothecary-pints ;
  94
  95 ! MASS
  96
  97 : pounds ( n -- dimensioned ) 22/10 / kg ;
  98
  99 : drachm ( n -- dimensioned ) 1/256 * pounds ;
 100
 101 : grains ( n -- dimensioned ) 1/7000 * pounds ;
 102
 103 : ounces ( n -- dimensioned ) 1/16 * pounds ;
 104
 105 : nailweights ( n -- dimensioned ) 7 * pounds ;
 106
 107 : stones ( n -- dimensioned ) 14 * pounds ;
 108
 109 : tods ( n -- dimensioned ) 2 * stones ;
 110
 111 : hundredweights ( n -- dimensioned ) 112 * pounds ;
 112
 113 : quarters ( n -- dimensioned ) 1/4 * hundredweights ;
 114
 115 : tons ( n -- dimensioned ) 20 * hundredweights ;
 116
 117
 118
 119 : gallons ( n -- dimensioned ) 379/100 * L ;
 120
 121 : quarts ( n -- dimensioned ) 1/4 * gallons ;
 122
 123 : pints ( n -- dimensioned ) 1/2 * quarts ;
 124
 125 : cups ( n -- dimensioned ) 1/2 * pints ;
 126
 127 : us-fluid-ounces ( n -- dimensioned ) 1/16 * pints ;
 128
 129 : drams ( n -- dimensioned ) 1/8 * us-fluid-ounces ;
 130
 131 : teaspoons ( n -- dimensioned ) 1/6 * us-fluid-ounces ;
 132
 133 : tablespoons ( n -- dimensioned ) 1/2 * us-fluid-ounces ;
 134
 135 : ponies ( n -- dimensioned ) 3/4 * us-fluid-ounces ;
 136
 137 : jiggers ( n -- dimensioned ) 1+1/2 * us-fluid-ounces ;
 138
 139 : us-gill ( n -- dimensioned ) 4 * us-fluid-ounces ;
 140
 141 : knots ( n -- dimensioned ) 1852/3600 * m/s ;
 142
 143 : imperial-gallons ( n -- dimensioned ) 454609/100000 * L ;
 144
 145 : imperial-quarts ( n -- dimensioned ) 1/4 * imperial-gallons ;
 146
 147 : imperial-pints ( n -- dimensioned ) 1/2 * imperial-quarts ;
 148
 149 : imperial-fluid-ounces ( n -- dimensioned ) 1/160 * imperial-gallons ;
 150
 151 : imperial-gill ( n -- dimensioned ) 5 * imperial-fluid-ounces ;
 152
 153
 154 : dry-gallons ( n -- dimensioned ) 440488377086/100000000000 * L ;
 155
 156 : dry-quarts ( n -- dimensioned ) 1/4 * dry-gallons ;
 157
 158 : dry-pints ( n -- dimensioned ) 1/2 * dry-quarts ;
 159
 160 : pecks ( n -- dimensioned ) 8 * dry-quarts ;
 161
 162 : bushels ( n -- dimensioned ) 4 * pecks ;
 163
 164 : pins ( n -- dimensioned ) 4+1/2 * imperial-gallons ;
 165
 166 : firkins ( n -- dimensioned ) 2 * pins ;
 167
 168 : kilderkins ( n -- dimensioned ) 2 * firkins ;
 169
 170 : beer-barrels ( n -- dimensioned ) 2 * kilderkins ;
 171
 172 : beer-hogsheads ( n -- dimensioned ) 1+1/2 * beer-barrels ;
 173
 174 : beer-butts ( n -- dimensioned ) 2 * beer-hogsheads ;
 175 ALIAS: beer-pipes beer-butts
 176
 177 : beer-tuns ( n -- dimensioned ) 2 * beer-pipes ;
 178
 179 : wine-gallons ( n -- dimensioned ) 18/15 * imperial-gallons ;
 180
 181 : rundlets ( n -- dimensioned ) 18 * wine-gallons ;
 182
 183 : wine-barrels ( n -- dimensioned ) 1+3/4 * rundlets ;
 184
 185 : tierces ( n -- dimensioned ) 1+1/3 * wine-barrels ;
 186
 187 : wine-hogsheads ( n -- dimensioned ) 2 * wine-barrels ;
 188
 189 : wine-punchians ( n -- dimensioned ) 2 * tierces ;
 190 ALIAS: wine-tertians wine-punchians
 191
 192 : wine-butts ( n -- dimensioned ) 2 * wine-hogsheads ;
 193 ALIAS: wine-pipes wine-butts
 194
 195 : wine-tun ( n -- dimensioned ) 2 * wine-butts ;