initial commit / add all books

36 files changed, 400 insertions, 0 deletions

diff --git a/620/CH26/EX26.1/example26_1.sce b/620/CH26/EX26.1/example26_1.sce
new file mode 100644
index 000000000..dac540e17
--- /dev/null
+++ b/620/CH26/EX26.1/example26_1.sce
@@ -0,0 +1,4 @@
+p=50;

+i=1.5;

+r=p/i^2;

+disp("the resistance (in Ω) of the AC circuit is"); disp(r);
\ No newline at end of file
diff --git a/620/CH26/EX26.1/example26_1.txt b/620/CH26/EX26.1/example26_1.txt
new file mode 100644
index 000000000..55468841b
--- /dev/null
+++ b/620/CH26/EX26.1/example26_1.txt
diff --git a/620/CH26/EX26.10/example26_10.sce b/620/CH26/EX26.10/example26_10.sce
new file mode 100644
index 000000000..6bc679e09
--- /dev/null
+++ b/620/CH26/EX26.10/example26_10.sce
@@ -0,0 +1,31 @@
+v=12;

+f=60;

+i=0.05;

+p=0.1;

+disp("Part a");

+v1=24;

+z=v/i;

+rl=p/i^2;

+x_l=sqrt(z^2-rl^2);

+z1=v1/i;

+r=sqrt(z1^2-x_l^2)-rl;

+pr=i^2*r;

+disp("the series resistor has a value (in Ω) of"); disp(r);

+disp("power dissipation (in W) is");disp(pr);

+disp("Part b");

+x_c=sqrt(z1^2-rl^2)+x_l;

+c=1/(2*%pi*f*x_c);

+disp("the size of series cpacitor (in μF) is");disp(c*10^6);

+disp("Part c");

+v2=120;

+z2=v2/i;

+x_c2=sqrt(z2^2-rl^2)+x_l;

+c2=1/(2*%pi*f*x_c2);

+disp("the size of the series capacitor (in μF) is"); disp(c2*10^6);

+vc=i*x_c2;

+disp("voltage (in V) across the capacitor is"); disp(vc);

+disp("Part d");

+r2=sqrt(z2^2-x_l^2)-rl;

+disp("the size of the series resistor (in Ω) is"); disp(r2);

+p2=i^2*r2;

+disp("power dissipation (in W) is"); disp(p2);
\ No newline at end of file
diff --git a/620/CH26/EX26.10/example26_10.txt b/620/CH26/EX26.10/example26_10.txt
new file mode 100644
index 000000000..190923ec0
--- /dev/null
+++ b/620/CH26/EX26.10/example26_10.txt
diff --git a/620/CH26/EX26.11/example26_11.sce b/620/CH26/EX26.11/example26_11.sce
new file mode 100644
index 000000000..973a18980
--- /dev/null
+++ b/620/CH26/EX26.11/example26_11.sce
@@ -0,0 +1,6 @@
+p=1000;

+v=250;

+i=5;

+s=v*i;

+pf=p/s;

+disp("power factor is"); disp(pf);
\ No newline at end of file
diff --git a/620/CH26/EX26.11/example26_11.txt b/620/CH26/EX26.11/example26_11.txt
new file mode 100644
index 000000000..bb3f4b720
--- /dev/null
+++ b/620/CH26/EX26.11/example26_11.txt
@@ -0,0 +1,4 @@
+ power factor is   

+ 

+    0.8  

+ 
\ No newline at end of file
diff --git a/620/CH26/EX26.12/example26_12.sce b/620/CH26/EX26.12/example26_12.sce
new file mode 100644
index 000000000..f1c2ced25
--- /dev/null
+++ b/620/CH26/EX26.12/example26_12.sce
@@ -0,0 +1,19 @@
+deg=41*%pi/180;

+v=240;

+i=6;

+p_out=746;

+disp("Part a");

+pf=cos(deg);

+disp("power factor of the motor is"); disp(pf);

+disp("Part b");

+s=v*i;

+disp("apparent power (in VA) is"); disp(s);

+disp("Part c");

+p=v*i*pf;

+disp("true power (in W) is");disp(p);

+disp("Part d");

+q=v*i*sin(deg);

+disp("reactive power (in VAr) is"); disp(q);

+disp("Part d");

+eff=p_out*100/p;

+disp("the effieciency (in %) of the motor is"); disp(eff);
\ No newline at end of file
diff --git a/620/CH26/EX26.12/example26_12.txt b/620/CH26/EX26.12/example26_12.txt
new file mode 100644
index 000000000..6a0aa3202
--- /dev/null
+++ b/620/CH26/EX26.12/example26_12.txt
@@ -0,0 +1,29 @@
+Part a   

