1 files changed, 29 insertions, 0 deletions
diff --git a/2498/CH5/EX5.13/ex5_13.sce b/2498/CH5/EX5.13/ex5_13.sce
new file mode 100755
index 000000000..580fa7d36
--- /dev/null
+++ b/2498/CH5/EX5.13/ex5_13.sce
@@ -0,0 +1,29 @@
+// Exa 5.13
+clc;
+clear;
+close;
+format('v',6)
+// Given data
+R_S = 600;// in ohm
+r_i = 400;// in ohm
+Vs = 1;// in mV
+Vs = Vs * 10^-3;// in V
+//Input voltage
+Vi = Vs*(r_i/(R_S+r_i));// in V
+// Input current
+Ii =Vs/(R_S+r_i);// in A
+Vo = 100;// in mV
+Vo = Vo * 10^-3;// in V
+R_L = 5;// in  k ohm
+R_L = R_L * 10^3;// in ohm
+// Output current 
+Io = Vo/R_L;// in A
+// voltage gain
+A_V =Vo/Vi ; 
+disp(A_V,"The voltage gain is");
+// current gain
+A_I = Io/Ii;
+disp(A_I,"The current gain is");
+// Power gain
+P =A_V*A_I;
+disp(P,"The power gain is");