initial commit / add all books

15 files changed, 240 insertions, 0 deletions

diff --git a/1109/CH1/EX1.1/1_1.sce b/1109/CH1/EX1.1/1_1.sce
new file mode 100755
index 000000000..4a6c5bfdf
--- /dev/null
+++ b/1109/CH1/EX1.1/1_1.sce
@@ -0,0 +1,21 @@
+clear;

+clc;

+Zo=710* exp(%i*(-%pi/(180/16)));f=1000;

+w=2*%pi*f;

+a=.01;b=.035;

+P=a+%i*b;

+Z=Zo*P;

+R=real(Z);

+r=round(R*100)/100;

+printf('-Resistance R = %f ohms/km\n',r);

+L=((imag(Z))/w)*10^3;

+l=round(L*100)/100;

+printf('-Inductance L = %f mH/km\n',l);

+Y=P/Zo;

+G=real(Y);

+printf('-Conductance G = %f mhos/km\n',-G);

+C=((imag(Y))/w)*10^6;

+c=round(C*1000)/1000;

+printf('-Capacitance C = %f microfarads/km\n',c);

+Vp=round(w*1000/(b*10^5))/1000;

+printf('-Velocity of propagation Vp = %f^* 10^5 km/sec',Vp);

diff --git a/1109/CH1/EX1.10/1_10.sce b/1109/CH1/EX1.10/1_10.sce
new file mode 100755
index 000000000..d1013287f
--- /dev/null
+++ b/1109/CH1/EX1.10/1_10.sce
@@ -0,0 +1,11 @@
+clc;

+R=20;L=10*(10^-3);ins=0.1*(10^6);C=.1*(10^-6);w=5000; //ins=insulation resistance

+G=1/ins;

+Z=R+(%i*w*L);

+Y=G+%i*w*C;

+Zo=sqrt(Z/Y);

+C=real(Zo);

+D=imag(Zo);

+printf('Input impedance Zo = %f /_%f ohms\n',(abs(Zo)),round(((atan(imag(Zo),real(Zo))*180/%pi))*10)/10);

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

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

diff --git a/1109/CH1/EX1.11/1_11.sce b/1109/CH1/EX1.11/1_11.sce
new file mode 100755
index 000000000..b96d2c0d8
--- /dev/null
+++ b/1109/CH1/EX1.11/1_11.sce
@@ -0,0 +1,10 @@
+clear;

+clc;

+x=1;l=12;V=0.1;

+V1=1-V; 

+//V1=ratio of voltage at 1km from the sending end to the voltage at sending end

+P=-log(V1);

+V2=exp(-P*l);

+x=V2*100;x1=round(x*100)/100;

+//x=ratio of voltage across the load impedance to the voltage at sending end

+printf("Voltage across the load impedance is %f percentage of the sending end voltage",x1);

diff --git a/1109/CH1/EX1.12/1_12.sce b/1109/CH1/EX1.12/1_12.sce
new file mode 100755
index 000000000..89fcd63a4
--- /dev/null
+++ b/1109/CH1/EX1.12/1_12.sce
@@ -0,0 +1,23 @@
+clear;

+clc;

+a=.1;d=30;Ur=1;s=5.57*(10^7);e=1;f=30000;

+//ur= relative magnetic permeability of conductor material,

+//s=conductivity of material

+//e=relative dielectric constant of the material

+L=(Ur+9.21*log10(d/a))*10^-7;

+printf("-Inductance L = %f mH/km\n",L*10^3);

+C=12.07*e/(log10(d/a));

+printf("-Capacitance C = %f micromicrofarads/km\n",round(C*100)/100);

+Rdc=2/(%pi*a*a*10^-2*10^-2*s);

+Rdc1=Rdc*10^3;

+printf("-D.C.resistance of line Rdc = %f ohms/km\n",round(Rdc1*100)/100);

+Uo=4*%pi*10^-7;

+//Uo=absolute permeability

+Rac=(1/(a*10^-2))*(sqrt(f*Uo/(%pi*s)));

+Rac1=Rac*10^3;

+printf("-A.C.resistance of line = %f ohms/km",round(Rac1*100)/100);

+//the difference in result of innductance and capacitance is due to erroneous value in textbook.

