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

---
 752/CH13/EX13.10.1/13_10_1.sce | 21 +++++++++++++++++++++
 752/CH13/EX13.11.1/13_11_1.sce | 14 ++++++++++++++
 752/CH13/EX13.17.1/13_17_1.sce | 14 ++++++++++++++
 752/CH13/EX13.17.2/13_17_2.sce | 18 ++++++++++++++++++
 752/CH13/EX13.17.3/13_17_3.sce | 22 ++++++++++++++++++++++
 752/CH13/EX13.5.2/13_5_2.sce   | 12 ++++++++++++
 6 files changed, 101 insertions(+)
 create mode 100755 752/CH13/EX13.10.1/13_10_1.sce
 create mode 100755 752/CH13/EX13.11.1/13_11_1.sce
 create mode 100755 752/CH13/EX13.17.1/13_17_1.sce
 create mode 100755 752/CH13/EX13.17.2/13_17_2.sce
 create mode 100755 752/CH13/EX13.17.3/13_17_3.sce
 create mode 100755 752/CH13/EX13.5.2/13_5_2.sce

(limited to '752/CH13')

diff --git a/752/CH13/EX13.10.1/13_10_1.sce b/752/CH13/EX13.10.1/13_10_1.sce
new file mode 100755
index 000000000..049c93798
--- /dev/null
+++ b/752/CH13/EX13.10.1/13_10_1.sce
@@ -0,0 +1,21 @@
+clc;
+//page no 485
+//prob no. 13.10.1
+// Measurements on a 50 ohm slotted line gave
+Z0=50;//measured in ohm
+VSWR=2.0;
+d=0.2;//distance from load to first minimum
+T=(VSWR-1)/(VSWR+1);
+pi=180;
+Ql=pi*(4*0.2-1);
+// using Euler's identity
+e=cosd(Ql)+%i*sind(Ql);// expansion for e^(jQl);
+a=T*e;
+//Load impedance is given as
+ZL=Z0*(1+a)/(1-a);
+disp('ohm',real(ZL),'a) The equivalent  series resistance is');
+disp('ohm',imag(ZL),'The equivalent  series reactance is');
+disp('The minus sign indicate the capacitive reactance');
+Yl=1/ZL;
+disp('ohm',1/real(Yl),'b) The equivalent  parallel resistance is');
+disp('ohm',1/imag(Yl),'The equivalent  parallel reactance is');
\ No newline at end of file
diff --git a/752/CH13/EX13.11.1/13_11_1.sce b/752/CH13/EX13.11.1/13_11_1.sce
new file mode 100755
index 000000000..90eb3e849
--- /dev/null
+++ b/752/CH13/EX13.11.1/13_11_1.sce
@@ -0,0 +1,14 @@
+clc;
+//page no 488
+//prob no. 13.11.1
+d=0.1;//length of 50ohm short-circuited line
+Z0=50;//in ohm
+f=500*10^6;//freq in Hz
+pi=180;
+Bl=2*pi*d;
+//a)Determination of equivalent inductive reactance
+Z=%i*Z0*tand(Bl);
+disp('ohm','i',Z,'The equivalent inductive reactance is');
+//b)Determination of equivalent inductance
+L_eq=Z/(2*%pi*f);
+disp('nH',L_eq*10^9,'The equivalent inductance is');
\ No newline at end of file
diff --git a/752/CH13/EX13.17.1/13_17_1.sce b/752/CH13/EX13.17.1/13_17_1.sce
new file mode 100755
index 000000000..ea4310932
--- /dev/null
+++ b/752/CH13/EX13.17.1/13_17_1.sce
@@ -0,0 +1,14 @@
+clc;
+//page no 513
+//prob no. 13.17.1
+VSWR=2;l_min=0.2;Z0=50;
+Ql=((4*l_min )- 1)*%pi;
+tl=(VSWR-1)/(VSWR+1);
+Tl=tl*%e^(%i*Ql);
+Zl=Z0*(1+Tl)/(1-Tl);
+disp('ohm',real(Zl),'a) The equivalent  series resistance is');
+disp('ohm',imag(Zl),'The equivalent  series reactance is');
+disp('The minus sign indicate the capacitive reactance');
+Yl=1/Zl;
+disp('ohm',1/real(Yl),'b) The equivalent  parallel resistance is');
+disp('ohm',1/imag(Yl),'The equivalent  parallel reactance is');
\ No newline at end of file
diff --git a/752/CH13/EX13.17.2/13_17_2.sce b/752/CH13/EX13.17.2/13_17_2.sce
new file mode 100755
index 000000000..7d71dea78
--- /dev/null
+++ b/752/CH13/EX13.17.2/13_17_2.sce
@@ -0,0 +1,18 @@
+clc;
+//page no 514
+//prob no. 13.17.2
+// A transmission line is terminated with
+ZL=30-(%i*23);
+l=0.5;//// length of line in m
+Z0=50;//characteristic impedance in ohm
+wl=0.45;//wavelength on the line in m
+B=2*%pi/wl;
+Tl=(ZL-Z0)/(ZL+Z0)
+VI=1;//reference voltage in volt
+VR=VI*Tl;
+Vi=VI*%e^(%i*B*l);
+Vr=VR*%e^-(%i*B*l);
+V=Vi+Vr;
+I=(Vi-Vr)/Z0;
+Z=V/I;
+disp('ohm',Z,'The input impedance is');
\ No newline at end of file
diff --git a/752/CH13/EX13.17.3/13_17_3.sce b/752/CH13/EX13.17.3/13_17_3.sce
new file mode 100755
index 000000000..1af1eec29
--- /dev/null
+++ b/752/CH13/EX13.17.3/13_17_3.sce
@@ -0,0 +1,22 @@
+clc;
+//page no 515
+//prob no. 13.17.3
+Z0=600;Zl=73;//in ohm
+F=0.9;
+QF=(2*%pi*F)/4;
+//For matching, the effective load impedance on the main line must equal the characteristic impedance of the mail line
+Zl1=Zl;
+Z01=sqrt(Zl1*Zl);
+Tl=(Zl-Z01)/(Zl+Z01);
+VI=1;//reference voltage
+Vi=VI*%e^(%i*QF);
+Vr=Tl*VI*%e^-(%i*QF);
+V_in=Vi+Vr;
+I_in=(Vi-Vr)/Z01;
+Z_in=V_in/I_in;
+disp('ohm',Z_in,'The input impedance is');
+//the voltage reflection coeff is
+TL_F=(Z_in-Z0)/(Z_in+Z0);
+//the VSWr is given as
+VSWR_F=(1+TL_F)/(1-TL_F);
+disp(VSWR_F,'The VSWR is');
\ No newline at end of file
diff --git a/752/CH13/EX13.5.2/13_5_2.sce b/752/CH13/EX13.5.2/13_5_2.sce
new file mode 100755
index 000000000..18cdbde24
--- /dev/null
+++ b/752/CH13/EX13.5.2/13_5_2.sce
@@ -0,0 +1,12 @@
+clc;
+//page no 475
+//prob no. 13.5.2
+// The attenuation coeff is 0.0006 N/m
+a=0.0006;//The attenuation coeff in N/m
+//a)Determinaion of the attenuation coeff in dB/m
+a_dB=8.686*a;
+disp('dB/m',a_dB,'The attenuation coeff is');
+//b) Determination of attenuation coeff in dB/mile
+k=1609;//conversion coeff for meter to mile
+a_dB_mile=k*a_dB;
+disp('dB/mile',a_dB_mile,'The attenuation coeff is');
\ No newline at end of file
-- 
cgit