30 files changed, 554 insertions, 0 deletions

diff --git a/1382/CH5/EX5.1/EX_5_1.sce b/1382/CH5/EX5.1/EX_5_1.sce
new file mode 100755
index 000000000..17c8bb40c
--- /dev/null
+++ b/1382/CH5/EX5.1/EX_5_1.sce
@@ -0,0 +1,8 @@
+// Example 5.1:COUPLING CAPACITOR

+clc;

+clear;

+close;

+Rs=10;//series resistance in killo ohms

+Xc1= Rs/10;//reactance at 20Hz

+C1=(1/(2*%pi*20*Xc1*10^3))*10^6;//CAPACITANCE IN MICRO FARAD

+disp(C1,"capacitance in micro farad is  as this is not a standar value will select 10 micro farad")

diff --git a/1382/CH5/EX5.10/EX_5_10.SCE b/1382/CH5/EX5.10/EX_5_10.SCE
new file mode 100755
index 000000000..acfe30558
--- /dev/null
+++ b/1382/CH5/EX5.10/EX_5_10.SCE
@@ -0,0 +1,18 @@
+// Example 5.9:3-db frequency and bandwidth

+clc;

+clear;

+close;

+Cp=1;//PARALLEL capacitance IN PICO FARAD

+Cs=2;//series capacitance IN micro FARAD

+rs=1;//series resistance in killo ohms

+rp=2;//PARALLEL resistance in killo ohms

+ts= ((rs+rp)*10^3*Cs*10^-6);//time constant

+tp= ((rs*rp)/(rs+rp)*Cp*10^-12);//time constant

+fl= (1/(2*%pi*ts));//lower frequency in  hertz

+fh= (1/(2*%pi*tp));//upper frequency in  hertz

+BW=fh-fl;//bandwidth in  hertz

+ts= (rs+rp)*10^3*Cs*10^-12;//time constant

+disp(ts," time constant in second is")

+disp(fl,"lower 3 dB frequency in  hertz")

+disp(fh,"upper 3 dB frequency in  hertz")

+disp(BW,"bandwidth in hertz is")

diff --git a/1382/CH5/EX5.11/EX_5_11.SCE b/1382/CH5/EX5.11/EX_5_11.SCE
new file mode 100755
index 000000000..8d108e892
--- /dev/null
+++ b/1382/CH5/EX5.11/EX_5_11.SCE
@@ -0,0 +1,28 @@
+/// Example 5.10:low frequecy response

+clc;

+clear;

+close;

+Beta=100;//

+Rs=1;//series resistance in killo ohms

+R1=40;// resistance in killo ohms

+R2=10;// resistance in killo ohms

+hie=1.1;//in killo ohms

+x=(R1*R2)/(R1+R2);//

+Y=(x*hie)/(x+hie);//

+Rin= Y+Rs;//input resistance in killo ohms

+C1=10;//capacitance in micro farad

+fc=(1/(2*%pi*Rin*10^3*C1*10^-6));//CUT OFF FREQUENCY OF INPUT RC NETWORK

+Ce=20;//emitter capacitance in micro farad

+hic=1100;//in ohms

+Rth=(x*Rs)/(x+Rs)*10^3;//

+Rx= (Rth+hic)/(Beta);//

+Rl=2;//resistance in killo ohms

+R= (Rx*Rl*10^3)/(Rx+Rl*10^3);//in ohms

+fc1=(1/(2*%pi*R*Ce*10^-6));//CUT OFF FREQUENCY OF bypass RC NETWORK

+Rl=1.8;//load resistance in killo ohms

+Rc=4;//collector resistance in killo ohms

+C2=1;//capacitance in micro farad

+fc2=(1/(2*%pi*(Rl+Rc)*10^3*C2*10^-6));//CUT OFF FREQUENCY OF outPUT RC NETWORK

+disp(fc,"CUT OFF FREQUENCY OF INPUT RC NETWORK in hertz")

+disp(fc1,"CUT OFF FREQUENCY OF BYPASS RC NETWORK in hertz")

+disp(fc2,"CUT OFF FREQUENCY OF OUTPUT RC NETWORK in hertz")

