diff options
Diffstat (limited to '3710/CH3/EX3.1/Ex3_1.sce')
| -rw-r--r-- | 3710/CH3/EX3.1/Ex3_1.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/3710/CH3/EX3.1/Ex3_1.sce b/3710/CH3/EX3.1/Ex3_1.sce new file mode 100644 index 000000000..e7ffec9f6 --- /dev/null +++ b/3710/CH3/EX3.1/Ex3_1.sce @@ -0,0 +1,12 @@ +//Example 3.1, Page Number 97
+//Change in Refraction Index due to Pockels effect
+clc;
+
+//Variable Initialization
+l=10*(10**-3) //Width of Crystal in milli meter
+V=4000 //Applied Voltage in volts
+r=26.4*(10**-12)//linear electro optic coefficient in pm per volt
+no=1.51**3//Value for KD*P taken from table 3.1
+//Using data in Table 3.1(Page No 100)
+dn=0.5*lc*(no)*(V/(10**-2)) //dn is the change in refraction index
+mprintf("The Change in Refraction Index due to Pockels effect is %0.1e",dn);
|