Radiocarbon_bomb_spike.svg
Size of this PNG preview of this SVG file:
600 × 480 pixels
.
Other resolutions:
300 × 240 pixels
|
960 × 768 pixels
|
1,280 × 1,024 pixels
|
2,560 × 2,048 pixels
.
Description Radiocarbon bomb spike.svg |
English:
Atmospheric
14
CO
2
in the second half of the 20
th
century.
The figure shows the 14 C / 12 C ratio relative to the natural level in the atmospheric CO 2 as a function of time in the second half of the 20th century. The plot was generated with gnuplot from data of atmospheric radiocarbon in Wellington, New Zealand 1954AD to 1993AD and at the Vermuntsee, Austria 1959AD to 1983AD. The SVG file from gnuplot has been improved manually. The data sources provide the data as D14C. For the plot the absolute percent modern value has been calculated assuming that each measurement was done in the same year as the respective sample was taken.
Deutsch:
Atmosphärisches
14
CO
2
in der zweiten Hälfte des 20. Jahrhunderts.
|
|||
Date | AD 2008-08-09 | |||
Source |
Own work ( Original text: Own work. Data from the following sources: )
|
|||
Author | Hokanomono | |||
Permission
( Reusing this file ) |
All rights for generating the graphics shall be released. As far as I know there is no copyright protection on measurement data in general.
|
|||
Other versions |
|
|||
SVG development
InfoField
|
This plot uses
embedded
text that can be
easily translated
using a text editor.
|
|||
Source code
InfoField
|
Gnuplot codereset
set term svg enhanced
set output "plot.svg"
set xdata time
set timefmt "%Y-%m-%d"
set xrange ["1945-1-1":"2000-1-1"]
set format x "%Y"
set xtics 5*31556926
set grid
#set title 'Atmospheric ^{14}CO_{2}'
set xlabel 'Year (AD)'
set ylabel 'pMC/ percent'
#see Stuiver Polach for conversion between D14C and pMC
lambda = 1.0 / (8267 * 365.2422 * 24 * 3600)
set arrow from "1963-10-10", 210 to "1963-10-10", 200
set label "PTBT 10-Oct-1963" at "1963-10-10", 210 offset -5,0.5
plot [][90:230] "<awk '!/*/{print \"19\" $1 \"-\" $2 \"-\" $3, mktime(sprintf(\"19%02i %02i %02i 00 00 00\", $1, $2, $3)) - mktime(\"1950 01 01 00 00 00\"), $6, $7;}' welling.195" us 1:(($3+1000)*exp(-lambda*$2)*0.1) tit 'SH: Wellington, New Zealand' w lines, "<awk 'BEGIN{FIELDWIDTHS=\"1 7 5 7 5 2 3 3 4 2 3 3 5 6 5 4 3 2 1\";} /^ HD-/{a = mktime(sprintf(\"19%02i %02i %02i 00 00 00\", $8, $7, $6)); b = mktime(sprintf(\"19%02i %02i %02i 00 00 00\", $12, $11, $10)); present=mktime(\"1950 01 01 00 00 00\"); printf \"%s %g %4g %2g\\n\", strftime(\"%Y-%m-%d\", (a+b)/2), (b-a)/2, b-present, $16, $18;}' vermunt.c14" us 1:(($4+1000)*exp(-lambda*$3)*0.1) tit 'NH: Vermunt, Austria' w lines, 100 tit 'natural level'
set output
|