func for 4th order Trotter-Suzuki expansion