1 files changed, 23 insertions, 0 deletions
diff --git a/2216/CH9/EX9.5/ex_9_5.sce b/2216/CH9/EX9.5/ex_9_5.sce
new file mode 100755
index 000000000..0100d36e1
--- /dev/null
+++ b/2216/CH9/EX9.5/ex_9_5.sce
@@ -0,0 +1,23 @@
+//Example 9.5: angle and relative intensity
+clc;
+clear;
+close;
+//given data :
+disp("part (a)")
+format('v',5)
+m=1;
+l=633*10^-9;// in m
+f=5*10^6;// in Hz
+v=1500;//in m/s
+n=1.33;// for water
+A=v/f;
+theta=asind((l/(n*A)));
+disp(theta,"angle (degree) =  ")
+disp("part (b)")
+format('v',6)
+del_n=10^-5;
+L=1*10^-2;// in m
+lamda=633*10^-9;// in m
+eta=(%pi^2*del_n^2*L^2)/lamda^2;
+disp(eta,"The relative intensity = ")
+