13 0 167 KB
TUGAS 8 KL5201 Akustik Bawah Air Lanjut
DOSEN Irsan Soemantri B., PhD
Oleh : Andri Iwan P. 25513003
PROGRAM STUDI TEKNIK KELAUTAN FAKULTAS TEKNIK SIPIL DAN LINGKUNGAN INSTITUT TEKNOLOGI BANDUNG 2014
Propagasi Akustik Bawah Air
Membuat Sound Velocity Profile dengan kemiringan kecepatan suara atau gradien(g) bernilai negatif (-) dan Ray Tracing
Listing Script Program MATLAB Sound Velocity Profile dan Ray Tracing (1 script) % Bilinear sound speed profile cs z zs g1 g2
= = = = =
1525; % Sound Velocity at water surface 0:12000; 1500; -0.075; %Gradient -0.075; %Gradient
for iz = 1:length(z), if z(iz)