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 Torsion Full(x, y, z, td, rho, cs) 211<br />

pause;<br />

close<br />

% Make file for plott<strong>in</strong>g with EasyPlot<br />

fout = fopen (‘tors.ezp’,’w’);<br />

fpr<strong>in</strong>tf (fout, ‘/et g “%s”\n’, tit);<br />

fpr<strong>in</strong>tf (fout, ‘/et x “t*Cs/R”\n’);<br />

fpr<strong>in</strong>tf (fout, ‘/og on\n’);<br />

fpr<strong>in</strong>tf (fout, ‘/sd off\n’);<br />

fpr<strong>in</strong>tf (fout, ‘/sm off\n’);<br />

fpr<strong>in</strong>tf (fout, ‘%15.5e%15.5e\n’, [tau;v]);<br />

fclose (fout);<br />

return

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

Saved successfully!

Ooh no, something went wrong!