31.08.2018 Views

Eduardo Kausel-Fundamental solutions in elastodynamics_ a compendium-Cambridge University Press (2006)

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

210 MATLAB programs<br />

function Torsion Full(x,y,z,td,rho,cs)<br />

% Computes the response of a full 3D space to a torsional<br />

% po<strong>in</strong>t source with time variation (pi/2/td)*s<strong>in</strong>(pi*t/td), 0

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!