1 files changed, 27 insertions, 0 deletions
diff --git a/431/CH5/EX5.15/EX5_15.sce b/431/CH5/EX5.15/EX5_15.sce
new file mode 100755
index 000000000..ada22f8e8
--- /dev/null
+++ b/431/CH5/EX5.15/EX5_15.sce
@@ -0,0 +1,27 @@
+//chapter 5
+//example 5.15
+//page 450
+clear;
+clc;
+disp("example 5.15");
+L=8000;     //load
+La=5000;
+pf=0.8;
+phi=acosd(pf);
+printf("\ntan phi=  %f\n",tand(phi));
+disp("FOR ALTERNATOR A");
+pf_a=0.9;
+phi_a=acosd(pf_a);
+printf("\ntan phi_a=  %f\n",tand(phi_a));
+disp("reactive load=active load*tan phi");
+disp("Active load=8000kW");
+printf("reactive load=  %d KVAr\n",(8000*tand(phi_a)));
+disp("Active Load A=5000kW\n");
+printf("Reactive load A=  %dkVAr\n",(5000*tand(phi_a)));
+printf("Active load of B=  %dkW\n",L-La);
+a=((8000*tand(phi))-(5000*tand(phi_a)))
+printf("Reactive load of B=  %dkVAr\n",a);
+B=a/(L-La);
+phi_b=atand(B);
+printf("phi_b=  %f\n",phi_b)
+printf("Power Factor of B=  %f",cosd(phi_b));
+\ No newline at end of file