Script
Program 1 %menghitung geophone respone %parameter-parameter d = 5 % jarak (m) N = 6 % jumlah geophone array (buah) k = linspace(0,0.2,500)%range geophone array x = (sin(3.14.*d.*k.*N))/N.*sin(3.14.*d.*k)%perhitungan atenuasi lobe points dB = 20*log(x)
plot (k,dB,'-b')%respone curve geophone %end
Program 2 %menghitung geophone respone %parameter-parameter d = 3 % jarak (m) N = 6 % jumlah geophone array (buah) k = linspace(0,0.2,500)%range geophone array x = (sin(3.14.*d.*k.*N))/N.*sin(3.14.*d.*k)%perhitungan atenuasi lobe points dB = 20*log(x)
plot (k,dB,'-b')%respone curve geophone %end