rho0 intop3(acpr.rho) Density of water at room temperature c0 intop3(acpr.c) Speed of sound in water at room temperature Zaco intop2(p)/intop2(acpr.iomega*(w+eps))/(rho0*c0) Specific acoustic impedance pext_1 pext(0,0,-1) Exterior field pressure at 1 m prms sqrt(0.5*pext_1*conj(pext_1))[Pa] RMS pressure at 1 m TVR 20*log10(prms/Vrms/1[uPa/V]) Transmitting Voltage Response (TVR) pext_Zeval pext(0,0,Zeval[1/m]) Exterior field pressure at Zeval Ifront 0.5*pext_Zeval*conj(pext_Zeval)[Pa^2]/(rho0*c0) On-axis intensity at Zeval Ptot intop1(down(acpr.Ix)*acpr.nx+down(acpr.Iy)*acpr.ny+down(acpr.Iz)*acpr.nz) Total radiated power Iave Ptot/(4*pi*Zeval^2) Average intensity of monopole source at Zeval Di Ifront/Iave Intensity directivity DI 10*log10(Di) Directivity index of Tonpilz transducer k0 2*pi*freq/c0 Wave number DI_fl_pist 10*log10((k0*a)^2/(1-2*besselj(1,2*k0*a)/(2*k0*a))) Directivity index of flanged piston SPL_Zeval intop3(subst(acpr.efc1.Lp_pext,x,0,y,0,z,Zeval)) SPL at Zeval SPL_rel acpr.efc1.Lp_pext-SPL_Zeval SPL relative to 0 dB at Zeval