initial commit / add all books

16 files changed, 350 insertions, 0 deletions

diff --git a/1523/CH6/EX6.10/ex6_10.sce b/1523/CH6/EX6.10/ex6_10.sce
new file mode 100755
index 000000000..01015e15d
--- /dev/null
+++ b/1523/CH6/EX6.10/ex6_10.sce
@@ -0,0 +1,22 @@
+// Three-Phase Circuits :example 6.10 :(pg 6.16)

+P=1500*10^3;

+pf=0.85;

+VL=2.2*10^3;

+phi=acosd(pf);

+IL=P/(sqrt(3)*VL*pf);

+Iph=IL/sqrt(3);

+AC=Iph*pf;

+RC=Iph*sind(phi);

+IAC=IL*pf;

+IRC=IL*sind(phi);

+printf("\nP=1500kW \npf=0.85 (lagging) \nVL=2.2kV");

+//For Delta-connected load

+printf("\nP=sqrt(3)*VL*IL*cos(phi) \nIL=%.2f A",IL);

+printf("\nIph=IL/sqrt(3)= %.2f A",Iph);

+//AC=Active Component

+printf("\nAC=Iph*cos(phi) =%.2f A",AC); //in each phase of load

+//RC=Reactive Component

+printf("\nRC=Iph*sin(phi) =%.2f A",RC); //in each phase of load

+//For star-connected source

+printf("\nIAC =%.2f A",IAC); // current of AC in each phase of source

+printf("\nIRC =%.2f A",IRC); // current of RC in each phase of source
\ No newline at end of file
diff --git a/1523/CH6/EX6.11/ex6_11.sce b/1523/CH6/EX6.11/ex6_11.sce
new file mode 100755
index 000000000..c89d33095
--- /dev/null
+++ b/1523/CH6/EX6.11/ex6_11.sce
@@ -0,0 +1,20 @@
+// Three-Phase Circuits :example 6.11 :(pg 6.16)

+VL=208;

+P=1800;

+IL=10;

+Vph=VL/sqrt(3);

+Zph=(Vph/IL);

+pf=P/(sqrt(3)*VL*IL);

+phi=acosd(pf);

+Rph=Zph*pf;

+Xph=Zph*sind(phi);

+printf("\nVL=208 V \nP=1800 W \nIL= 10 A");

+//For a Wye-connected load,

+printf("\nVph = VL/sqrt(3) =%.2f V",Vph);

+printf("\nIph = IL =%.f A",IL);

+printf("\nZph=Vph/Iph =%.2f Ohm",Zph);

+printf("\nP=sqrt(3)*VL*IL*cos(phi)");

+printf("\ncos(phi)=%.1f degrees",pf);

+printf("\nphi=%.f degrees",phi);

+printf("\nRph=Zph*cos(phi) =%.2f Ohm",Rph);

+printf("\nXph=Zph*sin(phi) =%.2f Ohm",Xph);
\ No newline at end of file
diff --git a/1523/CH6/EX6.12/ex6_12.sce b/1523/CH6/EX6.12/ex6_12.sce
new file mode 100755
index 000000000..33e0bbfb2
--- /dev/null
+++ b/1523/CH6/EX6.12/ex6_12.sce
@@ -0,0 +1,27 @@
+// Three-Phase Circuits :example 6.12 :(pg 6.17)

+P=100*10^3;

+IL=80;

+VL=1100;

+f=50;

+Vph=(VL/sqrt(3));

+Iph=IL;

+Zph=(Vph/Iph);

+pf=(P/(sqrt(3)*VL*IL));

+phi=acosd(pf);

+Rph=Zph*pf;

+Xph=Zph*sind(phi);

+C=(1/(2*%pi*f*Xph));

+printf("\nP=100kW \nIL=80 A \nVL=1100 V \nf=50 Hz");

+//For a star-connected load

+printf("\nVph =V/sqrt(3) =%.2f",Vph);

+printf("\nIph=IL =%.f A",Iph);