+ 

+ power factor of the motor is   

+ 

+    0.7547096  

+ 

+ Part b   

+ 

+ apparent power (in VA) is   

+ 

+    1440.  

+ 

+ Part c   

+ 

+ true power (in W) is   

+ 

+    1086.7818  

+ 

+ Part d   

+ 

+ reactive power (in VAr) is   

+ 

+    944.725  

+ 

+ Part d   

+ 

+ the effieciency (in %) of the motor is   

+ 

+    68.643034  
\ No newline at end of file
diff --git a/620/CH26/EX26.13/example26_13.sce b/620/CH26/EX26.13/example26_13.sce
new file mode 100644
index 000000000..5d16d7208
--- /dev/null
+++ b/620/CH26/EX26.13/example26_13.sce
@@ -0,0 +1,9 @@
+p=300;

+q=115;

+s=321;

+disp("Part a");

+pf=p/s;

+disp("power factor of the combination is"); disp(pf);disp("lagging");

+disp("Part b");

+deg=acos(pf)*180/%pi;

+disp("the phase angle (in deg) between the applied voltage and current is"); disp(deg);
\ No newline at end of file
diff --git a/620/CH26/EX26.13/example26_13.txt b/620/CH26/EX26.13/example26_13.txt
new file mode 100644
index 000000000..c382ce644
--- /dev/null
+++ b/620/CH26/EX26.13/example26_13.txt
@@ -0,0 +1,13 @@
+Part a   

+ 

+ power factor of the combination is   

+ 

+    0.9345794  

+ 

+ lagging   

+ 

+ Part b   

+ 

+ the phase angle (in deg) between the applied voltage and current is   

+ 

+    20.839694  
\ No newline at end of file
diff --git a/620/CH26/EX26.14/example26_14.sce b/620/CH26/EX26.14/example26_14.sce
new file mode 100644
index 000000000..1f046eded
--- /dev/null
+++ b/620/CH26/EX26.14/example26_14.sce
@@ -0,0 +1,36 @@
+p=15;

+rl=200;

+rb=80;

+l=0.9;

+v=120;

+f=60;

+disp("Part a");

+r=rb+rl;

+x_l=2*%pi*f*l;

+z=sqrt(x_l^2+r^2);

+i=v/z;

+disp("current drawn (in A) by the lamp is"); disp(i);

+disp("Part b");

+s=v*i;

+disp("apparent power (in VA) is"); disp(s);

+disp("Part c");

+pl=i^2*rl;

+disp("power (in W) in the fluorescent lamp is"); disp(pl);

+disp("Part d");

+pb=i^2*rb;

+disp("power (in W) in the ballast is");disp(pb);

+disp("Part e");

+pf=p/s;

+disp("overall power factor is"); disp(pf);

+disp("Part f");

+deg=acos(pf);

+q=v*i*sin(deg);

+disp("the reactive power (in VAr) is"); disp(q);

+disp("Part g");

+x_c=v^2/q;

+c=1/(2*%pi*f*x_c);

+disp("the size of the capacitor (in μF) is"); disp(c*10^6);

+disp("Part h");

+p1=pl+pb;

+i1=p1/v;

+disp("current drawn (in A) after power factor correction is"); disp(i1);
\ No newline at end of file
diff --git a/620/CH26/EX26.14/example26_14.txt b/620/CH26/EX26.14/example26_14.txt
new file mode 100644
index 000000000..e49a2ecb6
--- /dev/null
+++ b/620/CH26/EX26.14/example26_14.txt
diff --git a/620/CH26/EX26.15/example26_15.sce b/620/CH26/EX26.15/example26_15.sce
new file mode 100644
index 000000000..c3b8dc23b
--- /dev/null
+++ b/620/CH26/EX26.15/example26_15.sce
@@ -0,0 +1,7 @@
+p1=432;

+p2=1092;

+i=2.5;

+v=440;

+p=p1+p2;

+pf=p/(sqrt(3)*v*i);

+disp("power factor of the motor is"); disp(pf);
\ No newline at end of file
diff --git a/620/CH26/EX26.15/example26_15.txt b/620/CH26/EX26.15/example26_15.txt
new file mode 100644
index 000000000..4329fe074
--- /dev/null
+++ b/620/CH26/EX26.15/example26_15.txt
@@ -0,0 +1,3 @@
+ power factor of the motor is   

+ 

+    0.7998926
\ No newline at end of file
diff --git a/620/CH26/EX26.16/example26_16.sce b/620/CH26/EX26.16/example26_16.sce
new file mode 100644
index 000000000..5807f9af1
--- /dev/null
+++ b/620/CH26/EX26.16/example26_16.sce
@@ -0,0 +1,22 @@
+v=10;

