1 files changed, 21 insertions, 0 deletions
diff --git a/1733/CH5/EX5.4/5_4.sce b/1733/CH5/EX5.4/5_4.sce
new file mode 100755
index 000000000..b0b4f7cbd
--- /dev/null
+++ b/1733/CH5/EX5.4/5_4.sce
@@ -0,0 +1,21 @@
+//5.4
+clc;
+Vin=120;
+Vm=2^0.5*Vin;
+alph=90;
+R=10;
+
+VL=Vm*(1/(2*%pi)*(%pi-90*%pi/180+sind(180)/2))^0.5;
+printf("\nRMS output voltage =%.2f V", VL) 
+Po=VL^2/R;
+IL=VL/R;
+VA_input=IL*Vin;
+pf_input=Po/VA_input;
+printf(" \nInput Power factor =%.3f lagging", pf_input) 
+
+Iavg_thy=Vm*(1+cosd(alph))/(2*%pi*R);
+printf("\nAverage thyristor Current =%.2f A", Iavg_thy) 
+Irms_thy=IL/2^0.5;
+printf("\nRMS thyristor Current =%.3f A", Irms_thy)
+Irms_load=VL/R;
+printf("\nRMS Load Current =%.3f A", Irms_load)