+printf("\nZph=(Vph/Iph)= %.2f Ohm",Zph);

+printf("\nP=sqrt(3)*VL*IL*cos(phi)");

+printf("\ncos(phi)=%.3f (leading)",pf);

+printf("\nphi=%.f degrees",phi);

+printf("\nRph=Zph*cos(phi) =%.2f Ohm",Rph);

+printf("\nXph =Zph*sin(phi) =%.f Ohm",Xph);

+// as current is leading,reactance will be capacitive in nature

+printf("\nXC=(1/2*pi*C)");

+printf("\nC=%.e F",C);

+

diff --git a/1523/CH6/EX6.13/ex6_13.sce b/1523/CH6/EX6.13/ex6_13.sce
new file mode 100755
index 000000000..d93661ae1
--- /dev/null
+++ b/1523/CH6/EX6.13/ex6_13.sce
@@ -0,0 +1,19 @@
+// Three-Phase Circuits :example 6.13 :(pg 6.17 & 6.18)

+VL=400;

+IL=34.65;

+P=14.4*10^3;

+Iph=(IL/sqrt(3));

+Zph=(VL/Iph);

+pf=(P/(sqrt(3)*VL*IL));

+phi=acosd(pf);

+Rph=(Zph*pf);

+Xph=(Zph*sind(phi));

+printf("\nVL=400 V \nIL=34.65 A \nP=14.4kW");

+//For a Delta-connected load

+printf("\nVL=Vph=%.f V",VL);

+printf("\nIph=IL/sqrt(3)=%.f A",Iph);

+printf("\nZph=Vph/Iph =%.f Ohm",Zph);

+printf("\ncos(phi)=P/sqrt(3).VL.IL =%.1f",pf);

+printf("\nphi=%.2f degrees",phi);

+printf("\nRph=Zph.cos(phi) =%.f Ohm",Rph);

+printf("\nXph=Zph.sin(phi)=%.f Ohm",Xph);

diff --git a/1523/CH6/EX6.14/ex6_14.sce b/1523/CH6/EX6.14/ex6_14.sce
new file mode 100755
index 000000000..a010a787c
--- /dev/null
+++ b/1523/CH6/EX6.14/ex6_14.sce
@@ -0,0 +1,20 @@
+// Three-Phase Circuits :example 6.14 :(pg 6.18)

+P=10.44*10^3;

+VL=200;

+pf=0.5;

+x=acosd(pf);

+IL=(P/(sqrt(3)*VL*pf));

+Iph=(IL/sqrt(3));

+Zph=(VL/Iph);

+Rph=(Zph*pf);

+Xph=(Zph*sind(x));

+Q=(sqrt(3)*VL*IL*sind(x));

+printf("\nP=10.44kW \nVL=200 V \npf=0.5(leading)");

+// For a delta-connected load,

+printf("\nVL=Vph=%.f V",VL);

+printf("\nP=qrt(3)*VL*IL*cos(phi) \nIL=%.2f A",IL);

+printf("\nIph=IL/sqrt(3) =%.1f A",Iph);

+printf("\nZph=Vph/Iph =%.2f Ohm",Zph);

+printf("\nRph =Zph.cos(phi)=%.3f Ohm",Rph);

+printf("\nXph=Zph.sin(phi)=%.2f Ohm",Xph);

+printf("\nQ=sqrt(3)*VL*IL*sin(phi) = %.2f VAR",Q);
\ No newline at end of file
diff --git a/1523/CH6/EX6.17/ex6_17.sce b/1523/CH6/EX6.17/ex6_17.sce
new file mode 100755
index 000000000..bdaa7e26f
--- /dev/null
+++ b/1523/CH6/EX6.17/ex6_17.sce
@@ -0,0 +1,20 @@
+// Three-Phase Circuits :example 6.17 :(pg 6.20)

+Po=200*10^3;

+f=50;

+VL=440;

+N=0.91;

+pf=0.86;

