summaryrefslogtreecommitdiff
path: root/273/CH12/EX12.3/ex12_3.sce
blob: b4f96c7efdda21eff950afbd2e848413416f2310 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc;clear;
//Example 12.3
//calculation of depth and wavelength

//given values

f=.07*10^6;//frequency in Hz
t=.65;//time taken for pulse to return
v=1700;//velocity of sound in sea water in m/s

//calculation
d=v*t/2;//
disp(d,'the depth of sea(in m) is');
l=v/f;//wavelenght of pulse in m
disp(l*10^2,'wavelength of pulse (in cm)is');