initial commit / add all books

21 files changed, 580 insertions, 0 deletions

diff --git a/1850/CH1/EX1.1/exa_1_1.sce b/1850/CH1/EX1.1/exa_1_1.sce
new file mode 100755
index 000000000..1dd6a3d60
--- /dev/null
+++ b/1850/CH1/EX1.1/exa_1_1.sce
@@ -0,0 +1,27 @@
+// Exa 1.1

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_CC= 10;// in volt

+V_EE= V_CC;

+V_BE= 0.715;// in volt

+R_c1= 2.7;// in k ohm

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

+R_c2= R_c1;// in ohm

+R_E=3.9;// in k ohm

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

+Bita_ac= 100;

+Bita_dc= Bita_ac;

+I_E= (V_EE-V_BE)/(2*R_E);// in amp

+I_C= I_E;// in amp

+V_C= V_CC-I_C*R_c1;// in volt

+V_E= 0-V_BE;// in volt

+V_CE= V_C-V_E;// in volt

+re_desh= 25*10^-3/I_E;

+A_d= R_c1/re_desh;

+disp(I_C*10^3,"Operating current in mA");

+disp(V_CE,"Operating voltage in volt");

+disp(A_d,"Voltage gain")

+

diff --git a/1850/CH1/EX1.10/exa_1_10.sce b/1850/CH1/EX1.10/exa_1_10.sce
new file mode 100755
index 000000000..fa9fbca56
--- /dev/null
+++ b/1850/CH1/EX1.10/exa_1_10.sce
@@ -0,0 +1,28 @@
+// Exa 1.10

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_CC= 9;// in volt

+V_EE= 9;// in volt

+V_BE= 0.7;// in volt (Assuming value)

+R_C= 47;// in k ohm

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

+R_E= 43;// in k ohm

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

+Ri_1= 20;// in ohm

+Ri_2= Ri_1;// in ohm

+v_in1= 2.5;// in mv

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

+Bita_1= 75;

+Bita_2= Bita_1;

+I_CQ = (V_EE-V_BE)/(2*R_E+Ri_1/Bita_1);// in amp

+I_E= I_CQ;// in amp

+V_CEQ= V_CC + V_BE - I_CQ*R_C;// in volt

+re_desh= (26*10^-3)/I_E;// in ohm

+// However, voltage gain of single-input, unbalanced-output differential amplifier is given by so

+A_d = R_C/(2*re_desh);

+v_out= A_d*v_in1;// in volt

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

+

diff --git a/1850/CH1/EX1.11/exa_1_11.sce b/1850/CH1/EX1.11/exa_1_11.sce
new file mode 100755
index 000000000..db2c14880
--- /dev/null
+++ b/1850/CH1/EX1.11/exa_1_11.sce
@@ -0,0 +1,30 @@
+// Exa 1.11

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+R_E_desh= 200;// in ohm

+V_CC= 10;// in volt

+V_EE= 10;// in volt

+V_BE= 0.7;// in volt

+R_C= 2.2;// in k ohm

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

+R_E= 4.7;// in k ohm

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

+Ri_1= 50;// in ohm

+Ri_2= Ri_1;// in ohm

+Bita_dc= 100;

+Bita_ac = Bita_dc;

+I_CQ = (V_EE-V_BE)/(2*R_E+ R_E_desh+Ri_1/Bita_dc);// in amp

+I_E= I_CQ;// in amp

+disp(I_CQ*10^3,"Value of I_CQ in mA");

+V_CEQ= V_CC + V_BE - I_CQ*R_C;// in volt

+disp(V_CEQ,"Value of V_CEQ in volt");

+re_desh= (26*10^-3)/I_E;// in ohm

+A_d = R_C/(re_desh+R_E_desh);

+disp(A_d,"Voltage gain");

+R_in1= 2*Bita_ac*(re_desh+R_E_desh);// in ohm

+disp(R_in1*10^-3,"Input resistance in k ohm");

+R_out1= R_C;// in ohm

+disp(R_out1*10^-3,"Output resistance in k ohm");

diff --git a/1850/CH1/EX1.12/exa_1_12.sce b/1850/CH1/EX1.12/exa_1_12.sce
new file mode 100755
index 000000000..919f28f59
--- /dev/null
+++ b/1850/CH1/EX1.12/exa_1_12.sce
@@ -0,0 +1,34 @@
+// Exa 1.12

