Demo entry 6780833

eotvos

   

Submitted by anonymous on Dec 30, 2018 at 02:36
Language: Matlab. Code size: 303 Bytes.

clc;clear all
vp1=6.0;vs1=3.0;vp2=8.0;vs2=4.0;
a_in=0:1:89;
[arp,ars,atp,ats]=rayangle(vp1,vp2,vs1,vs2,a_in);
subplot(2,2,1);
plot(a_in,arp,'b');
%hold on;
subplot(2,2,2);
plot(a_in,ars,'b');%hold on;
subplot(2,2,3);
plot(a_in,atp,'b');%hold on;
subplot(2,2,4);
plot(a_in,ats,'b');%hold off;

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).