1 files changed, 18 insertions, 0 deletions
diff --git a/3755/CH14/EX14.4/Ex14_4.sce b/3755/CH14/EX14.4/Ex14_4.sce
new file mode 100644
index 000000000..98916f610
--- /dev/null
+++ b/3755/CH14/EX14.4/Ex14_4.sce
@@ -0,0 +1,18 @@
+clear
+//
+//
+//
+
+//Variable declaration    
+I0=10^-12;      //standard intensity level(watt/m^2)
+A=1.4;     //area(m^2)
+il=60;     //intensity level(decibels)
+
+//Calculations
+x=10^(il/10);
+I=x*10^-12;      //intensity level(watt/m^2)
+Ap=I*A;      //acoustic power(watt)
+
+//Result
+printf("\n acoustic power is %e watt",Ap)
+printf("\n answer in the book is wrong")