Xcos examples from textbooks and for blocksHEADmaster

2 files changed, 45 insertions, 0 deletions

diff --git a/Working_Examples/83/CH5/EX5.6/example_5_6.sce b/Working_Examples/83/CH5/EX5.6/example_5_6.sce
new file mode 100755
index 0000000..21b98e4
--- /dev/null
+++ b/Working_Examples/83/CH5/EX5.6/example_5_6.sce
@@ -0,0 +1,35 @@
+//Chapter 5
+//Example 5.6
+//page 149
+//to find incident and reflected voltages
+clear;clc;
+
+R=0.125;
+X=0.4;
+y=%i*2.8*10^(-6);
+z=R+%i*X;
+
+r=sqrt(y*z); //propogation constant
+a=real(r); //attenuation constant
+b=imag(r); //phase constant
+
+//(a) At the receiving-end;
+Vr=220000;
+Inci_vol=Vr/(sqrt(3)*2);
+Refl_vol=Vr/(sqrt(3)*2);
+printf('\n\nIncident Vvoltage=%0.2f kV',Inci_vol/1000);
+printf('\nReflected Vvoltage=%0.2f kV',Refl_vol/1000);
+
+//(b) At 200km from the receiving-end
+x=200;
+Inci_vol=Inci_vol*exp(a*x)*exp(%i*b*x);
+Refl_vol=Refl_vol*exp(-a*x)*exp(-%i*b*x);
+printf('\n\nIncident voltage=%0.2f @ %0.1f deg kV',abs(Inci_vol)/1000,atand(imag(Inci_vol)/real(Inci_vol)));
+printf('\nReflected voltage=%0.2f @ %0.1f deg kV',abs(Refl_vol)/1000,atand(imag(Refl_vol)/real(Refl_vol)));
+
+//(c) Resultant voltage at 200km from the receiving-end
+res=Inci_vol+Refl_vol;
+printf('\n\nResultant line-to-line voltage at 200km =%0.2f kV',abs(res)*sqrt(3)/1000);
+
+
+
diff --git a/Working_Examples/83/CH5/EX5.6/result_example_5_6.txt b/Working_Examples/83/CH5/EX5.6/result_example_5_6.txt
new file mode 100755
index 0000000..cd94d77
--- /dev/null
+++ b/Working_Examples/83/CH5/EX5.6/result_example_5_6.txt
@@ -0,0 +1,10 @@
+ 
+
+
+Incident Vvoltage=63.51 kV
+Reflected Vvoltage=63.51 kV
+
+Incident voltage=65.62 @ 12.3 deg kV
+Reflected voltage=61.47 @ -12.3 deg kV
+
+Resultant line-to-line voltage at 200km =215.09 kV