Text this: A New SLF/ELF Algorithm of Fields Excited by a Radiator in a Soil Foundation in the Earth–Ionosphere Cavity