initial commit / add all books

6 files changed, 73 insertions, 0 deletions

diff --git a/25/CH6/EX6.1/6_1.sce b/25/CH6/EX6.1/6_1.sce
new file mode 100755
index 000000000..49805ab40
--- /dev/null
+++ b/25/CH6/EX6.1/6_1.sce
@@ -0,0 +1,17 @@
+// example:-6.1,page no.-284.

+// program to design an L section matching network to match a series RC load.

+Zl=200-%i*100; // load impedence.

+Rl=200;Xl=-100;f=500*10^6;Zo=100;

+B1=(Xl+sqrt(Rl/Zo)*sqrt(Rl^2+Xl^2-(Rl*Zo)))/(Rl^2+Xl^2);

+B2=(Xl-sqrt(Rl/Zo)*sqrt(Rl^2+Xl^2-(Rl*Zo)))/(Rl^2+Xl^2);

+C1=(B1/(2*%pi*f))*10^12;

+L2=(-1/(B2*2*%pi*f))*10^9;

+X1=(1/B1)+((Xl*Zo)/Rl)-(Zo/(B1*Rl));

+X2=(1/B2)+((Xl*Zo)/Rl)-(Zo/(B2*Rl));

+L1=(X1/(2*%pi*f))*10^9;

+C2=(-1/(X2*2*%pi*f))*10^12; 

+disp(L1,'inductor of first circuit in nH = ') 

+disp(C1,'capacitor of the first circuit in pF = ')

+disp(L2,'inductor of second circuit in nH = ')

+disp(C2,'capacitor of the second circuit in pF = ')

+disp("NOTE:-for above specific problem Rl>Zo,positive X implies inductor,negative X implies capacitor,positive B implies capacitor and negative B implies inductor.")
\ No newline at end of file
diff --git a/25/CH6/EX6.5/6_5.sce b/25/CH6/EX6.5/6_5.sce
new file mode 100755
index 000000000..b37522c26
--- /dev/null
+++ b/25/CH6/EX6.5/6_5.sce
@@ -0,0 +1,10 @@
+//example:-6.5,page no.-304.

+//program to design a single section quarter wave matching transformer.

+Zl=10;  // load impedence.

+Zo=50; // characteristic impedence.

+fo=3*10^9;swr=1.5; // maximum limit of swr.

+Z1=sqrt(Zo*Zl); // characteristic impedence of the matching section.

+taom=(swr-1)/(swr+1);

+frac_bw=2-(4/%pi)*acos((taom/sqrt(1-taom^2))*(2*sqrt(Zo*Zl)/abs(Zl-Zo)));  // fractional bandwidth.

+disp(Z1,'charecteristic impedence of matching section = ')

+disp(frac_bw,'fractional bandwidth = ')
\ No newline at end of file
diff --git a/25/CH6/EX6.6/6_6.sce b/25/CH6/EX6.6/6_6.sce
new file mode 100755
index 000000000..466045bf9
--- /dev/null
+++ b/25/CH6/EX6.6/6_6.sce
@@ -0,0 +1,10 @@
+// example:-6.6,page no.-307.

+// program to evaluate the worst case percent error in computing magnitude of reflection coefficient.

+Z1=100;Z2=150;Zl=225;

+tao_1=(Z2-Z1)/(Z2+Z1);

+tao_2=(Zl-Z2)/(Zl+Z2);

+tao_exact=(tao_1+tao_2)/(1+tao_1*tao_2); // this results as angle is taken zero.

+tao_approx=tao_1+tao_2;  // this results as angle is taken zero.

+eror=abs(((tao_exact-tao_approx)/tao_exact)*100);

+disp(tao_approx,'approximate value of reflection coefficient is = ')

+disp(eror,'the error in percent is about = ')
\ No newline at end of file
diff --git a/25/CH6/EX6.7/6_7.sce b/25/CH6/EX6.7/6_7.sce
new file mode 100755
index 000000000..7c7f898bd
--- /dev/null
+++ b/25/CH6/EX6.7/6_7.sce
@@ -0,0 +1,17 @@
+// example:-6.7,page no.-312.

+// program to design three section binomial transformer.

+Zl=50;Zo=100;N=3;taom=0.05;

+A=(2^-N)*abs((Zl-Zo)/(Zl+Zo));

+frac_bw=2-(4/%pi)*acos(0.5*(taom/A)^2);

+for c=1

+  Z1=Zo*((Zl/Zo)^((2^-N)*(c^N)));

+disp(Z1,'Z1 = ')

+end

+for c=3^(1/3)

+  Z2=Z1*((Zl/Zo)^((2^-N)*(c^N)));

+  disp(Z2,'Z2 = ')

+end

+for c=3^(1/3)

+  Z3=Z2*((Zl/Zo)^((2^-N)*(c^N)));

+  disp(Z3,'Z3 = ')

+end
\ No newline at end of file
diff --git a/25/CH6/EX6.8/6_8.sce b/25/CH6/EX6.8/6_8.sce
new file mode 100755
index 000000000..70d30165d
--- /dev/null
+++ b/25/CH6/EX6.8/6_8.sce
@@ -0,0 +1,11 @@
+// example:-6.8,page no.-316.

+// program to design a three section chebysev transformer.

+Zl=100;Zo=50;taom=0.05;N=3;A=0.05;

+thetam=asec(cosh((1/N)*acosh((1/taom)*abs((Zl-Zo)/(Zl+Zo)))))*(180/%pi);

+x=(cosh((1/N)*acosh((1/taom)*abs((Zl-Zo)/(Zl+Zo)))))

+tao_o=A*(x^3)/2;

+tao_1=(3*A*(x^3-x))/2;  // from symmetry tao_3=tao_0;

+Z1=Zo*((1+tao_o)/(1-tao_o));

+Z2=Z1*((1+tao_1)/(1-tao_1));

+Z3=Zl*((1-tao_o)/(1+tao_o));

+disp(Z1,Z2,Z3,'the characteristic impedences are = ')
\ No newline at end of file
diff --git a/25/CH6/EX6.9/6_9.sce b/25/CH6/EX6.9/6_9.sce
new file mode 100755
index 000000000..363704619
--- /dev/null
+++ b/25/CH6/EX6.9/6_9.sce
@@ -0,0 +1,8 @@
+//example:-6.9,page no.-323.

+//program to designa triangular taper and a klopfenstein taper.

+taom=0.02;Zl=50;Zo=100;

+tao_o=0.5*log(Zl/Zo);

+A=acosh(tao_o/taom);

+A=real(A);

+disp(tao_o,'tao_o = ')

+disp(A,'A = ')
\ No newline at end of file