21 files changed, 405 insertions, 0 deletions
diff --git a/2702/CH5/EX5.1/Ex_5_1.sce b/2702/CH5/EX5.1/Ex_5_1.sce
new file mode 100644
index 000000000..402e4357e
--- /dev/null
+++ b/2702/CH5/EX5.1/Ex_5_1.sce
@@ -0,0 +1,10 @@
+// Exa 5.1
+clc;
+clear;
+close;
+// Given data
+A= 800;// unit less
+Af= 50;// unit less
+// Formula Af= A/(1+Bita*A)
+Bita= 1/Af-1/A;
+disp(Bita*100,"Percentage of output which is feedback to the input in % is  ")
diff --git a/2702/CH5/EX5.10/Ex_5_10.sce b/2702/CH5/EX5.10/Ex_5_10.sce
new file mode 100644
index 000000000..43909f940
--- /dev/null
+++ b/2702/CH5/EX5.10/Ex_5_10.sce
@@ -0,0 +1,29 @@
+// Exa 5.10
+clc;
+clear;
+close;
+// Given data
+gm=50;
+R_E= 100;// in ohm
+R_S= 1;// in kohm
+R_S=R_S*10^3;// in ohm
+r_pi= 1100;// in ohm
+h_ie= r_pi;
+// Formula Av= Vo/Vs, But Vo= gm*vpi*R_E and Vs= Ib*(Ri+rpi), so
+Av= gm*R_E/(R_S+h_ie)
+// As Vo=Vf, so
+Bita=1;
+D= 1+Bita*Av;
+Avf= Av/D;
+Ri= R_S+r_pi;// in ohm
+Ri= Ri*10^-3;// in kohm
+R_if= Ri*D;// in kohm
+// Ro= infinite, so 
+// Rof= infinite
+disp(Av,"Value of Av is : ")
+disp(Bita,"Value of Bita is : ")
+disp(Avf,"Value of Avf is : ")
+disp(Ri,"Value of Ri in kohm")
+disp(R_if,"Value of R_if in kohm is : ")
+disp("Value of Rof is : ")
+disp("infinite")
diff --git a/2702/CH5/EX5.11/Ex_5_11.sce b/2702/CH5/EX5.11/Ex_5_11.sce
new file mode 100644
index 000000000..ad653aa32
--- /dev/null
+++ b/2702/CH5/EX5.11/Ex_5_11.sce
@@ -0,0 +1,24 @@
+// Exa 5.11
+clc;
+clear;
+close;
+// Given data
+gm=2;// in mA/V
+gm=gm*10^-3;// in A/V
+r_d= 40;// in kohm
+r_d= r_d*10^3;// in ohm
+Rs= 3;// in kohm
+Rs= Rs*10^3;// in ohm
+miu= gm*r_d;
+Bita=1;
+Av= miu*Rs/(r_d+Rs);
+D= 1+Bita*Av;
+Avf= Av/D;
+// Ri=infinite, so R_if = Ri*D = infinite
+Rof= r_d/D;// in ohm
+disp(Av,"Value of Av is : ")
+disp(D,"Value of D is ")
+disp(Avf,"Value of Avf is : ")
+disp("Value of R_if is ")
+disp("infinite")
+disp(Rof,"Value of Rof in ohm is : ")
diff --git a/2702/CH5/EX5.12/Ex_5_12.sce b/2702/CH5/EX5.12/Ex_5_12.sce
new file mode 100644
index 000000000..296fa2548
--- /dev/null
+++ b/2702/CH5/EX5.12/Ex_5_12.sce
@@ -0,0 +1,32 @@
+// Exa 5.12
+clc;
+clear;
+close;
+// Given data
+gm=75;// in A/V
+Rs= 1;// in kohm
+Rs= Rs*10^3;// in ohm
+R_E= 1;// in kohm
+R_E= R_E*10^3;// in ohm
+rpi= 1;// in kohm
+rpi= rpi*10^3;// in ohm
+hie=rpi;
+
+Io= -gm;
+Vi= Rs+R_E+rpi;
+Gm= Io/Vi;
+disp(Gm,"Value of Gm is : ")
+Bita=-R_E;
+disp(Bita,"Value of Bita is : ")
+D= 1+Bita*Gm;
+disp(D,"Value of D is : ")
+Gmf= Gm/D;
+disp(Gmf,"Value of Gmf is : ")
+Ri= Rs+R_E+hie;// in ohm
+Rif= Ri*D;// in ohm
+Rif=Rif*10^-3;// in kohm
+disp(Rif,"Value of Rif in kohm is : ")
+// Ro=infinite, so R_of = Ro*D = infinite
+disp("Value of R_of is ")
+disp("infinite")
+
diff --git a/2702/CH5/EX5.19/Ex_5_19.sce b/2702/CH5/EX5.19/Ex_5_19.sce
new file mode 100644
index 000000000..f275a653d
--- /dev/null
+++ b/2702/CH5/EX5.19/Ex_5_19.sce
@@ -0,0 +1,17 @@
+// Exa 5.19
+clc;
+clear;
+close;
+// Given data
+A= 10^5;
+Af= 100;
+// Formula Af= A/(1+A*Bita)
+Bita= 1/Af-1/A;
+
+//when A= 10^3
+A=10^3;
+Af_desh= A/(1+A*Bita);
+
+delta_Af= Af_desh-Af;
+Perc_Change_inAf= delta_Af/Af*100;// in %
+disp(Perc_Change_inAf,"Percentage change in Af is : ")
diff --git a/2702/CH5/EX5.2/Ex_5_2.sce b/2702/CH5/EX5.2/Ex_5_2.sce
new file mode 100644
index 000000000..86552de31
--- /dev/null
+++ b/2702/CH5/EX5.2/Ex_5_2.sce
@@ -0,0 +1,17 @@
+// Exa 5.2
+clc;
+clear;
+close;
+// Given data
+Af= 100;// unit less
+Vi= 50;// in mV
+Vi= Vi*10^-3;// in V
+Vs= 0.5;// in V
+// Formula Af= Vo/Vs
+Vo= Af*Vs;// in V
+A= Vo/Vi;
+disp(A,"Value of A is : ")
+// Formula Af= A/(1+B*A)
+B= 1/Af-1/A;
+B=B*100;// in %
+disp(B,"Value of B is in percent : ")
diff --git a/2702/CH5/EX5.20/Ex_5_20.sce b/2702/CH5/EX5.20/Ex_5_20.sce
new file mode 100644
index 000000000..51e4208af
--- /dev/null
+++ b/2702/CH5/EX5.20/Ex_5_20.sce
@@ -0,0 +1,22 @@
+// Exa 5.20
+clc;
+clear;
+close;
+// Given data
+A= 100;
+Vs=1;// in volt
+Bita=1;// as in the voltage follower, the output voltage is same as input
+Af= A/(1+Bita*A);
+CLG= 1+A*Bita;// closed loop gain
+disp(CLG,"Closed loop gain is : ")
+CLG_dB= 20*log10(CLG);
+disp(CLG_dB,"Closed loop gain in dB is : ")
+Vo= Af*Vs;// in V
+disp(Vo,"Value of Vo in volt is : ")
+Vi= Vs-Vo;// in V
+disp(round(Vi*10^3),"Value of Vi in mV is : ")
+// If A decrease 10%,i.e.
+A=90;
+Af_desh= A/(1+Bita*A);
+Per_gain_reduction= (Af_desh-Af)/Af*100;// in %
+disp(Per_gain_reduction,"Percentage of gain reduction in %")
diff --git a/2702/CH5/EX5.21/Ex_5_21.sce b/2702/CH5/EX5.21/Ex_5_21.sce
new file mode 100644
index 000000000..70dbcac4d
--- /dev/null
+++ b/2702/CH5/EX5.21/Ex_5_21.sce
@@ -0,0 +1,22 @@
+// Exa 5.21
+clc;
+clear;
+close;
+// Given data
+// Part (a)
+PerError= 1;// in %
+A= 10^5;// (Assumed value)
+ABita= 1/PerError*100;
+Bita= 1/(PerError*A);
+disp("% error               A                   Aß                   1+Aß")
+disp(string(PerError)+"                    "+string(A)+"              "+string(ABita)+"                    "+string(1+ABita))
+// Part (b)
+PerError= 5;// in %
+ABita= 1/PerError*100;
+Bita= 1/(PerError*A);
+disp(string(PerError)+"                    "+string(A)+"               "+string(ABita)+"                      "+string(1+ABita))
+// Part (c)
+PerError= 50;// in %
+ABita= 1/PerError*100;
+Bita= 1/(PerError*A);
+disp(string(PerError)+"                  "+string(A)+"               "+string(ABita)+"                         "+string(1+ABita))
diff --git a/2702/CH5/EX5.22/Ex_5_22.sce b/2702/CH5/EX5.22/Ex_5_22.sce
new file mode 100644
index 000000000..13971823e
--- /dev/null
+++ b/2702/CH5/EX5.22/Ex_5_22.sce
@@ -0,0 +1,17 @@
+// Exa 5.22
+clc;
+clear;
+close;
+// Given data
+S= -20;// sensitivity of closed to open loop gain in dB
+// sensitivity of closed to open loop gain = 1/(1+AB) = S
+// or (1+AB) = -S
+AB= 10^(-S/20) - 1;
+disp(AB,"The loop gain AB for which the sensitivity of closed loop gain to open loop gain is -20 dB, is : ")
+
+// Part (b) when 
+S= 1/2;// sensitivity of closed to open loop gain in dB
+//S= 1/(1+AB)
+AB= 1/S-1;
+disp(AB,"The loop gain AB for which the sensitivity of closed loop gain to open loop gain is 1/2 ,is : ")
+
diff --git a/2702/CH5/EX5.23/Ex_5_23.sce b/2702/CH5/EX5.23/Ex_5_23.sce
new file mode 100644
index 000000000..5fbd6f07a
--- /dev/null
+++ b/2702/CH5/EX5.23/Ex_5_23.sce
@@ -0,0 +1,32 @@
+// Exa 5.23
+clc;
+clear;
+close;
+// Given data
+A=10^5;
+Af= 10^3;
+// Af= A/(1+A*Bita)
+Bita= 1/Af-1/A;
+GDF= 1+A*Bita;// gain densitivity factor
+disp(GDF,"Gain densitivity factor is : ")
+// Part (a) when A drops 10 %
+A_desh= A-A*10/100;
+Af_desh= A_desh/(1+A_desh*Bita);
+CorresPer= (Af-Af_desh)/Af*100;// corresponding percentage in %
+disp(CorresPer,"When A drops by 10 % then corresponding percentage is ")
+// Part (b) when A drops 30 %
+A_desh= A-A*30/100;
+Af_desh= A_desh/(1+A_desh*Bita);
+CorresPer= (Af-Af_desh)/Af*100;// corresponding percentage in %
+disp(CorresPer,"When A drops by 30 % then corresponding percentage is ")
+
+
+
+
+
+
+
+
+
+
+
diff --git a/2702/CH5/EX5.24/Ex_5_24.sce b/2702/CH5/EX5.24/Ex_5_24.sce
new file mode 100644
index 000000000..c3440234b
--- /dev/null
+++ b/2702/CH5/EX5.24/Ex_5_24.sce
@@ -0,0 +1,17 @@
+// Exa 5.24
+clc;
+clear;
+close;
+// Given data
+A=100;
+Af= 10;
+f_L= 100;// in Hz
+f_H= 10;// in kHz
+// Af= A/(1+A*Bita)
+Bita= 1/Af-1/A;
+f_desh_L= f_L/(1+A*Bita);// in Hz
+f_desh_H= f_H/(1+A*Bita);// in kHz
+disp(f_desh_L,"Low frequency in Hz is : ")
+disp(f_desh_H,"High frequency in kHz is : ")
+
+// Note: In the book Calculation to find the value of high frequency i.e. f_desh_H is wrong so the answer in the book is wrong 
diff --git a/2702/CH5/EX5.25/Ex_5_25.sce b/2702/CH5/EX5.25/Ex_5_25.sce
new file mode 100644
index 000000000..5ee6d4261
--- /dev/null
+++ b/2702/CH5/EX5.25/Ex_5_25.sce
@@ -0,0 +1,17 @@
+// Exa 5.25
+clc;
+clear;
+close;
+// Given data
+Vs= 100;// in mV
+Vf= 95;// in mV
+Vs= Vs*10^-3;// in V
+Vf= Vf*10^-3;// in V
+Vo=10;// in V
+Vi= Vs-Vf;// in V
+Av= Vo/Vi;// in V/V
+disp(Av,"Value of A in V/V is : ")
+Bita= Vf/Vo;// in V/V
+disp(Bita,"Value of Bita in V/V is : ")
+
+// Note: In the book Calculation to find the value of Bita is wrong so the asnwer in the book is wrong
diff --git a/2702/CH5/EX5.26/Ex_5_26.sce b/2702/CH5/EX5.26/Ex_5_26.sce
new file mode 100644
index 000000000..ee3285902
--- /dev/null
+++ b/2702/CH5/EX5.26/Ex_5_26.sce
@@ -0,0 +1,17 @@
+// Exa 5.26
+clc;
+clear;
+close;
+// Given data
+Is= 100;// in µA
+Is= Is*10^-6;// in A
+If= 95;// in µA
+If= If*10^-6;// in A
+Io= 10;// in mA
+Io= Io*10^-3;// in A
+A= Io/(Is-If);// n A/A
+Bita= If/Io;// A/A
+disp(A,"Value of A in A/A is : ")
+disp(Bita,"Value of Bita in A/A is : ")
+
+// Note: In the book , to evaluating the value of Bita, they putted wrong value of If (95 at place of 90)
diff --git a/2702/CH5/EX5.28/Ex_5_28.sce b/2702/CH5/EX5.28/Ex_5_28.sce
new file mode 100644
index 000000000..995f1a5bd
--- /dev/null
+++ b/2702/CH5/EX5.28/Ex_5_28.sce
@@ -0,0 +1,21 @@
+// Exa 5.28
+clc;
+clear;
+close;
+// Given data
+A=2000;//V/V
+Bita= 0.1;// inV/V
+Ri= 1;// in kohm
+Ri= Ri*10^3;// in ohm
+Ro= 1;// in kohm
+Ro= Ro*10^3;// in ohm
+Af= A/(1+A*Bita);
+disp(Af,"The gain Af in volt is : ")
+Rif= Ri*(1+A*Bita);// in ohm
+disp(Rif*10^-3,"The input resistance in kohm is : ")
+Rof= Ro/(1+A*Bita);// in ohm
+disp(Rof*10^-3,"The output resistance in kohm is : ")
+
+
+// Note: In the book, to finding the value of Af, Rif and Rof there is missprinting to putting the value of Bita but value of Af and Rif is correct because to calculating Af and Rif , the value of Bita is taken .1 (not .01)
+//          but to evaluating the value of Rof calculation is also wrong so the answer in the book is wrong
diff --git a/2702/CH5/EX5.29/Ex_5_29.sce b/2702/CH5/EX5.29/Ex_5_29.sce
new file mode 100644
index 000000000..2c17b47db
--- /dev/null
+++ b/2702/CH5/EX5.29/Ex_5_29.sce
@@ -0,0 +1,21 @@
+// Exa 5.29
+clc;
+clear;
+close;
+// Given data
+
+// Part (b)
+Af= 10;
+A= 10^4;
+// Af= A/(1+A*Bita);
+Bita= 1/Af-1/A;
+// Bita= R1/(R1+R2)
+R2_by_R1= 1/Bita-1;
+disp(R2_by_R1,"Value of R2/R1 is : ")
+
+// Part (c)
+Vs= 1;// in V
+Vo= (1+R2_by_R1)*Vs;
+disp(Vo,"Value of Vo in volt is : ")
+Vf= Vo/(1+R2_by_R1)
+disp(Vf,"Value of Vf in volt is : ")
diff --git a/2702/CH5/EX5.3/Ex_5_3.sce b/2702/CH5/EX5.3/Ex_5_3.sce
new file mode 100644
index 000000000..ef563a9fc
--- /dev/null
+++ b/2702/CH5/EX5.3/Ex_5_3.sce
@@ -0,0 +1,14 @@
+// Exa 5.3
+clc;
+clear;
+close;
+// Given data
+Bita= 5/100;
+f_H= 50;// in kHz
+f_H= f_H*10^3;// in Hz
+f_L= 50;// in kHz
+Amid= 1000;
+f_LF= f_L/(1+Bita*Amid);// in Hz
+f_HF= f_H*(1+Bita*Amid);// in Hz
+disp(f_LF,"Value of f_LF in Hz is : ")
+disp(f_HF*10^-6,"Value of f_LF in MHz is : ")
diff --git a/2702/CH5/EX5.4/Ex_5_4.sce b/2702/CH5/EX5.4/Ex_5_4.sce
new file mode 100644
index 000000000..ae76d150b
--- /dev/null
+++ b/2702/CH5/EX5.4/Ex_5_4.sce
@@ -0,0 +1,13 @@
+// Exa 5.4
+clc;
+clear;
+close;
+// Given data
+dAf_by_Af= 0.2/100;
+dA_by_A= 150/2000;
+A=2000;
+// Formula dAf_by_Af = 1/(1+Bita*A) * dA_by_A
+Bita= dA_by_A/(A*dAf_by_Af )-1/A;
+Af= A/(1+Bita*A);
+disp(Bita*100,"Value of Bita in percent is ")
+disp(Af,"Value of Af is : ")
diff --git a/2702/CH5/EX5.5/Ex_5_5.sce b/2702/CH5/EX5.5/Ex_5_5.sce
new file mode 100644
index 000000000..3db58b77f
--- /dev/null
+++ b/2702/CH5/EX5.5/Ex_5_5.sce
@@ -0,0 +1,10 @@
+// Exa 5.5
+clc;
+clear;
+close;
+// Given data
+Av= 140;
+Avf= 17.5;
+// Formula Avf= Av/(1+Av*Bita)
+Bita= 1/Avf-1/Av;
+disp(Bita,"Fraction of the output is ")
diff --git a/2702/CH5/EX5.6/Ex_5_6.sce b/2702/CH5/EX5.6/Ex_5_6.sce
new file mode 100644
index 000000000..cacbfffd3
--- /dev/null
+++ b/2702/CH5/EX5.6/Ex_5_6.sce
@@ -0,0 +1,16 @@
+// Exa 5.6
+clc;
+clear;
+close;
+// Given data
+Av= 100;
+Avf= 50;
+// Formula Avf= Av/(1+Av*Bita)
+Bita= 1/Avf-1/Av;
+disp(Bita,"The vlaue of bita is ")
+
+// Part(ii)
+Avf= 75;
+// Formula Avf= Av/(1+Av*Bita)
+Av= Avf/(1-Bita*Avf)
+disp(Av,"Value of amplifier gain is : ")
diff --git a/2702/CH5/EX5.7/Ex_5_7.sce b/2702/CH5/EX5.7/Ex_5_7.sce
new file mode 100644
index 000000000..295270133
--- /dev/null
+++ b/2702/CH5/EX5.7/Ex_5_7.sce
@@ -0,0 +1,22 @@
+// Exa 5.7
+clc;
+clear;
+close;
+// Given data
+Av= 50;
+Avf= 25;
+// Formula Avf= Av/(1+Av*Bita)
+Bita= 1/Avf-1/Av;
+// Part(i)
+Av=50;
+Avf= 40;
+Perc_reduction= (Av-Avf)/Av*100;// Percentage of reduction in stage gain in %
+disp(Perc_reduction,"Without feedback, percentage of reduction in stage gain in % is : ")
+
+// Part(ii)
+Av= 40;
+Avf= 25;
+gain_with_neg_feed= Av/(1+Bita*Av);
+Perc_reduction= (Avf-gain_with_neg_feed)/Avf*100;// in %
+disp(Perc_reduction,"With feedback, percentage reduction in stage gain in % is : ")
+
diff --git a/2702/CH5/EX5.8/Ex_5_8.sce b/2702/CH5/EX5.8/Ex_5_8.sce
new file mode 100644
index 000000000..3341a6ee0
--- /dev/null
+++ b/2702/CH5/EX5.8/Ex_5_8.sce
@@ -0,0 +1,15 @@
+// Exa 5.8
+clc;
+clear;
+close;
+// Given data
+Ao= 10^4;
+Afo= 50;
+omega_H= 2*%pi*100;// in rad/s
+// Formula Afo= Ao/(1+Ao*Bita)
+Bita= 1/Afo-1/Ao;
+omega_f_H= omega_H*(1+Ao*Bita);
+disp("Closed loop bandwidth in rad/s is :  ")
+disp(string(omega_f_H)+" or 2*%pi*20*10^3");
+disp("So the bandwidth increase form 100 Hz to 20 kHz on the gain decreases form 104 to 50")
+