Xcos examples from textbooks and for blocksHEADmaster

2 files changed, 38 insertions, 0 deletions

diff --git a/Working_Examples/83/CH5/EX5.2/example_5_2.sce b/Working_Examples/83/CH5/EX5.2/example_5_2.sce
new file mode 100755
index 0000000..925e68d
--- /dev/null
+++ b/Working_Examples/83/CH5/EX5.2/example_5_2.sce
@@ -0,0 +1,28 @@
+//Chapter 5
+//Example 5.2
+//page 134
+//To find voltage at the bus at the power station end
+clc;clear;
+
+base_MVA=5;
+base_kV=33;
+pf=0.85;
+cable_impedance=(8+%i*2.5);
+cable_impedance=cable_impedance*base_MVA/(base_kV^2);
+
+transf_imp_star=(0.06+%i*0.36)/3; //equivalent star impedance of winding of the transformer
+Zt=(transf_imp_star*5/(6.6^2))+((0.5+%i*3.75)*5/(33^2));
+total=cable_impedance+2*Zt;
+
+load_MVA=1;
+load_voltage=6/6.6;
+load_current=1/load_voltage;
+
+Vs=load_voltage+load_current*(real(total)*pf+imag(total)*sin(acos(pf)));
+Vs=Vs*6.6;
+printf('\n\nCable impedance= (%0.3f+j%0.4f) pu\n',real(cable_impedance),imag(cable_impedance));
+printf('\nEquivalent star impedance of 6.6kV winding of the transformer =(%0.2f+j%0.2f) pu\n',real(transf_imp_star),imag(transf_imp_star));
+printf('\nPer unit transformer impedance,Zt=(%0.4f+j%0.3f) pu\n',real(Zt),imag(Zt));
+printf('\nTotal series impedance=(%0.3f+j%0.3f) pu\n',real(total),imag(total));
+printf('\nSending end Voltage =|Vs|=%0.2fkV (line-to-line)',Vs);
+
diff --git a/Working_Examples/83/CH5/EX5.2/result_example_5_2.txt b/Working_Examples/83/CH5/EX5.2/result_example_5_2.txt
new file mode 100755
index 0000000..f9b1d06
--- /dev/null
+++ b/Working_Examples/83/CH5/EX5.2/result_example_5_2.txt
@@ -0,0 +1,10 @@
+
+Cable impedance= (0.037+j0.0115) pu
+
+Equivalent star impedance of 6.6kV winding of the transformer =(0.02+j0.12) pu
+
+Per unit transformer impedance,Zt=(0.0046+j0.031) pu
+
+Total series impedance=(0.046+j0.073) pu
+
+Sending end Voltage =|Vs|=6.56kV (line-to-line)