summaryrefslogtreecommitdiff
path: root/2231/CH2/EX2.20/Ex_2_20.sce
diff options
context:
space:
mode:
Diffstat (limited to '2231/CH2/EX2.20/Ex_2_20.sce')
-rwxr-xr-x2231/CH2/EX2.20/Ex_2_20.sce20
1 files changed, 20 insertions, 0 deletions
diff --git a/2231/CH2/EX2.20/Ex_2_20.sce b/2231/CH2/EX2.20/Ex_2_20.sce
new file mode 100755
index 000000000..24257b2e4
--- /dev/null
+++ b/2231/CH2/EX2.20/Ex_2_20.sce
@@ -0,0 +1,20 @@
+//Example 2_20
+clc;
+clear;close;
+
+//Given data:
+Vs=230;//V
+f=50;//Hz
+emf=200;//V
+Rint=0.5;//ohm
+I=20;//A
+
+//Solution :
+Vm=Vs*sqrt(2)/sqrt(3);//V
+Vdc=emf+Rint*I;//V
+alfa=acosd(Vdc/(3*sqrt(3)/%pi*Vm));//degree
+disp(alfa,"Firing angle(degree)");
+Pout=emf*I+I^2*Rint;//W
+Is=sqrt(I^2*120/180);//A
+cos_theta=Pout/(sqrt(3)*Vs*Is);//power factor
+disp(cos_theta,"Input power factor(lagging)");