1 files changed, 17 insertions, 0 deletions
diff --git a/2210/CH5/EX5.23/5_23.sce b/2210/CH5/EX5.23/5_23.sce
new file mode 100755
index 000000000..f48e3d1fd
--- /dev/null
+++ b/2210/CH5/EX5.23/5_23.sce
@@ -0,0 +1,17 @@
+//Chapter 5, Problem 23, figure 5.65
+clc
+Rs=100                      //resistance in ohm
+Rl=1000                      //resistance in ohm
+Q=15                         //Q factor
+
+//calculation
+Rv=Rl/(Q^2+1)
+Xp2=Rl/Q
+Xs2=Q*Rv
+Q1=sqrt((Rs/Rv)-1)
+Xp1=Rs/Q1
+Xs1=Q1*Rv
+
+printf("Zs = %d ohm\nXp1 = %.3f ohm \nXs1 = %.3f ohm\n",Rs,Xp1,Xs1)
+printf("Xs2 = %.3f ohm\n Xp2 = %.3f ohm\n Zl = %d ohm\n\n",Xs2,Xp2,Rl)
+disp("Four types of matching network is shown in figure 5.66, 5.67, 5.68, 5.69.")