2 files changed, 47 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
diff --git a/431/CH5/EX5.15/resultEX5_15.txt b/431/CH5/EX5.15/resultEX5_15.txt
new file mode 100755
index 000000000..b4eafba4e
--- /dev/null
+++ b/431/CH5/EX5.15/resultEX5_15.txt
@@ -0,0 +1,20 @@
+ 
+ example 5.15   
+
+tan phi=  0.750000
+ 
+ FOR ALTERNATOR A   
+
+tan phi_a=  0.484322
+ 
+ reactive load=active load*tan phi   
+ 
+ Active load=8000kW   
+reactive load=  3874 KVAr
+ 
+ Active Load A=5000kW\n   
+Reactive load A=  2421kVAr
+Active load of B=  3000kW
+Reactive load of B=  3578kVAr
+phi_b=  50.024676
+Power Factor of B=  0.642458 
+\ No newline at end of file