home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / z000007.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  1.5 KB  |  66 lines
  1. with PHYSICAL_REAL ; use PHYSICAL_REAL ;
  2.  
  3. package PHYSICAL_UNITS_OTHER is
  4.  
  5. -- This package specification defines Ada types for physical
  6. -- units that occur as intermediate results.
  7. -- A number of other packages use this package.
  8. --
  9. --
  10. --   The comments below are organized to present the physical quantity unit with
  11. --associated information. The first column is the dimension of the physical
  12. --quantity expressed in terms of the fundamental dimensions. The second column
  13. --is the typical MKS unit equation. 
  14. --
  15. -- DIMENSION   UNIT EQUATION
  16. -- _________   _____________
  17. --
  18. --                TYPES NEEDED FOR COMPUTATIONS
  19. --
  20. --    2            2
  21. --   T          sec
  22.   type TIME_SECOND_SQUARED is new REAL ;
  23.  
  24. --
  25. --   2  2        2    2
  26. --  L /T        m /sec
  27.   type VELOCITY_SQUARED_MKS is new REAL ;
  28.   subtype VELOCITY_MKS_SQUARED is VELOCITY_SQUARED_MKS ;
  29.  
  30. --    2  2            o
  31. --  ML /T K     joule/ K 
  32.   type JOULE_PER_DEGREE_KELVIN is new REAL ;
  33.  
  34. --
  35. --    3  2 2
  36. --  ML /T Q     m/farad
  37.   type METER_PER_FARAD is new REAL ;
  38.  
  39. --
  40. --   2 4  4 2       2
  41. --  M L /T Q    volt
  42.   type VOLT_SQUARED  is new REAL ;
  43.  
  44. --
  45. --   2  2             2
  46. --  Q /T        ampere
  47.   type AMPERE_SQUARED is new REAL ;
  48.  
  49. --
  50. --     2
  51. --  Q/T         ampere/sec
  52.   type AMPERE_PER_SECOND is new REAL ;
  53.  
  54. -- 
  55. --    2  3
  56. --  ML /T Q     volt/sec
  57.   type VOLT_PER_SECOND is new REAL ;
  58.  
  59. --
  60. --   2   2
  61. --  L /MT
  62.   type ACCELERATION_PER_KILOGRAM is new REAL ;
  63.  
  64. --
  65. end PHYSICAL_UNITS_OTHER ;
  66.