diff --git a/1382/CH5/EX5.12/EX_5_12.sce b/1382/CH5/EX5.12/EX_5_12.sce
new file mode 100755
index 000000000..d03e8601d
--- /dev/null
+++ b/1382/CH5/EX5.12/EX_5_12.sce
@@ -0,0 +1,32 @@
+// Example 5.12:corner frequency and maximum GAIN
+clc;
+clear;
+close;
+Vcc=10;// Colector voltage in volts
+Beta= 100;
+Rc=1;// Collector resistance in killo ohms
+Rs=600;//SERIES RESISTANCE IN OHMS
+Re=0.2;// in kilo ohms
+R1= 50;// in kilo ohms
+R2= 10;// in kilo ohms
+Vbe=0.7;// Base to emitter voltage in volts
+C1=1;//capacitance in micro farad
+
+Vth=Vcc * (R2/(R1+R2)); // vOLTAGE AT BASE
+
+
+Rth= (R1*R2)/(R1+R2);
+Ib=((Vcc-Vbe)/((Rth+(1+Beta)*Re)*10^3))*10^5;//in micro ampere
+Icq= Beta*Ib*10^-3;//in milli ampere
+Vt=26;//volate at room termprature in milli volts
+gm= (Icq/Vt)*10^3;//transconductance in milli ampere per volts
+rpi= (Beta*Vt*10^-3)/(Icq*10^-3);//resistance
+Rb=Rth;//base resistance in killo ohms
+x=(rpi+(1+Beta)*Re*10^3);//
+y=(Rs+Rb*10^3);//
+ts=((x*y)/(x+y))*C1*10^-3;//in milli second
+fl= (1/(2*%pi*ts*10^-3));//corner frequency in hertz
+Ri=(x*Rb*10^-3)/(Rb+x*10^-3);//
+Av= ((gm*10^-3*rpi*Rc*10^3)*Rb*10^3)/((Ri+Rs*10^-3)*10^3*(x*10^-3+Rb)*10^3);
+disp (fl,"corner frequency in hertz is")
+disp(Av,"maximum gain is")
diff --git a/1382/CH5/EX5.16/EX_5_16.SCE b/1382/CH5/EX5.16/EX_5_16.SCE
new file mode 100755
index 000000000..ab6e4167e
--- /dev/null
+++ b/1382/CH5/EX5.16/EX_5_16.SCE
@@ -0,0 +1,21 @@
+// Example 5.15:TIME CONSTANTS , MIDBAND VOLTAGE GAIN AND COERNER FREQUENCIES

+clc;

+clear;

+close;

+Rl=4;//load resistance in killo ohms

+Rs=250;//SERIES RESISTANCE IN OHMS

+rpi= 2;//resistance IN KILLO OHMS

+Re=0.2;// in kilo ohms

+C1=2;//capacitance in micro farad

+Cl=50;//capacitance in pico farad

+ts=(Rs*10^-3+rpi)*10^3*C1*10^-3;//open circuit time constant in milli second

+tp=Rl*Cl*10^-3;//short circuit time constant in micro second

+gm= 6.5//transconductance in milli ampere per volts

+Av= (((gm*10^-3*rpi*10^3*Rl*10^3))/(Rs*10^-3+rpi)*10^3)*10^-5;//mid voltage gain

+fl=(1/(2*%pi*ts*10^-3));//lower cut off frequency in hertz

+fh=(1/(2*%pi*tp*10^-6))*10^-6;//upper cut off frequency in mega hertz

+disp (ts,"open circuit time constant in milli second is")

+disp(tp,"short circuit time constant in micro second")

+disp(Av,"maximum gain is")

+disp(fl,"lower cut off frequency in hertz")

+disp(fh,"upper cut off frequency in mega hertz")

diff --git a/1382/CH5/EX5.17/EX_5_17.sce b/1382/CH5/EX5.17/EX_5_17.sce
new file mode 100755
index 000000000..d5e4c83f6
--- /dev/null
+++ b/1382/CH5/EX5.17/EX_5_17.sce
@@ -0,0 +1,17 @@
+// Example 5.16:frequency response

+clc;

+clear;

+close;

+Rg=10;//resistance in mega ohms

+Vgs=10;//gate to soure voltage

+Igss=10;//current in nano ampere

+x= (Vgs/Igss)*1000;//resistance in mega ohms

+Rin= ((Rg*x)/(Rg+x));//input resistance in mega ohms

+C1=0.001;//capacitance in micro farad

+fc= (1/(2*%pi*Rin*10^6*C1*10^-6));//input critical frequency of the RC network

+Rd=1.8;//drain resistance in killo ohms

+Rl=18;//load resistance in killo ohms

+C2=1;//Capacitance in micro farad

+fc1=(1/(2*%pi*(Rd+Rl)*10^3*C2*10^-6));//output critical frequency of the RC network

+disp(fc,"input critical frequency of the RC network in hertz")

+disp(fc1,"input critical frequency of the RC network in hertz")