+phi=acosd(pf);

+Pi=(Po/N);

+IL=(Pi/(sqrt(3)*VL*pf));

+Iph=(IL/sqrt(3));

+AC=(Iph*pf);

+RC=(Iph*sind(phi));

+printf("\nPo=200 kW \nf=50Hz \nVL= 440 V \nN=0.91 \npf=0.86");

+//For a delta connected load (induction motor)

+printf("\nVph =VL =%.f V",VL);

+printf("\nN=(Po/Pi)");//efficiency

+printf("\nPi=%.f W",Pi);//Input power

+printf("\nPi=sqrt(3)*VL*IL*cos(phi) \nIL=%.1f A",IL);

+printf("\nAC = (Iph*cos(phi))=%.1f A",AC);//Active component of phase current

+printf("\nRC=(Iph*sin(phi)) =%.1f A",RC);//Reactive component of phase current
\ No newline at end of file
diff --git a/1523/CH6/EX6.18/ex6_18.sce b/1523/CH6/EX6.18/ex6_18.sce
new file mode 100755
index 000000000..d9b581141
--- /dev/null
+++ b/1523/CH6/EX6.18/ex6_18.sce
@@ -0,0 +1,26 @@
+// Three-Phase Circuits :example 6.18 :(pg 6.20)

+VL=400;

+Po=112*10^3;

+pf=0.86;

+phi=(acosd(pf));

+N=0.88; //Efficiency

+Pi=(Po/N);

+IL=(Pi/(sqrt(3)*VL*pf));

+Iph=(IL/sqrt(3));

+AC=(Iph*pf);

+RC=(Iph*sind(phi));

+Aac=(IL*pf);

+Arc=(IL*sind(phi));

+printf("\nVL=400 V \nPo=112kW \npf=0.86 \nN=0.88");

+//For a mesh-connected load (induction motor)

+printf("\nVph=VL=%.f V",VL);

+printf("\nN=Po/Pi  \nPi=%.2f W",Pi);//Input power

+printf("\nPi=sqrt(3)*VL*IL*cos(phi) \nIL=%.1f A",IL);

+printf("\nIph=IL/sqrt(3) =%.2f A",Iph);

+//current in star-connected load=line current drawn by motor

+printf("\nIA=%.1f A",IL);//current in alternate phase

+printf("\nAC=Iph*cos(phi) =%.2f A",AC);//active component in each phase of motor

+printf("\nRC=Iph*sin(phi) =%.2f A",RC);//Reactive component in each phase of motor

+printf("\nAac=%.1f A",Aac);//active component in each alternate phase

+printf("\nArc=%.2f A",Arc);//reactive component in each alternate phase

+

diff --git a/1523/CH6/EX6.19/ex6_19.sce b/1523/CH6/EX6.19/ex6_19.sce
new file mode 100755
index 000000000..db1489ef9
--- /dev/null
+++ b/1523/CH6/EX6.19/ex6_19.sce
@@ -0,0 +1,30 @@
+// Three-Phase Circuits :example 6.19 :(pg 6.21 & 6.22)

+VL=400;

+IL=5;

+Vph=(VL/sqrt(3));

+Zph=(Vph/IL);

+Iph=(IL/sqrt(3));

+Vph1=(Iph*Zph);

+printf("\nVl=400 V \nIL=5 A");

+//For a star-connected load

+printf("\nVph=VL/sqrt(3) =%.2f V",Vph);

+printf("\nIph=IL=%.f A",IL);

+printf("\nZph=Rph=Vph/Iph =%.2f Ohm",Zph);

+//For a delta connected load

+printf("\nIL=5 A \nRph=%.2f Ohm",Zph);

+printf("\nIph=IL/sqrt(3)=%.2f A",Iph);

+printf("\nVph=Iph*Rph \n=%.2f V",Vph1);

+//Voltage needed is 1/3 of the star value

+

+

+

+

+

+

+

+

+

+

+

+

+

