summaryrefslogtreecommitdiff
path: root/49/CH6/EX6.9/ex9.sce
blob: 1a846c6deb837312baf0103b695efb9c107274b7 (plain)
1
2
3
4
5
6
7
8
9
10
//CHAPTER 6 _ PRESSURE AND SOUND MEASUREMENT
//Caption : Sound Measurement
// Example 9// Page 369
disp("Lp=104")
Lp=104  //('enter the sound pressure level in decibles=:')
disp("pa=20*10^-6;")
disp("p=sqrt(10^(Lp/10)*pa^2);")
pa=20*10^-6;   // rms pressure threshold of hearing
p=sqrt(10^(Lp/10)*pa^2);
printf('root mean square sound pressure is %1.3fPa\n',p)