From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1850/CH3/EX3.10/exa_3_10.sce | 16 ++++++++++++++++
 1850/CH3/EX3.11/exa_3_11.sce | 14 ++++++++++++++
 1850/CH3/EX3.12/exa_3_12.sce | 15 +++++++++++++++
 1850/CH3/EX3.15/exa_3_15.sce | 19 +++++++++++++++++++
 1850/CH3/EX3.16/Exa3_16.sce  | 14 ++++++++++++++
 1850/CH3/EX3.18/exa_3_18.sce | 17 +++++++++++++++++
 1850/CH3/EX3.19/exa_3_19.sce | 22 ++++++++++++++++++++++
 1850/CH3/EX3.2/exa_3_2.sce   | 13 +++++++++++++
 1850/CH3/EX3.20/exa_3_20.sce | 15 +++++++++++++++
 1850/CH3/EX3.21/exa_3_21.sce | 30 ++++++++++++++++++++++++++++++
 1850/CH3/EX3.3/exa_3_3.sce   | 23 +++++++++++++++++++++++
 1850/CH3/EX3.4/exa_3_4.sce   | 22 ++++++++++++++++++++++
 1850/CH3/EX3.5/exa_3_5.sce   | 22 ++++++++++++++++++++++
 1850/CH3/EX3.6/exa_3_6.sce   | 25 +++++++++++++++++++++++++
 1850/CH3/EX3.7/exa_3_7.sce   | 23 +++++++++++++++++++++++
 1850/CH3/EX3.8/exa_3_9.sce   | 23 +++++++++++++++++++++++
 1850/CH3/EX3.9/exa_3_9.sce   | 23 +++++++++++++++++++++++
 17 files changed, 336 insertions(+)
 create mode 100755 1850/CH3/EX3.10/exa_3_10.sce
 create mode 100755 1850/CH3/EX3.11/exa_3_11.sce
 create mode 100755 1850/CH3/EX3.12/exa_3_12.sce
 create mode 100755 1850/CH3/EX3.15/exa_3_15.sce
 create mode 100755 1850/CH3/EX3.16/Exa3_16.sce
 create mode 100755 1850/CH3/EX3.18/exa_3_18.sce
 create mode 100755 1850/CH3/EX3.19/exa_3_19.sce
 create mode 100755 1850/CH3/EX3.2/exa_3_2.sce
 create mode 100755 1850/CH3/EX3.20/exa_3_20.sce
 create mode 100755 1850/CH3/EX3.21/exa_3_21.sce
 create mode 100755 1850/CH3/EX3.3/exa_3_3.sce
 create mode 100755 1850/CH3/EX3.4/exa_3_4.sce
 create mode 100755 1850/CH3/EX3.5/exa_3_5.sce
 create mode 100755 1850/CH3/EX3.6/exa_3_6.sce
 create mode 100755 1850/CH3/EX3.7/exa_3_7.sce
 create mode 100755 1850/CH3/EX3.8/exa_3_9.sce
 create mode 100755 1850/CH3/EX3.9/exa_3_9.sce

(limited to '1850/CH3')

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");
+
+
-- 
cgit