mathematica code for gaussian horn design. It can give the exact shape of gaussian for specific material, especially helpful for ultrasonic horn design.