initial commit / add all books

17 files changed, 336 insertions, 0 deletions

diff --git a/1850/CH3/EX3.10/exa_3_10.sce b/1850/CH3/EX3.10/exa_3_10.sce
new file mode 100755
index 000000000..064754120
--- /dev/null
+++ b/1850/CH3/EX3.10/exa_3_10.sce
@@ -0,0 +1,16 @@
+// Exa 3.10

+clc;

+clear;

+close;

+// (i) Given amplifier is an inverting amplifier, where

+// V_out= -R_f/R_in*V_in = 1Mohm/1Mohm*V_in = -V_in, So

+// Av= V_out/V_in

+Av=-1;

+disp(Av,"Input impedence :");

+// (ii) Because it is a unity gain inverter, So I_in= I_out

+// A_in = I_out/I_in

+A_in = 1;

+disp(A_in,"Voltage gain :");

+// (iii) Power gain of op-amp circuit

+A_p=abs(Av*A_in);

+disp(A_p,"Power gain :");

diff --git a/1850/CH3/EX3.11/exa_3_11.sce b/1850/CH3/EX3.11/exa_3_11.sce
new file mode 100755
index 000000000..5f3b118de
--- /dev/null
+++ b/1850/CH3/EX3.11/exa_3_11.sce
@@ -0,0 +1,14 @@
+// Exa 3.11

+clc;

+clear;

+close;

+// Given data

+Av=-30;

+disp("Voltage gain,  Vo/Vi= -R_f/R1 = -30");

+disp("Or R_f= 30*R1");

+disp("Obviously R_f will be larger resistance , being 30 times of R1 and largest resistance value is limited to 1 M ohm, So")

+R_f=1;// in M ohm

+disp(R_f,"Value of R_f in M ohm :");

+R_f= R_f*10^6;// in ohm

+R1=R_f/30;// in ohm

+disp(R1*10^-3,"Value of R1 in k ohm :");

diff --git a/1850/CH3/EX3.12/exa_3_12.sce b/1850/CH3/EX3.12/exa_3_12.sce
new file mode 100755
index 000000000..0755d45ce
--- /dev/null
+++ b/1850/CH3/EX3.12/exa_3_12.sce
@@ -0,0 +1,15 @@
+// Exa 3.12

+clc;

+clear;

+close;

+// Given data

+Av=-8;// voltage gain

+I1=15;// in micro A

+I1=I1*10^-6;// in amp

+Vi=-1;// in volt

+R1=abs(Vi)/I1;/// in ohm

+disp("Resistace R1 is : "+string(R1*10^-3)+" in k ohm (Use 68 k ohm standard value)")

+R1=68;// in k ohm (standard value)

+R_f= -Av*R1;// in ohm

+disp("Resistance R_f is : "+string(R_f)+" k ohm (Use 560 k ohm standard value)")

+

diff --git a/1850/CH3/EX3.15/exa_3_15.sce b/1850/CH3/EX3.15/exa_3_15.sce
new file mode 100755
index 000000000..6d9853e53
--- /dev/null
+++ b/1850/CH3/EX3.15/exa_3_15.sce
@@ -0,0 +1,19 @@
+// Exa 3.15

+clc;

+clear;

+close;

+// Given data

+R_f=20;// in k ohm

+R1=10;// in k ohm

+

+// Part (i)  When switch S is off

+A_off_non_inv= 1+R_f/R1;

+A_off_inv= -R_f/R1;

+A_off = A_off_non_inv + A_off_inv;

+disp(A_off,"Gain of amplifier circuit when switch S is off");

+

+// Part (ii)  When switch S is on

+A_on= -R_f/R1;

+disp(A_on,"Gain of amplifier circuit when switch S is on");

+

+

diff --git a/1850/CH3/EX3.16/Exa3_16.sce b/1850/CH3/EX3.16/Exa3_16.sce
new file mode 100755
index 000000000..54600aced
--- /dev/null
+++ b/1850/CH3/EX3.16/Exa3_16.sce
@@ -0,0 +1,14 @@
+// Exa 3.16

+clear;

+clc; 

+close;

+//Part (a) is a derivation not a numerical problem

+//Part (b) is a plot, and can be plotteed with any assumed value of R

+R=5;//in ohm(assumed)

+V=0:12;//in volt

+I=-V/R//in Ampere

+disp("V-I characteristics is shown in figure.")

+plot(V,I);

+title("V-I characteristics");