+disp("The difference in result of inductance and capacitance is due to erroneous value in textbook")

+

+

+

diff --git a/1109/CH1/EX1.13/1_13.sce b/1109/CH1/EX1.13/1_13.sce
new file mode 100755
index 000000000..5d59f0067
--- /dev/null
+++ b/1109/CH1/EX1.13/1_13.sce
@@ -0,0 +1,20 @@
+clear;

+clc;

+a=0.2;b=0.8;c=1;

+a1=a*10^-2;b1=b*10^-2;c1=c*10^-2;s=5.57*(10^7);e=2.5;f=100*(10^3);

+//e=relative dielectric constant of the material

+//s=conductivity of copper

+eo=(1/(36*%pi))*10^-9;

+Uo=4*%pi*10^-7;

+//Uo=absolute permeability

+Llf=(((Uo/(2*%pi))*log(b1/a1))+((Uo/(8*%pi))*((((4*c1^4)/(((c1^2)-(b1^2))^2))*log(c1/b1))-((2*c1^2)/((c1^2)-(b1^2))))))*10^3;

+printf("-Low frequency inductance = %f mH/km\n",round(Llf*(10^3)*10000)/10000);

+Lhf=((Uo/(2*%pi))*log(b1/a1))*10^3;

+printf("-High frequency inductance = %f mH/km\n",round(Lhf*(10^3)*1000)/1000);

+C=(2*%pi*eo*e/(log(b1/a1)))*10^3;

+printf("-Capacitance = %f microfarads/km\n",round(C*(10^6)*10000)/10000);

+Rdc=((1/(%pi*s))*((1/(a1^2))+(1/((c1^2)-(b1^2)))))*10^3;

+printf("-D.c.resistance = %f ohms/km\n",round(Rdc*1000)/1000);

+Rac=((sqrt(f*Uo/(4*%pi*s)))*((1/a1)+(1/b1)))*10^3;

+printf("-A.c.resistance = %f ohms/km",round(Rac*100)/100);

+

diff --git a/1109/CH1/EX1.14/1_14.sce b/1109/CH1/EX1.14/1_14.sce
new file mode 100755
index 000000000..9448846fd
--- /dev/null
+++ b/1109/CH1/EX1.14/1_14.sce
@@ -0,0 +1,11 @@
+clear;

+clc;

+Vd=10;l=2;b=20;f=796;

+w=2*%pi*f;

+//Vd=voltage drop(in percentage),b=phase change(in degrees)

+V=(100-Vd)/100; //V=Vr/Vs;

+a=(20*log10(1/V))/l;

+printf("(i)Attenuation = %f db/km\n",round(a*1000)/1000);

+b1=(b/l)*(%pi/180); //b1=phase constant/km(in radians)

+Vp=w/b1;

+printf("(ii)The velocity of propagation = %d km/sec",Vp);

diff --git a/1109/CH1/EX1.15/1_15.sce b/1109/CH1/EX1.15/1_15.sce
new file mode 100755
index 000000000..105918c9a
--- /dev/null
+++ b/1109/CH1/EX1.15/1_15.sce
@@ -0,0 +1,22 @@
+clear;

+clc;

+l=200;Vg=10;Zg=500;Zs=683-(%i*138);P=0.0074+(%i*0.0356);Zo=Zs;

+Is=Vg/(Zg+Zs);

+modIs=abs(Is);

+printf("-Sending end current = %f mA\n",round(modIs*(10^3)*100)/100);

+Vs=Is*Zs;

+modVs=abs(Vs);

+printf("-Sending end voltge = %f V r.m.s.\n",round(modVs*100)/100);

+Rs=real(Zs);

+Ps=((modIs)^2)*Rs;

+printf("-Sending end power = %f mW\n",round(Ps*(10^3)*100)/100);

+Vr=modVs*exp(-P*l);

+A=imag(-P*l);

+printf("-Receiving end voltage = %f /_ %f V\n",round(abs(Vr)*100)/100,A);

+Zr=Zs;

+Ir=Vr/Zr;

+modIr=abs(Ir);

+printf("-Receiving end current = %f mA\n",round(modIr*(10^3)*100)/100);

+Rr=Rs;

+Pr=((modIr)^2)*Rr;

