initial commit / add all books

18 files changed, 357 insertions, 0 deletions

diff --git a/1802/CH7/EX7.1/Exa7_1.sce b/1802/CH7/EX7.1/Exa7_1.sce
new file mode 100755
index 000000000..6f5e6d551
--- /dev/null
+++ b/1802/CH7/EX7.1/Exa7_1.sce
@@ -0,0 +1,22 @@
+//Exa 7.1

+clc;

+clear;

+close;

+//Given data : 

+format('v',5);

+l=1;//in km

+I=100;//in Ampere

+cosfi=0.8;//Power factor(lag) unitless

+VC=200;//in volt

+IL=60;//in Ampere

+cosfi_load=0.9;//Power factor(lag) unitless

+R=0.6;//in ohm

+XL=0.08;//in ohm

+IC=I*(0.8-%i*0.6);//in Ampere

+z=(0.06+%i*0.08)/2;//in ohm

+VD_BC=z*IC;//in volt

+VB=VC+VD_BC;//in volt

+IB=IL*(0.9-%i*0.4357)+IC;//in Ampere

+VD_AB=z*IB;//in volt

+disp(VD_AB,"V.D. from sending end to mid point(in volt) : ");

+disp(VD_BC,"V.D. from mid point to the far end(in volt) : ");
\ No newline at end of file
diff --git a/1802/CH7/EX7.10/Exa7_10.sce b/1802/CH7/EX7.10/Exa7_10.sce
new file mode 100755
index 000000000..b03fe917c
--- /dev/null
+++ b/1802/CH7/EX7.10/Exa7_10.sce
@@ -0,0 +1,14 @@
+//Exa 7.10

+clc;

+clear;

+close;

+//Given data : 

+format('v',7);

+l=300;//in meter

+I=0.75;//in A/m

+R=0.00018;//in ohm/m

+x=200;//in meter

+Vs=250;//in volt

+VD=I*R*(l*x-x^2/2);//in volt

+V_A=Vs-VD;//in volt(Voltage at 200m from end A)

+disp(V_A,"Voltage as 200m from supply end A(in volts) :");
\ No newline at end of file
diff --git a/1802/CH7/EX7.11/Exa7_11.sce b/1802/CH7/EX7.11/Exa7_11.sce
new file mode 100755
index 000000000..1a08627cb
--- /dev/null
+++ b/1802/CH7/EX7.11/Exa7_11.sce
@@ -0,0 +1,20 @@
+//Exa 7.11

+clc;

+clear;

+close;

+//Given data : 

+format('v',7);

+l=600;//in meter

+VA=440;//in volt

+VB=400;//in volt

+R=0.01;//in ohm/100m

+RAC=(R/100)*300;//in ohm

+RCD=(R/100)*300;//in ohm

+RDE=(R/100)*100;//in ohm

+REF=(R/100)*200;//in ohm

+RFB=(R/100)*300;//in ohm

+//VA-VB=VAC+VCD+VDE+VEF+VFB;//in volt

+IA=(VA-VB+42.5)/(0.12);//in Ampere

+IAC=IA;ICD=IA-100;IDE=IA-300;IFE=IA-550;IFB=IA-850;//in Ampere

+disp(IAC,"Current fed at A, IA(in A):");

+disp(-IFB,"Current fed at B, IB(in A):");
\ No newline at end of file
diff --git a/1802/CH7/EX7.12/Exa7_12.sce b/1802/CH7/EX7.12/Exa7_12.sce
new file mode 100755
index 000000000..7ac103441
--- /dev/null
+++ b/1802/CH7/EX7.12/Exa7_12.sce
@@ -0,0 +1,19 @@
+//Exa 7.12

+clc;

+clear;

+close;

+//Given data : 

+format('v',7);

+VA=220;//in volt

+VB=200;//in volt

+R=0.1;//in ohm/km

+I=1;//in A/m

+l=500;//in meter

+R=2*R/1000;//in ohm/m

+x=(VA-VB)/(I*R*l)+l/2;//in meter

+Vmin=VA-I*R*x^2/2;//in volts

+disp(Vmin,"Value of minimum potential(in V) :");

+IA=I*x;//in A

+disp(IA,"Current supplied from end A(in A) :");

+IB=I*(l-x);//in A

