Show
Ignore:
Timestamp:
2005年11月01日 07時08分22秒 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/calc/calc-units.el

    r3892 r3939  
    4444;;; - Journal of Physical and Chemical Reference Data, 28(6), 1713-1852, 1999. 
    4545;;; - Reviews of Modern Physics, 72(2), 351-495, 2000. 
     46;;; for CODATA 2005 see 
    4647;;; - http://physics.nist.gov/cuu/Constants/index.html 
    4748 
    4849(defvar math-standard-units 
    4950  '( ;; Length 
    50     ( m       nil                    "*Meter" ) 
    51     ( in      "2.54 cm"             "Inch" ) 
    52     ( ft      "12 in"                "Foot" ) 
    53     ( yd      "3 ft"                 "Yard" ) 
    54     ( mi      "5280 ft"      "Mile" ) 
    55     ( au      "149597870691 m"      "Astronomical Unit" ) ;; NASA JPL (http://neo.jpl.nasa.gov/glossary/au.html) 
    56     ( lyr     "9460536207068016 m"  "Light Year" ) 
    57     ( pc      "206264.80625 au"     "Parsec" ) 
    58     ( nmi     "1852 m"               "Nautical Mile" ) 
    59     ( fath    "6 ft"                 "Fathom" ) 
    60     ( u       "1 um"                 "Micron" ) 
    61     ( mil     "in/1000"      "Mil" ) 
    62     ( point   "in/72"                "Point (1/72 inch)" ) 
    63     ( tpt     "in/72.27"             "Point (TeX conventions)" ) 
    64     ( Ang     "1e-10 m"      "Angstrom" ) 
    65     ( mfi     "mi+ft+in"             "Miles + feet + inches" ) 
     51    ( m       nil                    "*Meter" ) 
     52    ( in      "2.54 cm"           "Inch" ) 
     53    ( ft      "12 in"                "Foot" ) 
     54    ( yd      "3 ft"                 "Yard" ) 
     55    ( mi      "5280 ft"              "Mile" ) 
     56    ( au      "149597870691 m"       "Astronomical Unit" ) ;; NASA JPL (http://neo.jpl.nasa.gov/glossary/au.html) 
     57    ( lyr     "9460536207068016 m"   "Light Year" ) 
     58    ( pc      "206264.80625 au"      "Parsec" ) 
     59    ( nmi     "1852 m"               "Nautical Mile" ) 
     60    ( fath    "6 ft"                 "Fathom" ) 
     61    ( mu      "1 um"                 "Micron" ) 
     62    ( mil     "in/1000"              "Mil" ) 
     63    ( point   "in/72"                "Point (1/72 inch)" ) 
     64    ( Ang     "1e-10 m"              "Angstrom" ) 
     65    ( mfi     "mi+ft+in"             "Miles + feet + inches" ) 
     66    ;; TeX lengths 
     67    ( texpt   "in/72.27"             "Point (TeX conventions)" ) 
     68    ( texpc   "12 texpt"             "Pica" ) 
     69    ( texbp   "point"                "Big point (TeX conventions)" ) 
     70    ( texdd   "1238/1157 texpt"      "Didot point" ) 
     71    ( texcc   "12 texdd"             "Cicero" ) 
     72    ( texsp   "1/66536 texpt"        "Scaled TeX point" ) 
    6673 
    6774    ;; Area 
    68     ( hect    "10000 m^2"            "*Hectare" ) 
    69     ( acre    "mi^2 / 640"           "Acre" ) 
    70     ( b       "1e-28 m^2"            "Barn" ) 
     75    ( hect    "10000 m^2"            "*Hectare" ) 
     76    ( a       "100 m^2"              "Are") 
     77    ( acre    "mi^2 / 640"           "Acre" ) 
     78    ( b       "1e-28 m^2"            "Barn" ) 
    7179 
    7280    ;; Volume 
    73     ( l       "1e-3 m^3"            "*Liter" ) 
    74     ( L       "1e-3 m^3"            "Liter" ) 
    75     ( gal     "4 qt"                "US Gallon" ) 
    76     ( qt      "2 pt"                "Quart" ) 
    77     ( pt      "2 cup"               "Pint" ) 
    78     ( cup     "8 ozfl"              "Cup" ) 
    79     ( ozfl    "2 tbsp"              "Fluid Ounce" ) 
    80     ( floz    "2 tbsp"              "Fluid Ounce" ) 
    81     ( tbsp    "3 tsp"               "Tablespoon" ) 
    82     ( tsp     "4.92892159375 ml"    "Teaspoon" ) 
     81    ( L       "1e-3 m^3"             "*Liter" ) 
     82    ( l       "L"                    "Liter" ) 
     83    ( gal     "4 qt"                 "US Gallon" ) 
     84    ( qt      "2 pt"                 "Quart" ) 
     85    ( pt      "2 cup"                "Pint" ) 
     86    ( cup     "8 ozfl"               "Cup" ) 
     87    ( ozfl    "2 tbsp"               "Fluid Ounce" ) 
     88    ( floz    "2 tbsp"               "Fluid Ounce" ) 
     89    ( tbsp    "3 tsp"                "Tablespoon" ) 
     90    ( tsp     "4.92892159375 ml"    "Teaspoon" ) 
    8391    ( vol     "tsp+tbsp+ozfl+cup+pt+qt+gal" "Gallons + ... + teaspoons" ) 
    84     ( galC    "4.54609 l"           "Canadian Gallon" ) 
    85     ( galUK   "4.546092 l"          "UK Gallon" ) 
     92    ( galC    "4.54609 L"            "Canadian Gallon" ) 
     93    ( galUK   "4.546092 L"           "UK Gallon" ) 
    8694 
    8795    ;; Time 
    88     ( s       nil                   "*Second" ) 
    89     ( sec     "s"                   "Second" ) 
    90     ( min     "60 s"                "Minute" ) 
    91     ( hr      "60 min"              "Hour" ) 
    92     ( day     "24 hr"               "Day" ) 
    93     ( wk      "7 day"               "Week" ) 
    94     ( hms     "wk+day+hr+min+s"     "Hours, minutes, seconds" ) 
    95     ( yr      "365.25 day"          "Year" ) 
    96     ( Hz      "1/s"                 "Hertz" ) 
     96    ( s       nil                    "*Second" ) 
     97    ( sec     "s"                    "Second" ) 
     98    ( min     "60 s"                 "Minute" ) 
     99    ( hr      "60 min"               "Hour" ) 
     100    ( day     "24 hr"                "Day" ) 
     101    ( wk      "7 day"                "Week" ) 
     102    ( hms     "wk+day+hr+min+s"      "Hours, minutes, seconds" ) 
     103    ( yr      "365.25 day"           "Year" ) 
     104    ( Hz      "1/s"                  "Hertz" ) 
    97105 
    98106    ;; Speed 
    99     ( mph     "mi/hr"               "*Miles per hour" ) 
    100     ( kph     "km/hr"               "Kilometers per hour" ) 
    101     ( knot    "nmi/hr"              "Knot" ) 
    102     ( c       "2.99792458e8 m/s"    "Speed of light" ) 
     107    ( mph     "mi/hr"                "*Miles per hour" ) 
     108    ( kph     "km/hr"                "Kilometers per hour" ) 
     109    ( knot    "nmi/hr"               "Knot" ) 
     110    ( c       "299792458 m/s"        "Speed of light" ) ;;; CODATA 2005 
    103111 
    104112    ;; Acceleration 
    105     ( ga      "9.80665 m/s^2"       "*\"g\" acceleration" ) 
     113    ( ga      "9.80665 m/s^2"        "*\"g\" acceleration" ) ;; CODATA 2005 
    106114 
    107115    ;; Mass 
    108     ( g       nil                   "*Gram" ) 
    109     ( lb      "16 oz"               "Pound (mass)" ) 
    110     ( oz      "28.349523125 g"      "Ounce (mass)" ) 
    111     ( ton     "2000 lb"             "Ton" ) 
    112     ( tpo     "ton+lb+oz"           "Tons + pounds + ounces (mass)" ) 
    113     ( t       "1000 kg"             "Metric ton" ) 
    114     ( tonUK   "1016.0469088 kg"     "UK ton" ) 
    115     ( lbt     "12 ozt"              "Troy pound" ) 
    116     ( ozt     "31.103475 g"         "Troy ounce" ) 
    117     ( ct      ".2 g"                "Carat" ) 
    118     ( amu     "1.66053873e-27 kg"   "Unified atomic mass" ) ;; CODATA 1998 
     116    ( g       nil                    "*Gram" ) 
     117    ( lb      "16 oz"                "Pound (mass)" ) 
     118    ( oz      "28.349523125 g"       "Ounce (mass)" ) 
     119    ( ton     "2000 lb"              "Ton" ) 
     120    ( tpo     "ton+lb+oz"            "Tons + pounds + ounces (mass)" ) 
     121    ( t       "1000 kg"              "Metric ton" ) 
     122    ( tonUK   "1016.0469088 kg"      "UK ton" ) 
     123    ( lbt     "12 ozt"               "Troy pound" ) 
     124    ( ozt     "31.103475 g"          "Troy ounce" ) 
     125    ( ct      ".2 g"                 "Carat" ) 
     126    ( u       "1.66053886e-27 kg"    "Unified atomic mass" ) ;; CODATA 2005 
    119127 
    120128    ;; Force 
    121     ( N       "m kg/s^2"            "*Newton" ) 
    122     ( dyn     "1e-5 N"              "Dyne" ) 
    123     ( gf      "ga g"                "Gram (force)" ) 
    124     ( lbf     "4.44822161526 N"     "Pound (force)" ) 
    125     ( kip     "1000 lbf"            "Kilopound (force)" ) 
    126     ( pdl     "0.138255 N"          "Poundal" ) 
     129    ( N       "m kg/s^2"             "*Newton" ) 
     130    ( dyn     "1e-5 N"               "Dyne" ) 
     131    ( gf      "ga g"                 "Gram (force)" ) 
     132    ( lbf     "4.44822161526 N"      "Pound (force)" ) 
     133    ( kip     "1000 lbf"             "Kilopound (force)" ) 
     134    ( pdl     "0.138255 N"           "Poundal" ) 
    127135 
    128136    ;; Energy 
    129     ( J       "N m"                 "*Joule" ) 
    130     ( erg     "1e-7 J"              "Erg" ) 
    131     ( cal     "4.1868 J"            "International Table Calorie" ) 
    132     ( Btu     "1055.05585262 J"     "International Table Btu" ) 
    133     ( eV      "ech V"               "Electron volt" ) 
    134     ( ev      "eV"                  "Electron volt" ) 
    135     ( therm   "105506000 J"         "EEC therm" ) 
    136     ( invcm   "h c/cm"              "Energy in inverse centimeters" ) 
    137     ( Kayser  "invcm"               "Kayser (inverse centimeter energy)" ) 
    138     ( men     "100/invcm"           "Inverse energy in meters" ) 
    139     ( Hzen    "h Hz"                "Energy in Hertz") 
    140     ( Ken     "k K"                 "Energy in Kelvins") 
     137    ( J       "N m"                  "*Joule" ) 
     138    ( erg     "1e-7 J"               "Erg" ) 
     139    ( cal     "4.1868 J"             "International Table Calorie" ) 
     140    ( Btu     "1055.05585262 J"      "International Table Btu" ) 
     141    ( eV      "ech V"                "Electron volt" ) 
     142    ( ev      "eV"                  "Electron volt" ) 
     143    ( therm   "105506000 J"          "EEC therm" ) 
     144    ( invcm   "h c/cm"               "Energy in inverse centimeters" ) 
     145    ( Kayser  "invcm"                "Kayser (inverse centimeter energy)" ) 
     146    ( men     "100/invcm"            "Inverse energy in meters" ) 
     147    ( Hzen    "h Hz"                 "Energy in Hertz") 
     148    ( Ken     "k K"                  "Energy in Kelvins") 
    141149    ( Wh      "W hr"                 "Watt hour") 
    142     ( Ws      "W s"                 "Watt second") 
     150    ( Ws      "W s"                  "Watt second") 
    143151 
    144152    ;; Power 
    145     ( W       "J/s"                 "*Watt" ) 
    146     ( hp      "745.7 W"             "Horsepower" ) 
     153    ( W       "J/s"                  "*Watt" ) 
     154    ( hp      "745.7 W"              "Horsepower" ) 
    147155 
    148156    ;; Temperature 
    149     ( K       nil                   "*Degree Kelvin"     K ) 
    150     ( dK      "K"                   "Degree Kelvin"      K ) 
    151     ( degK    "K"                   "Degree Kelvin"      K ) 
    152     ( dC      "K"                   "Degree Celsius"     C ) 
    153     ( degC    "K"                   "Degree Celsius"     C ) 
    154     ( dF      "(5/9) K"             "Degree Fahrenheit"  F ) 
    155     ( degF    "(5/9) K"             "Degree Fahrenheit"  F ) 
     157    ( K       nil                    "*Degree Kelvin"     K ) 
     158    ( dK      "K"                    "Degree Kelvin"      K ) 
     159    ( degK    "K"                    "Degree Kelvin"      K ) 
     160    ( dC      "K"                    "Degree Celsius"     C ) 
     161    ( degC    "K"                    "Degree Celsius"     C ) 
     162    ( dF      "(5/9) K"              "Degree Fahrenheit"  F ) 
     163    ( degF    "(5/9) K"              "Degree Fahrenheit"  F ) 
    156164 
    157165    ;; Pressure 
    158     ( Pa      "N/m^2"               "*Pascal" ) 
    159     ( bar     "1e5 Pa"              "Bar" ) 
    160     ( atm     "101325 Pa"           "Standard atmosphere" ) 
    161     ( torr    " 1.333224e2 Pa"      "Torr" ) ;; NIST (http://physics.nist.gov/Pubs/SP811/appenB9.html) 
    162     ( mHg     "1000 torr"           "Meter of mercury" ) 
    163     ( inHg    "25.4 mmHg"           "Inch of mercury" ) 
    164     ( inH2O   "2.490889e2 Pa"       "Inch of water" ) ;; NIST (http://physics.nist.gov/Pubs/SP811/appenB9.html) 
    165     ( psi     "6894.75729317 Pa"    "Pound per square inch" ) 
     166    ( Pa      "N/m^2"                "*Pascal" ) 
     167    ( bar     "1e5 Pa"               "Bar" ) 
     168    ( atm     "101325 Pa"            "Standard atmosphere" ) ;; CODATA 2005 
     169    ( Torr    " 1.333224e2 Pa"       "Torr" ) ;; NIST (http://physics.nist.gov/Pubs/SP811/appenB9.html) 
     170    ( mHg     "1000 Torr"            "Meter of mercury" ) 
     171    ( inHg    "25.4 mmHg"            "Inch of mercury" ) 
     172    ( inH2O   "2.490889e2 Pa"        "Inch of water" ) ;; NIST (http://physics.nist.gov/Pubs/SP811/appenB9.html) 
     173    ( psi     "6894.75729317 Pa"    "Pound per square inch" ) 
    166174 
    167175    ;; Viscosity 
    168     ( P       "0.1 Pa s"            "*Poise" ) 
    169     ( St      "1e-4 m^2/s"          "Stokes" ) 
     176    ( P       "0.1 Pa s"              "*Poise" ) 
     177    ( St      "1e-4 m^2/s"            "Stokes" ) 
    170178 
    171179    ;; Electromagnetism 
    172     ( A       nil                   "*Ampere" ) 
    173     ( C       "A s"                 "Coulomb" ) 
    174     ( Fdy     "ech Nav"             "Faraday" ) 
    175     ( e       "1.602176462e-19 C"   "Elementary charge" ) ;; CODATA 1998 
    176     ( ech     "1.602176462e-19 C"   "Elementary charge" ) ;; CODATA 1998 
    177     ( V       "W/A"                 "Volt" ) 
    178     ( ohm     "V/A"                 "Ohm" ) 
    179     ( mho     "A/V"                 "Mho" ) 
    180     ( S       "A/V"                 "Siemens" ) 
    181     ( F       "C/V"                 "Farad" ) 
    182     ( H       "Wb/A"                "Henry" ) 
    183     ( T       "Wb/m^2"              "Tesla" ) 
    184     ( G       "1e-4 T"              "Gauss" ) 
    185     ( Wb      "V s"                 "Weber" ) 
     180    ( A       nil                     "*Ampere" ) 
     181    ( C       "A s"                   "Coulomb" ) 
     182    ( Fdy     "ech Nav"               "Faraday" ) 
     183    ( e       "1.60217653e-19 C"      "Elementary charge" ) ;; CODATA 2005 
     184    ( ech     "1.60217653e-19 C"      "Elementary charge" ) ;; CODATA 2005 
     185    ( V       "W/A"                   "Volt" ) 
     186    ( ohm     "V/A"                   "Ohm" ) 
     187    ( mho     "A/V"                   "Mho" ) 
     188    ( S       "A/V"                   "Siemens" ) 
     189    ( F       "C/V"                   "Farad" ) 
     190    ( H       "Wb/A"                  "Henry" ) 
     191    ( T       "Wb/m^2"                "Tesla" ) 
     192    ( Gs      "1e-4 T"                "Gauss" ) 
     193    ( Wb      "V s"                   "Weber" ) 
    186194 
    187195    ;; Luminous intensity 
    188     ( cd      nil                   "*Candela" ) 
    189     ( sb      "1e4 cd/m^2"          "Stilb" ) 
    190     ( lm      "cd sr"               "Lumen" ) 
    191     ( lx      "lm/m^2"              "Lux" ) 
    192     ( ph      "1e4 lx"              "Phot" ) 
    193     ( fc      "10.76391 lx"         "Footcandle" ) ;; NIST (http://physics.nist.gov/Pubs/SP811/appenB9.html) 
    194     ( lam     "1e4 lm/m^2"          "Lambert" ) 
    195     ( flam    "3.426259 cd/m^2"     "Footlambert" ) ;; NIST (http://physics.nist.gov/Pubs/SP811/appenB9.html) 
     196    ( cd      nil                     "*Candela" ) 
     197    ( sb      "1e4 cd/m^2"            "Stilb" ) 
     198    ( lm      "cd sr"                 "Lumen" ) 
     199    ( lx      "lm/m^2"                "Lux" ) 
     200    ( ph      "1e4 lx"                "Phot" ) 
     201    ( fc      "10.76391 lx"           "Footcandle" ) ;; NIST (http://physics.nist.gov/Pubs/SP811/appenB9.html) 
     202    ( lam     "1e4 lm/m^2"            "Lambert" ) 
     203    ( flam    "3.426259 cd/m^2"       "Footlambert" ) ;; NIST (http://physics.nist.gov/Pubs/SP811/appenB9.html) 
    196204 
    197205    ;; Radioactivity 
    198     ( Bq      "1/s"                 "*Becquerel" ) 
    199     ( Ci      "3.7e10 Bq"           "Curie" ) 
    200     ( Gy      "J/kg"                "Gray" ) 
    201     ( Sv      "Gy"                  "Sievert" ) 
    202     ( R       "2.58e-4 C/kg"        "Roentgen" ) 
    203     ( rd      ".01 Gy"              "Rad" ) 
    204     ( rem     "rd"                  "Rem" ) 
     206    ( Bq      "1/s"                    "*Becquerel" ) 
     207    ( Ci      "3.7e10 Bq"              "Curie" ) 
     208    ( Gy      "J/kg"                   "Gray" ) 
     209    ( Sv      "Gy"                     "Sievert" ) 
     210    ( R       "2.58e-4 C/kg"           "Roentgen" ) 
     211    ( rd      ".01 Gy"                 "Rad" ) 
     212    ( rem     "rd"                     "Rem" ) 
    205213 
    206214    ;; Amount of substance 
    207     ( mol     nil                   "*Mole" ) 
     215    ( mol     nil                      "*Mole" ) 
    208216 
    209217    ;; Plane angle 
    210     ( rad     nil                   "*Radian" ) 
    211     ( circ    "2 pi rad"            "Full circle" ) 
    212     ( rev     "circ"                "Full revolution" ) 
    213     ( deg     "circ/360"            "Degree" ) 
    214     ( arcmin  "deg/60"              "Arc minute" ) 
    215     ( arcsec  "arcmin/60"           "Arc second" ) 
    216     ( grad    "circ/400"            "Grade" ) 
    217     ( rpm     "rev/min"             "Revolutions per minute" ) 
     218    ( rad     nil                      "*Radian" ) 
     219    ( circ    "2 pi rad"               "Full circle" ) 
     220    ( rev     "circ"                   "Full revolution" ) 
     221    ( deg     "circ/360"               "Degree" ) 
     222    ( arcmin  "deg/60"                 "Arc minute" ) 
     223    ( arcsec  "arcmin/60"              "Arc second" ) 
     224    ( grad    "circ/400"               "Grade" ) 
     225    ( rpm     "rev/min"                "Revolutions per minute" ) 
    218226 
    219227    ;; Solid angle 
    220     ( sr      nil                   "*Steradian" ) 
    221  
    222     ;; Other physical quantities (CODATA 1998) 
    223     ( h       "6.62606876e-34 J s"     "*Planck's constant" ) 
     228    ( sr      nil                      "*Steradian" ) 
     229 
     230    ;; Other physical quantities 
     231    ( h       "6.6260693e-34 J s"     "*Planck's constant" ) ;; CODATA 2005 
    224232    ( hbar    "h / 2 pi"               "Planck's constant" ) 
    225233    ( mu0     "4 pi 1e-7 H/m"          "Permeability of vacuum" ) 
    226     ( Grav    "6.673e-11 m^3/kg^1/s^2" "Gravitational constant" ) 
    227     ( Nav     "6.02214199e23 / mol"    "Avagadro's constant" ) 
    228     ( me      "9.10938188e-31 kg"      "Electron rest mass" ) 
    229     ( mp      "1.67262158e-27 kg"      "Proton rest mass" ) 
    230     ( mn      "1.67492716e-27 kg"      "Neutron rest mass" ) 
    231     ( mu      "1.88353109e-28 kg"      "Muon rest mass" ) 
    232     ( Ryd     "10973731.568549 /m"     "Rydberg's constant" ) 
    233     ( k       "1.3806503e-23 J/K"      "Boltzmann's constant" ) 
    234     ( fsc     "7.297352533e-3"         "Fine structure constant" ) 
    235     ( muB     "927.400899e-26 J/T"     "Bohr magneton" ) 
    236     ( muN     "5.05078317e-27 J/T"     "Nuclear magneton" ) 
    237     ( mue     "-928.476362e-26 J/T"    "Electron magnetic moment" ) 
    238     ( mup     "1.410606633e-26 J/T"    "Proton magnetic moment" ) 
    239     ( R0      "8.314472 J/mol/K"       "Molar gas constant" ) 
     234    ( G       "6.6742e-11 m^3/kg^1/s^2" "Gravitational constant" ) ;; CODATA 2005 
     235    ( Nav     "6.02214115e23 / mol"    "Avagadro's constant" ) ;; CODATA 2005 
     236    ( me      "9.1093826e-31 kg"       "Electron rest mass" ) ;; CODATA 2005 
     237    ( mp      "1.67262171e-27 kg"      "Proton rest mass" ) ;; CODATA 2005 
     238    ( mn      "1.67492728e-27 kg"      "Neutron rest mass" ) ;; CODATA 2005 
     239    ( mmu     "1.88353140e-28 kg"      "Muon rest mass" ) ;; CODATA 2005 
     240    ( Ryd     "10973731.568525 /m"     "Rydberg's constant" ) ;; CODATA 2005 
     241    ( k       "1.3806505e-23 J/K"      "Boltzmann's constant" ) ;; CODATA 2005 
     242    ( alpha   "7.297352568e-3"         "Fine structure constant" ) ;; CODATA 2005 
     243    ( muB     "927.400949e-26 J/T"     "Bohr magneton" ) ;; CODATA 2005 
     244    ( muN     "5.05078343e-27 J/T"     "Nuclear magneton" ) ;; CODATA 2005 
     245    ( mue     "-928.476412e-26 J/T"    "Electron magnetic moment" ) ;; CODATA 2005 
     246    ( mup     "1.41060671e-26 J/T"     "Proton magnetic moment" ) ;; CODATA 2005 
     247    ( R0      "8.314472 J/mol/K"       "Molar gas constant" ) ;; CODATA 2005 
    240248    ( V0      "22.710981e-3 m^3/mol"   "Standard volume of ideal gas" ))) 
    241249 
    …… 
    248256 
    249257(defvar math-unit-prefixes 
    250   '( ( ?E  (float 1 18)  "Exa"    ) 
     258  '( ( ?Y  (float 1 24)  "Yotta"  ) 
     259     ( ?Z  (float 1 21)  "Zetta"  ) 
     260     ( ?E  (float 1 18)  "Exa"    ) 
    251261     ( ?P  (float 1 15)  "Peta"   ) 
    252262     ( ?T  (float 1 12)  "Tera"   ) 
    …… 
    266276     ( ?p  (float 1 -12) "Pico"   ) 
    267277     ( ?f  (float 1 -15) "Femto"  ) 
    268      ( ?a  (float 1 -18) "Atto"   ))) 
     278     ( ?a  (float 1 -18) "Atto"   ) 
     279     ( ?z  (float 1 -21) "zepto"  ) 
     280     ( ?y  (float 1 -24) "yocto"  ))) 
    269281 
    270282(defvar math-standard-units-systems