+clc;

+clear;

+close;

+// Given data

+V_D1=0.7;// in volt

+V_D2=V_D1;

+V_BE= 0.7;// in volt

+Bita= 100;

+R3=180;// in ohm

+V_EE= 15;// in volt

+V_CC=15;// in volt

+R_C=470;// in ohm

+V_B3= -V_EE+V_D1+V_D2;// in volt

+V_E3= V_B3-V_BE;// in volt

+I_E3= (V_E3-(-V_EE))/R3;// in amp

+

+// Part (i)

+I_CQ= I_E3/2;// in amp

+I_CQ= I_CQ*10^3;// in mA

+I_CQ= ceil(I_CQ);

+I_E=I_CQ;

+disp(I_CQ,"Quiescent current in mA")

+V_CEQ= V_CC + V_BE - I_CQ*10^-3*R_C;// in volt

+disp(V_CEQ,"Value of V_CEQ in volt");

+re_desh= 26/I_E;// in ohm

+// Part(ii)

+A_d = R_C/(re_desh);

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

+// part(iii)

+R_in1= 2*Bita*re_desh;// in ohm

+disp(R_in1*10^-3,"Input resistance in k ohm");

+

+

diff --git a/1850/CH1/EX1.13/exa_1_13.sce b/1850/CH1/EX1.13/exa_1_13.sce
new file mode 100755
index 000000000..8af0cd658
--- /dev/null
+++ b/1850/CH1/EX1.13/exa_1_13.sce
@@ -0,0 +1,39 @@
+// Exa 1.13

+clc;

+clear;

+close;

+// Given data

+Bita_ac= 100;

+Bita_dc= Bita_ac;

+V_BE=0.715;// in volt

+V_D1= V_BE;

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

+R_C=4.7*10^3;// in ohm

+V_EE=10;//in volt

+V_CC= 10;// in volt

+V_Z= 6.2;// in volt

+I_ZT= 41;// in mA

+I_ZT=I_ZT*10^-3;// in amp

+V_B3= -V_EE+V_Z+V_D1;// in volt

+V_E3= V_B3-V_BE;// in volt

+I_E3= (V_E3-(-V_EE))/R3;// in amp

+// I_CQ1= I_CQ2= I_CQ= I_E3/2

+I_CQ= I_E3/2;// in amp

+I_CQ1=I_CQ;

+I_CQ2=I_CQ1;

+I_E=I_CQ;

+V_CEQ= V_CC + V_BE - I_CQ*R_C;// in volt

+

+// Part (c)

+// Thus Q_point= (I_CQ,V_CEQ)

+disp("Operating point values are : "+string(I_CQ*10^3)+" mA and "+string(V_CEQ))

+re_desh= (26*10^-3)/I_E;// in ohm

+

+// Part(a)

+A_d= R_C/re_desh;

+disp(A_d,"Voltage gain");

+

+// part(b)

+R_in= 2*Bita_ac*re_desh;// in ohm

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

+

diff --git a/1850/CH1/EX1.14/exa_1_14.sce b/1850/CH1/EX1.14/exa_1_14.sce
new file mode 100755
index 000000000..3e3baec73
--- /dev/null
+++ b/1850/CH1/EX1.14/exa_1_14.sce
@@ -0,0 +1,12 @@
+// Exa 1.14

+clc;

+clear;

+close;

+// Given data

+V_CC=12;// in volt

+V_BE=0.7;// in volt

+R1= 25;// in k ohm

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

+// I=I_REF= (V_CC-V_BE)/R1

+I= (V_CC-V_BE)/R1; // in amp

+disp(I*10^3,"Mirrored current in mA")

diff --git a/1850/CH1/EX1.15/exa_1_15.sce b/1850/CH1/EX1.15/exa_1_15.sce
new file mode 100755
index 000000000..38645ada0
--- /dev/null
+++ b/1850/CH1/EX1.15/exa_1_15.sce
@@ -0,0 +1,15 @@
+// Exa 1.15

+clc;

+clear;

+close;

+// Given data

+V_CC=10;// in volt

+V_BE=0.7;// in volt

+R1= 15;// in k ohm

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

+Bita=100;

+I_REF= (V_CC-V_BE)/R1;// in amp

+disp(I_REF*10^3,"Reference current in mA")

+I_out= I_REF*Bita/(Bita+2);// in amp

+disp(I_out*10^3,"Output current in mA")

