Numerical calculation of full waveform acoustic logging in transversely isotropic porous formation