+printf("-Receiving end power = %f mW",fix(Pr*(10^3)*100)/100);

diff --git a/1109/CH1/EX1.2/1_2.sce b/1109/CH1/EX1.2/1_2.sce
new file mode 100755
index 000000000..86ec0564e
--- /dev/null
+++ b/1109/CH1/EX1.2/1_2.sce
@@ -0,0 +1,15 @@
+clear;

+clc;

+Zo=2039.6;f=800; //value of Zo as taken in solution

+P=0.054* exp(%i*(%pi/(180/87.9)));

+w=2*%pi*f;

+Z=Zo*P;

+R=real(Z);

+printf('-Resistance R = %f ohms/km\n',R);

+L=(imag(Z))/w;

+printf('-Inductance L = %f mH/km\n',L*(10^3));

+Y=P/Zo;

+G=real(Y);

+printf('-Conductance G = %f micromhos/km\n',G*(10^6));

+C=((imag(Y))/w)*(10^6);c=round(C*10000)/10000

+printf('-Capacitance C = %f microfarads/km\n',c);

diff --git a/1109/CH1/EX1.3/1_3.sce b/1109/CH1/EX1.3/1_3.sce
new file mode 100755
index 000000000..59956a4e9
--- /dev/null
+++ b/1109/CH1/EX1.3/1_3.sce
@@ -0,0 +1,17 @@
+clear;

+clc;

+R=10;L=.0037;f=1000;G=.4*(10^-6);C=.0083*(10^-6);

+w=2*%pi*f;

+Z=R+(%i*w*L);

+Y=G+(%i*w*C);

+Zo=sqrt(Z/Y);

+C=round(real(Zo));

+D=round(imag(Zo));

+printf('-Zo = %f + j(%f) ohms\n',C,D);

+P=sqrt(Z*Y);

+a=real(P);

+a1=round(a*10000)/10000;

+printf('-Attenuation constant a = %f neper/km\n',a1);

+b=imag(P);

+b1=round(b*10000)/10000;

+printf('-Phase constant b = %f radians/km',b1);

diff --git a/1109/CH1/EX1.4/1_4.sce b/1109/CH1/EX1.4/1_4.sce
new file mode 100755
index 000000000..a4093bcf4
--- /dev/null
+++ b/1109/CH1/EX1.4/1_4.sce
@@ -0,0 +1,19 @@
+clear;

+clc;

+f=1000;R=6;L=.0022;G=.25*(10^-6);C=.005*(10^-6);l=100; 

+//value of C as taken in solution

+w=2*%pi*f;

+Z=R+(%i*w*L);

+Y=G+(%i*w*C);

+Zo=sqrt(Z/Y);

+C=real(Zo);

+D=imag(Zo);

+printf('(i)Terminating impedance for which there will be no reflection is Zo = %f /_%f ohms\n',fix(abs(Zo)),round(((atan(imag(Zo),real(Zo))*180/%pi))*10)/10);

+P=sqrt(Z*Y);

+a=real(P);

+b=imag(P);

+a1=a*l*8.66;

+printf('(ii)(a)Attenuation suffered while travelling = %f db\n',a1);

+Vp=(w/b)*(10^-5);v=round(Vp*100)/100;

+printf('(ii)(b)Phase velocity Vp = %f * 10^5 km/sec\n',v);

+

diff --git a/1109/CH1/EX1.5/1_5.sce b/1109/CH1/EX1.5/1_5.sce
new file mode 100755
index 000000000..9ec7c003d
--- /dev/null
+++ b/1109/CH1/EX1.5/1_5.sce
@@ -0,0 +1,20 @@
+clear;

+clc;

+f=1000;R=10.4;L=.0037;G=.8*(10^-6);C=.00835*(10^-6);l=1000;Vs=1;

+w=2*%pi*f;

+Z=R+round((%i*w*L));

+Y=G+(%i*w*C);

+Zo=sqrt(Z/Y);

+printf('-Characteristic impedance is Zo = %f /_%f ohms\n',fix(abs(Zo)),round(((atan(imag(Zo),real(Zo))*180/%pi))));

+P=sqrt(Z*Y);

+printf('-Propagation constant P = %f + j(%f)\n',fix(real(P)*10^4)/10^4,round(imag(P)*10^4)/10^4);

