1 files changed, 14 insertions, 0 deletions
diff --git a/1595/CH12/EX12.9/ex12_9.sce b/1595/CH12/EX12.9/ex12_9.sce
new file mode 100755
index 000000000..3643ffbb6
--- /dev/null
+++ b/1595/CH12/EX12.9/ex12_9.sce
@@ -0,0 +1,14 @@
+//Transmission Lines : example 12-9 : (pg 599)
+j=%i;
+RL=120;//load resistance from smith chart
+ZL=75+j*50;//load impedance
+Z0=50;//characteristic impedance
+a=75/Z0;
+y=50/Z0;//normalized load impedance
+z=2.4;//normalized z at a point that is purely resistive
+ar=z*Z0;//actual resistance
+x=sqrt(Z0*RL);
+printf("\nzl = ZL/Z0 = %.1f + j*%.f",a,y);
+//VSWR,zin,R can be found out from smith chart manually
+printf("\nZ0^ = sqrt(Z0*RL) = %.1f Ohm",x);//characteristic impedance of matcing section
+//^ indicates (') complement sign
+\ No newline at end of file