diff options
Diffstat (limited to '2855/CH1/EX1.14/Ex1_14.sce')
-rwxr-xr-x | 2855/CH1/EX1.14/Ex1_14.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/2855/CH1/EX1.14/Ex1_14.sce b/2855/CH1/EX1.14/Ex1_14.sce new file mode 100755 index 000000000..feb56582f --- /dev/null +++ b/2855/CH1/EX1.14/Ex1_14.sce @@ -0,0 +1,19 @@ +//Example no 1-14
+//page no. 29
+clc;
+clear;
+disp('Solution (i) is ');
+ne=1.4;//refractive index
+no=1.25; //refractive index
+c=3*10^8; //in m/s
+T=2*10^-5; //in m
+l=740; //in nm
+t=[ne-no]*T/c; //time difference
+printf("\n Time difference, t is %0.2f ps",t*10^12);// result
+disp('Solution (ii) is ');
+le=l/ne;
+lo=l/no;
+fi=2*%pi*T*(1/le-1/lo)*10^9;
+printf("\n Phase difference is %0.1f rad",fi);// result
+// Answer misprinted in book
+
|