First Step
Before you proceed to the example below, you should have read another article on RAYPP to understand the earth model to be used.
Procedure
To run the program RAYPS you have to go through the steps below :
// Linking
nps = link('rayps.o','rayps','f');
// Model
vp = [1000 2000 2500]';
vs = [500 1000 1250]';
d = [100 200 250]';
x = [0:50:500]';
// Ray tracing
nl = mini([length(vp) length(vs) length(d)]);
ns = length(x);
tm = fort("rayps",vp,1,"r",vs,2,"r",d,3,"r",nl,4,"i",x,5,"r",ns,6,"i",...
"out",[nl,ns],7,"r")
// Plotting
st = ones(1,nl);
xbasc();
plot2d1("onn",x,tm',st,"021");
xtitle('P-S reflections','Offset (meter)','Waktu (detik)');
xend();
exec('exam1.sci')
HAVE A LOT OF FUN.