tams-ellipsoid.awk: also extract and save sample id - ebeltoft-ams - AMS result… | |
git clone git://src.adamsgaard.dk/ebeltoft-ams | |
Log | |
Files | |
Refs | |
--- | |
commit 2de749e6f5d5f3154e8e1e28453c91145d608556 | |
parent 31b2df39fe81bc3f8650a04f57f3d2a71940f231 | |
Author: Anders Damsgaard <[email protected]> | |
Date: Fri, 24 Jun 2022 12:10:37 +0200 | |
ams-ellipsoid.awk: also extract and save sample id | |
Diffstat: | |
M ams-ellipsoid.awk | 8 +++++++- | |
1 file changed, 7 insertions(+), 1 deletion(-) | |
--- | |
diff --git a/ams-ellipsoid.awk b/ams-ellipsoid.awk | |
t@@ -3,7 +3,12 @@ | |
BEGIN { | |
if (axis == "") | |
axis = "max" | |
- printf "Trend\tPlunge\n" | |
+ printf "No.\tTrend\tPlunge\n" | |
+} | |
+ | |
+/_[A-z0-9]+ +/ { | |
+ if (match($0, /_[A-z0-9]+ /)) | |
+ id = substr($0, RSTART + 1, RLENGTH - 2) | |
} | |
/^Specimen/ { | |
t@@ -15,6 +20,7 @@ BEGIN { | |
K_int_incl = $4 | |
K_min_incl = $5 | |
+ printf("%s\t", id) | |
if (axis == "max") | |
printf "%g\t%g\n", K_max_decl, K_max_incl | |
if (axis == "int") |