+disp(IB,"Current supplied from end B(in A) :");
\ No newline at end of file
diff --git a/1802/CH7/EX7.13/Exa7_13.sce b/1802/CH7/EX7.13/Exa7_13.sce
new file mode 100755
index 000000000..11889dfb1
--- /dev/null
+++ b/1802/CH7/EX7.13/Exa7_13.sce
@@ -0,0 +1,17 @@
+//Exa 7.13

+clc;

+clear;

+close;

+//Given data : 

+format('v',7);

+VL=240;//in volt

+Router=0.2;//in ohm

+I1=VL/5;//in Ampere

+I2=VL/6;//in Ampere

+Ineutral=I1-I2;//in Ampere

+//Applying KVL on +ve side

+V1=VL+I1*0.2+8*0.4;//in volt

+disp(V1,"Voltage at +ve side(in V): ");

+//Applying KVL on +ve side

+V2=VL-(8*0.4)+I2*0.2;//in volt

+disp(V2,"Voltage at -ve side(in V): ");
\ No newline at end of file
diff --git a/1802/CH7/EX7.14/Exa7_14.sce b/1802/CH7/EX7.14/Exa7_14.sce
new file mode 100755
index 000000000..b45c9579b
--- /dev/null
+++ b/1802/CH7/EX7.14/Exa7_14.sce
@@ -0,0 +1,13 @@
+//Exa 7.14

+clc;

+clear;

+close;

+//Given data : 

+format('v',7);

+//Applying KVL on +ve side

+V1=200-(600*0.015)-(100)*0.03;//in volt

+disp(V1,"Voltage at +ve side(in V): ");

+//Applying KVL on -ve side

+V2=200-(-100*0.03)-500*0.0015;//in volt

+disp(V2,"Voltage at -ve side(in V): ");

+//Note : answer of 2nd part is wrong in the book.
\ No newline at end of file
diff --git a/1802/CH7/EX7.15/Exa7_15.sce b/1802/CH7/EX7.15/Exa7_15.sce
new file mode 100755
index 000000000..6385f3f3e
--- /dev/null
+++ b/1802/CH7/EX7.15/Exa7_15.sce
@@ -0,0 +1,18 @@
+//Exa 7.15

+clc;

+clear;

+close;

+//Given data : 

+format('v',7);

+//VD in section AC from RHS: VD1=(40+x)*0.02+0.17*x

+//VD in section AC from LHS: VD2=(350-x)*0.015+(150-x)*0.03

+//Equating two VDs we get

+//x*0.02+0.17*x+0.015*x+x*0.03=350*0.015+150*0.03-40*0.02

+x=(350*0.015+150*0.03-40*0.02)/0.082;//in A

+VB=500-(x+40)*0.02;//in volts

+disp(VB,"Potential at point B(in V) :");

+VC=VB-(x*0.017);//in volts

+disp(VC,"Potential at point C(in V) :");

+VD=500-(350-x)*0.015;//in volts

+disp(VD,"Potential at point D(in V) :");

+//Note : Answer of 3rd part is given wrong in the book.
\ No newline at end of file
diff --git a/1802/CH7/EX7.16/Exa7_16.sce b/1802/CH7/EX7.16/Exa7_16.sce
new file mode 100755
index 000000000..4f04181d8
--- /dev/null
+++ b/1802/CH7/EX7.16/Exa7_16.sce
@@ -0,0 +1,15 @@
+//Exa 7.16

+clc;

+clear;

+close;

+//Given data : 

+format('v',5);

+//Applying KVL in loop AFEDA: (0.016*x)+0.09*(x-30)+0.14*(x-17)-0.1*y=0

+//Applying KVL in loop ADCBA: 0.1*y-0.12*(95-x-y)-.01*(145-x-y)-0.008*(165-x-y)=0

+//Equating two equtions we get

+//3.9*x-125=97.75-0.75*x

+x=(97.75+125)/(3.9+0.75);//in A

+y=97.75-0.75*x;//in A

+disp(x,"x(in A)=");

+disp(y,"y(in A)=");