+xlabel("V(volt)");

+ylabel("I(Ampere)");

diff --git a/1850/CH3/EX3.18/exa_3_18.sce b/1850/CH3/EX3.18/exa_3_18.sce
new file mode 100755
index 000000000..bd20ae97c
--- /dev/null
+++ b/1850/CH3/EX3.18/exa_3_18.sce
@@ -0,0 +1,17 @@
+// Exa 3.18

+clc;

+clear;

+close;

+// Given data

+R_f=10;// in k ohm

+R1=1;// in k ohm

+V_d= 5;// in mV

+v_cm= 2;// in mV

+A_d= -R_f/R1;

+Vout= A_d*V_d;// in mV

+disp(abs(Vout),"Output voltage in mV : ")

+CMRR_dB= 90;// in dB

+CMRR= 10^(CMRR_dB/20);

+A_cm= abs(A_d)/CMRR

+Mag= A_cm*v_cm;// magnitude of the induced 60 Hz noise at the output in mV

+disp(Mag*10^3," magnitude of the induced 60 Hz noise at the output in micro volt :")

diff --git a/1850/CH3/EX3.19/exa_3_19.sce b/1850/CH3/EX3.19/exa_3_19.sce
new file mode 100755
index 000000000..26bfa9cf7
--- /dev/null
+++ b/1850/CH3/EX3.19/exa_3_19.sce
@@ -0,0 +1,22 @@
+// Exa 3.19

+clc;

+clear;

+close;

+// Given data

+R1=540;// in ohm

+R3=R1;

+R_f=5.4;// in k ohm

+R_f=R_f*10^3;// in ohm

+R2=R_f;// in ohm

+v_in1= -2.5;// in volt

+v_in2= -3.5;// in volt

+R_in=2;// in M ohm

+R_in= R_in*10^6;// in ohm

+A=2*10^5;

+A_d= (1+R_f/R1);

+disp(A_d,"Voltage gain : ");

+v_out=A_d*(v_in1-v_in2);// in volt

+disp(v_out,"Output voltage in volt");

+R_inf1= R_in*(1+A*R1/(R1+R_f));

+R_inf2= R_in*(1+A*R2/(R2+R3));

+disp("Internal resistance : "+string(R_inf1)+" ohm and "+string(R_inf2)+" ohm   ");

diff --git a/1850/CH3/EX3.2/exa_3_2.sce b/1850/CH3/EX3.2/exa_3_2.sce
new file mode 100755
index 000000000..aaad9d514
--- /dev/null
+++ b/1850/CH3/EX3.2/exa_3_2.sce
@@ -0,0 +1,13 @@
+// Exa 3.2

+clc;

+clear;

+close;

+//given data

+R1=2;// in k ohm

+R_f_min=0;

+R_f_max=100; // in k ohm

+A_f_max = 1+R_f_max/R1;

+disp(A_f_max,"Maximum closed loop")

+A_f_min = 1+R_f_min/R1;

+disp(A_f_min,"Minimum closed loop")

+

diff --git a/1850/CH3/EX3.20/exa_3_20.sce b/1850/CH3/EX3.20/exa_3_20.sce
new file mode 100755
index 000000000..83405d77f
--- /dev/null
+++ b/1850/CH3/EX3.20/exa_3_20.sce
@@ -0,0 +1,15 @@
+// Exa 3.20

+clc;

+clear;

+close;

+// Given data

+v_in= 100;// in mili volt

+v_in=v_in*10^-3;// in volt

+v_out= 4.25;// in volt

+// Taking

+R1=100;// in ohm

+// Formula v_out = (1+2*R_f/R1)*v_in

+R_f= R1/2*(v_out/v_in-1);// in ohm

+R_f=R_f*10^-3;// in k ohm

+disp(R_f,"Gain of the circuit in k ohm");

+disp("Use 2.2 k ohm standard value");

diff --git a/1850/CH3/EX3.21/exa_3_21.sce b/1850/CH3/EX3.21/exa_3_21.sce
new file mode 100755
index 000000000..25e354eac
--- /dev/null
+++ b/1850/CH3/EX3.21/exa_3_21.sce
@@ -0,0 +1,30 @@
+// Exa 3.21

+clc;

+clear;

+close;

+// Given data

+R1=3.3;// in k ohm

+R1=R1*10^3;// in ohm

+R2=R1;

+R_p= 2.5;// in k ohm

+R_p =R_p*10^3;// in ohm

