% Original Data
figure;
wigb(agc(origin,100)',1,'r','g',22.86,0.008,-22.86,0,-25,1371.6,2.8,8,'Offset (Meter)','Time (Second)','Original Data');
% Nearoffset Missing Data
figure;
a=origin;a(1:20,:)=0;
wigb(agc(a,100)',1,'r','g',22.86,0.008,-22.86,0,-25,1371.6,2.8,8,'Offset (Meter)','Time (Second)','Near Offset Missing Data');
hold;
for i=0:22.86:434.34
plot([i,i],[2.8,8],'k');
end
% Pseudo Shot Profile
figure;
wigb(agc(pseudoshot,100)',1,'r','g',22.86,0.008,-22.86,0,-25,1371.6,2.8,8,'Offset (Meter)','Time (Second)','Pseudo Shot Profile');
% Interferometric Interpolation Result
figure;
wigb(agc(result,100)',1,'r','g',22.86,0.008,-22.86,0,-25,1371.6,2.8,8,'Offset (Meter)','Time (Second)','Interferometric Interpolation Result');
% Comparison with original data
figure;
subplot(1,2,1);
wigb(agc(result,100)',1,'r','g',22.86,0.008,-22.86,0,-25,914.4,2.8,8,'Offset (Meter)','Time (Second)','Interferometric Interpolation Result');
subplot(1,2,2);
wigb(agc(origin,100)',1,'r','g',22.86,0.008,-22.86,0,-25,914.4,2.8,8,'Offset (Meter)','Time (Second)','Original Data');