home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / ArisModules / MeasConv / confuncs.e next >
Text File  |  1995-08-30  |  1KB  |  41 lines
  1. ->
  2. -> confuncs.e © Aris Basic 1995
  3. ->
  4. -> COMPILED NAME:
  5. ->              confuncs.m
  6. ->
  7. -> COPYRIGHT (DISTRIBUTION):
  8. ->              GMYware
  9. ->         (see GMYware.readme)
  10. ->
  11. -> DESCRIPTION:
  12. -> Conversion functions for MeasConv
  13. ->
  14. ->
  15. -> HISTORY:
  16. ->  17.08.1995  01.00  initail release
  17. ->  30.08.1995  01.01  some small cosmetic changes
  18. ->
  19.  
  20. -> Compile Options
  21. OPT MODULE
  22. OPT EXPORT
  23.  
  24. -> Conversion Functions for Length
  25. PROC cm2inch(cm) IS (!cm*0.3937)            -> centimeters(cm) to inches(")
  26. PROC inch2cm(inch) IS (!inch*2.54)          -> inches(") to centimeters(cm)
  27. PROC inch2ft(inch) IS (!inch/12.0)          -> inches(") to feets(ft or ')
  28. PROC ft2inch(ft) IS (!ft*12.0)              -> feets(ft or ') to inches(")
  29. PROC ft2mile(ft) IS (!ft/5280.0)            -> feets(ft or ') to miles(mi)
  30. PROC mile2ft(mile) IS (!mile*5280.0)        -> miles(mi) to feets(ft or ')
  31.  
  32. -> Conversion Functions for Weight
  33. PROC kg2pound(kg) IS (!kg*2.30414746)       -> kilograms(kg) to pounds(lb)
  34. PROC pound2kg(pound) IS (!pound*0.434)      -> pounds(lb) to kilograms(kg)
  35.  
  36. -> Conversion Functions for Temperature
  37. PROC c2f(cg) IS (!(!1.8*cg)+32.0)       -> celsius(°C) to fahrenheit(°F)
  38. PROC f2c(fg) IS (!(!fg-32.0)*(5.0/9.0))     -> fahrenheit(°F) to celsius(°C)
  39. PROC k2c(kg) IS (!kg+(-273.2))              -> kelvin(°K) to celsius(°C)
  40. PROC c2k(cg) IS (!cg+(273.2))               -> celsius(°C) to kelvin(°K)
  41.