2 files changed, 28 insertions, 0 deletions
diff --git a/431/CH3/EX3.20/EX3_20.sce b/431/CH3/EX3.20/EX3_20.sce
new file mode 100755
index 000000000..2728dc99e
--- /dev/null
+++ b/431/CH3/EX3.20/EX3_20.sce
@@ -0,0 +1,22 @@
+//Calculate voltsge to be applied//Chapter 3
+//Example 3.20
+//page 226
+clear;
+clc;
+disp("Example 3.20")
+kVA=100;
+V1=6600;                //primary voltage in volts
+V2=330;                  //secondary voltage in volts
+f=50;                    //frequency in hertz
+V1sc=100;                      //short circuit primary voltage in volts
+I1sc=10;                      //short circuit primary current in amperes
+Psc=436;                         //short circuit primary power in watts       
+Ze=V1sc/I1sc;
+Re=Psc/I1sc^2;
+phi=acosd(0.8);
+Xe=sqrt(Ze^2-Re^2);
+printf("\nTotal resistance=%fohms",Re);
+printf("\nTotal impedence=%fohms",Ze)
+Il=(kVA*1000)/V1;
+V1dash=(sqrt(((V1*cosd(phi))+(Il*Re))^2+((V1*sind(phi))+(Il*Xe))^2));
+printf("\nfull voltage current,V1=%dV",V1dash)
+\ No newline at end of file
diff --git a/431/CH3/EX3.20/resultEX3_20.txt b/431/CH3/EX3.20/resultEX3_20.txt
new file mode 100755
index 000000000..4e02cecf1
--- /dev/null
+++ b/431/CH3/EX3.20/resultEX3_20.txt
@@ -0,0 +1,6 @@
+ 
+ Example 3.20   
+
+Total resistance=4.360000ohms
+Total impedence=10.000000ohms
+full voltage current,V1=6735V 
+\ No newline at end of file