From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2216/CH9/EX9.4/ex_9_4.sce | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100755 2216/CH9/EX9.4/ex_9_4.sce

(limited to '2216/CH9/EX9.4')

diff --git a/2216/CH9/EX9.4/ex_9_4.sce b/2216/CH9/EX9.4/ex_9_4.sce
new file mode 100755
index 000000000..5b4f232e8
--- /dev/null
+++ b/2216/CH9/EX9.4/ex_9_4.sce
@@ -0,0 +1,29 @@
+//Example 9.4:phase difference,additional phase difference and Vpi
+clc;
+clear;
+close;
+format('v',7)
+disp("part (a)")
+h=550;//nm
+l=3;//cm
+no=1.51;//
+ne=1.47;//
+dfi=((2*%pi*l*10^-2*(no-ne))/(h*10^-9));//
+disp(dfi,"phase differnce is")
+//phase difference is in the form of pi in the textbook
+disp("part (b)")
+no=1.51;//
+r63=26.4*10^-12;//m/V
+V=200;//
+d=0.25;//cm
+dfi=((%pi*r63*no^3*(V)*(l*10^-2))/(h*10^-9*d*10^-2));//
+disp(dfi,"additional phase differnce is")
+//additional phase difference is in the form of pi in the textbook
+disp("part (c)")
+r63=26.4*10^-12;//m/V
+format('v',5)
+V=200;//
+d=0.25;//cm
+dfi=((%pi*r63*no^3*(V)*(l*10^-2))/(h*10^-9*d*10^-2));//
+vpi=((h*10^-9)/(no^3*r63))*(d/l);//V
+disp(vpi,"Vpi in V is")
-- 
cgit