1 files changed, 15 insertions, 0 deletions
diff --git a/1574/CH8/EX8.16/TL_Ex_8_16.sce b/1574/CH8/EX8.16/TL_Ex_8_16.sce
new file mode 100755
index 000000000..2cc050683
--- /dev/null
+++ b/1574/CH8/EX8.16/TL_Ex_8_16.sce
@@ -0,0 +1,15 @@
+clc
+//Chapter8
+//Example8.16, page no 349
+//Given
+L=1e-3//inductance
+R=40// Resistance
+C=0.1e-6// capacitance
+G=1e-6//conductance
+w=5000// angular freq
+Zo=sqrt(complex(R,(w*L))/complex(G,(w*C)))//Characteristic impedance
+//Zr=sqrt(sqrt(R^2+(w*L)^2)/sqrt(G^2+(w*C)^2))
+[ZoR,ZoI]=polar(Zo)
+mprintf('The characteristic impedance is %f /_%fdeg',ZoR,ZoI*180/%pi)
+
+// Note :  There are some calculation errors in the solution presented in the book