diff --git a/1523/CH6/EX6.20/ex6_20.sce b/1523/CH6/EX6.20/ex6_20.sce
new file mode 100755
index 000000000..e98ae7dbf
--- /dev/null
+++ b/1523/CH6/EX6.20/ex6_20.sce
@@ -0,0 +1,32 @@
+// Three-Phase Circuits :example 6.20 :(pg 6.22 & 6.23)

+VL=400;

+Zph=100;

+Vph=(VL/sqrt(3));

+Iph=(Vph/Zph);

+pf=1;

+P=(sqrt(3)*VL*Iph*pf);

+Iph1=(VL/Zph);

+IL1=(sqrt(3)*Iph1);

+P1=(sqrt(3)*VL*IL1*pf);

+I1=(VL/200);

+Pa=(VL*I1);

+I2=(VL/100);

+Pb=(VL*I1*I2);

+printf("\nVL=400 V \nZph = 100 Ohm");

+//For a star connected load

+printf("\nVph=VL/sqrt(3) =%.2f V",Vph);

+printf("\nIph = VL/Zph =%.2f A",Iph);

+printf("\nIL=Iph =%.2f A",Iph);

+printf("\ncos(phi)=1 \nP=sqrt(3).VL.IL.cos(phi) =%.2f W",P);

+//For a delta connected load

+printf("\nVph=VL=%.f V",VL);

+printf("\nIph=Vph/Zph =%.f A",Iph1);

+printf("\nIL=sqrt(3)*Iph =%.2f A",IL1);

+printf("\nP=sqrt(3)*VL*IL*cos(phi) =%.2f W",P1);

+//When resistors are open circuited

+//(i)Star connection

+printf("\nI= %.f A",I1);//Current in lines

+printf("\nP=%.f W",Pa);//Power taken from mains

+//(ii)Delta connection

+printf("\nI=%.f A",I2);//Current in each phase

+printf("\nP=%.f W",Pb);//Power taken from mains
\ No newline at end of file
diff --git a/1523/CH6/EX6.27/ex6_27.sce b/1523/CH6/EX6.27/ex6_27.sce
new file mode 100755
index 000000000..ec5b6f116
--- /dev/null
+++ b/1523/CH6/EX6.27/ex6_27.sce
@@ -0,0 +1,21 @@
+// Three-Phase Circuits :example 6.27 :(pg 6.30 & 6.31)

+W1=2000;

+W2=500;

+W3=-500;

+x=(sqrt(3)*((W1-W2)/(W1+W2)));

+phi=atand(x);

+pf=cosd(phi);

+y=(sqrt(3)*((W1-W3)/(W1+W3)));

+phi1=atand(y);

+pf1=cosd(phi1);

+printf("\nW1 = 2000W \nW2 = 500 W");

+//(i) When both readings are same

+printf("\nWhen W1 &W2 are same \nW1 = 2000W \nW2 = 500 W");

+printf("\ntan(phi)= sqrt(3).(W1-W2/W1+W2) =%.3f ",x);

+printf("\nphi=%.3f degrees",phi);

+printf("\npf=cos(phi)=%.3f ",pf);//Power factor

+//(ii) When the latter reading is obtained after reversing the connection to the current coil of 1 instrument

+printf("\nWhen W2 is reversed \nW1= 2000 W \nW2= -500 W");

+printf("\ntan(phi)= sqrt(3).(W1-W2/W1+W2) =%.3f ",y);

+printf("\nphi=%.2f degrees",phi1);

+printf("\npf=cos(phi)=%.2f ",pf1);//Power factor
\ No newline at end of file
diff --git a/1523/CH6/EX6.28/ex6_28.sce b/1523/CH6/EX6.28/ex6_28.sce
new file mode 100755
index 000000000..2e70ac0b6
--- /dev/null
+++ b/1523/CH6/EX6.28/ex6_28.sce
@@ -0,0 +1,14 @@
+// Three-Phase Circuits :example 6.28 :(pg 6.31)