diff --git a/1382/CH5/EX5.18/EX_5_18.sce b/1382/CH5/EX5.18/EX_5_18.sce
new file mode 100755
index 000000000..13be3d841
--- /dev/null
+++ b/1382/CH5/EX5.18/EX_5_18.sce
@@ -0,0 +1,9 @@
+// Example 5.16:fb
+clc;
+clear;
+close;
+rpi=2;//resistance in killo ohms
+Cpi=1.8;//capacitance in pico farad
+Cmu=0.12;//capacitance in pico farad
+fb=(1/(2*%pi*rpi*10^3*(Cpi+Cmu)*10^-6));//frequency in mega hertz
+disp(fb,"frequency in mega hertz")
diff --git a/1382/CH5/EX5.19/EX_5_19.sce b/1382/CH5/EX5.19/EX_5_19.sce
new file mode 100755
index 000000000..2d38e34ce
--- /dev/null
+++ b/1382/CH5/EX5.19/EX_5_19.sce
@@ -0,0 +1,14 @@
+// Example 5.18:bandwidth and capacitance

+clc;

+clear;

+close;

+Vt=26;//voltage in milli volts

+ft=500;//frequecy in mega hertz

+Ic=1;//collector current in mili ampere

+Bo=90;//

+fb=ft/Bo;//frequency in mega hertz

+Cmu=0.2;//capacitance in pico farad

+x= ((Ic*10^-3)/(2*%pi*Vt*10^-3*ft*10^6))*10^12;//

+Cpi= x-Cmu;//

+disp(fb,"bandwidth in mega hertz")

+disp(Cpi,"capacitance of the transistor in pico farad")

diff --git a/1382/CH5/EX5.2/EX_5_2.sce b/1382/CH5/EX5.2/EX_5_2.sce
new file mode 100755
index 000000000..ca7f97eb9
--- /dev/null
+++ b/1382/CH5/EX5.2/EX_5_2.sce
@@ -0,0 +1,12 @@
+// Example 5.2:amplifier gain

+clc;

+clear;

+close;

+f=20;//frequency in hertz

+Avm=100;//mid voltage gain

+fl=40;//lower cut off  frequency in hertz

+fh=16;//lower cut off  frequency in hertz

+Avl= (Avm/(sqrt(1+(fl/f)^2)));//gain at lower cut off frequency

+Avh= (Avm/(sqrt(1+(f/fh)^2)));//gain at upper cut off frequency

+disp(Avl,"gain at lower cut off frequency")

+disp(Avh,"gain at upper cut off frequency")

diff --git a/1382/CH5/EX5.20/EX_5_20.SCE b/1382/CH5/EX5.20/EX_5_20.SCE
new file mode 100755
index 000000000..1d0bf0ade
--- /dev/null
+++ b/1382/CH5/EX5.20/EX_5_20.SCE
@@ -0,0 +1,26 @@
+// Example 5.19:corner frequency 

+clc;

+clear;

+close;

+Rs=1;//series resistance in killo ohms

+Rl=3.7;//load resistance in killo ohms

+Rc=3.7;// Collector resistance in killo ohms

+R1= 200;// in kilo ohms

+R2= 200;// in kilo ohms

+Vbe=0.7;// Base to emitter voltage in volts

+Rb= (R1*R2)/(R1+R2);

+rpi=2.5;//resistance in killo ohms

+Cpi=0.18;//capacitance in pico farad

+gm=40;//transconductance in milli ampere per volts

+y=(Rc*Rl)/(Rc+Rl);//

+Cmu= Cpi*(1+gm*y);//

+Cm2=Cmu;//

+z=(Rs*rpi)/(Rs+rpi);//

+R=(Rb*z)/(Rb+z);//

+C=Cmu+4;//

+f3db= (1/(2*%pi*R*10^3*C))*10^6;//3-dB frequency in mega hertz

+C1=4;//capacitance in pico farad

+f3db1= (1/(2*%pi*R*10^3*C1))*10^6;//3-dB frequency in mega hertz

+disp(f3db,"3-dB frequency in mega hertz due to miller effect")

+disp(f3db1,"3-dB frequency in mega hertz")

+disp("due to miller effect the capacitance gets multiplied by 75 .hence due to miller effect the bandwidth is reduced")

