1 files changed, 12 insertions, 0 deletions
diff --git a/1985/CH7/EX7.5/Chapter7_Example5.sce b/1985/CH7/EX7.5/Chapter7_Example5.sce
new file mode 100755
index 000000000..e3583ec13
--- /dev/null
+++ b/1985/CH7/EX7.5/Chapter7_Example5.sce
@@ -0,0 +1,12 @@
+clc
+clear
+//Input data
+P=1.5//The acoustic power produced by the loudspeaker in J/s
+r=20//Distance in m
+
+//Calculations
+I=(P/(4*3.14*r^2))//Intensity of the sound produced by the loudspeaker in W/m^2
+b=10*log10(I/10^-12)//Intensity level in dB
+
+//Output
+printf('The intensity level at a distance of %i m is %3.1f dB',r,b)