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.

function [ ] = Blast2D(pois) 205<br />

Ur = f*T.*real(1./P);<br />

T = T*cs/r; % dimensionless time<br />

plot (T, Ur);<br />

tit = ‘Radial displacement <strong>in</strong> full space due to l<strong>in</strong>e blast load’;<br />

title(tit);<br />

titx = ‘Dimensionless time, t*Cs/r’;<br />

xlabel(titx);<br />

grid on;<br />

pause;<br />

EasyPlot(‘B2D TDr.ezp’, tit, titx, T, Ur, ‘r’);<br />

close;<br />

return

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

Saved successfully!

Ooh no, something went wrong!