+disp("Thus the point of minimum ppotential is E.");
\ No newline at end of file
diff --git a/1802/CH7/EX7.17/Exa7_17.sce b/1802/CH7/EX7.17/Exa7_17.sce
new file mode 100755
index 000000000..2c79823ad
--- /dev/null
+++ b/1802/CH7/EX7.17/Exa7_17.sce
@@ -0,0 +1,15 @@
+//Exa 7.17

+clc;

+clear;

+close;

+//Given data : 

+format('v',7);

+V=200;//in volt

+I=1;//in A/m

+R=2*0.05/1000;//in ohm/m

+l=1*1000;//in meter

+IT=I*l;//in Ampere

+RT=R*l;//in ohm

+VD=IT*RT/8;//in volt

+Vmin=V-VD;//in volt

+disp(Vmin,"Minimum potential occurs at the mid point & is(in V) : ");
\ No newline at end of file
diff --git a/1802/CH7/EX7.18/Exa7_18.sce b/1802/CH7/EX7.18/Exa7_18.sce
new file mode 100755
index 000000000..5dbd30fbc
--- /dev/null
+++ b/1802/CH7/EX7.18/Exa7_18.sce
@@ -0,0 +1,17 @@
+//Exa 7.18

+clc;

+clear;

+close;

+//Given data : 

+format('v',7);

+VB=400;//in volt

+ZAC=0.04+%i*0.08;//in ohm

+ZCB=0.08+%i*0.12;//in ohm

+I1=60*(0.8-%i*0.6);

+I2=120*(0.8-%i*0.6);

+VCB=I2*ZCB;//in Volt

+VAC=(I1+I2)*ZAC;//in volt

+VC=VB+I2*ZCB;//in Volt

+disp(VC,"Voltage at C(in Volt) :");

+VA=VC+(I1+I2)*ZAC;//in volt

+disp(VA,"Voltage at A(in Volt) :");
\ No newline at end of file
diff --git a/1802/CH7/EX7.2/Exa7_2.sce b/1802/CH7/EX7.2/Exa7_2.sce
new file mode 100755
index 000000000..6c5303f6e
--- /dev/null
+++ b/1802/CH7/EX7.2/Exa7_2.sce
@@ -0,0 +1,24 @@
+//Exa 7.2

+clc;

+clear;

+close;

+//Given data : 

+format('v',6);

+l=500;//in meter

+i=1;//in Ampere/meter

+IL1=200; IL2=150; IL3=50; IL4=100;//in Ampere

+l1=100; l2=200; l3=300; l4=400;//in meter

+r=0.1;//in ohm/km

+Vd=250;//in volt

+//Drop_AC=100*(r/10^3)*(I-i*l1/2);

+//Drop_CD=I;

+//Drop_DE=100*r*(I-550)-I*100/2;

+//Drop_EF=100*r*(I-700-I*100/2);

+//Drop_FB=100*r*(I-900-I*100/2);

+//VD_tot=0.05*I-27;//in volts

+disp("As the both ends are fed with same voltage, VD should be equal to zero.");

+I=27/0.05;//in Ampere

+disp(I,"Curent(in Ampere) :");

+Drop_AD=(0.01*I-0.5)+(0.01*I-3.5);

+disp(Vd-Drop_AD,"Value at minimum potential at D(in V) :");

+//Note : Ans in the book is wrong as 27/0.05 gives 540 instead of 54.
\ No newline at end of file
diff --git a/1802/CH7/EX7.3/Exa7_3.sce b/1802/CH7/EX7.3/Exa7_3.sce
new file mode 100755
index 000000000..9ff1e4676
--- /dev/null
+++ b/1802/CH7/EX7.3/Exa7_3.sce
@@ -0,0 +1,28 @@
+//Exa 7.3

+clc;

+clear;

+close;

+//Given data : 

+format('v',6);

+l=250;//in meter

+VA=230;//in volt

+VB=232;//in volt

+r=0.5;//in ohm/km

+r=0.5/10^3;//in ohm/m

+RAC=r*50*2;//in ohm

+RCD=RAC;RDE=RAC;REF=RAC;RFB=RAC;//in ohm

+//VA-VB=VAC+VCD+VDE+VEF+VFB;//in volt

+Ia=(VA-VB+15)/(5*RAC);//in Ampere

+IAC=Ia;ICD=IAC-20;IDE=IAC-60;IED=-IDE;IEF=IAC-100;IFE=-IEF;IFB=IAC-120;IBF=-IFB;//in Ampere