diff --git a/1382/CH5/EX5.21/EX_5_21.sce b/1382/CH5/EX5.21/EX_5_21.sce
new file mode 100755
index 000000000..1c1812333
--- /dev/null
+++ b/1382/CH5/EX5.21/EX_5_21.sce
@@ -0,0 +1,27 @@
+// Example 5.20:mid band gain and upper 3 db frequency
+clc;
+clear;
+close;
+Cpi=40;//in pico farad
+Vt=26;//voltage in milli volts
+Beta=150;//
+Icc=1;//current in milli ampere
+rpi= ((Beta*Vt)/Icc)*10^-3;//
+Icq=1;//current in milli ampere
+gm=(Icq/Vt)*10^3;//transconductance in mili ampere per volt
+Rc=4.7;//collector resistance in killo ohms
+Rl=10;//load resistance in killo ohms
+Rld= (Rc*Rl)/(Rc+Rl);//
+Cmu=3;//capacitance in pico farad
+Cm=round(Cmu*(1+gm*Rld));//miller capacitance in pico farad
+R1= 50;// in kilo ohms
+R2= 5;// in kilo ohms
+Rb= (R1*R2)/(R1+R2);
+rs=1;//in killo ohms
+x=(Rb*rs)/(Rb+rs);//
+y=(rpi*x)/(rpi+x);//
+fh=(1/(2*%pi*y*10^3*(Cmu+Cpi)*10^-6));//3-db upper cut off frequency in mega hertz
+z=(Rb*rpi)/(Rb+rpi);//
+Avm=(gm*Rld*z)/(z+rs);//
+disp(fh,"3-db upper cut off frequency in mega hertz is")
+disp(Avm,"MIDBAND GAIN")
diff --git a/1382/CH5/EX5.22/EX_5_22.sce b/1382/CH5/EX5.22/EX_5_22.sce
new file mode 100755
index 000000000..ed68c4392
--- /dev/null
+++ b/1382/CH5/EX5.22/EX_5_22.sce
@@ -0,0 +1,29 @@
+// Example 5.21:mid band gain and upper 3 db frequency
+clc;
+clear;
+close;
+Cpi=40;//in pico farad
+Vt=26;//voltage in milli volts
+Beta=150;//
+Icq=1;//current in milli ampere
+rpi= ((Beta*Vt)/Icq)*10^-3;//
+gm=(Icq/Vt)*10^3;//transconductance in mili ampere per volt
+rs=1;//in killo ohms
+re=0.5;//in killo ohms
+g=(rs*re)/(rs+re);//
+m=rpi/(1+Beta);//
+tpi= ((m*g)/(m+g))*Cpi*10^-7;//
+fh1=(1/(2*%pi*tpi*10^4));//first 3-db upper cut off frequency in mega hertz
+Rc=4.7;//collector resistance in killo ohms
+Rl=10;//load resistance in killo ohms
+Rld= (Rc*Rl)/(Rc+Rl);//
+Cmu=3;//capacitance in pico farad
+R1= 50;// in kilo ohms
+R2= 5;// in kilo ohms
+Rb= (R1*R2)/(R1+R2);
+fh2=(1/(2*%pi*Cmu*10^-8*Rld*10^3))*10^-2;//second 3-db upper cut off frequency in mega hertz
+x=(m*re)/(m+re);///
+Avm=(gm*Rld*x)/(x+rs);//
+disp(fh1,"3-db upper cut off frequency in mega hertz is")
+disp(fh2,"second 3-db upper cut off frequency in mega hertz")
+disp(Avm,"MIDBAND GAIN")
diff --git a/1382/CH5/EX5.23/EX_5_23.sce b/1382/CH5/EX5.23/EX_5_23.sce
new file mode 100755
index 000000000..83929b546
--- /dev/null
+++ b/1382/CH5/EX5.23/EX_5_23.sce
@@ -0,0 +1,34 @@
+// Example 5.22:mid band gain and upper 3 db frequency
+clc;
+clear;
+close;
+Cmu=3;//capacitance in pico farad
+Cpi=40;//in pico farad
+Vt=26;//voltage in milli volts
+Beta=150;//
+Icq=1;//current in milli ampere
+rpi= ((Beta*Vt)/Icq)*10^-3;//
+gm=(Icq/Vt)*10^3;//transconductance in mili ampere per volt
+rs=1;//in killo ohms
+re=4.7;//in killo ohms
+R1= 40;// in kilo ohms
+R2= 20;// in kilo ohms
+R3= 27;// in kilo ohms
+Rb=(R2*R3)/(R2+R3);//
+g=(rs*rpi)/(rs+rpi);//
+tp1=(((Rb*g)*(Cpi+2*Cmu))/(Rb+g))*10^-9;//in second
+m=rpi/(1+Beta);//
+tp2= m*(Cmu+Cpi)*10^-9;//
+Rc=4.7;//collector resistance in killo ohms
+Rl=10;//load resistance in killo ohms
+Rld= (Rc*Rl)/(Rc+Rl);//
+tp3=Cmu*10^-12*Rld*10^3;//in second
+fh1=(1/(2*%pi*tp1*10^6));//first 3-db upper cut off frequency in mega hertz
+fh2=(1/(2*%pi*tp2*10^6));//second 3-db upper cut off frequency in mega hertz
+fh3=(1/(2*%pi*tp3*10^6));//third 3-db upper cut off frequency in mega hertz
+Avm= -gm*Rld*(rpi/(rpi+1));//
+disp(fh1,"3-db upper cut off frequency in mega hertz is")
+disp(fh2,"second 3-db upper cut off frequency in mega hertz")
+disp(fh3,"third 3-db upper cut off frequency in mega hertz")
+disp(Avm,"MIDBAND GAIN")
+
diff --git a/1382/CH5/EX5.24/EX_5_24.SCE b/1382/CH5/EX5.24/EX_5_24.SCE
new file mode 100755
index 000000000..17dce1596
--- /dev/null
+++ b/1382/CH5/EX5.24/EX_5_24.SCE
@@ -0,0 +1,15 @@
+// Example 5.23:corner frequency and bandwidth

