1 files changed, 12 insertions, 0 deletions
diff --git a/25/CH5/EX5.9/5_9.sce b/25/CH5/EX5.9/5_9.sce
new file mode 100755
index 000000000..047ceab07
--- /dev/null
+++ b/25/CH5/EX5.9/5_9.sce
@@ -0,0 +1,12 @@
+// example:-5.9,page no.-248.
+// program to derive the expression for taoin.
+syms S S11 S22 S12 S21 taol taoin a1 a2 b1 b2 a b;
+S=[S11 S12;S21 S22];
+b=[b1;b2];
+a=[a1;a2];
+b=S*a;
+disp(b)
+//so, S11 will be the reflection coefficient i.e taoin.
+taoin=S11+((S21*S12*taol)/(1-S22*taol));
+// result
+disp(taoin,'the expression for taoin will be=')
+\ No newline at end of file