+disp(IAC,"IAC(in A):");

+disp(ICD,"ICD(in A):");

+disp(IDE,"IDE(in A):");

+disp(IED,"IED(in A):");

+disp(IEF,"IEF(in A):");

+disp(IFE,"IFE(in A):");

+disp(IFB,"IFB(in A):");

+disp(IBF,"IBF(in A):");

+VAC=IAC*RAC;//in volt

+VCD=ICD*RCD;//in volt

+VD=VA-VAC-VCD;//in volt

+disp(VD,"The minimum potential(in Volt) :");
\ No newline at end of file
diff --git a/1802/CH7/EX7.4/Exa7_4.sce b/1802/CH7/EX7.4/Exa7_4.sce
new file mode 100755
index 000000000..e9958c0a9
--- /dev/null
+++ b/1802/CH7/EX7.4/Exa7_4.sce
@@ -0,0 +1,27 @@
+//Exa 7.4

+clc;

+clear;

+close;

+//Given data : 

+format('v',6);

+VA=235;//in volt

+VB=236;//in volt

+l=200;//in meter

+IL1=20; IL2=40; IL3=25; IL4=30;//in Ampere

+l1=50; l2=75; l3=100; l4=50;//in meter

+r=0.4;//in ohm/km

+r=0.4/10^3;//in ohm/m

+RAC=r*l1*2;//in ohm

+RCD=r*(l2-l1)*2*RAC;RDE=r*(l2-l1)*2*RAC;REF=r*l1*2*RAC;RFB=r*l1*2*RAC;//in ohm

+//VA-VB=VAC+VCD+VDE+VEF+VFB;//in volt

+IA=(VA-VB+9.6)/(0.16);//in Ampere

+IAC=IA;ICD=IA-IL1;IDE=IA-IL1-IL2;IEF=IA-IL1-IL2-IL3;IFB=IA-IL1-IL2-IL3-IL4;//in Ampere

+disp(IAC,"IAC(in A):");

+disp(ICD,"ICD(in A):");

+disp(-IDE,"IED(in A):");

+disp(-IEF,"IFE(in A):");

+disp(-IFB,"IBF(in A):");

+VAC=IAC*RAC;//in volt

+VCD=ICD*RCD;//in volt

+VD=VA-VAC-VCD;//in volt

+disp(VD,"The minimum potential(in Volt) :");
\ No newline at end of file
diff --git a/1802/CH7/EX7.5/Exa7_5.sce b/1802/CH7/EX7.5/Exa7_5.sce
new file mode 100755
index 000000000..0234d2b16
--- /dev/null
+++ b/1802/CH7/EX7.5/Exa7_5.sce
@@ -0,0 +1,24 @@
+//Exa 7.5

+clc;

+clear;

+close;

+//Given data : 

+format('v',6);

+VA=400;//in volt

+r=0.03;//in ohm/km

+r=0.03/1000;//in ohm/m

+RAB=r*500*2;//in ohm

+RBC=r*300*2;//in ohm

+RAB=r*700*2;//in ohm

+RAB=r*500*2;//in ohm

+//VA-VB=VAC+VCD+VDE+VEF+VFB;//in volt

+IA=(17.4)/(0.09);//in Ampere

+VAB=(RAB)*IA;//in volt

+VB=VA-VAB;//in volt

+disp(VB,"Voltage at B(in volts) :");

+VBC=(RBC)*(IA-150);//in volt

+VC=VB-VBC;//in volt

+disp(VC,"Voltage at C(in volts) :");

+IBC=IA-150;//in A

+disp(IBC,"Current in section BC(in A) :");

+//Note : answer of VB is wrong in the book.
\ No newline at end of file
diff --git a/1802/CH7/EX7.6/Exa7_6.sce b/1802/CH7/EX7.6/Exa7_6.sce
new file mode 100755
index 000000000..03efc7722
--- /dev/null
+++ b/1802/CH7/EX7.6/Exa7_6.sce
@@ -0,0 +1,21 @@
+//Exa 7.6

+clc;

+clear;

+close;

+//Given data : 

+format('v',5);

+VA=240;//in volt

+MAxVDrop=VA*5/100;//in volt

+rho=2.87*10^-6;//in ohm-cm 

