1 files changed, 15 insertions, 0 deletions
diff --git a/2075/CH9/EX9.5/pe9_5.sce b/2075/CH9/EX9.5/pe9_5.sce
new file mode 100755
index 000000000..9d746f83d
--- /dev/null
+++ b/2075/CH9/EX9.5/pe9_5.sce
@@ -0,0 +1,15 @@
+//example 9.5
+clc;funcprot(0);
+//Initialization of Variable
+I=22.6;//current
+V=120;//voltage
+Id=28;//A
+Vd=280;//V
+//calculation
+P=3*I*V;
+disp(P/1000,"total power in kW:")
+Pl=Id*Vd;
+disp(Pl/1000,"load power in kW:")
+Pf=Pl/P;
+disp(Pf,"power factor:")
+clear()