
clear 
close all

load test_p_x
load test_p_z
load test_p_t

nt=2000;
nr=51;

sx=reshape(test_p_x,nt,nr); 
sz=reshape(test_p_z,nt,nr); 
st=reshape(test_p_t,nt,nr); 

sx=sx(:,25);
sz=sz(:,25);
st=st(:,25);

dt=.0001;

save sx.dat -ascii sx 
save sz.dat -ascii sz
save st.dat -ascii st 