+clc;

+clear;

+close;

+tr=16;//rise time in micro second

+V=100;//voltage in milli volts

+Vd=90;//voltage in milli volts

+f=5;//frequecny in killo hertz

+fh= (0.35/(tr*10^-6))*10^-3;//upper cut off frequency in killo hertz

+P= ((V-Vd)/V)*100;//

+fl=(P*10^3*f)/(100*%pi);//lower cut off frequency in hertz

+BW=(fh*10^3-fl)*10^-3;//bandwith in killo hertz

+disp(fh,"upper cut off frequency in killo hertz")

+disp(fl,"lower cut off frequency in hertz")

+disp(BW,"bandwith in killo hertz")

diff --git a/1382/CH5/EX5.25/EX_5_25.SCE b/1382/CH5/EX5.25/EX_5_25.SCE
new file mode 100755
index 000000000..9a7c0268e
--- /dev/null
+++ b/1382/CH5/EX5.25/EX_5_25.SCE
@@ -0,0 +1,12 @@
+// Example 5.24:PERCENTAGE TILT

+clc;

+clear;

+close;

+Rc=4;//RESISTANCE IN KILLO OHMS

+Rl=2;//RESISTANCE IN KILLO OHMS

+R1=Rc+Rl;//

+C=10;//capacitance in micro farad

+fl=(1/(2*%pi*R1*10^3*C*10^-6));//LOWER CUT -OFF FREQUENCY

+f=200;//frequency in hertz

+P= (%pi*fl)/f;//

+disp(P*100,"percentage tilt is")

diff --git a/1382/CH5/EX5.26/EX_5_26.SCE b/1382/CH5/EX5.26/EX_5_26.SCE
new file mode 100755
index 000000000..4230f1dd6
--- /dev/null
+++ b/1382/CH5/EX5.26/EX_5_26.SCE
@@ -0,0 +1,15 @@
+// Example 5.25:PERCENTAGE TILT

+clc;

+clear;

+close;

+Rc=2;//RESISTANCE IN KILLO OHMS

+Rl=10;//RESISTANCE IN KILLO OHMS

+R1=Rc+Rl;//

+C=10;//capacitance in micro farad

+fl=(1/(2*%pi*R1*10^3*C*10^-6));//LOWER CUT -OFF FREQUENCY

+f=100;//frequency in hertz

+P= (%pi*fl)/f;//

+p1=0.02

+f=(%pi*fl)/p1;//

+disp(P*100,"percentage tilt is")

+disp(f,"as the input frequency increases the percentage tilt decreases")

diff --git a/1382/CH5/EX5.27/EX_5_27.SCE b/1382/CH5/EX5.27/EX_5_27.SCE
new file mode 100755
index 000000000..41c5f6a23
--- /dev/null
+++ b/1382/CH5/EX5.27/EX_5_27.SCE
@@ -0,0 +1,14 @@
+// Example 5.26:fh,fl and bandwidth

+clc;

+clear;

+close;

+fln=25;//in hertz

+fhn=16;//in kelo hertz

+n=3;//

+x=sqrt(2^(1/n)-1);//

+fl=x*fln;//lower cut off frequency in hertz

+fh=fhn/x;//upper cut off frequency in hertz

+BW=fh-fl*10^-3;//bandwidth

+disp(fl,"lower cut off frequency in hertz")

+disp(fh,"upper cut off frequency in killo hertz")

+disp(BW,"bandwidth in killo hertz")

diff --git a/1382/CH5/EX5.28/EX_5_28.SCE b/1382/CH5/EX5.28/EX_5_28.SCE
new file mode 100755
index 000000000..466e6cdfc
--- /dev/null
+++ b/1382/CH5/EX5.28/EX_5_28.SCE
@@ -0,0 +1,14 @@
+// Example 5.27:bandwidth

+clc;

+clear;

+close;

+fl=40;//in hertz

+fh=20;//in kelo hertz

+n=4;//

+x=sqrt(2^(1/n)-1);//

+fhn=x*fh;//lower cut off frequency in hertz

+fln=fl/x;//upper cut off frequency in hertz

+BW=fhn-fln*10^-3;//bandwidth

+disp(fln,"lower cut off frequency in hertz")

