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

---
 2321/CH10/EX10.10.1/EX10_10_1.sce | 39 +++++++++++++++++++++++++++++++
 2321/CH10/EX10.10.2/EX10_10_2.sce | 21 +++++++++++++++++
 2321/CH10/EX10.5.1/EX10_5_1.sce   | 29 +++++++++++++++++++++++
 2321/CH10/EX10.5.2/EX10_5_2.sce   | 49 +++++++++++++++++++++++++++++++++++++++
 2321/CH10/EX10.5.3/EX10_5_3.sce   | 42 +++++++++++++++++++++++++++++++++
 2321/CH10/EX10.5.4/EX10_5_4.sce   | 24 +++++++++++++++++++
 2321/CH10/EX10.8.1/EX10_8_1.sce   | 22 ++++++++++++++++++
 2321/CH10/EX10.8.2/EX10_8_2.sce   | 22 ++++++++++++++++++
 8 files changed, 248 insertions(+)
 create mode 100755 2321/CH10/EX10.10.1/EX10_10_1.sce
 create mode 100755 2321/CH10/EX10.10.2/EX10_10_2.sce
 create mode 100755 2321/CH10/EX10.5.1/EX10_5_1.sce
 create mode 100755 2321/CH10/EX10.5.2/EX10_5_2.sce
 create mode 100755 2321/CH10/EX10.5.3/EX10_5_3.sce
 create mode 100755 2321/CH10/EX10.5.4/EX10_5_4.sce
 create mode 100755 2321/CH10/EX10.8.1/EX10_8_1.sce
 create mode 100755 2321/CH10/EX10.8.2/EX10_8_2.sce

(limited to '2321/CH10')

