1 files changed, 16 insertions, 0 deletions
diff --git a/3775/CH3/EX3.9/Ex3_9.sce b/3775/CH3/EX3.9/Ex3_9.sce
new file mode 100644
index 000000000..52c125ab1
--- /dev/null
+++ b/3775/CH3/EX3.9/Ex3_9.sce
@@ -0,0 +1,16 @@
+//Ex 3.9 page 124
+
+clc;
+clear;
+close;
+
+R=50;// ohm
+Vs=230;// V
+f=50;// Hz
+alpha = 30;// degree
+Vm=Vs*sqrt(2);// V
+Vo=2*Vm/%pi*cos(alpha*%pi/180);// V
+printf(' (i) Average voltage across 50 ohm resistor = %.2f V', Vo)
+Io=(Vo)/R;// A
+Ior=Io/sqrt(2);// A
+printf('\n (ii) rms current = %.4f A', Ior)