summaryrefslogtreecommitdiff
path: root/3673/CH6
diff options
context:
space:
mode:
Diffstat (limited to '3673/CH6')
-rw-r--r--3673/CH6/EX6.1/Ex6_1.sce8
-rw-r--r--3673/CH6/EX6.2/Ex6_2.sce6
-rw-r--r--3673/CH6/EX6.3/Ex6_3.sce13
-rw-r--r--3673/CH6/EX6.a.1/Example_a_6_1.sce16
-rw-r--r--3673/CH6/EX6.a.10/Example_a_6_10.sce16
-rw-r--r--3673/CH6/EX6.a.11/Example_a_6_11.sce12
-rw-r--r--3673/CH6/EX6.a.12/Example_a_6_12.sce6
-rw-r--r--3673/CH6/EX6.a.13/Example_a_6_13.sce16
-rw-r--r--3673/CH6/EX6.a.14/Example_a_6_14.sce9
-rw-r--r--3673/CH6/EX6.a.2/Example_a_6_2.sce24
-rw-r--r--3673/CH6/EX6.a.3/Example_a_6_3.sce16
-rw-r--r--3673/CH6/EX6.a.4/Example_a_6_4.sce22
-rw-r--r--3673/CH6/EX6.a.5/Example_a_6_5.sce29
-rw-r--r--3673/CH6/EX6.a.6/Example_a_6_6.sce17
-rw-r--r--3673/CH6/EX6.a.7/Example_a_6_7.sce31
-rw-r--r--3673/CH6/EX6.a.8/Example_a_6_8.sce35
-rw-r--r--3673/CH6/EX6.a.9/Example_a_6_9.sce12
17 files changed, 288 insertions, 0 deletions
diff --git a/3673/CH6/EX6.1/Ex6_1.sce b/3673/CH6/EX6.1/Ex6_1.sce
new file mode 100644
index 000000000..4f075c730
--- /dev/null
+++ b/3673/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,8 @@
+//Example 6_1 page no:229
+clc
+phase_angle=30//phase angle in degree
+Vm=100//maximum voltage
+Veff=100/sqrt(2)
+Ieff=15/sqrt(2)
+Pav=Veff*Ieff*cosd(phase_angle)
+disp(Pav,"Average Power is(in watts)")
diff --git a/3673/CH6/EX6.2/Ex6_2.sce b/3673/CH6/EX6.2/Ex6_2.sce
new file mode 100644
index 000000000..141706569
--- /dev/null
+++ b/3673/CH6/EX6.2/Ex6_2.sce
@@ -0,0 +1,6 @@
+//Example 6_2 page no:230
+clc
+Z=5+(%i*8)
+Im=5//maximum current
+Pav=Im^2*real(Z)/2
+disp(Pav,"Average power is (in watts)")
diff --git a/3673/CH6/EX6.3/Ex6_3.sce b/3673/CH6/EX6.3/Ex6_3.sce
new file mode 100644
index 000000000..40b9a3bc7
--- /dev/null
+++ b/3673/CH6/EX6.3/Ex6_3.sce
@@ -0,0 +1,13 @@
+//Example 6_3 page no:231
+clc
+theta=53
+Vm=50//peak voltage
+Im=25//peak current
+Veff=Vm/sqrt(2)
+Ieff=Im/sqrt(2)
+Papp=Veff*Ieff
+disp(Papp,"Apparent Power is (in VA)")
+disp(cosd(theta),"Power Factor is")
+Pav=Veff*Ieff*cosd(theta)
+disp(Pav,"Average Power is (in watts)")
+//value of power factor is rounded off in text book so value vary slightly
diff --git a/3673/CH6/EX6.a.1/Example_a_6_1.sce b/3673/CH6/EX6.a.1/Example_a_6_1.sce
new file mode 100644
index 000000000..cdbcc450b
--- /dev/null
+++ b/3673/CH6/EX6.a.1/Example_a_6_1.sce
@@ -0,0 +1,16 @@
+//Example_a_6_1 page no:233
+clc;
+Vmag=250;
+Vang=100;
+Imag=15;
+Iang=30;
+theta=100-30;
+pf=cosd(theta);
+active_power=(Vmag/sqrt(2))*(Imag/sqrt(2))*pf;
+reactive_power=(Vmag/sqrt(2))*(Imag/sqrt(2))*sind(theta);
+apparent_power=(Vmag/sqrt(2))*(Imag/sqrt(2));
+disp(pf,"the power factor is ");
+disp(active_power,"the active power is (in W)");
+disp(reactive_power,"the reactive power is (in VAR)");
+disp(apparent_power,"the apparent power is (in VA)");
+//in text book reactive power calculation is wrong i.e 1761.9 is correct
diff --git a/3673/CH6/EX6.a.10/Example_a_6_10.sce b/3673/CH6/EX6.a.10/Example_a_6_10.sce
new file mode 100644
index 000000000..943c7bcf5
--- /dev/null
+++ b/3673/CH6/EX6.a.10/Example_a_6_10.sce
@@ -0,0 +1,16 @@
+//Example_a_6_10 page no:240
+clc;
+V=70.7;
+I=600/(100*cosd(45));
+X1mag=V/I;
+X1ang=90-0;
+disp(X1mag,"the magnitude of inductance is (in ohm)");
+disp(X1ang,"the angle of inductance is (in degree)");
+Ir1=I/2;
+disp(Ir1,"the current through parallel branch R1 is (in A)");
+R1=V/Ir1;
+disp(R1,"the resistance R1 is (in ohm)");
+Ir2=I/2;
+disp(Ir2,"the current through parallel branch R2 is (in A)");
+R2=V/Ir2;
+disp(R2,"the resistance R2 is (in ohm)");
diff --git a/3673/CH6/EX6.a.11/Example_a_6_11.sce b/3673/CH6/EX6.a.11/Example_a_6_11.sce
new file mode 100644
index 000000000..05e5c863b
--- /dev/null
+++ b/3673/CH6/EX6.a.11/Example_a_6_11.sce
@@ -0,0 +1,12 @@
+//Example_a_6_11 page no:241
+clc;
+Vmag=500;
+Vang=0;
+Imag=21.73;
+Iang=0;
+P=Vmag*Imag/2;
+P=P/1000;//converting to killo watt
+disp(P,"the power delivered by 500 volt source is (in kW)");
+P1=(3*4*Imag*Imag)/2;
+P1=P1/1000;//converting to killo watt
+disp(P1,"the power delivered by dependent voltage source is (in kW)");
diff --git a/3673/CH6/EX6.a.12/Example_a_6_12.sce b/3673/CH6/EX6.a.12/Example_a_6_12.sce
new file mode 100644
index 000000000..84e8a00ff
--- /dev/null
+++ b/3673/CH6/EX6.a.12/Example_a_6_12.sce
@@ -0,0 +1,6 @@
+//Example_a_6_12 page no:241
+clc;
+I1mag=2.213;
+I1ang=-154.9;
+P=50*I1mag^2/2;
+disp(P,"average power delivered by the independent source is (in W)");
diff --git a/3673/CH6/EX6.a.13/Example_a_6_13.sce b/3673/CH6/EX6.a.13/Example_a_6_13.sce
new file mode 100644
index 000000000..771de610e
--- /dev/null
+++ b/3673/CH6/EX6.a.13/Example_a_6_13.sce
@@ -0,0 +1,16 @@
+//Example_a_6_13 page no:242
+clc;
+Vmag=14.705;
+Vang=157.5;
+Vreal=Vmag*cosd(Vang);
+Vimag=Vang*sind(Vang);
+V=Vreal+(Vimag*%i);
+V1real=100;
+V1imag=0;
+V1=V1real+(V1imag*%i);
+I=(V-V1)/2;
+Imag=sqrt(real(I)^2+imag(I)^2);
+Iang=atand(imag(I)/real(I));
+P=V1real*Imag*cosd(Iang)/2;
+P=P/1000;//converting to killo watt
+disp(P,"the power delivered by the source is (in kW)");
diff --git a/3673/CH6/EX6.a.14/Example_a_6_14.sce b/3673/CH6/EX6.a.14/Example_a_6_14.sce
new file mode 100644
index 000000000..7f0780f1f
--- /dev/null
+++ b/3673/CH6/EX6.a.14/Example_a_6_14.sce
@@ -0,0 +1,9 @@
+//Example_a_6_14 page no:243
+clc;
+Im=0.5;
+Vmag=18.46;
+Vang=0;
+V1mag=1.54;
+V1ang=0;
+P=Vmag*Im*V1mag/2;
+disp(P,"the average power delivered by the dependent source is (in W)");
diff --git a/3673/CH6/EX6.a.2/Example_a_6_2.sce b/3673/CH6/EX6.a.2/Example_a_6_2.sce
new file mode 100644
index 000000000..23575d587
--- /dev/null
+++ b/3673/CH6/EX6.a.2/Example_a_6_2.sce
@@ -0,0 +1,24 @@
+//Example_a_6_2 page no:234
+clc;
+I=5;
+Z1mag=10;
+Z1ang=-60;
+Z2mag=16;
+Z2ang=70;
+Z1real=Z1mag*cosd(Z1ang);
+Z1img=Z1mag*sind(Z1ang);
+Z1=Z1real+(Z1img*%i);
+Z2real=Z2mag*cosd(Z2ang);
+Z2img=Z2mag*sind(Z2ang);
+Z2=Z2real+(Z2img*%i);
+Z=Z1+Z2;
+Zmag=sqrt(real(Z)^2+imag(Z)^2);
+pf=real(Z)/Zmag;
+active_power=I^2*real(Z);
+apparent_power=I^2*Zmag;
+reactive_power=I^2*imag(Z);
+disp(pf,"the power factor is ");
+disp(active_power,"the active power is (in W)");
+disp(apparent_power,"the apparent power is (in VA)");
+disp(reactive_power,"the reactive power is (in VAR)");
+disp("the calculated values varies slightly with textbook hence values are rounded off in text book");
diff --git a/3673/CH6/EX6.a.3/Example_a_6_3.sce b/3673/CH6/EX6.a.3/Example_a_6_3.sce
new file mode 100644
index 000000000..fade57efa
--- /dev/null
+++ b/3673/CH6/EX6.a.3/Example_a_6_3.sce
@@ -0,0 +1,16 @@
+//Example_a_6_3 page no:234
+clc;
+R=0.5;
+P=200;
+pf=0.707;
+V=25/sqrt(2);//in V
+I=(200/pf)*(sqrt(2)/25);
+Ztmag=V/I;
+Ztang=25-(-20);
+Ztreal=Ztmag*cosd(Ztang);
+Ztimag=Ztmag*sind(Ztang);
+Zt=Ztreal+(Ztimag*%i);
+Z=Zt-R;
+disp(Z,"the impedence is (in ohm)");
+apparent_power=V*I;
+disp(apparent_power,"the apparent power is (in VA)");
diff --git a/3673/CH6/EX6.a.4/Example_a_6_4.sce b/3673/CH6/EX6.a.4/Example_a_6_4.sce
new file mode 100644
index 000000000..f49fdb7e6
--- /dev/null
+++ b/3673/CH6/EX6.a.4/Example_a_6_4.sce
@@ -0,0 +1,22 @@
+//Example_a_6_4 page no:235
+clc;
+R1=5;
+I5mag=sqrt(600/5);
+V=I5mag*sqrt(50);
+apparent_power=3000;
+Itmag=apparent_power/V;
+Itang=45;
+I5ang=-45;
+Itreal=Itmag*cosd(Itang);
+Itimag=Itmag*sind(Itang);
+It=Itreal+(Itimag*%i);
+I5real=I5mag*cosd(I5ang);
+I5imag=I5mag*sind(I5ang);
+I5=I5real+(I5imag*%i);
+Iz=It-I5;
+Izmag=sqrt(real(Iz)^2+imag(Iz)^2);
+Izang=atand(imag(Iz)/real(Iz));
+Zmag=V/Izmag;
+Zang=0-Izang;
+disp(Zmag,"the magnitude of impedence is (in ohm)");
+disp(Zang,"the angle of impedence is (in degree)");
diff --git a/3673/CH6/EX6.a.5/Example_a_6_5.sce b/3673/CH6/EX6.a.5/Example_a_6_5.sce
new file mode 100644
index 000000000..cd8f129e6
--- /dev/null
+++ b/3673/CH6/EX6.a.5/Example_a_6_5.sce
@@ -0,0 +1,29 @@
+//Example_a_6_5 page no:235
+clc;
+R=5;
+Vmax=150;
+Zamag=60;
+Zaang=30;
+Zbmag=50;
+Zbang=-25;
+Zareal=Zamag*cosd(Zaang);
+Zbreal=Zbmag*cosd(Zbang);
+pf=cosd(0.179);
+Ztmag=5+((Zamag*Zbmag)/(Zamag+Zbmag));
+Ztang=-0.179;
+Itmag=150/(sqrt(Ztmag));
+Itang=0-(Ztang);
+Zareal=65.84;
+Zbreal=57.15;
+Iamag=((2.97*50)/(60+50));
+Ibmag=((2.97*60)/(60+50));
+Za=Iamag^2*Zareal;
+Zb=Ibmag^2*Zbreal;
+Rt=R+((Zareal*Zbreal)/(Zareal+Zbreal));
+I=Vmax/(sqrt(2)*Rt);//calculating current for calculating the power
+Pa=I^2*Rt;
+disp(pf,"the power factor is ");
+disp(Za,"the power delivered to Za is (in W)");
+disp(Zb,"the power delivered to Zb is (in W)");
+disp(Pa,"the average power delivered to the circuit is (in W)");
+disp("the calculated values varies slightly with textbook hence values are rounded off in text book");
diff --git a/3673/CH6/EX6.a.6/Example_a_6_6.sce b/3673/CH6/EX6.a.6/Example_a_6_6.sce
new file mode 100644
index 000000000..cb5cdb180
--- /dev/null
+++ b/3673/CH6/EX6.a.6/Example_a_6_6.sce
@@ -0,0 +1,17 @@
+//Example_a_6_6 page no:236
+clc;
+R=10;
+V=200/sqrt(2);
+Vr=120;
+Vl=75;
+IR=Vr;
+I=120/10;
+Xl=75/I;
+Z=10+(%i*6.25);
+Zmag=sqrt(real(Z)^2+imag(Z)^2);
+pf=R/Zmag;
+true_power=I^2*R;
+reactive_power=I^2*imag(Z);
+disp(pf,"the power factor in the circuit is ");
+disp(true_power,"the true power in the circuit is (in W)");
+disp(reactive_power,"the reactive power in the circuit is (in W)");
diff --git a/3673/CH6/EX6.a.7/Example_a_6_7.sce b/3673/CH6/EX6.a.7/Example_a_6_7.sce
new file mode 100644
index 000000000..401ea1fff
--- /dev/null
+++ b/3673/CH6/EX6.a.7/Example_a_6_7.sce
@@ -0,0 +1,31 @@
+//Example_a_6_7 page no:237
+clc;
+I1mag=50;
+I1ang=10;
+I2mag=20;
+I2ang=30;
+Z1mag=100/50;
+Z1ang=15-10;
+Z1real=Z1mag*cosd(Z1ang);
+Z1imag=Z1mag*sind(Z1ang);
+Z1=Z1real+(%i*Z1imag);
+Z2mag=100/20;
+Z2ang=15-30;
+Z2real=Z2mag*cosd(Z2ang);
+Z2imag=Z2mag*sind(Z2ang);
+Z2=Z2real+(%i*Z2imag);
+Pa1=I1mag^2*Z1mag;
+Pt2=I2mag^2*real(Z2);
+Pr1=I1mag^2*imag(Z1);
+disp(Pr1,"the reactive power in branch is (in VAR)");
+disp(Pa1,"apparent power in branch Z1 is (in VA)");
+disp(Pt2,"the true power in branch Z2 is (in W)");
+Pr2=I2mag^2*-imag(Z2);//only reactive power is taken, negative sign is used to convert negative to positive
+Pa2=I2mag^2*Z2mag;
+disp(Pr2,"the reactive power in branch is (in VAR)");
+disp(Pa2,"the apparent power in branch is (in VA)");
+Z=((Z1mag*Z2mag)/(Z1+Z2));
+theta=0.71;
+pf=cosd(theta);
+disp(pf,"the power factor of the total circuit is (leading)");
+//reactive power varies slightly hence textbook values are rounded off
diff --git a/3673/CH6/EX6.a.8/Example_a_6_8.sce b/3673/CH6/EX6.a.8/Example_a_6_8.sce
new file mode 100644
index 000000000..a72764794
--- /dev/null
+++ b/3673/CH6/EX6.a.8/Example_a_6_8.sce
@@ -0,0 +1,35 @@
+//Example_a_6_8 page no:238
+clc;
+X2=sqrt((16.67^2)-(10^2));
+V=100;
+Imag=6;
+pf=450/600;
+theta=acosd(pf);
+Iang=theta;
+Vmag=Imag*16.66;
+Vang=-41.4+53.1;
+Vreal=Vmag*cosd(Vang);
+Vimag=Vmag*sind(Vang);
+V1real=100;
+V1=V1real-Vreal-(Vimag*%i);
+V1mag=sqrt(real(V1)^2+imag(V1)^2);
+V1ang=atand(imag(V1)/real(V1));
+I2mag=V1mag/20;
+I2ang=V1ang-(-90);
+Ireal=Imag*cosd(Iang);
+Iimag=Imag*sind(Iang);
+I=Ireal-(Iimag*%i);
+I2real=I2mag*cosd(I2ang);
+I2imag=I2mag*sind(I2ang);
+I2=I2real+(I2imag*%i);
+I1=I-I2;
+I1mag=sqrt(real(I1)^2+imag(I1)^2);
+I1ang=atand(imag(I1)/real(I1));
+Z1mag=V1mag/I1mag;
+Z1ang=V1ang-I1ang;
+Zreal=Z1mag*cosd(Z1ang);
+Zimag=Z1mag*sind(Z1ang);
+R1=Zreal;
+X1=-Zimag;//here negative sign is used to take only reactance value
+disp(R1,"the resistance is (in ohm)");
+disp(X1,"the reactance is (in ohm)");
diff --git a/3673/CH6/EX6.a.9/Example_a_6_9.sce b/3673/CH6/EX6.a.9/Example_a_6_9.sce
new file mode 100644
index 000000000..fd06a00e6
--- /dev/null
+++ b/3673/CH6/EX6.a.9/Example_a_6_9.sce
@@ -0,0 +1,12 @@
+//Example_a_6_9 page no:239
+clc;
+Zeq=5+(((2+(2*%i))*(-%i*5))/(2+(%i*2-%i*5)));
+Zmag=sqrt(real(Zeq)^2+imag(Zeq)^2);
+Zang=atand(imag(Zeq)/real(Zeq));
+I=sqrt(100/8.85);
+pf=8.85/8.88;
+V=100/(3.36*0.99);
+P=V*I*sind(4.97);
+disp(V,"the value of voltage source is (in V)");
+disp(pf,"the power factor is ");
+disp(P,"the reactive power is (in VAR)");
generated by cgit (git 2.34.1) at 2024-12-22 09:55:19 +0000