13 files changed, 166 insertions, 0 deletions
diff --git a/2414/CH14/EX14.1/Ex14_1.sce b/2414/CH14/EX14.1/Ex14_1.sce
new file mode 100755
index 000000000..dd77d59a4
--- /dev/null
+++ b/2414/CH14/EX14.1/Ex14_1.sce
@@ -0,0 +1,10 @@
+clc;
+close();
+clear();
+//page no 471
+//prob no. 14.1
+f=1*10^6;  //Hz
+lembda=3*10^8/f;   //m
+mprintf('The free space wavelength is = %i m \n',lembda);
+l=.1*lembda;
+mprintf(' Length ,l= %i m',l);
diff --git a/2414/CH14/EX14.10/Ex14_10.sce b/2414/CH14/EX14.10/Ex14_10.sce
new file mode 100755
index 000000000..94343a9cf
--- /dev/null
+++ b/2414/CH14/EX14.10/Ex14_10.sce
@@ -0,0 +1,14 @@
+clc;
+close();
+clear();
+//page no 484
+//prob no. 14.10
+ZL=100;   //ohm
+RL=ZL;
+R0=300;    //ohm
+TauL=(RL-R0)/(RL+R0);
+
+mprintf('(a)The reflection coefficient at load is=  %0.2f,',TauL);
+
+S=R0/RL;
+mprintf('\n (b) The standing wave ratio is, S = %.0f \n',S);
diff --git a/2414/CH14/EX14.11/Ex14_11.sce b/2414/CH14/EX14.11/Ex14_11.sce
new file mode 100755
index 000000000..a1f9fc0bb
--- /dev/null
+++ b/2414/CH14/EX14.11/Ex14_11.sce
@@ -0,0 +1,11 @@
+clc;
+close();
+clear();
+//page no 485
+//prob no. 14.11
+ZL=100;   //ohm
+RL=ZL;
+R0=300;    //ohm
+TauL=(RL-R0)/(RL+R0);
+mismatch_loss_dB=-10*log10(1-TauL^2);
+mprintf(' The mismatch loss (dB), S = %.2f dB\n',mismatch_loss_dB);
diff --git a/2414/CH14/EX14.12/Ex14_12.sce b/2414/CH14/EX14.12/Ex14_12.sce
new file mode 100755
index 000000000..add65bb29
--- /dev/null
+++ b/2414/CH14/EX14.12/Ex14_12.sce
@@ -0,0 +1,15 @@
+clc;
+close();
+clear();
+//page no 487
+//prob no. 14.12
+Ex=3 //V/m
+n0=377;
+Hy=Ex/n0;
+mprintf('(a) The vaulue of Hy is, Hy = %.3f * 10^-3 A/m\n',Hy*10^3);
+
+Px=Ex^2/n0;
+mprintf(' (b) The power density Px is, Px = %.3f * 10^-3 W/m^2\n',Px*10^3);
+A=10*30;
+P=Px*A;
+mprintf(' (c) The net power transmitted is, P = %.3f W \n',P);
diff --git a/2414/CH14/EX14.2/Ex14_2.sce b/2414/CH14/EX14.2/Ex14_2.sce
new file mode 100755
index 000000000..823f5262e
--- /dev/null
+++ b/2414/CH14/EX14.2/Ex14_2.sce
@@ -0,0 +1,10 @@
+clc;
+close();
+clear();
+//page no 471
+//prob no. 14.2
+f=1*10^8;  //Hz
+lembda=3*10^8/f;   //m
+mprintf('The free space wavelength is = %i m \n',lembda);
+l=.1*lembda;
+mprintf(' Length ,l= %.1f m',l);
diff --git a/2414/CH14/EX14.3/Ex14_3.sce b/2414/CH14/EX14.3/Ex14_3.sce
new file mode 100755
index 000000000..b3ffbe52e
--- /dev/null
+++ b/2414/CH14/EX14.3/Ex14_3.sce
@@ -0,0 +1,10 @@
+clc;
+close();
+clear();
+//page no 472
+//prob no. 14.3
+f=1*10^9;  //Hz
+lembda=3*10^8/f;   //m
+mprintf('The free space wavelength is = %i cm \n',lembda*100);
+l=.1*lembda;
+mprintf(' Length ,l= %i cm',l*100);
diff --git a/2414/CH14/EX14.4/Ex14_4.sce b/2414/CH14/EX14.4/Ex14_4.sce
new file mode 100755
index 000000000..e3b778ccf
--- /dev/null
+++ b/2414/CH14/EX14.4/Ex14_4.sce
@@ -0,0 +1,9 @@
+clc;
+close();
+clear();
+//page no 474
+//prob no. 14.4
+L=320*10^-9;   //H/m
+C=90*10^-12;   //F/m
+R0=sqrt(L/C);
+mprintf('The characteristc impedance, R0 = %.2f ohm \n',R0);
diff --git a/2414/CH14/EX14.5/Ex14_5.sce b/2414/CH14/EX14.5/Ex14_5.sce
new file mode 100755
index 000000000..3e766de16
--- /dev/null
+++ b/2414/CH14/EX14.5/Ex14_5.sce
@@ -0,0 +1,9 @@
+clc;
+close();
+clear();
+//page no 476
+//prob no. 14.5
+L=320*10^-9;   //H/m
+C=90*10^-12;   //F/m
+v=1/sqrt(L*C);
+mprintf('The velocity of propagation is, v = %.3f 10^8 m/s \n',v*10^-8);
diff --git a/2414/CH14/EX14.6.1/Ex14_6_1.sce b/2414/CH14/EX14.6.1/Ex14_6_1.sce
new file mode 100755
index 000000000..714fd2fd0
--- /dev/null
+++ b/2414/CH14/EX14.6.1/Ex14_6_1.sce
@@ -0,0 +1,18 @@
+clc;
+close();
+clear();
+//page no 479
+//prob no. 14.6;   //misprinted example no
+d=.3;  //cm
+D=1.02;  //cm
+Er=2.25;  
+x=log(D/d);   //variable
+L=2*10^-7*x;
+mprintf('(a)The inductance per unit length is, L = %.1f nH/m \n',L*10^9);
+C=55.56*10^-12*Er/x;
+mprintf(' (b)The capacitance per unit length is, C = %.2f nH/m \n',C*10^12);
+R0=60/sqrt(Er)*x;
+mprintf(' (c)The characteristic impedance is, R0 = %.3f ohm \n',R0);
+c=3*10^8;
+v=c/sqrt(Er);
+mprintf(' (d)The velocity of propagation is, v = %i*10^8 m/s \n',v*10^-8);
diff --git a/2414/CH14/EX14.6/Ex14_6.sce b/2414/CH14/EX14.6/Ex14_6.sce
new file mode 100755
index 000000000..3a45ad900
--- /dev/null
+++ b/2414/CH14/EX14.6/Ex14_6.sce
@@ -0,0 +1,10 @@
+clc;
+close();
+clear();
+//page no 476
+//prob no. 14.6
+L=320*10^-9;   //H/m
+C=90*10^-12;   //F/m
+v=1/sqrt(L*C);   //from Ex14.5
+Er=(3*10^8/v)^2;
+mprintf('The dielectic constant is, Er = %.2f  \n',Er);
diff --git a/2414/CH14/EX14.7/Ex14_7.sce b/2414/CH14/EX14.7/Ex14_7.sce
new file mode 100755
index 000000000..7f81dcd6d
--- /dev/null
+++ b/2414/CH14/EX14.7/Ex14_7.sce
@@ -0,0 +1,16 @@
+clc;
+close();
+clear();
+//page no 480
+//prob no. 14.7;
+Rin=50   //ohm
+Rout=50;   //ohm
+Vrms=400;  //V
+Zin=Rin;
+mprintf('(a)The input impedance is, Zin = %i ohm\n',Zin);
+Irms=Vrms/(Rin+Rout);  //A
+mprintf(' (b)The rms current , Irms = %i A \n',Irms);
+Pin=Irms^2*Rin;
+mprintf(' (c)The input power is, Pin = %i W \n',Pin);
+Pl=Pin;
+mprintf(' (d)The load power is, Pl = %i W \n',Pl);
diff --git a/2414/CH14/EX14.8/Ex14_8.sce b/2414/CH14/EX14.8/Ex14_8.sce
new file mode 100755
index 000000000..d3fc831aa
--- /dev/null
+++ b/2414/CH14/EX14.8/Ex14_8.sce
@@ -0,0 +1,18 @@
+clc;
+close();
+clear();
+//page no 481
+//prob no. 14.8
+Rin=50   //ohm
+Rout=50;   //ohm
+Vrms=400;  //V
+
+l=50;      //m
+Ldb=.01*l;   //dB
+L=10^(Ldb/10);
+mprintf('The abslute loss is, L = %f \n',L);
+Irms=Vrms/(Rin+Rout);  //A
+Pin=Irms^2*Rin;
+
+PL=Pin/L;
+mprintf(' The actual Power reaching the load is, PL = %.1f W \n',PL);
diff --git a/2414/CH14/EX14.9/Ex14_9.sce b/2414/CH14/EX14.9/Ex14_9.sce
new file mode 100755
index 000000000..30edb090f
--- /dev/null
+++ b/2414/CH14/EX14.9/Ex14_9.sce
@@ -0,0 +1,16 @@
+clc;
+close();
+clear();
+//page no 484
+//prob no. 14.9
+ZL=complex(50,100);
+R0=50;
+TauL=(ZL-R0)/(ZL+R0);
+
+mprintf('(a)The reflection coefficient at load is,');
+disp(TauL);
+[R,theta]=polar(TauL);
+mprintf('OR , %.4f angle %i',R,theta*(180/%pi));
+
+S=(1+R)/(1-R);
+mprintf('\n (b) The standing wave ratio is, S = %.3f \n',S);