+R3=1.2;// in k ohm

+R3=R3*10^3;// in ohm

+R4=R3;

+R_f= 3.9;// in k ohm

+R_f =R_f*10^3;// in ohm

+R5=R_f;

+R_in= 2;// in M ohm

+R_in= R_in*10^6;// in ohm

+R_out= 75;// in ohm

+A=2*10^5;

+f_o= 5;// in Hz

+A_d= -1*(1+2*R1/R_p)*R_f/R3;

+disp(A_d,"Voltage gain ");

+A_d=abs(A_d);

+R_inf= R_in*(1+(R1+R_p)/(2*R1+R_p)*A);// in ohm

+disp(R_inf*10^-9,"Input resistance in G ohm")

+R_outf= R_out/(1+A/A_d);// in ohm

+disp(R_outf,"Output voltage in ohm")

+f_f= A*f_o/A_d;// in Hz

+disp(f_f*10^-3,"Bandwidth in kHz");

diff --git a/1850/CH3/EX3.3/exa_3_3.sce b/1850/CH3/EX3.3/exa_3_3.sce
new file mode 100755
index 000000000..9e0a83a9f
--- /dev/null
+++ b/1850/CH3/EX3.3/exa_3_3.sce
@@ -0,0 +1,23 @@
+// Exa 3.3

+clc;

+clear;

+close;

+//given data

+R1=100;// in  ohm

+R_f=100;// in k ohm

+R_f=R_f*10^3;// in ohm

+A=2*10^5;

+R_in= 2;// in M ohm

+R_in=R_in*10^6;// in ohm

+R_out= 75;// in ohm

+f_o= 5;// in Hz

+B= R1/(R1+R_f);

+FeedbackFactor= A*B;

+A_f = 1+R_f/R1;

+disp(A_f,"Voltage gain")

+R_inf= R_in*(1+A*B);

+disp(R_inf*10^-6,"Input Resistance in M ohm")

+R_outf= R_out/(1+A*B);// in ohm

+disp(R_outf,"Output Resistance in ohm");

+f_f= f_o*(1+A*B);// in Hz

+disp(f_f,"Bandwidth in Hz");

diff --git a/1850/CH3/EX3.4/exa_3_4.sce b/1850/CH3/EX3.4/exa_3_4.sce
new file mode 100755
index 000000000..95cb54381
--- /dev/null
+++ b/1850/CH3/EX3.4/exa_3_4.sce
@@ -0,0 +1,22 @@
+// Exa 3.4

+clc;

+clear;

+close;

+//given data

+R1=1;// in  k ohm

+R1=R1*10^3;// in ohm

+R_f=10;// in k ohm

+R_f=R_f*10^3;// in ohm

+A=200000;

+OutputVoltageSwing= 13;// in volt

+SupplyVoltage=15;// in volt

+Ri= 2;// in M ohm

+Ri=Ri*10^6;// in ohm

+Ro= 75;// in ohm

+fo= 5;// in Hz

+B= R1/(R1+R_f);

+AB = A*B;

+R_outf= Ro/(1+A*B);// in ohm

+disp(R_outf*10^3,"Output Resistance in m ohm");

+V_ooT= OutputVoltageSwing/(1+A*B);// in volt

+disp(V_ooT*10^3,"Output offset voltage in mV");

diff --git a/1850/CH3/EX3.5/exa_3_5.sce b/1850/CH3/EX3.5/exa_3_5.sce
new file mode 100755
index 000000000..27c268c5b
--- /dev/null
+++ b/1850/CH3/EX3.5/exa_3_5.sce
@@ -0,0 +1,22 @@
+// Exa 3.5

+clc;

+clear;

+close;

+//given data

+R_in= 2;// in  M ohm

+R_in=R_in*10^6;// in ohm

+R_out=75;// in  ohm

+A=2*10^5;

+f_o=5;// in Hz

+// For voltage follower

+B=1; // since R_f=0

+A_f=1;

+disp(A_f,"Voltage gain :");

+R_inf= A*R_in;// in ohm

+R_inf=R_inf*10^-9;// in G ohm

+disp(R_inf,"Input resistance in G ohm");

+R_outf= R_out/A;// in ohm

+disp(R_outf,"Output resistance in ohm");

+f_f= A*f_o;// in Hz

+disp(f_f*10^-6,"Bandwidth in MHz");

+