+b=imag(P);

+

+Is=Vs/Zo;Vp=(w/b)*(10^-5);v=round(Vp*100)/100;

+printf('-Phase velocity Vp = %f * 10^5 km/sec\n',v);

+Ir=Is*exp(-P*l);

+P=((abs(Ir))^2)*real(Zo);

+printf("-Power delivered at receiving end = %f micro-watt",P*(10^6));

+

+

+

diff --git a/1109/CH1/EX1.6/1_6.sce b/1109/CH1/EX1.6/1_6.sce
new file mode 100755
index 000000000..83bfba1f2
--- /dev/null
+++ b/1109/CH1/EX1.6/1_6.sce
@@ -0,0 +1,13 @@
+clear;

+clc;

+f=5000/(2*%pi);R=196;C=.09*(10^-6);L=.71*(10^-3);G=0;

+//value of C as taken in solution

+w=2*%pi*f;

+Z=R+(%i*w*L);

+Y=G+(%i*w*C);

+Zo=sqrt(Z/Y);

+printf('-Characteristic impedance is Zo = %f /_%f ohms\n',fix(abs(Zo)),round(((atan(imag(Zo),real(Zo))*180/%pi))*10)/10);

+P=sqrt(Z*Y);F=fix(abs(P)*100)/100;

+printf("-Propagation constant P =  %f /_%f ohms\n',F,((atan(imag(P),real(P))*180/%pi))); 

+//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/CH1/EX1.7/1_7.sce b/1109/CH1/EX1.7/1_7.sce
new file mode 100755
index 000000000..035aa40ba
--- /dev/null
+++ b/1109/CH1/EX1.7/1_7.sce
@@ -0,0 +1,16 @@
+clc;

+R=10.4;L=3.666*(10^-3);G=.08*(10^-6);C=.00835*(10^-6);w=5000;

+//value of L and C as taken in solution

+Z=R+(%i*w*L);

+Y=G+%i*w*C;

+Zo=sqrt(Z/Y);

+printf('-Zo = %f /_%f ohms\n',fix(abs(Zo)),round(((atan(imag(Zo),real(Zo))*180/%pi))*10)/10);

+P=sqrt(Z*Y);

+a=real(P);

+b=imag(P);

+printf('-Attenuation constant a = %f neper/km\n',a);

+printf("-Phase constant b = %f radians/km\n",b);

+Vp=(w/b)*(10^-5);v=round(Vp*1000)/1000;

+printf('(ii)(b)Phase velocity Vp = %f * 10^5 km/sec\n',v);

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

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

diff --git a/1109/CH1/EX1.8/1_8.sce b/1109/CH1/EX1.8/1_8.sce
new file mode 100755
index 000000000..667c4059c
--- /dev/null
+++ b/1109/CH1/EX1.8/1_8.sce
@@ -0,0 +1,8 @@
+clear;

+clc;

+R=65;L=1.6*(10^-3);C=.1*(10^-6);G=2.25*(10^-6);f=800;

+w=5000;

+Z=R+round(%i*w*L);

+Y=G+%i*w*C;

+Zo=sqrt(Z/Y);

+printf('-Characteristic impedance is Zo = %f /_%f ohms\n',(abs(Zo)),(((atan(imag(Zo),real(Zo))*180/%pi))));

diff --git a/1109/CH1/EX1.9/1_9.sce b/1109/CH1/EX1.9/1_9.sce
new file mode 100755
index 000000000..f81b572ae
--- /dev/null
+++ b/1109/CH1/EX1.9/1_9.sce
@@ -0,0 +1,14 @@
+clear;

+clc;

+R=6;L=2*(10^-3);G=.5*(10^-6);C=.005*(10^-6);f=1000;l=100;

+w=2*%pi*f;

+Z=R+(%i*w*L);

+Y=G+%i*w*C;

+Zo=sqrt(Z/Y);

+P=sqrt(Z*Y);

+a=real(P);

+b=imag(P);

+a1=fix(a*8.66*l*10^3)/10^3;

+printf("-Attenuation suffered while travelling = %f db\n",a1);

+Vp=fix(w/b)/10^3;

+printf("-Phase velocity Vp = %f km/sec",Vp );