summaryrefslogtreecommitdiff
path: root/2084/CH16/EX16.9w/16_9w.sce
blob: 86d47587b89fcdd592e3cc5ab62d5de3d75440aa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//developed in windows XP operating system 32bit
//platform Scilab 5.4.1
clc;clear;
//example 16.9w
//calculation of the factor by which the pressure amplituide increases

//given data
n=30//increase(in dB) of the sound level

//calculation
//m = I2/I1 = intensity ratio
m=10^(n/10)
//since p2/p1 = sqrt(I2/I1)
f=sqrt(m)//require factor

printf('the factor by which the pressure amplituide increases is %d',round(f))