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

---
 25/CH2/EX2.7/2_7.sce   |  27 +++++++++++++++++++++++++++
 25/CH2/EX2.7/ex2_7.jpg | Bin 0 -> 24265 bytes
 2 files changed, 27 insertions(+)
 create mode 100755 25/CH2/EX2.7/2_7.sce
 create mode 100755 25/CH2/EX2.7/ex2_7.jpg

(limited to '25/CH2/EX2.7')

diff --git a/25/CH2/EX2.7/2_7.sce b/25/CH2/EX2.7/2_7.sce
new file mode 100755
index 000000000..3e358c8e6
--- /dev/null
+++ b/25/CH2/EX2.7/2_7.sce
@@ -0,0 +1,27 @@
+// example:-2.7.page no.-50.
+// program to plot the reflection coefficients for parallel and perpendicular polarized plane waves incident from free space on to a dielectric region with Er=2.55,versus incidence angle.
+Er=2.55;  // relaitve permittivity of dielectric medium.
+N1=377;  // intrinsic impedence
+N2=N1/sqrt(Er);  // intrinsic impedence of dielectric medium.
+xb=asin(sqrt(1/(1+1/2.55)));  // brewster angle valid only in case of parallel polarization.
+xt=acos(sqrt(1-(1/Er)^2*sin(xb))); // angle of transmission.
+xi=[0:0.01:%pi/2];  // incidence angle.
+// for parallel polarization
+N2=N2*cos(xt);   
+N1=N1*cos(xi);
+Tpar=(N2-N1)./(N2+N1);
+w=abs(Tpar);
+// result
+subplot(1,2,1)
+xtitle("parallel polarization","xi(incidence angle)","Tpar(reflection coefficient)")
+plot2d(xi,w,style=3,rect=[0,0,%pi/2,1])
+// for perpendicular polarization.     //NOTE:- in case of this polarization.there is no brewster angle.
+xt=acos(sqrt(1-(1/Er)^2*sin(xi)));
+n1=377.*cos(xt);
+n2=(377/sqrt(Er)).*cos(xi);
+Tper=(n2-n1)./(n1+n2);
+z=abs(Tper);
+//result
+subplot(1,2,2)
+xtitle("perpendicular polarization","xi(inxidence angle)","Tper(reflection coefficient)")
+plot2d(xi,z,style=2,rect=[0,0,%pi/2,1])
\ No newline at end of file
diff --git a/25/CH2/EX2.7/ex2_7.jpg b/25/CH2/EX2.7/ex2_7.jpg
new file mode 100755
index 000000000..f7a8c0272
Binary files /dev/null and b/25/CH2/EX2.7/ex2_7.jpg differ
-- 
cgit