开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > matlab例程 > 查看源码
c14_date.m
资源名称：matlab编程.zip　[点击查看]
上传用户：zjhyt3
上传日期：2007-07-03
资源大小：89k
文件大小：1k
源码类别：

matlab例程

开发平台：

Matlab

c14_date.m：源码内容
  1. %  Script file: c14_date.m
  2. %
  3. %  Purpose: 
  4. %    To calculate the age of an organic sample from the percentage 
  5. %    of the original carbon 14 remaining in the sample.
  6. %
  7. %  Record of revisions:
  8. %      Date       Programmer          Description of change
  9. %      ====       ==========          =====================
  10. %    12/02/97    S. J. Chapman        Original code 
  11. %
  12. % Define variables:
  13. %   age       -- The age of the sample in years
  14. %   lamda     -- The radioactive decay constant for carbon-14,
  15. %                in units of 1/years.
  16. %   percent   -- The percentage of carbon 14 remaining at the time
  17. %                of the measurement
  18. %   ratio     -- The ratio of the carbon 14 remaining at the time
  19. %                of the measurement to the original amount of 
  20. %                carbon 14.
  22. % Set decay constant for carbon-14
  23. lamda = 0.00012097;            
  25. % Prompt the user for the percentage of C-14 remaining.
  26. percent = input('Enter the percentage of carbon 14 remaining:n');
  28. % Perform calculations
  29. ratio = percent / 100;             % Convert to fractional ratio
  30. age = (-1.0 / lamda) * log(ratio); % Get age in years
  32. % Tell the user about the age of the sample.
  33. string = ['The age of the sample is ' num2str(age) ' years.'];
  34. disp(string);