1 files changed, 11 insertions, 0 deletions
diff --git a/3793/CH15/EX15.1/exp_15_1.sce b/3793/CH15/EX15.1/exp_15_1.sce
new file mode 100644
index 000000000..d9c5bbce3
--- /dev/null
+++ b/3793/CH15/EX15.1/exp_15_1.sce
@@ -0,0 +1,11 @@
+clear;
+clc;
+Pdc=1;
+Pac=1;
+phi=acosd(.9428);
+mprintf(" power factor angle in degree is %.3f ",phi);
+p=[0.7:0.1:1];
+Pd=(.9428/(p));
+disp(Pd);
+disp(p);
+plot(p,Pd);