3 files changed, 50 insertions, 0 deletions
diff --git a/380/CH11/EX11.7/11_7.txt b/380/CH11/EX11.7/11_7.txt
new file mode 100755
index 000000000..0471ee59c
--- /dev/null
+++ b/380/CH11/EX11.7/11_7.txt
@@ -0,0 +1,21 @@
+//Caption:Find the rms value of symmetric subtransient and transient currents
+//Exa:11.7
+clc;
+clear;
+close;
+KVA=71500;//Kilo Volt-Ampere
+V_r=13800;//in Volts
+X_af=0.57;//in per unit
+X_la=0.125;//in per unit
+X_lf=0.239;//in per unit
+X_ld=0.172;//in per unit
+X_ds=X_la+((X_af*X_lf*X_ld)/(X_lf*X_ld+X_af*X_ld+X_af*X_lf));//subtransient reactance(in per unit)
+E_phy=1;//generated voltage (in per unit)
+I_ds=E_phy/X_ds;//short circuit current (in per unit)
+X_d=X_la+((X_af*X_lf)/(X_af+X_lf));//transient reactance (in per unit)
+I_d=E_phy/X_d;//transient current (in per unit)
+I_rated=KVA*1000/(sqrt(3)*V_r);//in Amperes
+I_dsa=I_ds*I_rated;//sub transient current (in Amperes)
+disp(I_dsa,'sub-transient current (in Amperes)=');
+I_da=I_d*I_rated;//transient current (in Amperes)
+disp(I_da,'transient current (in Amperes)=');
+\ No newline at end of file
diff --git a/380/CH11/EX11.7/11_7_R.txt b/380/CH11/EX11.7/11_7_R.txt
new file mode 100755
index 000000000..185da1e24
--- /dev/null
+++ b/380/CH11/EX11.7/11_7_R.txt
@@ -0,0 +1,8 @@
+ sub-transient current (in Amperes)=   
+ 
+    14238.479  
+ 
+ transient current (in Amperes)=   
+ 
+    10195.686  
+ 
+\ No newline at end of file
diff --git a/380/CH11/EX11.7/Ex11_7.sce b/380/CH11/EX11.7/Ex11_7.sce
new file mode 100755
index 000000000..0471ee59c
--- /dev/null
+++ b/380/CH11/EX11.7/Ex11_7.sce
@@ -0,0 +1,21 @@
+//Caption:Find the rms value of symmetric subtransient and transient currents
+//Exa:11.7
+clc;
+clear;
+close;
+KVA=71500;//Kilo Volt-Ampere
+V_r=13800;//in Volts
+X_af=0.57;//in per unit
+X_la=0.125;//in per unit
+X_lf=0.239;//in per unit
+X_ld=0.172;//in per unit
+X_ds=X_la+((X_af*X_lf*X_ld)/(X_lf*X_ld+X_af*X_ld+X_af*X_lf));//subtransient reactance(in per unit)
+E_phy=1;//generated voltage (in per unit)
+I_ds=E_phy/X_ds;//short circuit current (in per unit)
+X_d=X_la+((X_af*X_lf)/(X_af+X_lf));//transient reactance (in per unit)
+I_d=E_phy/X_d;//transient current (in per unit)
+I_rated=KVA*1000/(sqrt(3)*V_r);//in Amperes
+I_dsa=I_ds*I_rated;//sub transient current (in Amperes)
+disp(I_dsa,'sub-transient current (in Amperes)=');
+I_da=I_d*I_rated;//transient current (in Amperes)
+disp(I_da,'transient current (in Amperes)=');
+\ No newline at end of file