gusucode.com > ​DSISoft是由加拿大地质调查局发布的用于垂直地震剖面(VSP)数据处理的免费软件包 > dsisoftv3/qc_dsi/examples/reput_h1az.m

    % re-Put h1- azimuth into header 11 from h1_azimuth.mat file
% data files are in nw99/n43 dir

load h1_azimuth.mat;

cd ../n43

% Shot point 1c
load n43sp1c_harm;

n43sp1c_harm.th{1}(11,:)=h1_azimuth; 
n43sp1c_harm.th{2}(11,:)=h1_azimuth;
n43sp1c_harm.th{3}(11,:)=h1_azimuth;
save n43sp1c_harm n43sp1c_harm;

%Shot point 2e
load n43sp2e_harm;

n43sp2e_harm.th{1}(11,:)=h1_azimuth;
n43sp2e_harm.th{2}(11,:)=h1_azimuth;
n43sp2e_harm.th{3}(11,:)=h1_azimuth;
save n43sp2e_harm n43sp2e_harm;

%shot point 3n
load n43sp3n_harm;

n43sp3n_harm.th{1}(11,:)=h1_azimuth;
n43sp3n_harm.th{2}(11,:)=h1_azimuth;
n43sp3n_harm.th{3}(11,:)=h1_azimuth;
save n43sp3n_harm n43sp3n_harm;

%Shot point 4s
load n43sp4s_harm;

n43sp4s_harm.th{1}(11,:)=h1_azimuth;
n43sp4s_harm.th{2}(11,:)=h1_azimuth;
n43sp4s_harm.th{3}(11,:)=h1_azimuth;
save n43sp4s_harm n43sp4s_harm;

%Shot point 5w
load n43sp5w_harm;

n43sp5w_harm.th{1}(11,:)=h1_azimuth;
n43sp5w_harm.th{2}(11,:)=h1_azimuth;
n43sp5w_harm.th{3}(11,:)=h1_azimuth;
save n43sp5w_harm n43sp5w_harm;