1 files changed, 20 insertions, 0 deletions
diff --git a/3775/CH4/EX4.1/Ex4_1.sce b/3775/CH4/EX4.1/Ex4_1.sce
new file mode 100644
index 000000000..757ecc342
--- /dev/null
+++ b/3775/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,20 @@
+//Ex 4.1 page 158
+
+clc;
+clear;
+close;
+
+
+R=5;// ohm
+Vs=230;// V
+f=50;// Hz
+alpha = 120;// degree
+
+Vor=Vs*sqrt(1/%pi*(%pi-alpha*%pi/180+sin(2*alpha*%pi/180)/2));// V
+printf('\n rms load voltage = %.2f V', Vor)
+Ior=Vor/R;// A
+printf('\n rms load current = %.2f A', Ior)
+Irms=Ior/sqrt(2);//A
+printf('\n rms thyristor current = %.2f A', Irms)
+pf=sqrt(1/%pi*((%pi-alpha*%pi/180)+sin(2*alpha*%pi/180)/2));// power factor
+printf('\n input power factor = %.3f ',pf)