home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / z000006.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  6.1 KB  |  174 lines
  1. with PHYSICAL_REAL ; use PHYSICAL_REAL ;
  2.  
  3. package PHYSICAL_UNITS_ELECTRICAL is
  4.  
  5. -- This package specification defines Ada types for physical
  6. -- quantities related to electrical units. It ia a logical
  7. -- extension of PHYSICAL_UNITS_MECHANICAL .
  8. --
  9. --
  10. --
  11. --                                  DERIVED ELECTRICAL
  12. --
  13. --electric current           I       Q/T         ampere             c/sec
  14. --  magnetomotive force
  15.  
  16.   type CURRENT_AMPERE is new REAL ;
  17.   type CURRENT_MILLIAMPERE is new REAL ;
  18.   type CURRENT_MICROAMPERE is new REAL ;
  19.   type CURRENT_ABAMPERE is new REAL ;
  20.   type CURRENT_STATAMPERE is new REAL ;
  21.  
  22. --
  23. --                                     2  2                             2    2
  24. --voltage                    E       ML /T Q     volt               Kg m /sec c
  25. --  potential difference
  26. --  electromotive force
  27.  
  28.   type VOLTAGE_VOLT is new REAL ;
  29.   type VOLTAGE_MILLIVOLT is new REAL ;
  30.   type VOLTAGE_MICROVOLT is new REAL ;
  31.   type VOLTAGE_KILOVOLT is new REAL ;
  32.  
  33. --
  34. --                                     2   2                            2      2
  35. --electric resistance        R       ML /TQ      ohm                Kg m /sec c
  36. --
  37.   type RESISTANCE_OHM is new REAL ;
  38.   type RESISTANCE_MILLIOHM is new REAL ;
  39.   type RESISTANCE_KILOHM is new REAL ;
  40.   type RESISTANCE_MEGOHM is new REAL ;
  41.  
  42. --
  43. --                                     3   2                            3      2
  44. --electric resistivity       rho     ML /TQ     ohm meter           Kg m /sec c
  45. --
  46.   type RESISTIVITY_OHM_METER is new REAL ;
  47.  
  48. --
  49. --                                     2   2                             2     2
  50. --electric conductance       G       TQ /ML      mho                sec c /Kg m
  51. --
  52.   type CONDUCTANCE_MHO is new REAL ;
  53.  
  54. --
  55. --                                     2   3                             2     3
  56. --conductivity               sigma   TQ /ML      mho per meter      sec c /Kg m
  57. --
  58.   type CONDUCTIVITY_MHO_PER_METER is new REAL ;
  59.  
  60. --
  61. --
  62. --                                    2 2   2                          2 2     2
  63. --capacitance                C       T Q /ML     farad              sec c /Kg m
  64. --
  65.   type CAPACITANCE_FARAD is new REAL ;
  66.   type CAPACITANCE_MICROFARAD is new REAL ;
  67.   type CAPACITANCE_PICOFARAD is new REAL ;
  68.  
  69. --
  70. --
  71. --                                     2  2                             2  2
  72. --inductance                 L       ML /Q       henry              Kg m /c
  73. --                                               weber per ampere
  74. --                                               volt second per ampere
  75.  
  76. --
  77.   type INDUCTANCE_HENRY is new REAL ;
  78.   type INDUCTANCE_MILLIHENRY is new REAL ;
  79.   type INDUCTANCE_MICROHENRY is new REAL ;
  80.  
  81. --
  82. --                                       2                                 2
  83. --current density            J       Q/TL        ampere per         c/sec m
  84. --                                               square meter
  85. --
  86.   type CURRENT_DENSITY_AMPERE_PER_SQUARE_METER is new REAL ;
  87.  
  88. --
  89. --                                      3                              3
  90. --charge density             rho     Q/L         coulomb per        c/m
  91. --                                               cubic meter
  92. --
  93.   type CHARGE_DENSITY_COULOMB_PER_CUBIC_METER is new REAL ;
  94.  
  95. --                                     2                                2
  96. --magnetic flux              F       ML /TQ      weber              Kq m /sec c
  97. --                                               volt second
  98. --
  99.   type MAGNETIC_FLUX_WEBER is new REAL ;
  100.  
  101. --
  102. --magnetic flux density,     B       M/TQ        tesla              Kq/sec c
  103. --   magnetic induction                          weber per square meter
  104. --
  105.   type MAGNETIC_FLUX_DENSITY is new REAL ;
  106.   subtype MAGNETIC_FLUX_DENSITY_TESLA is MAGNETIC_FLUX_DENSITY ;
  107.   subtype MAGNETIC_FLUX_DENSITY_WEBER_PER_SQUARE_METER is
  108.           MAGNETIC_FLUX_DENSITY ;
  109.  
  110. --
  111. --magnetic intensity         H       Q/LT        ampere per meter   c/m sec
  112. --  magnetic field strength
  113. --
  114.   type MAGNETIC_INTENSITY is new REAL ;
  115.   subtype MAGNETIC_INTENSITY_AMPERE_PER_METER is MAGNETIC_INTENSITY ;
  116.  
  117. --
  118. --
  119. --magnetic vector potential  A       ML/TQ       weber/meter        Kg m/sec c
  120. --
  121.   type MAGNETIC_VECTOR_POTENTIAL_WEBER_PER_METER is new REAL ;
  122.  
  123. --
  124. --                                       2                                  2
  125. --electric field intensity   E       ML/T Q      volt/meter         Kg m/sec c
  126. --  electric field strength                      newton per coulomb
  127. --
  128.   type ELECTRIC_FIELD is new REAL ;
  129.   subtype ELECTRIC_FIELD_INTENSITY_VOLT_PER_METER is 
  130.           ELECTRIC_FIELD ;
  131.  
  132. --
  133. --                                      2                              2
  134. --electric displacement      D       Q/L         coulomb per        c/m
  135. --                                               square meter
  136. --
  137.   type ELECTRIC_DISPLACEMENT is new REAL ;
  138.   subtype ELECTRIC_DISPLACEMENT_COULOMB_PER_SQUARE_METER is 
  139.           ELECTRIC_DISPLACEMENT ;
  140.  
  141. --
  142. --                                       2                                2
  143. --permeability               mu      ML/Q        henry per meter    Kg m/c
  144. --
  145.   type PERMEABILITY is new REAL ;
  146.   subtype PERMEABILITY_HENRY_PER_METER is PERMEABILITY ;
  147.  
  148. --
  149. --                                    2 2   3                          2 2     3
  150. --permittivity,              epsi    T Q /ML     farad per meter    sec c /Kg m
  151. --  dielectric constant
  152. --
  153.   type PERMITTIVITY is new REAL ;
  154.   subtype PERMITTIVITY_FARAD_PER_METER is PERMITTIVITY ;
  155.   subtype DIELECTRIC_CONSTANT is PERMITTIVITY ;
  156.  
  157. --
  158. --                                                                     -1
  159. --frequency                  f       Pi/T        hertz              sec
  160. --
  161.   type FREQUENCY_HERTZ is new REAL ;
  162.   type FREQUENCY_KILOHERTZ is new REAL ;
  163.   type FREQUENCY_MEGAHERTZ is new REAL ;
  164.   type FREQUENCY_GIGAHERTZ is new REAL ;
  165.  
  166. --
  167. --                                                                     -1
  168. --angular frequency          omega   1/T         radians per second sec
  169. --
  170.   type ANGULAR_FREQUENCY_RADIAN_PER_SECOND is new REAL ;
  171.  
  172. --
  173. end PHYSICAL_UNITS_ELECTRICAL ;
  174.