initial commit / add all books

13 files changed, 154 insertions, 0 deletions

diff --git a/1109/CH6/EX6.1/6_1.sce b/1109/CH6/EX6.1/6_1.sce
new file mode 100755
index 000000000..3090e550d
--- /dev/null
+++ b/1109/CH6/EX6.1/6_1.sce
@@ -0,0 +1,15 @@
+clear;

+clc;

+f=200*(10^6);s=4.48;ymin=6;Zo=300; //s=standing wave ratio

+lo=300/(f*(10^-6)); //where f is in megahertz ,lo=wavelength of wave in air

+b=2*%pi/lo;

+phi=(2*b*ymin*(10^-2))-%pi;

+ampK=(s-1)/(s+1); //ampK=amplitude of the reflection coefficient

+K=ampK*(exp(%i*phi));

+A=real(K);

+B=imag(K);

+printf("-Complex reflection coefficient= %f /_ %f\n",round(abs(K)*1000)/1000,round(atan(B,A)*180/%pi));

+ZR=(Zo*(1+K))/(1-K);

+C=real(ZR);

+D=imag(ZR);

+printf("-Terminating impedance of line = %f /_ %f ohms",abs(ZR),round(atan(D,C)*180*10/%pi)/10);

diff --git a/1109/CH6/EX6.11/6_11.sce b/1109/CH6/EX6.11/6_11.sce
new file mode 100755
index 000000000..b66ac1ad0
--- /dev/null
+++ b/1109/CH6/EX6.11/6_11.sce
@@ -0,0 +1,8 @@
+clear;

+clc;

+ZR=100;Zo=600;f=100*(10^6);

+lo=300/(f*(10^-6)); //lo=wavelength

+Ls=(lo/(2*%pi))*(atan(sqrt(ZR/Zo)));

+printf("-Point of attachment = %f cms\n",round(Ls*(10^2)*10)/10)

+Lt=(lo/(2*%pi))*(%pi+(atan((sqrt(ZR*Zo))/(ZR-Zo))));

+printf("-Length of the short circuited stub = %f cms",round(Lt*(10^2)));

diff --git a/1109/CH6/EX6.14/6_14.sce b/1109/CH6/EX6.14/6_14.sce
new file mode 100755
index 000000000..13584b091
--- /dev/null
+++ b/1109/CH6/EX6.14/6_14.sce
@@ -0,0 +1,10 @@
+clear;

+clc;

+f=10^9;K=0.5*exp(%i*(30)/(180/%pi));

+lo=300/(f*(10^-6)); //lo=wavelength

+ampK=abs(K);

+phi=atan(imag(K)/real(K));

+Ls=(lo/(4*%pi))*(phi+%pi-acos(ampK));

+printf("-Position of stub = %f cm\n",Ls*(10^2));

+Lt=(lo/(2*%pi))*(atan(sqrt(1-(ampK*ampK)))/(2*ampK));

+printf("-Length of the stub = %f cm",round(Lt*(10^2)*100)/100);

diff --git a/1109/CH6/EX6.15/6_15.sce b/1109/CH6/EX6.15/6_15.sce
new file mode 100755
index 000000000..be458485e
--- /dev/null
+++ b/1109/CH6/EX6.15/6_15.sce
@@ -0,0 +1,11 @@
+clear;

+clc;

+Zo=400;ZR=200-(%i*100);lo=3; //lo=wavelength

+//value os Zo as taken in solution

+K=(ZR-Zo)/(ZR+Zo);

+ampK=abs(K);

+phi=%pi + atan(imag(K)/real(K));

+Ls=(lo/(4*%pi))*(phi+%pi-acos(ampK));

+printf("Shortest distance from the lead to the stub location = %f metres\n",round(Ls*100)/100);

+Lt=(lo/(2*%pi))*(atan(sqrt(1-(ampK*ampK)))/(2*ampK));

+printf("Length of the short circuited stub = %f metres",fix(Lt*10)/10);

diff --git a/1109/CH6/EX6.17/6_17.sce b/1109/CH6/EX6.17/6_17.sce
new file mode 100755
index 000000000..63602f4de
--- /dev/null
+++ b/1109/CH6/EX6.17/6_17.sce
@@ -0,0 +1,9 @@
+clear;