+f=60;

+r=10;

+l1=0.01;

+l2=0.05;

+disp("Part a");

+disp("resistance (in Ω) of the coil for maximum power transfer is"); disp(r);

+disp("Part b");

+l=l1+l2;

+x_c=2*%pi*f*l;

+c=1/(2*%pi*f*x_c);

+disp("the size of the capacitor (in μF) is"); disp(c*10^6);

+disp("Part c");

+z1=2*r;

+i=v/z1;

+p=i^2*r;

+disp("power delivered (in W) to the coil is"); disp(p);

+disp("Part d");

+z=sqrt(z1^2+x_c^2);

+i1=v/z;

+pr=i1^2*r;

+disp("Power dlivered (in W) to the col without the capacitor is"); disp(pr);
\ No newline at end of file
diff --git a/620/CH26/EX26.16/example26_16.txt b/620/CH26/EX26.16/example26_16.txt
new file mode 100644
index 000000000..8a654bef3
--- /dev/null
+++ b/620/CH26/EX26.16/example26_16.txt
diff --git a/620/CH26/EX26.17/example26_17.sce b/620/CH26/EX26.17/example26_17.sce
new file mode 100644
index 000000000..ca978bc07
--- /dev/null
+++ b/620/CH26/EX26.17/example26_17.sce
@@ -0,0 +1,19 @@
+m_v=100;

+deg_v=10;

+z=5+%i*8.66;

+disp("Part a");

+m_z=sqrt(real(z)^2+imag(z)^2);

+deg_z=atan(imag(z)/real(z))*180/%pi;

+m_i=m_v/m_z;

+deg_i=-(deg_v-deg_z);

+m_p=m_v*m_i;

+deg_p=deg_i+deg_v;

+disp("the complex power (in VA) has a magnitude of") ; disp(m_p);

+disp("with a phase angle (in deg) of"); disp(deg_p);

+disp("apparent power (in VA) is"); disp(m_p);

+disp("power factor is");disp(cos(deg_p*%pi/180));

+disp("Part b");

+p=m_p*cos(deg_p*%pi/180);

+q=m_p*sin(deg_p*%pi/180);

+disp("true power (in W) is"); disp(p);

+disp("reactive power (in VAr) is"); disp(q);
\ No newline at end of file
diff --git a/620/CH26/EX26.17/example26_17.txt b/620/CH26/EX26.17/example26_17.txt
new file mode 100644
index 000000000..ad2a578a7
--- /dev/null
+++ b/620/CH26/EX26.17/example26_17.txt
diff --git a/620/CH26/EX26.18/example26_18.sce b/620/CH26/EX26.18/example26_18.sce
new file mode 100644
index 000000000..560cbfee8
--- /dev/null
+++ b/620/CH26/EX26.18/example26_18.sce
@@ -0,0 +1,34 @@
+m_v=230;

+f=60;

+p_out=1.5*746;

+pf=0.8;

+eff=0.75;

+disp("Part a");

+p_in=p_out/eff;

+m_i1=p_in/(m_v*pf);

+deg_i1=acos(pf);

+m_p1=m_v*m_i1;

+deg_v=0;

+deg_p1=deg_v+deg_i1*180/%pi;

+p1=m_p1*(cos(deg_p1*%pi/180)+%i*sin(deg_p1*%pi/180));

+p=real(p1);

+p2=p-p1;

+qc=-imag(p2);

+x_c=m_v^2/qc;

+c=1/(2*%pi*f*x_c);

+disp("the size of the capacitor (in μF) is"); disp(c*10^6);

+i2=p/m_v;

+disp("the new in-line current (in A) is"); disp(i2);

+disp("Part b");

+pf0=0.95;

+m_i20=p/(m_v*pf0);

+disp("the new in-line current (in A) is"); disp(m_i20);

+deg_i20=acos(0.95);

+m_p0=m_v*m_i20;

+deg_p0=deg_v+deg_i20;

+p0=m_p0*(cos(deg_p0)+%i*sin(deg_p0));

+p20=p0-p1;

+q0=-imag(p20);

+x_c0=m_v^2/q0;

+c0=1/(2*%pi*f*x_c0);

