Monte-Carlo Simulation of Ultrasonic Grain Noise