diff --git a/1850/CH3/EX3.6/exa_3_6.sce b/1850/CH3/EX3.6/exa_3_6.sce
new file mode 100755
index 000000000..f19443028
--- /dev/null
+++ b/1850/CH3/EX3.6/exa_3_6.sce
@@ -0,0 +1,25 @@
+// Exa 3.6

+clc;

+clear;

+close;

+//given data

+R1=330;// in  ohm

+R_f=3.3;// in k ohm

+R_f=R_f*10^3;// in ohm

+R_in= 2;// in  M ohm

+R_in=R_in*10^6;// in ohm

+R_out=75;// in  ohm

+A=2*10^5;

+f_o=5;// in Hz

+B= R1/(R1+R_f);

+AB= A*B;

+A_f = -R_f/R1;

+disp(A_f,"Voltage gain")

+R_inf= R1;

+disp(R_inf,"Input Resistance in ohm")

+R_outf= R_out/(1+A*B);// in ohm

+disp(R_outf,"Output Resistance in ohm");

+f_f= f_o*(1+A*B);// in Hz

+disp(f_f*10^-3,"Bandwidth in kHz");

+

+

diff --git a/1850/CH3/EX3.7/exa_3_7.sce b/1850/CH3/EX3.7/exa_3_7.sce
new file mode 100755
index 000000000..3b64cef2c
--- /dev/null
+++ b/1850/CH3/EX3.7/exa_3_7.sce
@@ -0,0 +1,23 @@
+// Exa 3.7

+clc;

+clear;

+close;

+//given data

+R_in= 2;// in  M ohm

+R_in=R_in*10^6;// in ohm

+R_out=75;// in  ohm

+A=2*10^5;

+f_o=5;// in Hz

+R1=330;// in ohm (assuming)

+R_f=R1;

+B= R1/(R1+R_f);

+A_f = -1;

+disp(A_f,"Voltage gain")

+R_inf= R1;

+disp(R_inf,"Input Resistance in ohm")

+R_outf= R_out/(A/2);// in ohm

+disp(R_outf,"Output Resistance in ohm");

+f_f= f_o*A/2;// in Hz

+disp(f_f*10^-6,"Bandwidth in MHz");

+

+

diff --git a/1850/CH3/EX3.8/exa_3_9.sce b/1850/CH3/EX3.8/exa_3_9.sce
new file mode 100755
index 000000000..0d67cdf69
--- /dev/null
+++ b/1850/CH3/EX3.8/exa_3_9.sce
@@ -0,0 +1,23 @@
+// Exa 3.9

+clc;

+clear;

+close;

+//given data

+R1=5;// in  k ohm

+R1=R1*10^3;// in ohm

+R_f=500;// in k ohm

+R_f=R_f*10^3;// in ohm

+V_in= 0.1;// in volt

+A_f = -R_f/R1;

+OutPutResOfopamp=0;// in ohm

+disp(A_f,"Voltage gain")

+R_in= R1;// in ohm

+disp(R_in*10^-3,"Input Resistance in k ohm")

+R_out=OutPutResOfopamp;// in ohm

+disp(R_out,"Output Resistance in ohm");

+V_out= A_f*V_in;// in volt

+disp(V_out,"Output voltage in volt");

+I_in= V_in/R1;// in amp

+disp(I_in*10^3,"Input Current in mA");

+

+

diff --git a/1850/CH3/EX3.9/exa_3_9.sce b/1850/CH3/EX3.9/exa_3_9.sce
new file mode 100755
index 000000000..0d67cdf69
--- /dev/null
+++ b/1850/CH3/EX3.9/exa_3_9.sce
@@ -0,0 +1,23 @@
+// Exa 3.9

+clc;

+clear;

+close;

+//given data

+R1=5;// in  k ohm

+R1=R1*10^3;// in ohm

+R_f=500;// in k ohm

+R_f=R_f*10^3;// in ohm

+V_in= 0.1;// in volt

+A_f = -R_f/R1;

+OutPutResOfopamp=0;// in ohm

+disp(A_f,"Voltage gain")

+R_in= R1;// in ohm

+disp(R_in*10^-3,"Input Resistance in k ohm")

+R_out=OutPutResOfopamp;// in ohm

+disp(R_out,"Output Resistance in ohm");

+V_out= A_f*V_in;// in volt

+disp(V_out,"Output voltage in volt");

+I_in= V_in/R1;// in amp

+disp(I_in*10^3,"Input Current in mA");

+

+