+clc;

+ZR=300;s=9;d=0.1

+r=d/2;

+Zof=276*log10(s/r);

+Zoq=sqrt(ZR*Zof);

+do=(s*2)/10^(Zoq/276);

+printf("Diameter of wire used = %f cm",fix(do*10)/10);

+

diff --git a/1109/CH6/EX6.18/6_18.sce b/1109/CH6/EX6.18/6_18.sce
new file mode 100755
index 000000000..8516978b7
--- /dev/null
+++ b/1109/CH6/EX6.18/6_18.sce
@@ -0,0 +1,10 @@
+clear;

+clc;

+Zin=36;Zt=500;f=40;x=0.97

+Zo=sqrt(Zin*Zt);

+A=10^(Zo/276);

+lo=300/f;

+l1=lo*x/4;

+printf("-The characteristic impedance of the transmission line = %f ohms\n",round(Zo));

+printf("-The spacing between the conductors shud be %f times the radius of the conductor\n",round(A));

+printf("-The length of the quarter wavelength transformer must be %f metres",round(l1*100)/100);

diff --git a/1109/CH6/EX6.19/6_19.sce b/1109/CH6/EX6.19/6_19.sce
new file mode 100755
index 000000000..d744f7e3b
--- /dev/null
+++ b/1109/CH6/EX6.19/6_19.sce
@@ -0,0 +1,14 @@
+clear;

+clc;

+f=150;S=4.48;Ymin=6*(10^-2);

+lo=300/(f); //lo=wavelength

+b=(2*%pi)/lo;

+phi=round(((2*b*Ymin)-%pi)*100)/100;

+phi1=-phi;

+ampK=round(((S-1)/(S+1))*10)/10;

+Ls=(lo/(4*%pi))*(phi1+%pi-round(acos(ampK)));

+printf("Point of attachment = %f cm\n",round(Ls*(10^4))/100);

+Lt=(lo/(2*%pi))*(atan(sqrt(1+(ampK*ampK)))/(2*ampK));

+printf("Length of the stub = %f cm",round(Lt*(10^4))/100);

+//the difference in result  is due to erroneous value in textbook.

+disp("The difference in result is due to erroneous value in textbook")

diff --git a/1109/CH6/EX6.2/6_2.sce b/1109/CH6/EX6.2/6_2.sce
new file mode 100755
index 000000000..c336e4544
--- /dev/null
+++ b/1109/CH6/EX6.2/6_2.sce
@@ -0,0 +1,13 @@
+clear;

+clc;

+Zo=75;s=3;d=1/5;

+B=2*%pi*d; //B=b*ymax where ymax=position of the current maxima which is 1/5th                   wavelength away from the load(here)

+phi=2*B;

+ampK=(s-1)/(s+1); //ampK=amplitude of the reflection coefficient

+K=ampK*(exp(%i*phi));

+ZR=round(((Zo*(1+K))*100)/100)/(round((1-K)*1000)/1000);

+C=real(ZR);

+D=imag(ZR);

+printf("Load impedance = %f /_ %f ohms",round(abs(ZR)*10)/10,round(atan(imag(ZR),real(ZR))*180*100/%pi)/100);

+//the difference in result  is due to erroneous value in textbook.

+disp("The difference in result is due to erroneous value in textbook")

diff --git a/1109/CH6/EX6.20/6_20.sce b/1109/CH6/EX6.20/6_20.sce
new file mode 100755
index 000000000..6d176fa3b
--- /dev/null
+++ b/1109/CH6/EX6.20/6_20.sce
@@ -0,0 +1,9 @@
+clear;

+clc;

+s=3.3;Zo=300;l=15;

+ampK=round(((s-1)/(s+1))*100)/100;

+Zr=Zo*(1+ampK)/(1-ampK);

+printf("-Terminated impedance = %f ohms\n",fix(Zr));

+lo=(2*2*%pi*l*(10^-2))/%pi; //lo=wavelength

+f=300/lo;

+printf("-Frequency = %f MHz",f);

diff --git a/1109/CH6/EX6.21/6_21.sce b/1109/CH6/EX6.21/6_21.sce
new file mode 100755
index 000000000..56258948c
--- /dev/null
+++ b/1109/CH6/EX6.21/6_21.sce
@@ -0,0 +1,15 @@
+clear;