+

diff --git a/1850/CH1/EX1.16/exa_1_16.sce b/1850/CH1/EX1.16/exa_1_16.sce
new file mode 100755
index 000000000..dd3fce637
--- /dev/null
+++ b/1850/CH1/EX1.16/exa_1_16.sce
@@ -0,0 +1,16 @@
+// Exa 1.16

+clc;

+clear;

+close;

+// Given data

+V_CC=15;// in volt

+V_BE=0.7;// in volt

+R_REF= 2.2;// in k ohm

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

+Bita=220;

+I_REF= (V_CC-V_BE)/R_REF;// in amp

+I= I_REF*Bita/(Bita+2);// in amp

+disp(I*10^3,"Current in mA")

+

+

+

diff --git a/1850/CH1/EX1.17/exa_1_17.sce b/1850/CH1/EX1.17/exa_1_17.sce
new file mode 100755
index 000000000..5554a290a
--- /dev/null
+++ b/1850/CH1/EX1.17/exa_1_17.sce
@@ -0,0 +1,14 @@
+// Exa 1.17

+clc;

+clear;

+close;

+// Given data

+V_BE=0.7;// in volt

+V_Z= 1.8;// in volt

+R_E=1;// in k ohm

+Bita=180;

+//V_Z-V_BE-V_B=0

+V_B= V_Z-V_BE;// in volt

+I_E= V_B/R_E;// in mA

+I= Bita/(Bita+1)*I_E;// in mA

+disp(I,"Current in mA")

diff --git a/1850/CH1/EX1.18/exa_1_18.sce b/1850/CH1/EX1.18/exa_1_18.sce
new file mode 100755
index 000000000..9a21df1a6
--- /dev/null
+++ b/1850/CH1/EX1.18/exa_1_18.sce
@@ -0,0 +1,27 @@
+// Exa 1.18

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_BE=0.7;// in volt

+V_CC=9;// in volt

+R1=12;// in k ohm

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

+Bita=100;

+Bita_1= Bita;

+Bita_2=Bita;

+Bita_3=Bita;

+I_REF= (V_CC-2*V_BE)/R1;// in amp

+disp(I_REF*10^3,"Reference current in mA");

+I_out= I_REF/(1+2/(Bita*(1+Bita_3)));// in amp

+disp(I_out*10^3,"Output current in mA");

+I_C2=I_out;// in amp

+disp(I_C2*10^3,"Collector current in mA");

+I_C1= I_C2;

+I_B3= I_REF-I_C1;// in amp

+disp(I_B3*10^6,"Base current of transistor in micro amphere");

+I_E3= I_B3*(1+Bita_3);// in  amp

+disp(I_E3*10^6,"Emitter current of transistor in micro amphere");

+I_B1= I_E3/2;// in amp

+disp(I_B1*10^6,"Base current in micro amphere");

diff --git a/1850/CH1/EX1.19/exa_1_19.sce b/1850/CH1/EX1.19/exa_1_19.sce
new file mode 100755
index 000000000..0093d2391
--- /dev/null
+++ b/1850/CH1/EX1.19/exa_1_19.sce
@@ -0,0 +1,21 @@
+// Exa 1.19

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_BE=0.715;// in volt

+V_CC=9;// in volt

+Bita_dc=100;

+Bita_ac= Bita_dc;

+V_EE= 10;// in volt

+R=5.6;// in k ohm

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

+I_REF= (V_EE-V_BE)/R;// in amp

+// From 2*I_B + I_C1 -I_REF =0

+I_C1= I_REF*Bita_dc/(2+Bita_dc);// in amp

+// By symmetry

+I_C2= I_C1;

+I_C3= I_C2;

+I=3*I_C1;// current through R_C in amp

+disp(I*10^3,"Current through R_C in mA");

diff --git a/1850/CH1/EX1.2/exa_1_2.sce b/1850/CH1/EX1.2/exa_1_2.sce
new file mode 100755
index 000000000..10ed4af22
--- /dev/null
+++ b/1850/CH1/EX1.2/exa_1_2.sce
@@ -0,0 +1,20 @@
+// Exa 1.2

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_CC= 10;// in volt

+V_EE= 10;// in volt

+V_BE=0.7// in volt

+I_C=0.5;// in mA

+I_C=I_C*10^-3;// in amp

+R_C= 10;// in k ohm

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

+R_E= 9.3;// in k ohm

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

