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

---
 1109/CH6/EX6.1/6_1.sce   | 15 +++++++++++++++
 1109/CH6/EX6.11/6_11.sce |  8 ++++++++
 1109/CH6/EX6.14/6_14.sce | 10 ++++++++++
 1109/CH6/EX6.15/6_15.sce | 11 +++++++++++
 1109/CH6/EX6.17/6_17.sce |  9 +++++++++
 1109/CH6/EX6.18/6_18.sce | 10 ++++++++++
 1109/CH6/EX6.19/6_19.sce | 14 ++++++++++++++
 1109/CH6/EX6.2/6_2.sce   | 13 +++++++++++++
 1109/CH6/EX6.20/6_20.sce |  9 +++++++++
 1109/CH6/EX6.21/6_21.sce | 15 +++++++++++++++
 1109/CH6/EX6.3/6_3.sce   | 12 ++++++++++++
 1109/CH6/EX6.4/6_4.sce   | 15 +++++++++++++++
 1109/CH6/EX6.5/6_5.sce   | 13 +++++++++++++
 13 files changed, 154 insertions(+)
 create mode 100755 1109/CH6/EX6.1/6_1.sce
 create mode 100755 1109/CH6/EX6.11/6_11.sce
 create mode 100755 1109/CH6/EX6.14/6_14.sce
 create mode 100755 1109/CH6/EX6.15/6_15.sce
 create mode 100755 1109/CH6/EX6.17/6_17.sce
 create mode 100755 1109/CH6/EX6.18/6_18.sce
 create mode 100755 1109/CH6/EX6.19/6_19.sce
 create mode 100755 1109/CH6/EX6.2/6_2.sce
 create mode 100755 1109/CH6/EX6.20/6_20.sce
 create mode 100755 1109/CH6/EX6.21/6_21.sce
 create mode 100755 1109/CH6/EX6.3/6_3.sce
 create mode 100755 1109/CH6/EX6.4/6_4.sce
 create mode 100755 1109/CH6/EX6.5/6_5.sce

(limited to '1109/CH6')

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")
-- 
cgit