+disp(fhn,"upper cut off frequency in killo hertz")

+disp(BW,"bandwidth in killo hertz")

diff --git a/1382/CH5/EX5.29/EX_5_29.SCE b/1382/CH5/EX5.29/EX_5_29.SCE
new file mode 100755
index 000000000..a9fc5a653
--- /dev/null
+++ b/1382/CH5/EX5.29/EX_5_29.SCE
@@ -0,0 +1,13 @@
+// Example 5.28:fh,fl 

+clc;

+clear;

+close;

+fln=20;//in hertz

+fhn=100;//in kelo hertz

+n=3;//

+x=sqrt(2^(1/n)-1);//

+fl=x*fln;//lower cut off frequency in hertz

+fh=fhn/x;//upper cut off frequency in hertz

+disp(fl,"lower cut off frequency in hertz")

+disp(fh,"upper cut off frequency in killo hertz")

+

diff --git a/1382/CH5/EX5.3/EX_5_3.sce b/1382/CH5/EX5.3/EX_5_3.sce
new file mode 100755
index 000000000..980bd3b80
--- /dev/null
+++ b/1382/CH5/EX5.3/EX_5_3.sce
@@ -0,0 +1,10 @@
+// Example 5.3:amplifier gain

+clc;

+clear;

+close;

+f=40;//frequency in hertz

+Avm=40;//mid voltage gain

+fl=40;//lower cut off  frequency in hertz

+Avl= (Avm/(sqrt(1+(fl/f)^2)));//gain at lower cut off frequency

+disp(Avl,"gain at lower cut off frequency")

+

diff --git a/1382/CH5/EX5.30/EX_5_30.SCE b/1382/CH5/EX5.30/EX_5_30.SCE
new file mode 100755
index 000000000..95c2a1e56
--- /dev/null
+++ b/1382/CH5/EX5.30/EX_5_30.SCE
@@ -0,0 +1,23 @@
+// Example 5.29:Avm,Fh,Cc

+clc;

+clear;

+close;

+mu=70;//

+rd=44;//resistance in killo ohms

+gm= mu/(rd);//transconductane in milli ampere per volt

+Rd2=50;//resistance in killo ohms

+x=(rd*Rd2)/(rd+Rd2);//

+Av2m= gm*x;//mid frequency gain of second stage

+Rg=1;//gate resisatnce in mega ohms

+y= (x*Rg*10^3)/(x+Rg*10^3);//

+Av1m= -gm*y;//mid frequency gain of first stage

+Av= Av1m*Av2m;//total gain

+Req=y;//

+Csh=200;//capacitance in pico farad

+fh=(1/(2*%pi*Req*10^3*Csh*10^-9));//upper cut off frequency in killo hertz

+Ro1=x;//

+fl=50;//

+Cc=(1/(2*%pi*fl*(Ro1*10^3+Rg*10^6)))*10^9;//coupling capacitance in nano farad

+disp(Av2m,"mid frequency gain of second stage")

+disp(fh,"upper cut off frequency in killo hertz")

+disp(Cc,"coupling capacitance in nano farad")

diff --git a/1382/CH5/EX5.31/EX_5_31.SCE b/1382/CH5/EX5.31/EX_5_31.SCE
new file mode 100755
index 000000000..7c19d3da0
--- /dev/null
+++ b/1382/CH5/EX5.31/EX_5_31.SCE
@@ -0,0 +1,18 @@
+// Example 5.28:gain

+clc;

+clear;

+close;

+gm= 10;//transconductane in milli ampere per volt

+Csh=20;//capacitance in pico farad

+BW=10;//bandwidth in mega hertz

+fhn=10;//in mega hertz

+n=2;//

+x=sqrt(2^(1/n)-1);//

+fh=fhn/x;//lower cut off frequency in mega hertz

+R=(1/(2*%pi*Csh*10^-12*fh*10^6));//resiatnce in ohms

+Av1=-gm*R*10^-3;//mid frequency gain of first stage

+Av2=Av1;//mid frequency gain of second stage

+Av= Av1*Av2;//total gain

+Avdb=20*(log10(Av));//total gain dB

+disp(Avdb,"total gain in dB is")

+

diff --git a/1382/CH5/EX5.32/EX_5_32.SCE b/1382/CH5/EX5.32/EX_5_32.SCE
new file mode 100755
index 000000000..3abde3d33
--- /dev/null
+++ b/1382/CH5/EX5.32/EX_5_32.SCE
@@ -0,0 +1,31 @@
+// Example 5.31:Avm,Fh,Fl

+clc;

+clear;

+close;

+n=2

+C=50;//in micro farad

+Cc=0.1;//in micro farad

+rd=50;//resis

+Rs=1;//series resistance in killo ohmstance in killo ohms

