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 [ ] = SVP Plate(x, z, z0, poi, BC1, BC2) 243<br />

n = length(T2);<br />

S = sqrt((T2(k:n)-tp2));<br />

PSI = [zeros(1,k1),-S/ts2]; % yes, we must divide by ts2, not tp2<br />

CHI = [zeros(1,k1),alfaˆ2./S]-2*PSI;<br />

if tp2==T2(k1), CHI(k1)=<strong>in</strong>f; end<br />

k = f<strong>in</strong>d(ts2

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

Saved successfully!

Ooh no, something went wrong!