+I_E= (V_EE-V_BE)/(2*R_E);// in amp

+I_CQ= I_E;// in amp

+disp(I_CQ*10^3,"Quiescent collector current in mA");

+V_CEQ= V_CC+V_BE-I_C*R_C;// in volt

+disp(V_CEQ,"Quiescent collector emitter voltage in volt");

diff --git a/1850/CH1/EX1.20/exa_1_20.sce b/1850/CH1/EX1.20/exa_1_20.sce
new file mode 100755
index 000000000..e8ba56c91
--- /dev/null
+++ b/1850/CH1/EX1.20/exa_1_20.sce
@@ -0,0 +1,21 @@
+// Exa 1.20

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_BE=0.7;// in volt

+V_CC=5;// in volt

+V_EE=-5;// in volt

+Bita=100;

+R=18.6;// in k ohm

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

+I2= (V_CC-V_BE-V_EE)/R;// in amp

+I_C3=I2;

+I_E= I_C3/2;// in amp

+re_desh= (26*10^-3)/I_E;// in ohm

+re1_desh=re_desh;

+re2_desh=re1_desh;

+R_in1= 2*Bita*re_desh;// in ohm

+R_in2= R_in1

+disp(R_in1*10^-3,"Differential input resistance in k ohm")

diff --git a/1850/CH1/EX1.21/exa_1_21.sce b/1850/CH1/EX1.21/exa_1_21.sce
new file mode 100755
index 000000000..26d8eebed
--- /dev/null
+++ b/1850/CH1/EX1.21/exa_1_21.sce
@@ -0,0 +1,19 @@
+// Exa 1.21

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_BE=0.7;// in volt

+V_CC=18;// in volt

+R_E=1.1;// in k ohm

+R_C=1.8;// in k ohm

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

+R1=4.7;// in k ohm

+R2=5.6;// in k ohm

+R3=6.8;// in k ohm

+I_E1= (V_CC*R1/(R1+R2+R3)-V_BE)/R_E;// in mA

+re_desh= 26/I_E1;// in ohm

+re2_desh=re_desh

+Av= -R_C/re2_desh;

+disp(Av,"Voltage gain of the cascode amplifier is : ")

diff --git a/1850/CH1/EX1.3/exa_1_3.sce b/1850/CH1/EX1.3/exa_1_3.sce
new file mode 100755
index 000000000..25fffe634
--- /dev/null
+++ b/1850/CH1/EX1.3/exa_1_3.sce
@@ -0,0 +1,77 @@
+// Exa 1.3

+clc;

+clear;

+close;

+// Given data

+format('v',9)

+V_CC= 12;// in volt

+V_EE= 12;// in volt

+V_BE= 0.7;// in volt

+R_C= 10;// in k ohm

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

+R_E= 10;// in k ohm

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

+R_B= 20;// in k ohm

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

+Bita_dc= 75;

+// Part (i)

+//Ignoring V_BE

+I_T= V_EE/R_E//in amp   

+I_E= I_T/2;// in amp

+I_C=I_E;

+V_out= V_CC-I_C*R_C// in volt

+disp(V_out,"Output Voltage in volt (Ignoring V_BE)");

+//Considering V_BE

+I_T= (V_EE-V_BE)/R_E//in amp   

+I_E= I_T/2;// in amp

+I_C=I_E;

+V_out= V_CC-I_C*R_C// in volt

+disp(V_out,"Output Voltage in volt (Condidering V_BE)");

+I_T= (V_EE-V_BE)/(R_E+R_B/(2*Bita_dc));// in amp

+I_E= I_T/2;// in amp

+I_C=I_E;

+V_out= V_CC-I_C*R_C// in volt

+disp(V_out,"Output Voltage in volt (With Bita_dc)");

+

+// Part(ii)

+I_C= 0.6;// in mA

+I_C=I_C*10^-3;

+I_B= I_C/Bita_dc;// in amp

+disp(I_B*10^6,"Base current in micro amphere");

+V_B= -I_B*R_B;// in volt

+disp(V_B,"Base Voltage in volt")

+

+// Part (iii)

+Bita_dc= 60;

+I_B1= I_C/Bita_dc;// in amp

+disp(I_B1*10^6,"Base current for transistor Q1 in micro amphere");

+V_B1= -I_B1*R_B;// in volt

+disp(V_B1,"Base Voltage for transistor Q1 in volt")

