ebeltoft-ams

AMS results for channel deposit at Ebeltoft, Denmark
git clone git://src.adamsgaard.dk/ebeltoft-ams # fast
git clone https://src.adamsgaard.dk/ebeltoft-ams.git # slow
Log | Files | Refs Back to index

ams-ellipsoid.awk (536B)

      1 #!/usr/bin/awk -f
      2 
      3 BEGIN {
      4 	if (axis == "")
      5 		axis = "max"
      6 	printf "No.\tTrend\tPlunge\n"
      7 }
      8 
      9 /ANISOTROPY OF SUSCEPTIBILITY/ {
     10 	if (match($1, /[A-z0-9\-_]+/))
     11 		id = substr($1, RSTART, RLENGTH)
     12 }
     13 
     14 /^Specimen/ {
     15 	K_max_decl = $3
     16 	K_int_decl = $4
     17 	K_min_decl = $5
     18 	getline
     19 	K_max_incl = $3
     20 	K_int_incl = $4
     21 	K_min_incl = $5
     22 
     23 	printf("%s\t", id)
     24 	if (axis == "max")
     25 		printf "%g\t%g\n", K_max_decl, K_max_incl
     26 	if (axis == "int")
     27 		printf "%g\t%g\n", K_int_decl, K_int_incl
     28 	if (axis == "min")
     29 		printf "%g\t%g\n", K_min_decl, K_min_incl
     30 }