# Last edited on 2014-05-07 18:27:28 by stolfilocal
# gawk 'BEGIN{ DB = 06; DF = 07; Q = 1.000; } (NF != 3) { printf "** error: %s\n", $0; next; } /^[ ]*[0-9]/{ d = $1; p = $2; w = $3; z = (d-DB); zf = (DF - d); wf = exp(log(Q)*zf); printf "%3d %6.1f %5.3f %3.1f %9.5f\n", d, p, w*wf, 1, z; next; } //{ print; }'

  6 2672.0 0.974 1.0   0.00000
  7 2755.0 0.847 1.0   1.00000