+W1=5*10^3;

+W2=-(0.5*10^3);

+P=(W1+W2);

+x=(sqrt(3)*((W1-W2)/(W1+W2)));

+phi=atand(x);

+pf=cosd(phi);

+printf("\nW1=5kW \W2=0.5kW");

+// When the latter readings are obtained after the reversal of the current coil terminals of the wattmeter

+printf("\nWhen W2 is reversed \nW1=5kW \nW2=-0.5kW");

+printf("\nP=W1+W2 = %.1f W",P);//Power

+printf("\ntan(phi)=sqrt(3)*(W1-W2/W1+W2) =%.2f",x);

+printf("\nphi= %.2f degrees ",phi);

+printf("\npf=cos(phi) =%.2f",pf);//Power factor

diff --git a/1523/CH6/EX6.29/ex6_29.sce b/1523/CH6/EX6.29/ex6_29.sce
new file mode 100755
index 000000000..1faeb1481
--- /dev/null
+++ b/1523/CH6/EX6.29/ex6_29.sce
@@ -0,0 +1,17 @@
+// Three-Phase Circuits :example 6.29 :(pg 6.31)

+S=10*10^3;

+pf=0.342;

+x=(S/sqrt(3));

+phi=acosd(pf);

+W1=x*cosd(30+phi);

+W2=x*cosd(30-phi);

+printf("\nS=10kVA \npf=0.342 \nS=sqrt(3)*VL*IL");

+printf("\nVL*IL=%.f VA",x);

+printf("\ncos(phi)=%.3f",pf);

+printf("\nphi=%.f degrees",phi);

+//(i)when power factor is leading

+printf("\npf leading \nW1=VL.IL.cos(30+phi)= %.f W",W1);

+printf("\n \nW2=VL.IL.cos(30-phi)= %.f W",W2);

+//(i)when power factor is lagging

+printf("\npf lagging \nW1=VL.IL.cos(30-phi)= %.f W",W2);

+printf("\n \nW2=VL.IL.cos(30+phi)= %.f W",W1);
\ No newline at end of file
diff --git a/1523/CH6/EX6.30/ex6_30.sce b/1523/CH6/EX6.30/ex6_30.sce
new file mode 100755
index 000000000..6c711a675
--- /dev/null
+++ b/1523/CH6/EX6.30/ex6_30.sce
@@ -0,0 +1,16 @@
+// Three-Phase Circuits :example 6.30 :(pg 6.31 & 6.32)

+VL=2000;

+N=0.9;//efficiency

+W1=300*10^3;

+W2=100*10^3;

+P=W1+W2;

+x=(sqrt(3)*((W1-W2)/(W1+W2)));

+phi=atand(x);

+pf=cosd(phi);

+IL=(P/(sqrt(3)*VL*pf));

+printf("\nVL=2000 V \nN=0.9 \nW1=300kW \nW2=100kW");

+printf("\nP=W1+W2 =%.f W",P);//Input Power

+printf("\ntan(phi)=(sqrt(3)*(W1-W2/W1+W2)) =%.3f",x);

+printf("\nphi=%.2f degrees ",phi);

+printf("\ncos(phi)=%.2f",pf);//Power factor

+printf("\nP=sqrt(3)*VL*IL*cos(phi) \nIL=%.2f A",IL);

diff --git a/1523/CH6/EX6.31/ex6_31.sce b/1523/CH6/EX6.31/ex6_31.sce
new file mode 100755
index 000000000..b4a80b0b6
--- /dev/null
+++ b/1523/CH6/EX6.31/ex6_31.sce
@@ -0,0 +1,15 @@
+// Three-Phase Circuits :example 6.31 :(pg 6.32)

+VL=220;

+Po=11.2*10^3;

+N=0.88;//efficiency

+IL=38;

+Pi=(Po/N);

+x=(Pi/(sqrt(3)*VL*IL));

+phi=acosd(x);

