home *** CD-ROM | disk | FTP | other *** search
/ T.C. 1,001 Programme der Spitzenklasse / T._C._1001_Programme_der_Spitzenklasse.iso / richter / 8547 / 8547.mhs / RICHTER.DTP / MERCURY / DECAY.EKA < prev    next >
Text File  |  1992-03-24  |  396b  |  12 lines
  1. ; This problem demonstrates how to solve a user-defined
  2. ; transcendental function of time.
  3. ; The problem is to calculate MassUnknown, the mass of
  4. ; 100 kg uranium 238 after one million years.
  5. ; Also calculate how long it would take to decay to 1 kg.
  6.  
  7.  Mass(Years) := InitialMass * 2^(-Years/HalfLife)
  8.  InitialMass = 100
  9.  HalfLife = 10e6
  10.  MassUnknown = Mass(1e6)
  11.  1 = Mass(TimeUnknown)
  12.