+Bita_dc= 80;

+I_B2= I_C/Bita_dc;// in amp

+disp(I_B2*10^6,"Base current for transistor Q2 in micro amphere");

+V_B2= -I_B2*R_B;// in volt

+disp(V_B2,"Base Voltage for transistor Q2 in volt")

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

diff --git a/1850/CH1/EX1.4/exa_1_4.sce b/1850/CH1/EX1.4/exa_1_4.sce
new file mode 100755
index 000000000..1e207b10d
--- /dev/null
+++ b/1850/CH1/EX1.4/exa_1_4.sce
@@ -0,0 +1,41 @@
+// Exa 1.4

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_CC= 10;// in volt

+V_EE= 10;// in volt

+V_BE= 0.7;// in volt

+R_C= 2.2;// in k ohm

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

+R_E= 4.7;// in k ohm

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

+Ri_1= 50;// in ohm

+Ri_2= Ri_1;// in ohm

+Bita_dc= 100;

+Bita_ac = Bita_dc;

+// Part (a)

+I_CQ = (V_EE-V_BE)/(2*R_E+Ri_1/Bita_dc);// in amp

+I_E= I_CQ;// in amp

+disp(I_CQ*10^3,"Value of I_CQ in mA");

+V_CEQ= V_CC + V_BE - I_CQ*R_C;// in volt

+disp(V_CEQ,"Value of V_CEQ in volt");

+

+// Part(b)

+re_desh= (26*10^-3)/I_E;// in ohm

+// A_d= V_out/V_ind = R_C/re_desh

+A_d = R_C/re_desh;

+disp(A_d,"Voltage gain ");

+

+// Part(c)

+// R_in1= R_in2= 2*Bita_ac*re_desh

+R_in1= 2*Bita_ac*re_desh;// in ohm

+disp(R_in1*10^-3,"Input resistance in k ohm");

+

+// Part(d)

+// R_out1= R_out2= R_C

+R_out1= R_C;// in ohm

+disp(R_out1*10^-3,"Output resistance in k ohm");

+

+

diff --git a/1850/CH1/EX1.5/exa_1_5.sce b/1850/CH1/EX1.5/exa_1_5.sce
new file mode 100755
index 000000000..36ff00d5e
--- /dev/null
+++ b/1850/CH1/EX1.5/exa_1_5.sce
@@ -0,0 +1,37 @@
+// Exa 1.5

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_CC= 15;// in volt

+V_EE= 15;// in volt

+V_BE= 0.7;// in volt

+R_C= 1;// in M ohm

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

+R_E= R_C;// in ohm

+

+Bita_ac= 100;

+I_E = (V_EE-V_BE)/(2*R_E);// in amp

+re_desh= (26*10^-3)/I_E;// in ohm

+A_d = R_C/re_desh;

+disp(A_d,"Voltage gain ");

+Z_in= 2*Bita_ac*re_desh;// in ohm

+disp(Z_in*10^-6,"Input impedence in M ohm");

+Z_out= R_C;// in ohm

+disp(Z_out*10^-6,"Output impedence in M ohm");

+A_cm= R_C/(2*R_E+re_desh);

+CMRR= A_d/A_cm;

+disp(CMRR,"Common-mode rejection ratio");

+disp("When v_in is zero, the ac output voltage is zero. So total output voltage at the quiescent value in volt")

+I_C=I_E;

+V_out= V_CC-I_C*R_C;// in volt

+disp(V_out);

+// when v_in = 1

+v_in= 1;// in mV

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

+disp("When v_in = 1 mv, the ac output voltage in volt");

+v_out= A_d*v_in;

+disp(v_out);

+

+// Note : Answer of CMRR in the book is wrong due to wrong calculation of A_cm

diff --git a/1850/CH1/EX1.6/exa_1_6.sce b/1850/CH1/EX1.6/exa_1_6.sce
new file mode 100755
index 000000000..b4017e38a
--- /dev/null
+++ b/1850/CH1/EX1.6/exa_1_6.sce
@@ -0,0 +1,17 @@
+// Exa 1.6

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_EE= 5;// in volt

+R_C= 2;// in k ohm

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

+R_E= 4.3;// in k ohm

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

+V_BE=0.7;// in volt (Assuming)

+V_T= 26*10^-3;// in volt

+I_E = (V_EE-V_BE)/(2*R_E);// in amp

+re_desh= V_T/I_E;// in ohm

