1 files changed, 16 insertions, 0 deletions
diff --git a/1802/CH5/EX5.2/Exa5_2.sce b/1802/CH5/EX5.2/Exa5_2.sce
new file mode 100755
index 000000000..7ee4eef9d
--- /dev/null
+++ b/1802/CH5/EX5.2/Exa5_2.sce
@@ -0,0 +1,16 @@
+//Exa 5.2
+clc;
+clear;
+close;
+//Given Data :
+format('v',7);
+R=2;//in ohm
+X=6;//in ohm
+P=10000*10^3;//in watts
+cos_fir=0.8;//unitless
+VR=22*10^3;//in volt
+I=P/(sqrt(3)*VR*cos_fir);//in Ampere
+VR_phase=VR/sqrt(3);//in volt
+Vs=sqrt((VR_phase*cos_fir+I*R)^2+(VR_phase*sqrt(1-cos_fir^2)+I*X)^2);
+disp(Vs,"Sending end voltage Vs(phase) :");
+disp(((Vs-VR_phase)/VR_phase)*100,"% Regulation : ");
+\ No newline at end of file