1 files changed, 34 insertions, 0 deletions
diff --git a/1445/CH3/EX3.8/ch3_ex_8.sce b/1445/CH3/EX3.8/ch3_ex_8.sce
new file mode 100644
index 000000000..a060c12ad
--- /dev/null
+++ b/1445/CH3/EX3.8/ch3_ex_8.sce
@@ -0,0 +1,34 @@
+//CHAPTER 3- THREE-PHASE A.C. CIRCUITS
+//Example 8
+
+disp("CHAPTER 3");
+disp("EXAMPLE 8");
+
+//VARIABLE INITIALIZATION
+v_ph=230;                               //in Volts and in polar form 
+z=8+(%i*6);                             //in Ohms and in rectanglar form
+
+//SOLUTION
+//converting z from rectangular form to polar form
+z_mag=sqrt(real(z)^2+imag(z)^2);  
+phi=atan(imag(z)/real(z));              //atan() gives output in radians
+
+I_ph=v_ph/z_mag;
+I_l=sqrt(3)*I_ph;
+disp(sprintf("The line current is %f A",I_l));
+
+pow_fact=cos(phi);
+disp(sprintf("The power factor is %f",pow_fact));
+
+p=sqrt(3)*v_ph*I_l*pow_fact;           //phase volt=line volt in delta connection(v_l=v_ph)
+disp(sprintf("The power is %f W",p));
+
+var=sqrt(3)*v_ph*I_l*sin(phi); 
+var=var/1000;                          //from VAR to kVAR   
+disp(sprintf("The reactive power is %f kVAR",var));
+
+va=sqrt(3)*v_ph*I_l;
+va=va/1000;                            //from VA to kVA
+disp(sprintf("The total volt amperes is %f kVA",va));
+
+//END