%percent   age
% 50         5729.9
% 100          0
% 80         1845
% 70         2948
% 40         7574
% 10          19030

% x = [5729.9 0 1845 2948 7574 19030];
% y = [ 50 100 80 70 40 10];
% plot(x,y)

x = [0 1845 2948 5730 7574 19030];
y = [ 100 80 70 50 40 10];
plot(x,y, '^:')

x1 = [0 1000 2000 3000 4000 19000]
y1 = [60 60  60   60    60   60  ]
hold on;
plot(x1, y1, 'or-');

legend ('decay', 'null data');

title('C-14 DECAY');
xlabel('age in years');
ylabel('percentage C');
grid on;