diff --git a/2321/CH10/EX10.10.1/EX10_10_1.sce b/2321/CH10/EX10.10.1/EX10_10_1.sce
new file mode 100755
index 000000000..324128ed2
--- /dev/null
+++ b/2321/CH10/EX10.10.1/EX10_10_1.sce
@@ -0,0 +1,39 @@
+//Example No. 10.10.1
+clc;
+clear;
+close;
+format('v',7);
+Gain=8.5;//dB(Gain)
+tau=0.822;sigma=0.149;//for given gain
+alfa=2*atand((1-tau)/4/sigma);//degree
+fL=54;//MHz(Lower frequency)
+fU=216;//MHz(Upper frequency)
+c=3*10^8;//m/s(Speed of light)
+lambdaU=c/(fU*10^6);//m(Upper wavelength)
+lambdaL=c/(fL*10^6);//m(Lower wavelength)
+l1=lambdaU/2;//m(Length of element1)
+lN=lambdaL/2;//m(Length of longest element)
+l2=l1/tau;l3=l2/tau;l4=l3/tau;l5=l4/tau;l6=l5/tau;l7=l6/tau;l8=l7/tau;l9=l8/tau;//m(Length of elements)
+d1=2*sigma*l1;d2=2*sigma*l2;d3=2*sigma*l3;d4=2*sigma*l4;d5=2*sigma*l5;d6=2*sigma*l6;d7=2*sigma*l7;d8=2*sigma*l8;d9=2*sigma*l9;//meter(Spacing between elements)
+d=d1+d2+d3+d4+d5+d6+d7+d8+d9;//meter(total spacing)
+disp(lN,"Length(m) of longest element : ");
+disp(l1,"Length(m) of element1 : ");
+disp(l2,"Length(m) of element2 : ");
+disp(l3,"Length(m) of element3 : ");
+disp(l4,"Length(m) of element4 : ");
+disp(l5,"Length(m) of element5 : ");
+disp(l6,"Length(m) of element6 : ");
+disp(l7,"Length(m) of element7 : ");
+disp(l8,"Length(m) of element8 : ");
+disp(l9,"Length(m) of element9 : ");
+disp(d1,"Spacing(m) of element1 : ");
+disp(d2,"Spacing(m) of element2 : ");
+disp(d3,"Spacing(m) of element3 : ");
+disp(d4,"Spacing(m) of element4 : ");
+disp(d5,"Spacing(m) of element5 : ");
+disp(d6,"Spacing(m) of element6 : ");
+disp(d7,"Spacing(m) of element7 : ");
+disp(d8,"Spacing(m) of element8 : ");
+disp(d9,"Spacing(m) of element9 : ");
+disp(d,"Total Spacing length(m) : ");
+//Answer is not accurate in the book.
diff --git a/2321/CH10/EX10.10.2/EX10_10_2.sce b/2321/CH10/EX10.10.2/EX10_10_2.sce
new file mode 100755
index 000000000..0401fd99d
--- /dev/null
+++ b/2321/CH10/EX10.10.2/EX10_10_2.sce
@@ -0,0 +1,21 @@
+//Example No. 10.10.2
+clc;
+clear;
+close;
+format('v',7);
+tau=0.895;//scale factor
+sigma=0.166;//(spacing factor)
+fU=30;//MHz(Upper frequency)
+fL=10;//MHz(Lower frequency)
+c=3*10^8;//m/s(Speed of light)
+lambdaU=c/(fU*10^6);//m(Upper wavelength)
+lambdaL=c/(fL*10^6);//m(Lower wavelength)
+l1=lambdaU/2;//m(Length of shortest element)
+disp(l1,"Length of shortest element, l1 in meter is  : ");
+l2=l1/tau;l3=l2/tau;l4=l3/tau;l4=l3/tau;l5=l4/tau;l6=l5/tau;l7=l6/tau;l8=l7/tau;l9=l8/tau;l10=l9/tau;l11=l10/tau;//m(Length of element)
+disp(l11,l10,l9,l8,l7,l6,l5,l4,l3,l2,"Other elements length(m) l2, l3, l4, l5, l6, l7, l8, l9, l10, l11 are : ");
+alfa=17.97;//degree(angle)
+R1=(l1/2)/tand(alfa/2);//m(Spacing between elements)
+R2=R1/tau;R3=R2/tau;R4=R3/tau;R4=R3/tau;R5=R4/tau;R6=R5/tau;R7=R6/tau;R8=R7/tau;R9=R8/tau;R10=R9/tau;R11=R10/tau;//m
+disp(R11,R10,R9,R8,R7,R6,R5,R4,R3,R2,R1,"Spacing between elements in meter R1, R2, R3, R4, R5, R6, R7, R8,R9, R10, R11 are : ");
+//Answer is not accurate in the book.
diff --git a/2321/CH10/EX10.5.1/EX10_5_1.sce b/2321/CH10/EX10.5.1/EX10_5_1.sce
new file mode 100755
index 000000000..496f88302
--- /dev/null
+++ b/2321/CH10/EX10.5.1/EX10_5_1.sce
@@ -0,0 +1,29 @@
+//Example No. 10.5.1
+clc;
+clear;
+close;
+format('v',6);
+N=5;//no. of turns
+f=400;//MHz(Frequency)
+c=3*10^8;//m/s(Speed of light)
+lambda=c/(f*10^6);//m(Wavelength)
+disp("Part (i)");
+S=lambda/50;//m(Spacing between turns)
+S_BY_lambda=1/50;//(Spacing/wavelength)
+C_BY_lambda=sqrt(2*S_BY_lambda);//(Circumference/wavelength)
+disp("Circumference is "+string(C_BY_lambda)+"*lambda");
+C=sqrt(2*lambda*S);//m(Circumference)
+disp(C,"Circumference in meter : ");
+disp("Part (ii)");
+Lo_BY_lambda=sqrt(S_BY_lambda^2+C_BY_lambda^2);//(Length/wavelength)
+disp("Length of single turn is "+string(Lo_BY_lambda)+"*lambda");
+Lo=sqrt(S^2+C^2);//m(Length of single turn)
+disp(Lo,"Length of single turn in meter : ");
+disp("Part (iii)");
+Ln_BY_lambda=N*Lo_BY_lambda;//(Overall length/wavelength)
+disp("Overall Length is "+string(Ln_BY_lambda)+"*lambda");
+Ln=N*Lo;//m(Overall length)
+disp(Ln,"Overall Length in meter : ");
+disp("Part (iv)");
+alfa=atand(S/C);//degree(Pitch angle)
+disp(alfa,"Pitch angle, α in degree : ");
diff --git a/2321/CH10/EX10.5.2/EX10_5_2.sce b/2321/CH10/EX10.5.2/EX10_5_2.sce
new file mode 100755
index 000000000..907733742
--- /dev/null
+++ b/2321/CH10/EX10.5.2/EX10_5_2.sce
@@ -0,0 +1,49 @@
+//Example No. 10.5.2
+clc;
+clear;
+close;
+format('v',6);
+N=5;//no. of turns
+f=300;//MHz(Frequency)
+c=3*10^8;//m/s(speed of light)
+disp("Part (i)");
+lambda=c/(f*10^6);//m(Wavelength)
+C_BY_lambda=1;//(Circumference/wavelength)
+disp("Near optimum circumference is "+string(C_BY_lambda)+"*lambda");
+C=lambda;//m(Circumference)
+disp(C,"Near optimum circumference in meter : ");
+disp("Part (ii)");
+alfa=14;//degree//(Pitch angle)//for near optimum
+S_BY_lambda=C_BY_lambda*tand(alfa);
+disp("Spacing is "+string(S_BY_lambda)+"*lambda");
+S=C*tand(alfa);//m(Spacing)
+disp(S,"Spacing in meter : ");
+disp("Part (iii)");
+Rin=140*C/lambda;//Ω(Input impedence)
+disp(Rin,"Input impedence in Ω : ");
+disp("Part (iv)");
+HPBW=52/(C/lambda*sqrt(N*S/lambda));//degree(HPBW)
+disp(HPBW,"HPBW in degree : ");
+disp("Part (v)");
+FNBW=115/(C/lambda*sqrt(N*S/lambda));//degree(FNBW)
+disp(FNBW,"FNBW in degree : ");
+disp("Part (vi)");
+Do=15*(C/lambda)^2*N*(S/lambda);//unitless////Directivity
+disp(Do,"Directivity(unitless) : ");
+Do_dB=10*log10(Do);//dB(Directivity)
+disp(Do_dB,"Directivity in dB : ");
+disp("Part (vii)");
+AR=(2*N+1)/2/N;//axial ratio
+disp(AR,"Axial ratio : ");
+disp("Part (viii)");
+Rin=140*(C/lambda);//Ω(Input impedence)
+//50 Ω line
+Zo=50;//Ω(Output impedence)
+Tau=(Rin-Zo)/(Rin+Zo);//Scaling factor
+VSWR=(1+Tau)/(1-Tau);//(VSWR)
+disp(VSWR,"VSWR for 50Ω line : ");
+//75 Ω line
+Zo=75;//Ω(Output impedence)
+Tau=(Rin-Zo)/(Rin+Zo);//Scaling factor
+VSWR=(1+Tau)/(1-Tau);//(VSWR)
+disp(VSWR,"VSWR for 75Ω line : ");
diff --git a/2321/CH10/EX10.5.3/EX10_5_3.sce b/2321/CH10/EX10.5.3/EX10_5_3.sce
new file mode 100755
index 000000000..f0d16fffb
--- /dev/null
+++ b/2321/CH10/EX10.5.3/EX10_5_3.sce
@@ -0,0 +1,42 @@
+//Example No. 10.5.3
+clc;
+clear;
+close;
+format('v',6);
+HPBW=39;//degree(HPBW)
+alfa=12.5;//degree(Pitch angle)
+f=475;//MHz(Frequency)
+c=3*10^8;//m/s(Speed of light)
+lambda=c/(f*10^6);//m(Wavelength)
+C=lambda;//m(Circumference)
+disp("Part (i)");
+//it is in axial mode as 3/4*lambda<C<4/3*lambda
+S=C*tand(alfa);//meter(Spacing)
+N=52^2/HPBW^2/(S/lambda)/(C/lambda)^2;//turns
+disp(round(N),"Number of turns : ");
+disp("Part (ii)");
+N=round(N);//turns
+Do=15*(C/lambda)^2*N*(S/lambda);//unitless(Directivity)
+Do_dB=10*log10(Do);//dB(Directivity)
+disp(Do_dB,"Directivity in decibels : ");
+disp("Part (iii)");
+AR=(2*N+1)/2/N;//axial ratio
+disp(AR,"Axial ratio : ");
+disp("Part (iv)");
+//3/4*lambda<C<4/3*lambda
+lambda1=C/(3/4);//meter(Wavelength)
+lambda2=C/(4/3);//meter(Wavelength)
+f1=c/lambda1;//Hz(Frequency)
+f2=c/lambda2;//Hz(Frequency)
+disp("Frequency range is "+string(f1/10^6)+" MHz to "+string(f2/10^6)+" MHz.")
+disp("Part (v)");
+//At  design frequency
+Rin=140*C/lambda;//Ω(Input impedence)
+disp(Rin,"At design frequency, Input impedence in Ω is : ");
+//3/4*lambda<C<4/3*lambda
+//At high frequency end
+Rin=140*C/lambda2;//Ω(Input impedence)
+disp(Rin,"At high frequency end, Input impedence in Ω is : ");
+//At low frequency end
+Rin=140*C/lambda1;//Ω(Input impedence)
+disp(Rin,"At low frequency end, Input impedence in Ω is : ");
diff --git a/2321/CH10/EX10.5.4/EX10_5_4.sce b/2321/CH10/EX10.5.4/EX10_5_4.sce
new file mode 100755
index 000000000..e6b0fd840
--- /dev/null
+++ b/2321/CH10/EX10.5.4/EX10_5_4.sce
@@ -0,0 +1,24 @@
+//Example No. 10.5.4
+clc;
+clear;
+close;
+format('v',6);
+Do_dB=14;//dB(Directivity)
+f=2.4;//GHz(Frequency)
+c=3*10^8;//m/s(Speed of light)
+lambda=c/(f*10^6);//m(Wavelength)
+Do=10^(Do_dB/10);//unitless(Directivity)
+C=lambda;//m////for optimum result(Circumference)
+alfa=14;//degree;////for optimum result(Pitch angle)
+S=C*tand(alfa);//m(Spacing)
+N=Do/15/(C/lambda)^2/(S/lambda);//turns
+N=round(N);//turns
+Rin=140*C/lambda;//Ω(Input impedence)
+disp(Rin,"Input impedence in Ω is : ");
+HPBW=52/(C/lambda*sqrt(N*S/lambda));//degree
+disp(HPBW,"HPBW in degree : ");
+format('v',4);
+FNBW=115/(C/lambda*sqrt(N*S/lambda));//degree
+disp(FNBW,"FNBW in degree : ");
+AR=(2*N+1)/2/N;//(Axial ratio)
+disp(AR,"Axial ratio : ");
diff --git a/2321/CH10/EX10.8.1/EX10_8_1.sce b/2321/CH10/EX10.8.1/EX10_8_1.sce
new file mode 100755
index 000000000..97a1040bd
--- /dev/null
+++ b/2321/CH10/EX10.8.1/EX10_8_1.sce
@@ -0,0 +1,22 @@
+//Example No. 10.8.1
+clc;
+clear;
+close;
+format('v',8);
+f=10;//MHz(Frequency)
+c=3*10^8;//m/s(Speed of light)
+lambda=c/(f*10^6);//m(Wavelength)
+d0=10^-3*lambda;//m(spacing)
+Lo=1*lambda;//m(Length)
+fi=%pi;fi0=0;//radian
+r0=d0/2;//m
+disp("Part (i)");
+//R=r0*exp(a*fi-a*fi0);//m
+//a=sqrt(1/Lo^2/(R-r0)^2-1);//per adian
+a=1.166;//rad^-1(by above equation)
+disp(a,"Rate of spiral in rad^-1 : ");
+R_BY_lambda=r0/lambda*exp(a*2*%pi);//m(Radius/wavelength)
+disp("Radius of terminal point is "+string(R_BY_lambda)+"*lambda");
+disp("Part (ii)");
+R=r0*exp(a*2*%pi);//m(Radius)
+disp(R,"Radius at terminal point in meter : ");
diff --git a/2321/CH10/EX10.8.2/EX10_8_2.sce b/2321/CH10/EX10.8.2/EX10_8_2.sce
new file mode 100755
index 000000000..b3bcb5551
--- /dev/null
+++ b/2321/CH10/EX10.8.2/EX10_8_2.sce
@@ -0,0 +1,22 @@
+//Example No. 10.8.2
+clc;
+clear;
+close;
+format('v',5);
+fU=900;//MHz(Upper frequency)
+fL=450;//MHz(Lower frequency)
+c=3*10^8;//m/s(Speed of light)
+lambdaU=c/(fU*10^6);//m(Upper wavelength)
+lambdaL=c/(fL*10^6);//m(Lower wavelength)
+Exp_ratio=4;//expansion ratio
+a=log(Exp_ratio)/(2*%pi);//rad^-1////rate of spiral
+Beta=atand(1/a);//degree
+r0=lambdaU/4;//meter////minimum radius
+disp(r0*100,"Minimum radius in cm : ");
+R=lambdaL/4;//meter////minimum radius
+disp(R*100,"Maximum radius in cm : ");
+fi_m=log(R/r0)/a;//radian
+fi_m=fi_m*180/%pi;//degree
+disp(fi_m,"Φm in degree is ");
+N=1/2;//for Φm=180;//degree
+disp(N,"Number of turns, N is  ");
-- 
cgit