1 files changed, 25 insertions, 0 deletions
diff --git a/854/CH11/EX11.9/Example11_9.sce b/854/CH11/EX11.9/Example11_9.sce
new file mode 100755
index 000000000..60d901059
--- /dev/null
+++ b/854/CH11/EX11.9/Example11_9.sce
@@ -0,0 +1,25 @@
+//clear//
+//Caption:Program to find the input impedance for a line terminated with pure capacitive impedance
+//Example11.9
+//page363
+clc;
+close;
+ZL = -%i*300; //load impdance is purely capacitive impedance
+ZR  = 300;
+T = reflection_coeff(ZL,ZR);//reflection coefficient in rectandular form
+[R,teta] = polar(T);//reflection coefficient in polar form
+S = VSWR(R)
+if(S ==%inf)
+  Zo = ZR;
+end
+Zin =Zo*(ZL*cos(EL)+%i*Zo*sin(EL))/(Zo*cos(EL)+%i*ZL*sin(EL));
+disp(T,'Reflection coefficient in rectangular form')
+disp(S,'Voltage Standing Wave Ratio S=')
+disp(Zin,'Input impedance in ohms Zin =')
+//Result
+//Reflection coefficient in rectangular form   
+//   - i    
+//Voltage Standing Wave Ratio S=   
+//    Inf  
+//Input impedance in ohms Zin =   
+//    588.78315i