Wolfram|Alpha has ground motion calculators. Solve problems related to distance based on seismic travel times; earthquake downdip rupture width; earthquake fault slip, fault slip rate, rupture area or rupture length; 2D or 3D focal mechanism visualization; ground motion predictions; seismic travel times; and styles of faulting.