+clc;

+Ymin=18*(10^-2);S=2.5;dmin=20*(10^-2);l=52*(10^-2);Zo=300;

+//dmin=distance betweeen adjacent voltage minimas

+ampK=round(((S-1)/(S+1))*100)/100;

+ZR=fix(Zo*(1+ampK)/(1-ampK));

+printf("Input impedance = %f ohms\n",ZR);

+lo=2*dmin; //lo=wavelength

+b=(2*%pi)/lo;

+phi=(2*b*Ymin)-%pi;

+theta=-fix((phi-(2*b*l)));

+Zm=Zo*(round((1+(ampK*exp(%i*theta)))*100)/100)/(round((1-(ampK*exp(%i*theta)))*100)/100);

+printf("Load impedance = %f + j(%f) ohms",round(real(Zm*100))/100,round(imag(Zm*100))/100);

+//the difference in result  is due to erroneous value in textbook.

+disp("The difference in result is due to erroneous value in textbook")

diff --git a/1109/CH6/EX6.3/6_3.sce b/1109/CH6/EX6.3/6_3.sce
new file mode 100755
index 000000000..fde3ac15b
--- /dev/null
+++ b/1109/CH6/EX6.3/6_3.sce
@@ -0,0 +1,12 @@
+clear;

+clc;

+Zo=50;f=300*(10^6);ZR=50+(%i*50);

+lo=300/(f*(10^-6)); //where f is in megahertz ,lo=wavelength of wave in air

+K=(ZR-Zo)/(ZR+Zo);

+ampK=sqrt((real(K)^2)+(imag(K)^2));

+S=(1+ampK)/(1-ampK);

+printf("-VSWR = %f\n",round(S*100)/100);

+phi=atan(imag(K)/real(K));

+ymax=phi*lo/(2*2*%pi);

+ymin=ymax+(lo/4);

+printf("-Position of voltage minimum nearest load = %f metres",round(ymin*10000)/10000);

diff --git a/1109/CH6/EX6.4/6_4.sce b/1109/CH6/EX6.4/6_4.sce
new file mode 100755
index 000000000..41615924c
--- /dev/null
+++ b/1109/CH6/EX6.4/6_4.sce
@@ -0,0 +1,15 @@
+clear;

+clc;

+Zo=400;ZRa=70,ZRb=800;ZRc=650-(%i*475);

+Ka=(ZRa-Zo)/(ZRa+Zo);

+ampKa=sqrt((real(Ka)^2)+(imag(Ka)^2));

+Sa=(1+ampKa)/(1-ampKa);

+printf("(a)Standing wave ratio = %f\n",round(Sa*100)/100);

+Kb=(ZRb-Zo)/(ZRb+Zo);

+ampKb=sqrt((real(Kb)^2)+(imag(Kb)^2));

+Sb=(1+ampKb)/(1-ampKb);

+printf("(b)Standing wave ratio = %f\n",Sb);

+Kc=(ZRc-Zo)/(ZRc+Zo);

+ampKc=sqrt((real(Kc)^2)+(imag(Kc)^2));

+Sc=(1+ampKc)/(1-ampKc);

+printf("(c)Standing wave ratio = %f",round(Sc*1000)/1000);

diff --git a/1109/CH6/EX6.5/6_5.sce b/1109/CH6/EX6.5/6_5.sce
new file mode 100755
index 000000000..a373b7a6d
--- /dev/null
+++ b/1109/CH6/EX6.5/6_5.sce
@@ -0,0 +1,13 @@
+clear;

+clc;

+s=2;f=300*(10^6);lo=1;ymin=0.8; //lo=wavelength

+ampK=(s-1)/(s+1);

+b=2*%pi/lo;

+phi=(2*b*ymin)-%pi;

+K=ampK*(exp(%i*phi));

+Zr=(1+K)/(1-K);

+A=real(Zr);

+B=imag(Zr);

+printf("Value of load impedance = %f /_ %f ohms",round(abs(Zr)*10)/10,fix(atan(B,A)*180*100/%pi)/100);

+//the difference in result  is due to erroneous value in textbook.

+disp("The difference in result is due to erroneous value in textbook")