home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / kaypro / prftcalc.lbr / RADIODEC.PC < prev    next >
Text File  |  1986-12-21  |  768b  |  36 lines
  1. >a1:"  SPREADSHEET SIMULATION
  2. >a1:\wc30
  3. >b1:\wc12
  4. >b1:\jcr
  5. >c1:\wc12
  6. >c1:\jcr
  7. >a2:"  OF RADIOACTIVE DECAY
  8. >a3:"  --------------------
  9. >a5:"  TIME STEP
  10. >b5:0
  11. >a6:"  TIME
  12. >b6:=if(b5=0,0,b5+b6)@
  13. >a8:"  ISOTOPE
  14. >b8:"PARENT
  15. >c8:"DAUGHTER
  16. >a9:"  INITIAL AMOUNT
  17. >b9:1.000000000000E+03
  18. >c9:0
  19. >a10:"  DECAY RATE
  20. >b10:5.000000000050E-02
  21. >c10:2.000000000050E-02
  22. >a11:"  OLD AMOUNT
  23. >b11:=if(b5=0,b9,b13)@
  24. >c11:=if(b5=0,c9,c13)@
  25. >a12:"  AMOUNT OF DECAY
  26. >b12:=b5*b10*b11@
  27. >c12:=b5*c10*c11)@
  28. >a13:"  NEW AMOUNT
  29. >b13:=b11-b12@
  30. >c13:=c11+b12-c12@
  31. >a15:"  TOTAL ACTIVITY
  32. >c15:=(b10*b11)+(c10*c11)@
  33. >a16:"  LOG(ACTIVITY)
  34. >c16:=ln(c15)@
  35. >a1
  36.