1 files changed, 14 insertions, 0 deletions
diff --git a/3638/CH18/EX18.2/Ex18_2.sce b/3638/CH18/EX18.2/Ex18_2.sce
new file mode 100644
index 000000000..10db65651
--- /dev/null
+++ b/3638/CH18/EX18.2/Ex18_2.sce
@@ -0,0 +1,14 @@
+//Introduction to Fiber Optics by A. Ghatak and K. Thyagarajan, Cambridge, New Delhi, 1999
+//Example 18.2
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+//given
+SPL=20;//Sound Pressure Level of a whisper in dB
+Pr=2e-5;//Reference pressure is the threshold of hearing in Pa
+
+//Now, SPL=20log10(Pw/Pr)
+//Rearranging the terms, we get
+Pw=10^(SPL/20)*Pr;
+mprintf("\n Pw=%.1e Pa",Pw);