em.awk


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/awk -f

BEGIN {
    ARGV[1] ? OFMT = "%." ARGV[1] "g" : OFMT = "%.12g"

    ### constants
    pi = 4.0*atan2(1,1)         # rad
    c0 = 299792458E0            # m/s, exact
    mu0 = (4.0E-7)*pi           # H/m
    epsilon0 = (mu0*c0^2)^-1    # F/m

    print pi, c0, mu0, epsilon0
}