function [ ] = PlotMohrsCircle (Sx, Sy, Sz, Txy, Tyz, Tzx)
%
%  This function uses the applied stresses to plot a Mohr's circle diagram.
%  You must manually set the axises to "Auto" in the graph to see the
%  plots.  Options->Axis Limits (Auto, Auto)
%
%  Input
%    Sx, Sy, Sz        the applied normal stresses
%    Txy, Tyz, Tzx     the applied shear stresses
%

%  Compute the principal stresses

[ S1, S2, S3, T12, T23, T13 ] = PrnStresses (Sx, Sy, Sz, Txy, Tyz, Tzx);

%  draw circle 13

x = (S1 + S3) / 2
r = (S1 - S3) / 2
if (r > 0)
    pdecirc(x, 0, r);
end

%  Draw circle 12


%  Draw Circle 23


end