+//VAB+VBC+VCA=0;//in volt

+IA=(3200)/(26);//in Ampere

+IAB=IA;//in Ampere

+IBC=IA-100;//in Ampere

+//Allowed voltage drop: IAB*RAB+IBC*RBC=12

+R=12/(1015.26);//in ohm

+RAB=R*300*2/100;//in ohm

+RBC=R*600*2/100;//in ohm

+RCA=R*400*2/100;//in ohm

+//formula : R=rho*l/a

+a=rho*(100*100)/R;//in cm^2

+disp(a,"Cross section area(in cm^2) :");
\ No newline at end of file
diff --git a/1802/CH7/EX7.7/Exa7_7.sce b/1802/CH7/EX7.7/Exa7_7.sce
new file mode 100755
index 000000000..d1d9f3b38
--- /dev/null
+++ b/1802/CH7/EX7.7/Exa7_7.sce
@@ -0,0 +1,18 @@
+//Exa 7.7

+clc;

+clear;

+close;

+//Given data : 

+format('v',6);

+R=0.2;//in ohm/km

+X=0.1;//in ohm/km

+ZAM=((R+%i*X)/1000)*200;//in ohm

+ZMB=((R+%i*X)/1000)*100;//in ohm

+I1=100*(0.707-0.707*%i);//in A

+I2=200*(0.8-0.6*%i);//in A

+IAM=I1+I2;//in Ampere

+VAM=ZAM*IAM;//in volts

+VMB=ZMB*I2;//in volts

+VAB=VAM+VMB;//in volts

+magVAB=sqrt(real(VAB)^2+imag(VAB)^2);

+disp(magVAB,"Total voltage drop(in volts) :");
\ No newline at end of file
diff --git a/1802/CH7/EX7.8/Exa7_8.sce b/1802/CH7/EX7.8/Exa7_8.sce
new file mode 100755
index 000000000..068af063b
--- /dev/null
+++ b/1802/CH7/EX7.8/Exa7_8.sce
@@ -0,0 +1,29 @@
+//Exa 7.8

+clc;

+clear;

+close;

+//Given data : 

+format('v',6);

+VB=200;//in volts

+R=0.2;//in ohm/km

+X=0.3;//in ohm/km

+I=100;//in Ampere

+ZAB=(R+%i*X);//in ohm

+ZMB=ZAB/2;//in ohm

+ZAM=ZMB;//in ohm

+cosfi_1=0.6;//unitless

+cosfi_2=0.8;//unitless

+IMB=I*(cosfi_2-%i*cosfi_1);//in A

+I2=IMB;//in Ampere

+VMB=IMB*ZMB;//in volts

+VM=VB+VMB;//in volts

+disp(VM,"Voltage at M(in volt)");

+fi=atand(imag(VM)/real(VM));//in degree

+fi_1=acosd(cosfi_1);//in degree

+fi_VBandI1=fi_1-fi;//in degree

+I1=I*(cosd(fi_VBandI1)-%i*sind(fi_VBandI1));//in Ampere

+IAM=I1+I2;//inA Ampere

+VAM=ZAM*IAM;//in volts

+VA=VM+VAM;//in volts

+magVA=sqrt(real(VA)^2+imag(VA)^2);

+disp(magVA,"Voltage at A, standing end voltage(in volts) :");
\ No newline at end of file
diff --git a/1802/CH7/EX7.9/Exa7_9.sce b/1802/CH7/EX7.9/Exa7_9.sce
new file mode 100755
index 000000000..c4305f394
--- /dev/null
+++ b/1802/CH7/EX7.9/Exa7_9.sce
@@ -0,0 +1,16 @@
+//Exa 7.9

+clc;

+clear;

+close;

+//Given data : 

+format('v',7);

+l=500;//in meter

+VA=200;//in volt

+MAxVDrop=6;//in % of declared voltage 

+rho=0.014;//in ohm/m 

+//VD in the distributor=53*10^3*r

+AllowedVD=VA*(6/100);//in volts

+r=AllowedVD*10^6/(53*10^3);//in ohm/meter

+//formula : R=rho*l/a

+a=rho*(2*l)/r;//in m^2

+disp(a,"Cross section area(in m^2) :");
\ No newline at end of file