- 3.
gawk 'BEGIN{l=100;r=3.08e16;print(l/3.14/4/r/r)}'
- 4.
gawk 'BEGIN{l=100;r=3.08e16;print(-log(l/3.14/4/r/r/3.44e-8)/log(10)*2.5)}'
- 5.
gawk 'BEGIN{l=100;r=3.08e16;lam=0.55e-6;c=3e8;nu=c/lam;print(l/3.14/4/r/r/nu/nu*c*1e6)}'
- 6.
gawk 'BEGIN{l=1.0;B=1.191e8/(l**5)/(exp(14387.7/l/300)-1);s=0.0314159;str=4*3.14159*s/10/10/3.14159;print(B*str)}'
- 7.
gawk 'BEGIN{l=1.0;B=1.191e8/(l**5)/(exp(14387.7/l/300)-1);s=0.0314159;str=4*3.14159*s/10/10/3.14159;d=1e-5;h=6.626e-34;c=3e8;nu=c/(l*1e-6);print(B*str*d*d*l/10/h/nu)}'