summaryrefslogtreecommitdiff
path: root/3710/CH3/EX3.5/Ex3_5.sce
diff options
context:
space:
mode:
Diffstat (limited to '3710/CH3/EX3.5/Ex3_5.sce')
-rw-r--r--3710/CH3/EX3.5/Ex3_5.sce15
1 files changed, 15 insertions, 0 deletions
diff --git a/3710/CH3/EX3.5/Ex3_5.sce b/3710/CH3/EX3.5/Ex3_5.sce
new file mode 100644
index 000000000..e202a6373
--- /dev/null
+++ b/3710/CH3/EX3.5/Ex3_5.sce
@@ -0,0 +1,15 @@
+//Example 3.5, Page Number 123
+//Phase Matching Angle
+clc;
+
+//The following values have been taken from the table on page no 123
+no1=1.4943//no for l=1.06
+no2=1.5132//no for l=0.53
+nc=1.4712//nc for l=0.53
+t2=((no1**-2)-(no2**-2))/((nc**-2)-(no2**-2))
+theta=asin(t2)
+
+//Converting it into degrees
+degrees=theta * (180/%pi) //theta is the phase matching angle
+
+mprintf("The Phase matching angle is %d degrees",degrees);