focalmech(fm, centerX, centerY, diam, varargin)

Draw a full moment tensor focal mechanism for an earthquake

Function takes 3x3 or vector of 6 independent elements of a moment tensor and plots the appropriate beachball for that earthquake
Example:
% Ryukyu Islands earthquake 4/18/2008 (from globalcmt.org)
M = [4.070 -1.830 -2.240 1.500 1.410 -1.110];
Mw = 5.0;
figure(1)
clf
focalmech(M,0,0,Mw)
axis equal
% Mt. Carmel aftershock 4/18/2008
M = [ -0.754 2.250 -1.490 -0.435 -0.094 0.730 ];
Mw = 4.6;
focalmech(M,5.2,0,Mw)
set(gca,'Visible','off')