+gm= 2;//transconductane in milli ampere per volt

+Rd=10;//resistance in killo ohms

+x=(rd*Rd)/(rd+Rd);//

+Av2m= -gm*x;//mid frequency gain of second stage

+Rg=1;//gate resisatnce in mega ohms

+y= (x*Rg*10^3)/(x+Rg*10^3);//

+Avm= -gm*y;//mid frequency gain of first stage

+Av= Avm*Av2m;//total gain

+Avdb=20*(log10(Av));//

+Req=y;//

+Csh=10;//capacitance in pico farad

+fh=(1/(2*%pi*Req*10^3*Csh*10^-6));//upper cut off frequency in mega hertz

+Ro1=y;//

+fl=(1/(2*%pi*Cc*10^-6*Ro1*10^3));//lower cut off frequency in hertz

+x=sqrt(2^(1/n)-1);//

+fhn=x*fh;//lower cut off frequency in hertz

+fln=fl/x;//upper cut off frequency in hertz

+disp(Avdb,"total voltage gain in db")

+disp(fl,"lower cut off frequency in hertz")

+disp(fh,"upper cut off frequency in mega hertz")

+disp(fln,"3 db lower cut off frequency in hertz")

+disp(fhn,"3 db upper cut off frequency in mega hertz")

diff --git a/1382/CH5/EX5.33/EX_5_33.SCE b/1382/CH5/EX5.33/EX_5_33.SCE
new file mode 100755
index 000000000..c134ccf3f
--- /dev/null
+++ b/1382/CH5/EX5.33/EX_5_33.SCE
@@ -0,0 +1,31 @@
+// Example 5.32:Avm,Fh,Fl

+clc;

+clear;

+close;

+n=3

+Cc=0.005;//in micro farad

+C=100;//in pico farad

+rd=7.7;//

+Rs=1;//series resistance in killo ohmstance in killo ohms

+gm= 25;//transconductane in milli ampere per volt

+Rd=10;//resistance in killo ohms

+x=(rd*Rd)/(rd+Rd);//

+Av2m= -gm*x;//mid frequency gain of second stage

+Rg=1;//gate resisatnce in mega ohms

+y= (x*Rg*10^3)/(x+Rg*10^3);//

+Avm= -gm*y;//mid frequency gain of first stage

+Av= Avm*Avm*Avm;//total gain

+Avdb=20*(log10(-Av));//

+Req=y;//

+Csh=100;//capacitance in pico farad

+fh=(1/(2*%pi*Req*10^3*Csh*10^-9));//upper cut off frequency in killo hertz

+Ro1=y;//

+fl=(1/(2*%pi*Cc*10^-6*(Ro1*10^3+Rg*10^6)));//lower cut off frequency in hertz

+x=sqrt(2^(1/n)-1);//

+fhn=x*fh;//lower cut off frequency in hertz

+fln=fl/x;//upper cut off frequency in hertz

+disp(Avdb,"total voltage gain in db")

+disp(fl,"lower cut off frequency in hertz")

+disp(fh,"upper cut off frequency in killo hertz")

+disp(fln,"3 db lower cut off frequency in hertz")

+disp(fhn,"3 db upper cut off frequency in killo hertz")

diff --git a/1382/CH5/EX5.4/EX_5_4.sce b/1382/CH5/EX5.4/EX_5_4.sce
new file mode 100755
index 000000000..c0d1ab1e1
--- /dev/null
+++ b/1382/CH5/EX5.4/EX_5_4.sce
@@ -0,0 +1,9 @@
+// Example 5.4:amplifier gain

+clc;

+clear;

+close;

+f=50;//frequency in hertz

+Avm=150/0.707;//mid voltage gain

+fh=20;//lower cut off  frequency in hertz

+Avh= (Avm/(sqrt(1+(f/fh)^2)));//gain at upper cut off frequency

+disp(Avh,"gain at upper cut off frequency")

diff --git a/1382/CH5/EX5.5/EX_5_5.sce b/1382/CH5/EX5.5/EX_5_5.sce
new file mode 100755
index 000000000..eeb2bb34b
--- /dev/null
+++ b/1382/CH5/EX5.5/EX_5_5.sce
@@ -0,0 +1,7 @@
+// Example 5.5:maximum voltage gain

+clc;

+clear;

+close;

+Avl=100;//voltage gain

+Avm=Avl/0.708;//MID VOLTAGE GAIN

+disp(Avm,"maximum voltage gain is")

diff --git a/1382/CH5/EX5.6/EX_5_6.sce b/1382/CH5/EX5.6/EX_5_6.sce
new file mode 100755
index 000000000..7cf2df1ce
--- /dev/null
+++ b/1382/CH5/EX5.6/EX_5_6.sce
@@ -0,0 +1,14 @@
+// Example 5.6:series capacitance and transfer function