+W1=(VL*IL*cosd(30-phi));

+W2=(VL*IL*cosd(30+phi));

+printf("\nVL=220 V \nPo=11.2kW \nN=0.88 \nIL=38A \N=(Po/Pi)= %.2f W",Pi);

+printf("\nPi=sqrt(3)*VL*IL*cos(phi) \ncos(phi)=%.2f lagging",x);

+printf("\nphi=%.2f degrees",phi);

+printf("\nW1 =VL*IL*cos(30-phi) =%.2f W",W1);

+printf("\nW2 =VL*IL*cos(30+phi) =%.2f W",W2);
\ No newline at end of file
diff --git a/1523/CH6/EX6.8/ex6_8.sce b/1523/CH6/EX6.8/ex6_8.sce
new file mode 100755
index 000000000..d89df955b
--- /dev/null
+++ b/1523/CH6/EX6.8/ex6_8.sce
@@ -0,0 +1,13 @@
+// Three-Phase Circuits :example 6.8 :(pg 6.14)

+VL=440;

+P=50*10^3;

+IL=90;

+Iph=IL/sqrt(3);

+pf=(P/(sqrt(3)*VL*IL));

+S=sqrt(3)*VL*IL;

+printf("\nVL=440 V \nP=50kW \nIL=90 A");

+printf("\nVL=Vph=%.f V",VL);//For delta-connected load

+printf("\nIph=IL/sqrt(3)=%.2f A",Iph);

+printf("\nP=sqrt(3)*VL*IL*cos(phi)");

+printf("\ncos(phi)=%.2f (lagging)",pf);

+printf("\nS=sqrt(3)*VL*IL =%.2f VA",S);
\ No newline at end of file
diff --git a/1523/CH6/EX6.9/ex6_9.sce b/1523/CH6/EX6.9/ex6_9.sce
new file mode 100755
index 000000000..6356bf859
--- /dev/null
+++ b/1523/CH6/EX6.9/ex6_9.sce
@@ -0,0 +1,38 @@
+// Three-Phase Circuits :example 6.9 :(pg 6.15)

+IL=15;

+P=11*10^3;

+S=15*10^3;

+VL=S/(sqrt(3)*IL);

+Vph=VL/sqrt(3);

+x=P/S;

+phi=acosd(P/S);

+Q=sqrt(3)*VL*IL*sind(phi);

+Iph=IL;

+Zph=Vph/Iph;

+R=Zph*cosd(phi);

+XL=Zph*sind(phi);

+Vph1=VL;

+Iph1=(Vph1/Zph);

+IL1=sqrt(3)*Iph1;

+P1=sqrt(3)*VL*IL1*cosd(phi);

+Q1=sqrt(3)*VL*IL1*sind(phi);

+printf("\nIL=15 A \nP=11kW \nS=15kVA ");

+//For a star-connected load

+printf("\nS=sqrt(3)*VL*IL \nVL=%.2f V",Vph);

+printf("\ncos(phi)=P/S =%.3f",x);

+printf("\nphi=%.2f degrees",phi); 

+printf("\nQ=sqrt(3).VL.IL.sin(phi) = %.1f VAR",Q);

+printf("\nIph=IL = %.f A",IL);

+printf("\nZph=Vph/Iph = %.2f Ohm",Zph);

+printf("\nR= Zph*cos(phi) =%.2f Ohm",R);

+printf("\nXL=Zph*sin(phi)= %.2f Ohm",XL);

+//If these coils are connected in Delta 

+printf("\nCph =VL =%.2f V",VL);

+printf("\nZph= %.2f Ohm",Zph);

+printf("\nIph=Vph/Zph =%.2f A ",Iph1);

+printf("\nIL=sqrt(3)*Iph =%.f A",IL1);

+printf("\nP=sqrt(3)*VL*IL*cos(phi) =%.2f W",P1);

+printf("\nQ=sqrt(3)*VL*IL*sin(phi) =%.2f VAR",Q1);

+

+

+