initial commit / add all books

5 files changed, 54 insertions, 0 deletions

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
--- /dev/null
+++ b/25/CH10/EX10.1/ex10_1.jpg
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