2 files changed, 16 insertions, 0 deletions
diff --git a/1574/CH8/EX8.15/Result_of_Chapter_8_Ex8_15_Pg334.JPG b/1574/CH8/EX8.15/Result_of_Chapter_8_Ex8_15_Pg334.JPG
new file mode 100755
index 000000000..348e40123
--- /dev/null
+++ b/1574/CH8/EX8.15/Result_of_Chapter_8_Ex8_15_Pg334.JPG
diff --git a/1574/CH8/EX8.15/TL_Ex_8_15_Pg_334.sce b/1574/CH8/EX8.15/TL_Ex_8_15_Pg_334.sce
new file mode 100755
index 000000000..73a8d8183
--- /dev/null
+++ b/1574/CH8/EX8.15/TL_Ex_8_15_Pg_334.sce
@@ -0,0 +1,16 @@
+clc
+//Chapter8
+//Example8.15, page no 334
+//GivenR=0.01
+x=10//line length
+Zo=100// characteristic impedance
+a=0.1// attenuation constant
+Beta=0.05// phase constant
+Is=20e-3// source current
+Gamma=a+ %i*Beta// propagation constant
+
+I=Is/cosh(Gamma*x)// received current
+
+[I_r,I_i]=polar(I)
+
+mprintf('The current received is= %f mA  at phase%f',1000*I_r,I_i*180/%pi)