+disp("size of the capacitor (in μ) is"); disp(c0*10^6);
\ No newline at end of file
diff --git a/620/CH26/EX26.18/example26_18.txt b/620/CH26/EX26.18/example26_18.txt
new file mode 100644
index 000000000..1561f791a
--- /dev/null
+++ b/620/CH26/EX26.18/example26_18.txt
diff --git a/620/CH26/EX26.2/example26_2.sce b/620/CH26/EX26.2/example26_2.sce
new file mode 100644
index 000000000..380ffb6c9
--- /dev/null
+++ b/620/CH26/EX26.2/example26_2.sce
@@ -0,0 +1,5 @@
+l=4;

+i=1.4;

+f=60;

+p=i^2*2*%pi*f*l;

+disp("reactive power (in kVAr) of the circuit is"); disp(p*10^(-3));
\ No newline at end of file
diff --git a/620/CH26/EX26.2/example26_2.txt b/620/CH26/EX26.2/example26_2.txt
new file mode 100644
index 000000000..cc2472aa2
--- /dev/null
+++ b/620/CH26/EX26.2/example26_2.txt
diff --git a/620/CH26/EX26.3/example26_3.sce b/620/CH26/EX26.3/example26_3.sce
new file mode 100644
index 000000000..b1298e660
--- /dev/null
+++ b/620/CH26/EX26.3/example26_3.sce
@@ -0,0 +1,6 @@
+p=100;

+c=10*10^(-6);

+i=0.87;

+x_c=p/i^2;

+f=1/(2*%pi*x_c*c);

+disp("the frequency (in Hz) is"); disp(f);
\ No newline at end of file
diff --git a/620/CH26/EX26.3/example26_3.txt b/620/CH26/EX26.3/example26_3.txt
new file mode 100644
index 000000000..12a3c7be0
--- /dev/null
+++ b/620/CH26/EX26.3/example26_3.txt
diff --git a/620/CH26/EX26.4/example26_4.sce b/620/CH26/EX26.4/example26_4.sce
new file mode 100644
index 000000000..ce7c3264f
--- /dev/null
+++ b/620/CH26/EX26.4/example26_4.sce
@@ -0,0 +1,6 @@
+i=2.6;

+r=300;

+x_l=400;

+z=sqrt(r^2+x_l^2);

+p=i^2*z;

+disp("the apparent power drawn (in kVA) by the circuit is"); disp(p*10^(-3));
\ No newline at end of file
diff --git a/620/CH26/EX26.4/example26_4.txt b/620/CH26/EX26.4/example26_4.txt
new file mode 100644
index 000000000..805b9bd3a
--- /dev/null
+++ b/620/CH26/EX26.4/example26_4.txt
@@ -0,0 +1,3 @@
+the apparent power drawn (in kVA) by the circuit is   

+ 

+    3.38  
\ No newline at end of file
diff --git a/620/CH26/EX26.5/example26_5.sce b/620/CH26/EX26.5/example26_5.sce
new file mode 100644
index 000000000..b023cde32
--- /dev/null
+++ b/620/CH26/EX26.5/example26_5.sce
@@ -0,0 +1,9 @@
+v=120;

+f=60;

+i=5;

+p=525;

+z=v/i;

+r=p/i^2;

+x_l=sqrt(z^2-r^2);

+l=x_l/(2*%pi*f);

+disp("the inductance (in mH) of the coil is"); disp(l*10^3);
\ No newline at end of file
diff --git a/620/CH26/EX26.5/example26_5.txt b/620/CH26/EX26.5/example26_5.txt
new file mode 100644
index 000000000..bc2b303ae
--- /dev/null
+++ b/620/CH26/EX26.5/example26_5.txt
@@ -0,0 +1,4 @@
+

+ the inductance (in mH) of the coil is   

+ 

+    30.820222  
\ No newline at end of file
diff --git a/620/CH26/EX26.6/example26_6.sce b/620/CH26/EX26.6/example26_6.sce
new file mode 100644
index 000000000..c7e0ba859
--- /dev/null
+++ b/620/CH26/EX26.6/example26_6.sce
@@ -0,0 +1,12 @@
+r=300;

+x_l=400;

+i=2.6;

+disp("Part a");

+p=i^2*r;

+disp("the true power (in W) is"); disp(p);

+disp("Part b");

+q=i^2*x_l;

+disp("the inductive reactive power (in VAr) is"); disp(q);

+disp("Part c");

+s=sqrt(p^2+q^2);

+disp("the apparent power (in kVA) is"); disp(s*10^(-3));

diff --git a/620/CH26/EX26.6/example26_6.txt b/620/CH26/EX26.6/example26_6.txt
new file mode 100644
index 000000000..44908fe33
--- /dev/null
+++ b/620/CH26/EX26.6/example26_6.txt
@@ -0,0 +1,18 @@
+ 

+ Part a   

+ 

+ the true power (in W) is   

+ 

+    2028.  

