1 files changed, 13 insertions, 0 deletions
diff --git a/2075/CH9/EX9.4/pe9_4.sce b/2075/CH9/EX9.4/pe9_4.sce
new file mode 100755
index 000000000..1e220c407
--- /dev/null
+++ b/2075/CH9/EX9.4/pe9_4.sce
@@ -0,0 +1,13 @@
+//example 9.4
+clc;funcprot(0);
+//Initialization of Variable
+I1=1.8;//current
+R=16;//resistance
+I2=5.7;//A
+V=28.8;//Voltage
+//calculation
+P=I1^2*R;
+S=I2*V;
+Pf=P/S;
+disp(Pf,"power factor:")
+clear()