From 7ab9ca8f57c44e812d3c782209a9e600dc513fbc Mon Sep 17 00:00:00 2001 From: wukong Date: Mon, 12 Nov 2018 22:35:51 -0800 Subject: added optional precision argv to other scripts; --- quad_reg.awk | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'quad_reg.awk') diff --git a/quad_reg.awk b/quad_reg.awk index ede06a4..a587a3a 100644 --- a/quad_reg.awk +++ b/quad_reg.awk @@ -118,7 +118,7 @@ END { for (y=1; y<=nf_max; y++) { if (x != y && r[x,y]) { printf(OFMT OFS "(%s)" OFS " = (" OFMT ")(%s)^2" OFS " + (" OFMT ")(%s)" OFS " + (" OFMT ")", - 10.0*log(r[x,y]*r[x,y])/log(10), header[y], c[x,y], header[x], b[x,y], header[x], a[x,y]) + (r[x,y]*r[x,y]), header[y], c[x,y], header[x], b[x,y], header[x], a[x,y]) printf(" [" OFMT "," OFMT "][" OFMT "," OFMT "][" OFMT "," OFMT "]" OFS" [" OFMT "," OFMT "]", rx0[x,y], (a[x,y] + b[x,y]*rx0[x,y] + c[x,y]*rx0[x,y]*rx0[x,y]), rx1[x,y], (a[x,y] + b[x,y]*rx1[x,y] + c[x,y]*rx1[x,y]*rx1[x,y]), -- cgit v1.2.3