+ 

+ Part b   

+ 

+ the inductive reactive power (in VAr) is   

+ 

+    2704.  

+ 

+ Part c   

+ 

+ the apparent power (in kVA) is   

+ 

+    3.38  
\ No newline at end of file
diff --git a/620/CH26/EX26.7/example26_7.sce b/620/CH26/EX26.7/example26_7.sce
new file mode 100644
index 000000000..31454cd1c
--- /dev/null
+++ b/620/CH26/EX26.7/example26_7.sce
@@ -0,0 +1,10 @@
+v=120;

+f=60;

+i=5;

+p=525;

+disp("Part a");

+s=i*v;

+disp("the apparent power (in VA) is"); disp(s);

+disp("Part b");

+q=sqrt(s^2-p^2);

+disp("the reactive power (in VAr) is"); disp(q);
\ No newline at end of file
diff --git a/620/CH26/EX26.7/example26_7.txt b/620/CH26/EX26.7/example26_7.txt
new file mode 100644
index 000000000..c2b126acb
--- /dev/null
+++ b/620/CH26/EX26.7/example26_7.txt
@@ -0,0 +1,11 @@
+ Part a   

+ 

+ the apparent power (in VA) is   

+ 

+    600.  

+ 

+ Part b   

+ 

+ the reactive power (in VAr) is   

+ 

+    290.47375  
\ No newline at end of file
diff --git a/620/CH26/EX26.8/example26_8.sce b/620/CH26/EX26.8/example26_8.sce
new file mode 100644
index 000000000..43ed4c2b0
--- /dev/null
+++ b/620/CH26/EX26.8/example26_8.sce
@@ -0,0 +1,15 @@
+r=300;

+x_l=400;

+v=120;

+f=60;

+disp("Part a");

+p=v^2/r;

+disp("the true power (in W) is"); disp(p);

+disp("Part b");

+q=v^2/x_l;

+disp("the reactive power (in VAr) is"); disp(q);

+disp("Part c");

+s=sqrt(p^2+q^2);

+disp("the apparent power (in VA) is"); disp(s);

+i=s/v;

+disp("the current drawn (in A) from the supply is"); disp(i);
\ No newline at end of file
diff --git a/620/CH26/EX26.8/example26_8.txt b/620/CH26/EX26.8/example26_8.txt
new file mode 100644
index 000000000..0454bcaaa
--- /dev/null
+++ b/620/CH26/EX26.8/example26_8.txt
@@ -0,0 +1,21 @@
+Part a   

+ 

+ the true power (in W) is   

+ 

+    48.  

+ 

+ Part b   

+ 

+ the reactive power (in VAr) is   

+ 

+    36.  

+ 

+ Part c   

+ 

+ the apparent power (in VA) is   

+ 

+    60.  

+ 

+ the current drawn (in A) from the supply is   

+ 

+    0.5  
\ No newline at end of file
diff --git a/620/CH26/EX26.9/example26_9.sce b/620/CH26/EX26.9/example26_9.sce
new file mode 100644
index 000000000..a469c4cc8
--- /dev/null
+++ b/620/CH26/EX26.9/example26_9.sce
@@ -0,0 +1,22 @@
+c=12*10^(-6);

+v=240;

+f=60;

+l=0.25;

+r=75;

+disp("Part a");

+x_l=2*%pi*f*l;

+z=sqrt(r^2+x_l^2);

+i=v/z;

+p=i^2*r;

+disp("the true power (in W)is"); disp(p);

+disp("Part b");

+x_c=1/(2*%pi*f*c);

+q_c=v^2/x_c;

+q_l=i^2*x_l;

+q=q_l-q_c;

+disp("the reactive power (in VAr) is");disp(q);

+disp("Part c");

+s=sqrt(p^2+q^2);

+disp("the apparent power (in VA) is"); disp(s);

+i1=s/v;

+disp("the total line current (in A) is"); disp(i1);
\ No newline at end of file
diff --git a/620/CH26/EX26.9/example26_9.txt b/620/CH26/EX26.9/example26_9.txt
new file mode 100644
index 000000000..3de79ec16
--- /dev/null
+++ b/620/CH26/EX26.9/example26_9.txt
@@ -0,0 +1,22 @@
+Part a   

+ 

+ the true power (in W)is   

+ 

+    297.77406  

+ 

+ Part b   

+ 

+ the reactive power (in VAr) is   

+ 

+    113.61765  

+ 

+ Part c   

+ 

+ the apparent power (in VA) is   

+ 

+    318.7136  

+ 

+ the total line current (in A) is   

+ 

+    1.3279733  

+ 
\ No newline at end of file