diff options
Diffstat (limited to '1928/CH4')
29 files changed, 708 insertions, 0 deletions
diff --git a/1928/CH4/EX4.11.1/ex_4_11_1.sce b/1928/CH4/EX4.11.1/ex_4_11_1.sce new file mode 100755 index 000000000..725fee5f9 --- /dev/null +++ b/1928/CH4/EX4.11.1/ex_4_11_1.sce @@ -0,0 +1,17 @@ +//Chapter-4,Example4_11_1,pg 4-17
+
+d=8900 //density
+
+Y=20.8*10^10 //Young's modulus
+
+n=40*10^3 //frequency of wave
+
+k=1 //consider 1st harmonic
+
+l=(k/(2*n))*sqrt(Y/d) //arranging formula of natural frequency
+
+printf("length =")
+
+disp(l)
+
+printf("meter")
\ No newline at end of file diff --git a/1928/CH4/EX4.12.1/ex_4_12_1.sce b/1928/CH4/EX4.12.1/ex_4_12_1.sce new file mode 100755 index 000000000..f19888590 --- /dev/null +++ b/1928/CH4/EX4.12.1/ex_4_12_1.sce @@ -0,0 +1,17 @@ +//Chapter-4,Example4_12_1,pg 4-20
+
+d=2.65*10^3 //density
+
+Y=8*10^10 //Young's modulus
+
+n=1*10^6 //frequency of wave
+
+k=1 //consider 1st harmonic
+
+t=(k/(2*n))*sqrt(Y/d) //arranging formula of natural frequency
+
+printf("thickness =")
+
+disp(t)
+
+printf("meter")
diff --git a/1928/CH4/EX4.15.1/ex_4_15_1.sce b/1928/CH4/EX4.15.1/ex_4_15_1.sce new file mode 100755 index 000000000..317e89dc6 --- /dev/null +++ b/1928/CH4/EX4.15.1/ex_4_15_1.sce @@ -0,0 +1,22 @@ +//Chapter-4,Example4_15_1,pg 4-25
+
+l=20 //length of room
+
+b=15 //bredth of room
+
+h=10 //height of room
+
+V=l*b*h //volume of room
+
+a=0.106 //absorption coefficient
+
+S=2*(l*b+b*h+h*l) //surface area of hall
+
+T=(0.161*V)/(a*S) //Reverberation time,using Sabine's formula
+
+printf("Reverberation time =")
+
+disp(T)
+
+printf("sec")
+
diff --git a/1928/CH4/EX4.15.10/ex_4_15_10.sce b/1928/CH4/EX4.15.10/ex_4_15_10.sce new file mode 100755 index 000000000..f836e9eb3 --- /dev/null +++ b/1928/CH4/EX4.15.10/ex_4_15_10.sce @@ -0,0 +1,23 @@ +//Chapter-4,Example4_15_10,pg 4-31
+
+f=0.07*10^6 //frequency
+
+t=0.65 //time
+
+v=1700 //velocity of sound
+
+d=v*t/2 //depth of seabed
+
+printf("1) depth of seabed =")
+
+disp(d)
+
+printf("meter")
+
+l=v/f //wavelength
+
+printf("2) wavelength =")
+
+disp(l)
+
+printf("meter")
diff --git a/1928/CH4/EX4.15.11/ex_4_15_11.sce b/1928/CH4/EX4.15.11/ex_4_15_11.sce new file mode 100755 index 000000000..18d493937 --- /dev/null +++ b/1928/CH4/EX4.15.11/ex_4_15_11.sce @@ -0,0 +1,17 @@ +//Chapter-4,Example4_15_11,pg 4-31
+
+t=1*10^-3 //thicknesss of crystal
+
+d=2.65*10^3 //density
+
+Y=8*10^10 //Young's modulus
+
+k=1 //consider 1st harmonic
+
+n=(k/(2*t))*sqrt(Y/d) //formula of natural frequency
+
+printf(" natural frequency =")
+
+disp(n)
+
+printf("Hz")
diff --git a/1928/CH4/EX4.15.12/ex_4_15_12.sce b/1928/CH4/EX4.15.12/ex_4_15_12.sce new file mode 100755 index 000000000..afad8de93 --- /dev/null +++ b/1928/CH4/EX4.15.12/ex_4_15_12.sce @@ -0,0 +1,31 @@ +//Chapter-4,Example4_15_12,pg 4-32
+
+d=2650 //density
+
+Y=8*10^10 //Young's modulus
+
+k=1 //consider 1st harmonic
+
+//case 1
+
+n1=3.8*10^6 //frequency of wave
+
+t1=(k/(2*n1))*sqrt(Y/d) //arranging formula of natural frequency
+
+printf("1) thickness =")
+
+disp(t1)
+
+printf("meter")
+
+//case 2
+
+n2=300*10^3 //frequency of wave
+
+t2=(k/(2*n2))*sqrt(Y/d) //arranging formula of natural frequency
+
+printf("2) thickness =")
+
+disp(t2)
+
+printf("meter")
diff --git a/1928/CH4/EX4.15.13/ex_4_15_13.sce b/1928/CH4/EX4.15.13/ex_4_15_13.sce new file mode 100755 index 000000000..3fa28f3a3 --- /dev/null +++ b/1928/CH4/EX4.15.13/ex_4_15_13.sce @@ -0,0 +1,17 @@ +//Chapter-4,Example4_15_13,pg 4-32
+
+d=2650 //density
+
+Y=8*10^10 //Young's modulus
+
+n=2*10^6 //frequency of wave
+
+k=1 //consider 1st harmonic
+
+t=(k/(2*n))*sqrt(Y/d) //arranging formula of natural frequency
+
+printf("thickness =")
+
+disp(t)
+
+printf("meter")
diff --git a/1928/CH4/EX4.15.14/ex_4_15_14.sce b/1928/CH4/EX4.15.14/ex_4_15_14.sce new file mode 100755 index 000000000..f742f5c1c --- /dev/null +++ b/1928/CH4/EX4.15.14/ex_4_15_14.sce @@ -0,0 +1,25 @@ +//Chapter-4,Example4_15_14,pg 4-33
+
+f=50*10^3 //frequency
+
+v1=348 //velocity of ultrasound in atmosphere
+
+v2=1392 //velocity of ultrasound in sea water
+
+t=2 //time difference
+
+//distance is constant hence v1*t1=v2*t2
+
+m=v2/v1 //assuming constant as m
+
+//(t1-t2=d) and (t1=m*t2) therefore
+
+t2=t/(m-1)
+
+d=v2*t2 //distance between two ship
+
+printf("distance between two ships =")
+
+disp(d)
+
+printf("meter")
\ No newline at end of file diff --git a/1928/CH4/EX4.15.15/ex_4_15_15.sce b/1928/CH4/EX4.15.15/ex_4_15_15.sce new file mode 100755 index 000000000..b9e353d43 --- /dev/null +++ b/1928/CH4/EX4.15.15/ex_4_15_15.sce @@ -0,0 +1,32 @@ +//Chapter-4,Example4_15_15,pg 4-34
+
+//for case1
+t1=2*10^-3 //thicknesss of plate
+
+d=2.65*10^3 //density
+
+Y=8*10^10 //Young's modulus
+
+k=1 //consider 1st harmonic
+
+n1=(k/(2*t1))*sqrt(Y/d) //formula of natural frequency
+
+printf(" 1)natural frequency =")
+
+disp(n1)
+
+printf("Hz")
+
+//for case2
+
+n2=3*10^6 //frequency
+
+t2=(k/(2*n2))*sqrt(Y/d) //arranging formula of natural frequency
+
+t=t1-t2 //change in thickness
+
+printf(" 2)change in thickness =")
+
+disp(t)
+
+printf("meter")
diff --git a/1928/CH4/EX4.15.16/ex_4_15_16.sce b/1928/CH4/EX4.15.16/ex_4_15_16.sce new file mode 100755 index 000000000..031c675ae --- /dev/null +++ b/1928/CH4/EX4.15.16/ex_4_15_16.sce @@ -0,0 +1,17 @@ +//Chapter-4,Example4_15_16,pg 4-34
+
+S=10 //salinity
+
+t=2 //time
+
+T=20 //temperature
+
+v=1510+1.14*S+4.21*T-0.037*T^2 //velocity of ultrasound in sea
+
+d=v*t/2 //depth of sea bed
+
+printf("depth of sea bed =")
+
+disp(d)
+
+printf("meter")
diff --git a/1928/CH4/EX4.15.17/ex_4_15_17.sce b/1928/CH4/EX4.15.17/ex_4_15_17.sce new file mode 100755 index 000000000..b2771bb75 --- /dev/null +++ b/1928/CH4/EX4.15.17/ex_4_15_17.sce @@ -0,0 +1,27 @@ +//Chapter-4,Example4_15_17,pg 4-35
+
+S=29 //salinity
+
+t=2 //time
+
+l=0.01 //wavelength
+
+T=30 //temperature
+
+v=1510+1.14*S+4.21*T-0.037*T^2 //velocity of ultrasound in sea
+
+d=v*t/2 //depth of sea bed
+
+printf("1)depth of sea bed =")
+
+disp(d)
+
+printf("meter")
+
+f=v/l //frequency
+
+printf("2) frequency =")
+
+disp(f)
+
+printf("Hz")
diff --git a/1928/CH4/EX4.15.18/ex_4_15_18.sce b/1928/CH4/EX4.15.18/ex_4_15_18.sce new file mode 100755 index 000000000..aec63662e --- /dev/null +++ b/1928/CH4/EX4.15.18/ex_4_15_18.sce @@ -0,0 +1,15 @@ +//Chapter-4,Example4_15_18,pg 4-35
+
+v1=5.9*10^3 //velocity of UW in mild steel
+
+v2=4.3*10^3 //velocity of UW in brass
+
+t2=15*10^-3 //thickness of brass plate
+
+t1=v2*t2/v1 //since ve;ocity is inversly proportional to thickness
+
+printf("real thickness =")
+
+disp(t1)
+
+printf("meter")
diff --git a/1928/CH4/EX4.15.19/ex_4_15_19.sce b/1928/CH4/EX4.15.19/ex_4_15_19.sce new file mode 100755 index 000000000..c1d899562 --- /dev/null +++ b/1928/CH4/EX4.15.19/ex_4_15_19.sce @@ -0,0 +1,15 @@ +//Chapter-4,Example4_15_19,pg 4-36
+
+t1=4*10^-3 //thickness of 1st crystal
+
+n1=400*10^3 //frequency of 1st crystal
+
+n2=500*10^3 //frequency of 2nd crystal
+
+t2=n1*t1/n2 //since frquency is inversly proportional to thickness
+
+printf("thickness of 2nd crystal =")
+
+disp(t2)
+
+printf("meter")
diff --git a/1928/CH4/EX4.15.2/ex_4_15_2.sce b/1928/CH4/EX4.15.2/ex_4_15_2.sce new file mode 100755 index 000000000..9ed5f17eb --- /dev/null +++ b/1928/CH4/EX4.15.2/ex_4_15_2.sce @@ -0,0 +1,13 @@ +//Chapter-4,Example4_15_2,pg 4-26
+
+m=%i //original sound intensity
+
+n=1000*%i //increased intensity value
+
+l=10*log10(n/m) //change in intensity level
+
+printf("change in intensity level =")
+
+disp(l)
+
+printf("dB")
diff --git a/1928/CH4/EX4.15.20/ex_4_15_20.sce b/1928/CH4/EX4.15.20/ex_4_15_20.sce new file mode 100755 index 000000000..3a2d0d4d3 --- /dev/null +++ b/1928/CH4/EX4.15.20/ex_4_15_20.sce @@ -0,0 +1,15 @@ +//Chapter-4,Example4_15_20,pg 4-36
+
+t2=30*10^-6 //pulse arrival time of defective steel bar
+
+t1=80*10^-6 //pulse arrival time of non defective steel bar
+
+d=40*10^-2 //bar thickness
+
+x=(t2/t1)*d
+
+printf("distance at which defect has occurred =")
+
+disp(x)
+
+printf("meter")
diff --git a/1928/CH4/EX4.15.21/ex_4_15_21.sce b/1928/CH4/EX4.15.21/ex_4_15_21.sce new file mode 100755 index 000000000..c852ceb9b --- /dev/null +++ b/1928/CH4/EX4.15.21/ex_4_15_21.sce @@ -0,0 +1,13 @@ +//Chapter-4,Example4_15_21,pg 4-37
+
+d=18*10^-3 //thickness
+
+v=5.9*10^3 //velocity
+
+t=(2*d)/v //echo time
+
+printf("echo time =")
+
+disp(t)
+
+printf("sec")
\ No newline at end of file diff --git a/1928/CH4/EX4.15.22/ex_4_15_22.sce b/1928/CH4/EX4.15.22/ex_4_15_22.sce new file mode 100755 index 000000000..87a5ff982 --- /dev/null +++ b/1928/CH4/EX4.15.22/ex_4_15_22.sce @@ -0,0 +1,23 @@ +//Chapter-4,Example4_15_22,pg 4-37
+
+t=1*10^-3 //thickness of quartz crystal
+
+//given t=l/2
+
+l=t*2 //wavelength
+
+Y=7.9*10^10 //young's module of crystal
+
+p=2650 //density of crystal
+
+v=sqrt(Y/p) //velocity of vibration
+
+n=v/l //frequency of vibration
+
+printf("frquency of vibration =")
+
+disp(n)
+
+printf("Hz")
+
+
diff --git a/1928/CH4/EX4.15.23/ex_4_15_23.sce b/1928/CH4/EX4.15.23/ex_4_15_23.sce new file mode 100755 index 000000000..5d1ec8841 --- /dev/null +++ b/1928/CH4/EX4.15.23/ex_4_15_23.sce @@ -0,0 +1,17 @@ +//Chapter-4,Example4_15_23,pg 4-38
+
+d=7.23*10^3 //density
+
+Y=11.6*10^10 //Young's modulus
+
+n=20*10^3 //frequency of wave
+
+k=1 //consider 1st harmonic
+
+l=(k/(2*n))*sqrt(Y/d) //arranging formula of natural frequency
+
+printf("length =")
+
+disp(l)
+
+printf("meter")
\ No newline at end of file diff --git a/1928/CH4/EX4.15.24/ex_4_15_24.sce b/1928/CH4/EX4.15.24/ex_4_15_24.sce new file mode 100755 index 000000000..911527454 --- /dev/null +++ b/1928/CH4/EX4.15.24/ex_4_15_24.sce @@ -0,0 +1,33 @@ +//Chapter-4,Example4_15_24,pg 4-38
+
+//for case1
+t1=2*10^-3 //thicknesss of plate
+
+d=2.65*10^3 //density
+
+Y=8*10^10 //Young's modulus
+
+k=1 //consider 1st harmonic
+
+n1=(k/(2*t1))*sqrt(Y/d) //formula of natural frequency
+
+printf(" 1)natural frequency =")
+
+disp(n1)
+
+printf("Hz")
+
+//for case2
+
+n2=3*10^6 //frequency
+
+t2=(k/(2*n2))*sqrt(Y/d) //arranging formula of natural frequency
+
+t=t1-t2 //change in thickness
+
+printf(" 2)change in thickness =")
+
+disp(t)
+
+printf("meter")
+
diff --git a/1928/CH4/EX4.15.25/ex_4_15_25.sce b/1928/CH4/EX4.15.25/ex_4_15_25.sce new file mode 100755 index 000000000..2b1544e55 --- /dev/null +++ b/1928/CH4/EX4.15.25/ex_4_15_25.sce @@ -0,0 +1,27 @@ +//Chapter-4,Example4_15_25,pg 4-39
+
+l=20 //length of room
+
+b=15 //bredth of room
+
+h=10 //height of room
+
+V=l*b*h //volume of room
+
+S=2*(l*b+b*h+h*l) //surface area of hall
+
+T=3 //Reverberation time
+
+a=(0.161*V)/(T*S) //using Sabine's formula
+
+printf("1) average absorption coefficient =")
+
+disp(a)
+
+m=a*S //total absorption
+
+printf("2) total absorption of surface =")
+
+disp(m)
+
+printf("m^2/sec")
\ No newline at end of file diff --git a/1928/CH4/EX4.15.26/ex_4_15_26.sce b/1928/CH4/EX4.15.26/ex_4_15_26.sce new file mode 100755 index 000000000..a826878e2 --- /dev/null +++ b/1928/CH4/EX4.15.26/ex_4_15_26.sce @@ -0,0 +1,33 @@ +//Chapter-4,Example4_15_26,pg 4-39
+
+//for case1
+t1=1.8*10^-3 //thicknesss of plate
+
+d=2.65*10^3 //density
+
+Y=8*10^10 //Young's modulus
+
+k=1 //consider 1st harmonic
+
+n1=(k/(2*t1))*sqrt(Y/d) //formula of natural frequency
+
+printf(" 1)natural frequency =")
+
+disp(n1)
+
+printf("Hz")
+
+//for case2
+
+n2=2*10^6 //frequency
+
+t2=(k/(2*n2))*sqrt(Y/d) //arranging formula of natural frequency
+
+t=t1-t2 //change in thickness
+
+printf(" 2)change in thickness =")
+
+disp(t)
+
+printf("meter")
+
diff --git a/1928/CH4/EX4.15.27/ex_4_15_27.sce b/1928/CH4/EX4.15.27/ex_4_15_27.sce new file mode 100755 index 000000000..d38bb1b93 --- /dev/null +++ b/1928/CH4/EX4.15.27/ex_4_15_27.sce @@ -0,0 +1,17 @@ +//Chapter-4,Example4_15_27,pg 4-39
+
+n=0.4999*10^6 //frequency
+
+t=5.5*10^-3 //thicknesss of plate
+
+d=2.65*10^3 //density
+
+k=1 //consider 1st harmonic
+
+Y=4*(t^2)*(n^2)*d/k //arranging formula of natural frequency
+
+printf("Youngs modulus =")
+
+disp(Y)
+
+printf("N/m^2")
\ No newline at end of file diff --git a/1928/CH4/EX4.15.3/ex_4_15_3.sce b/1928/CH4/EX4.15.3/ex_4_15_3.sce new file mode 100755 index 000000000..3e2396213 --- /dev/null +++ b/1928/CH4/EX4.15.3/ex_4_15_3.sce @@ -0,0 +1,31 @@ +//Chapter-4,Example4_15_3,pg 4-26
+
+S1=220 //wall area
+
+a1=0.03 //absorption coefficient for the wall
+
+S2=120 //floor area
+
+a2=0.8 //absorption coefficient for the floor
+
+S3=120 //ceiling area
+
+a3=0.06 //absorption coefficient for the ceiling
+
+V=600 //volume of room
+
+S=S1+S2+S3 //total surface area
+
+a=(a1*S1+a2*S2+a3*S3)/S //average sound absorption coefficient
+
+printf("1) average sound absorption coefficient =")
+
+disp(a)
+
+T=(0.161*V)/(a*S) //Reverberation time,using Sabine's formula
+
+printf("2) Reverberation time =")
+
+disp(T)
+
+printf("sec")
diff --git a/1928/CH4/EX4.15.4/ex_4_15_4.sce b/1928/CH4/EX4.15.4/ex_4_15_4.sce new file mode 100755 index 000000000..04eaefa67 --- /dev/null +++ b/1928/CH4/EX4.15.4/ex_4_15_4.sce @@ -0,0 +1,13 @@ +//Chapter-4,Example4_15_4,pg 4-27
+
+V=5500 //volume
+
+T=2.3 //Reverberation time
+
+S=750 //sound absorption coefficient
+
+a=(0.161*V)/(S*T) //using Sabine's formula
+
+printf("average absorption coefficient =")
+
+disp(a)
diff --git a/1928/CH4/EX4.15.5/ex_4_15_5.sce b/1928/CH4/EX4.15.5/ex_4_15_5.sce new file mode 100755 index 000000000..5c76f990f --- /dev/null +++ b/1928/CH4/EX4.15.5/ex_4_15_5.sce @@ -0,0 +1,31 @@ +//Chapter-4,Example4_15_5,pg 4-27
+
+l=20 //length of room
+
+b=12 //bredth of room
+
+h=12 //height of room
+
+V=l*b*h //volume of room
+
+S=2*(l*b+b*h+h*l) //surface area of hall
+
+T1=2.5 //Reverberation time
+
+a=(0.161*V)/(T1*S) //using Sabine's formula
+
+printf("1) average absorption coefficient =")
+
+disp(a)
+
+a1=0.5 //absorption coefficient
+
+T2=2 //Reverberation time
+
+S1=(0.161*V/(a1-a))*(1/T2-1/T1)
+
+printf("2) carpet area required =")
+
+disp(S1)
+
+printf("m^2")
diff --git a/1928/CH4/EX4.15.6/ex_4_15_6.sce b/1928/CH4/EX4.15.6/ex_4_15_6.sce new file mode 100755 index 000000000..28e020474 --- /dev/null +++ b/1928/CH4/EX4.15.6/ex_4_15_6.sce @@ -0,0 +1,74 @@ +//Chapter-4,Example4_15_6,pg 4-28
+
+Ac=10*12 //area of carpet covering entire floor
+
+ac=0.06 //absorption coefficient of carpet
+
+aS1=Ac*ac //absorption due to carpet
+
+Af=10*12 //area of false celling
+
+af=0.03 //absorption coefficient of celling
+
+aS2=Af*af //absorption due to celling
+
+As=100*1 //area of cushioned sets
+
+as=1 //absorption coefficient of cushion sets
+
+aS3=As*as //absorption due to cusion sets
+
+Aw=346*1 //area of walls covered with absorbent
+
+aw=0.2 //absorption coefficient of walls
+
+aS4=Aw*aw //absorption due to walls
+
+Ad=346*1 //area of wooden door
+
+ad=0.2 //absorption coefficient of wooden door
+
+aS5=Ad*ad //absorption due to wooden door
+
+aS=aS1+aS2+aS3+aS4 //total absorption
+
+ap=0.46 //absorption coefficient of audience/person
+
+l=12 //assuming length of wall
+
+b=10 //assuming breadth of wall
+
+h=8 //assuming height of wall
+
+V=l*b*h //volume of hall
+
+//case 1 :(no one inside/emptey hall)
+
+T1=(0.161*V)/aS //reverberation time
+
+printf(" 1)reverberation time of empty hall =")
+
+disp(T1)
+
+printf("sec")
+
+//case 2 :(50 person inside hall)
+
+T2=(0.161*V)/(aS+50*0.46) //reverberation time
+
+printf(" 2)reverberation time of hall with 50 person =")
+
+disp(T2)
+
+printf("sec")
+
+//case 2 :(100 person inside hall/full capacity of hall)
+
+T3=(0.161*V)/(aS+100*0.46) //reverberation time
+
+printf(" 3)reverberation time of hall with 100 person =")
+
+disp(T3)
+
+printf("sec")
+
diff --git a/1928/CH4/EX4.15.7/ex_4_15_7.sce b/1928/CH4/EX4.15.7/ex_4_15_7.sce new file mode 100755 index 000000000..6c089465a --- /dev/null +++ b/1928/CH4/EX4.15.7/ex_4_15_7.sce @@ -0,0 +1,27 @@ +//Chapter-4,Example4_15_7,pg 4-30
+
+l=20 //length of room
+
+b=15 //bredth of room
+
+h=5 //height of room
+
+V=l*b*h //volume of room
+
+S=2*(l*b+b*h+h*l) //surface area of hall
+
+T=3.5 //Reverberation time
+
+a=(0.161*V)/(T*S) //using Sabine's formula
+
+printf("1) average absorption coefficient =")
+
+disp(a)
+
+avg=a*S //average total absorption
+
+printf("2) average total absorption =")
+
+disp(avg)
+
+printf("m^2.S")
diff --git a/1928/CH4/EX4.15.8/ex_4_15_8.sce b/1928/CH4/EX4.15.8/ex_4_15_8.sce new file mode 100755 index 000000000..421566f16 --- /dev/null +++ b/1928/CH4/EX4.15.8/ex_4_15_8.sce @@ -0,0 +1,35 @@ +//Chapter-4,Example4_15_8,pg 4-30
+
+l=20 //length of room
+
+b=15 //bredth of room
+
+h=10 //height of room
+
+V=l*b*h //volume of room
+
+a=0.1 //absorption coefficient
+
+S=2*(l*b+b*h+h*l) //surface area of hall
+
+T1=(0.161*V)/(a*S) //Reverberation time,using Sabine's formula
+
+printf("1) Reverberation time =")
+
+disp(T1)
+
+printf("sec")
+
+a2=0.66 //absorption coefficient of curtain cloth
+
+S2=100 //surface area of a curtain cloth
+
+T2=(0.161*V)/(a*S+a2*S2*2) //Reverberation time,using Sabine's formula
+
+T=T1-T2 //change in Reverberation time
+
+printf("2) change in Reverberation time =")
+
+disp(T)
+
+printf("sec")
diff --git a/1928/CH4/EX4.15.9/ex_4_15_9.sce b/1928/CH4/EX4.15.9/ex_4_15_9.sce new file mode 100755 index 000000000..7367cb3f1 --- /dev/null +++ b/1928/CH4/EX4.15.9/ex_4_15_9.sce @@ -0,0 +1,31 @@ +//Chapter-4,Example4_15_9,pg 4-30
+
+S1=220 //wall area
+
+a1=0.03 //absorption coefficient for the wall
+
+S2=120 //floor area
+
+a2=0.8 //absorption coefficient for the floor
+
+S3=120 //ceiling area
+
+a3=0.06 //absorption coefficient for the ceiling
+
+V=600 //volume of room
+
+S=S1+S2+S3 //total surface area
+
+a=(a1*S1+a2*S2+a3*S3)/S //average sound absorption coefficient
+
+printf("1) average sound absorption coefficient =")
+
+disp(a)
+
+T=(0.161*V)/(a*S) //Reverberation time,using Sabine's formula
+
+printf("2) Reverberation time =")
+
+disp(T)
+
+printf("sec")
|