+clc;

+clear;

+close;

+f=100;//frequency in hertz

+fc=25;//corner frequency

+rs=2;//series resistance in killo ohms

+rp=4;//PARALLEL resistance in killo ohms

+Cs= (1/(2*%pi*fc*(rs+rp)*10^3))*10^6;//series capacitance in micro farad

+ts= Cs*10^-6*(rs+rp)*10^3;//time constant

+Tf= ((rp/(rs+rp))*((2*%pi*f*ts)/(sqrt(1+(2*%pi*f*ts)^2))));//transfer function

+disp(Cs,"series capacitance in micro farad")

+disp(Tf,"transfer function is")

+

diff --git a/1382/CH5/EX5.7/EX_5_7.sce b/1382/CH5/EX5.7/EX_5_7.sce
new file mode 100755
index 000000000..f8186b771
--- /dev/null
+++ b/1382/CH5/EX5.7/EX_5_7.sce
@@ -0,0 +1,14 @@
+// Example 5.7:corner frequency and maximum magnitude asymptote

+clc;

+clear;

+close;

+Cp=2;//PARALLEL RESISTANCE IN PICO FARAD

+rs=2;//series resistance in killo ohms

+rp=10;//PARALLEL resistance in killo ohms

+tp= ((rs*rp)/(rs+rp)*10^3*Cp*10^-12);//time constant

+f= (1/(2*%pi*tp))*10^-6;//corner frequency in mega hertz

+Am= rp/(rp+rs);//maximum amplitude

+Amd= 20*(log10(Am));//maximum magnitude aymptote is dB

+disp(f,"corner frequency in mega hertz")

+disp(Amd,"maximum magnitude aymptote is dB is")

+

diff --git a/1382/CH5/EX5.8/EX_5_8.sce b/1382/CH5/EX5.8/EX_5_8.sce
new file mode 100755
index 000000000..78e55c07b
--- /dev/null
+++ b/1382/CH5/EX5.8/EX_5_8.sce
@@ -0,0 +1,16 @@
+// Example 5.8:3-db frequency and bandwidth

+clc;

+clear;

+close;

+Cp=1;//PARALLEL capacitance IN PICO FARAD

+Cs=2;//series capacitance IN micro FARAD

+rs=1;//series resistance in killo ohms

+rp=10;//PARALLEL resistance in killo ohms

+ts= ((rs+rp)*10^3*Cp*10^-12);//time constant

+tp= ((rs*rp)/(rs+rp)*10^3*Cp*10^-12);//time constant

+fl= (1/(2*%pi*ts))*10^-6;//lower frequency in mega hertz

+fh= (1/(2*%pi*tp))*10^-6;//upper frequency in mega hertz

+BW=fh-fl;//bandwidth in mega hertz

+disp(fl,"lower 3 dB frequency in mega hertz")

+disp(fh,"upper 3 dB frequency in mega hertz")

+disp(BW,"bandwidth in mega hertz is")

diff --git a/1382/CH5/EX5.9/EX_5_9.SCE b/1382/CH5/EX5.9/EX_5_9.SCE
new file mode 100755
index 000000000..3ac76be3a
--- /dev/null
+++ b/1382/CH5/EX5.9/EX_5_9.SCE
@@ -0,0 +1,23 @@
+// Example 5.9:3-db frequency and bandwidth

+clc;

+clear;

+close;

+Cp=1;//PARALLEL capacitance IN PICO FARAD

+Cs=2;//series capacitance IN micro FARAD

+rs=1;//series resistance in killo ohms

+rp=10;//PARALLEL resistance in killo ohms

+ts= ((rs+rp)*10^3*Cp*10^-12);//time constant

+tp= ((rs*rp)/(rs+rp)*10^3*Cp*10^-12);//time constant

+fl= (1/(2*%pi*ts))*10^-6;//lower frequency in mega hertz

+fh= (1/(2*%pi*tp))*10^-6;//upper frequency in mega hertz

+BW=fh-fl;//bandwidth in mega hertz

+ts= (rs+rp)*10^3*Cp*10^-12;//open circuit time constant

+tp= ((rs*rp)/(rs+rp))*10^3*Cp*10^-12;//short time constant

+Ts= (rp)/(rs+rp)'//midband transfer function

+Tsdb= 20*(log10(Ts));//midband transfer function in db

+disp(ts,"open circuit time constant is")

+disp(tp,"short circuit time constant is ")

+disp(fl,"lower 3 dB frequency in mega hertz")

+disp(fh,"upper 3 dB frequency in mega hertz")

+disp(BW,"bandwidth in mega hertz is")

+disp(Tsdb,"midband transfer function in db is")