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/CH10/EX10.1/10_1.sce   |  19 +++++++++++++++++++
 25/CH10/EX10.1/ex10_1.jpg | Bin 0 -> 12477 bytes
 25/CH10/EX10.2/10_2.sce   |   9 +++++++++
 25/CH10/EX10.3/10_3.sce   |  14 ++++++++++++++
 25/CH10/EX10.5/10_5.sce   |  12 ++++++++++++
 5 files changed, 54 insertions(+)
 create mode 100755 25/CH10/EX10.1/10_1.sce
 create mode 100755 25/CH10/EX10.1/ex10_1.jpg
 create mode 100755 25/CH10/EX10.2/10_2.sce
 create mode 100755 25/CH10/EX10.3/10_3.sce
 create mode 100755 25/CH10/EX10.5/10_5.sce

(limited to '25/CH10')

diff --git a/25/CH10/EX10.1/10_1.sce b/25/CH10/EX10.1/10_1.sce
new file mode 100755
index 000000000..1a07a1515
--- /dev/null
+++ b/25/CH10/EX10.1/10_1.sce
@@ -0,0 +1,19 @@
+// example:-10.1;page no.-547.
+// problem to calculate and plot the phase and attenuation constants for RHCP & LHCP plane wave.
+M=1800;// M=4*pi*Ms;
+deltaH=75;eo=8.854*10^-12;muo=4*%pi*10^-7;c=3*10^8;
+Ho=3570;er=14;tandelta=0.001;
+fo=(2.8*10^9)/Ho; // IN GHZ.
+wo=2*%pi*fo;
+fm=(2.8*10^9)/M;  // IN GHZ.
+wm=2*%pi*fm;
+mue=muo*(1+(wo*wm)/(wo^2-wm^2));
+e=eo*er*(1-%i*tandelta);
+f=0:1000000:20*10^9;
+w=2*%pi.*f;
+k=muo*((w.*wm)/(wo^2-w^2));
+gama=%i*w*sqrt(e.*(mue-k));
+alpha=abs(real(gama));
+bta=abs(imag(gama));
+plot2d(f,gama,style=3,rect=[0,0,20*10^9,24])
+plot2d(f,bta,style=2,rect=[0,0,20*10^9,24])
\ No newline at end of file
diff --git a/25/CH10/EX10.1/ex10_1.jpg b/25/CH10/EX10.1/ex10_1.jpg
new file mode 100755
index 000000000..feb477296
Binary files /dev/null and b/25/CH10/EX10.1/ex10_1.jpg differ
diff --git a/25/CH10/EX10.2/10_2.sce b/25/CH10/EX10.2/10_2.sce
new file mode 100755
index 000000000..bcac2a1a5
--- /dev/null
+++ b/25/CH10/EX10.2/10_2.sce
@@ -0,0 +1,9 @@
+//example:-10.2,page no.-559.
+// program to design an e plane resonance isolatorin x band waveguide.
+er=13;revatt=30;
+deltaH=200;x=1700;  // x=4*%pi*Ms.
+f=10*10^9;alpha_=12.4; // from graph 10.13.
+L=revatt/alpha_; 
+alpha_1=27/L;  
+disp(L,'for total reverse attenuation of 20 db,the length of the slab in cm must be = ')
+disp(alpha_1,'for total reverse attenuation to be at least 27 db, alpha_ in db/cm be > ')
\ No newline at end of file
diff --git a/25/CH10/EX10.3/10_3.sce b/25/CH10/EX10.3/10_3.sce
new file mode 100755
index 000000000..7cea20cde
--- /dev/null
+++ b/25/CH10/EX10.3/10_3.sce
@@ -0,0 +1,14 @@
+//example:-10.3.page no.-560.
+// program to design a resonance isolator using the H-plane ferrite slab geometry in x-band.
+f=10*10^9;delta_sbys=0.01;forpims=1700;deltaH=200;
+revatt=30;ko=(2*%pi*f)/(3*10^8);
+Ho=f/(2.8*10^9);
+// for x-band waveguide, a=2.286 cm.
+a=2.286;
+kc=(%pi*100)/a;
+betao=sqrt(ko^2-kc^2);
+x=(1/%pi)*atan(kc/betao); // x=c/a.
+L=revatt/2;
+disp(L,'the slab length required for 30db total reverse attenuation in cm = ')
+disp(kc,'cut-off wave number in m-1 = ')
+disp(betao,'propagation constant = ')
\ No newline at end of file
diff --git a/25/CH10/EX10.5/10_5.sce b/25/CH10/EX10.5/10_5.sce
new file mode 100755
index 000000000..27485e253
--- /dev/null
+++ b/25/CH10/EX10.5/10_5.sce
@@ -0,0 +1,12 @@
+//example:10.5,page no.-567.
+// program to design a two slab remanent phase shifter.
+forpims=1786;er=13;f=10*10^9;uo=4*%pi*10^-7;ko=(2*%pi*f)/(3*10^10);
+fm=2.8;s=0.1;// s and a in cm.
+x=(2*%pi*fm*forpims)/(2*%pi*f);// x=wm/w = k/uo.
+a=2.286; // for x-band.
+t=.274; //from figure 10.19;
+diffphaseshift=0.4*ko*(180/%pi); // differential phase shift.
+L_1=180/diffphaseshift; 
+L_2=90/diffphaseshift;
+disp(L_1,'the ferrite length required for the 180 deg. phase shift section in cm = ')
+disp(L_2,'the ferrite length required for the 90 deg. phase shift section in cm = ')
\ No newline at end of file
-- 
cgit