+A_d = R_C/(2*re_desh);

+disp(A_d,"Voltage gain ");

diff --git a/1850/CH1/EX1.7/exa_1_7.sce b/1850/CH1/EX1.7/exa_1_7.sce
new file mode 100755
index 000000000..2894fcad3
--- /dev/null
+++ b/1850/CH1/EX1.7/exa_1_7.sce
@@ -0,0 +1,21 @@
+// Exa 1.7

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_EE= 5;// in volt

+R_C= 2;// in k ohm

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

+R_E= 4.3;// in k ohm

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

+V_BE=0.7;// in volt (Assuming)

+V_T= 26*10^-3;// in volt

+I_E = (V_EE-V_BE)/(2*R_E);// in amp

+re_desh= V_T/I_E;// in ohm

+A_d = R_C/(2*re_desh);

+A_cm= R_C/(2*R_E+re_desh);

+disp(A_cm,"Common mode gain");

+CMRR= A_d/A_cm;

+disp(CMRR,"Common mode rejection ratio")

+

diff --git a/1850/CH1/EX1.8/exa_1_8.sce b/1850/CH1/EX1.8/exa_1_8.sce
new file mode 100755
index 000000000..8d4915bf7
--- /dev/null
+++ b/1850/CH1/EX1.8/exa_1_8.sce
@@ -0,0 +1,26 @@
+// Exa 1.8

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_CC= 9;// in volt

+V_EE= 9;// in volt

+V_BE= 0.7;// in volt (Assuming value)

+R_C= 47;// in k ohm

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

+R_E= 43;// in k ohm

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

+Ri_1= 20;// in ohm

+Ri_2= Ri_1;// in ohm

+v_in1= 2.5;// in mv

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

+Bita_1= 75;

+Bita_2= Bita_1;

+I_CQ = (V_EE-V_BE)/(2*R_E+Ri_1/Bita_1);// in amp

+I_E= I_CQ;// in amp

+V_CEQ= V_CC + V_BE - I_CQ*R_C;// in volt

+re_desh= (26*10^-3)/I_E;// in ohm

+A_d = R_C/re_desh;

+v_out= A_d*v_in1;// in volt

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

diff --git a/1850/CH1/EX1.9/exa_1_9.sce b/1850/CH1/EX1.9/exa_1_9.sce
new file mode 100755
index 000000000..12313f5de
--- /dev/null
+++ b/1850/CH1/EX1.9/exa_1_9.sce
@@ -0,0 +1,38 @@
+// Exa 1.9

+clc;

+clear;

+close;

+// Given data

+format('v',7)

+V_CC= 10;// in volt

+V_EE= 10;// in volt

+V_BE= 0.7;// in volt

+R_C= 2.2;// in k ohm

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

+R_E= 4.7;// in k ohm

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

+Ri_1= 50;// in ohm

+Ri_2= Ri_1;// in ohm

+Bita_dc= 100;

+Bita_ac = Bita_dc;

+I_CQ = (V_EE-V_BE)/(2*R_E+Ri_1/Bita_dc);// in amp

+I_E= I_CQ;// in amp

+V_CEQ= V_CC + V_BE - I_CQ*R_C;// in volt

+re_desh= (26*10^-3)/I_E;// in ohm

+A_d = R_C/re_desh;

+R_in1= 2*Bita_ac*re_desh;// in ohm

+R_out1= R_C;// in ohm

+disp(I_CQ*10^3,"Quiescent collector current in mA");

+disp(V_CEQ,"Quiescent collector-emitter voltage in volt");

+disp(R_in1*10^-3,"Input resistance in k ohm");

+disp(R_out1*10^-3,"Output resistance in k ohm");

+// However, the voltage gain of dual input , unbalaned output differential amplifier is half the gain of the dual  input, balanced output differential amplifier as

+disp(A_d/2,"Voltage gain")

+

+// (ii)

+disp("Because of same component values and same biasing arrangement the values of I_CQ,V_CEQ,R_in,R_out and A_d are the same as those for dual input balanced output configuration. Thus");

+disp(I_CQ*10^3,"Quiescent collector current in mA");

+disp(V_CEQ,"Quiescent collector-emitter voltage in volt");

+disp(R_in1*10^-3,"Input resistance in k ohm");

+disp(R_out1*10^-3,"Output resistance in k ohm");

+disp(A_d,"Voltage gain")