extra/units/imperial/imperial.factor

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