1 files changed, 14 insertions, 0 deletions
diff --git a/752/CH13/EX13.11.1/13_11_1.sce b/752/CH13/EX13.11.1/13_11_1.sce
new file mode 100755
index 000000000..90eb3e849
--- /dev/null
+++ b/752/CH13/EX13.11.1/13_11_1.sce
@@ -0,0 +1,14 @@
+clc;
+//page no 488
+//prob no. 13.11.1
+d=0.1;//length of 50ohm short-circuited line
+Z0=50;//in ohm
+f=500*10^6;//freq in Hz
+pi=180;
+Bl=2*pi*d;
+//a)Determination of equivalent inductive reactance
+Z=%i*Z0*tand(Bl);
+disp('ohm','i',Z,'The equivalent inductive reactance is');
+//b)Determination of equivalent inductance
+L_eq=Z/(2*%pi*f);
+disp('nH',L_eq*10^9,'The equivalent inductance is');
+\ No newline at end of file