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

---
 1382/CH5/EX5.1/EX_5_1.sce   |  8 ++++++++
 1382/CH5/EX5.10/EX_5_10.SCE | 18 ++++++++++++++++++
 1382/CH5/EX5.11/EX_5_11.SCE | 28 ++++++++++++++++++++++++++++
 1382/CH5/EX5.12/EX_5_12.sce | 32 ++++++++++++++++++++++++++++++++
 1382/CH5/EX5.16/EX_5_16.SCE | 21 +++++++++++++++++++++
 1382/CH5/EX5.17/EX_5_17.sce | 17 +++++++++++++++++
 1382/CH5/EX5.18/EX_5_18.sce |  9 +++++++++
 1382/CH5/EX5.19/EX_5_19.sce | 14 ++++++++++++++
 1382/CH5/EX5.2/EX_5_2.sce   | 12 ++++++++++++
 1382/CH5/EX5.20/EX_5_20.SCE | 26 ++++++++++++++++++++++++++
 1382/CH5/EX5.21/EX_5_21.sce | 27 +++++++++++++++++++++++++++
 1382/CH5/EX5.22/EX_5_22.sce | 29 +++++++++++++++++++++++++++++
 1382/CH5/EX5.23/EX_5_23.sce | 34 ++++++++++++++++++++++++++++++++++
 1382/CH5/EX5.24/EX_5_24.SCE | 15 +++++++++++++++
 1382/CH5/EX5.25/EX_5_25.SCE | 12 ++++++++++++
 1382/CH5/EX5.26/EX_5_26.SCE | 15 +++++++++++++++
 1382/CH5/EX5.27/EX_5_27.SCE | 14 ++++++++++++++
 1382/CH5/EX5.28/EX_5_28.SCE | 14 ++++++++++++++
 1382/CH5/EX5.29/EX_5_29.SCE | 13 +++++++++++++
 1382/CH5/EX5.3/EX_5_3.sce   | 10 ++++++++++
 1382/CH5/EX5.30/EX_5_30.SCE | 23 +++++++++++++++++++++++
 1382/CH5/EX5.31/EX_5_31.SCE | 18 ++++++++++++++++++
 1382/CH5/EX5.32/EX_5_32.SCE | 31 +++++++++++++++++++++++++++++++
 1382/CH5/EX5.33/EX_5_33.SCE | 31 +++++++++++++++++++++++++++++++
 1382/CH5/EX5.4/EX_5_4.sce   |  9 +++++++++
 1382/CH5/EX5.5/EX_5_5.sce   |  7 +++++++
 1382/CH5/EX5.6/EX_5_6.sce   | 14 ++++++++++++++
 1382/CH5/EX5.7/EX_5_7.sce   | 14 ++++++++++++++
 1382/CH5/EX5.8/EX_5_8.sce   | 16 ++++++++++++++++
 1382/CH5/EX5.9/EX_5_9.SCE   | 23 +++++++++++++++++++++++
 30 files changed, 554 insertions(+)
 create mode 100755 1382/CH5/EX5.1/EX_5_1.sce
 create mode 100755 1382/CH5/EX5.10/EX_5_10.SCE
 create mode 100755 1382/CH5/EX5.11/EX_5_11.SCE
 create mode 100755 1382/CH5/EX5.12/EX_5_12.sce
 create mode 100755 1382/CH5/EX5.16/EX_5_16.SCE
 create mode 100755 1382/CH5/EX5.17/EX_5_17.sce
 create mode 100755 1382/CH5/EX5.18/EX_5_18.sce
 create mode 100755 1382/CH5/EX5.19/EX_5_19.sce
 create mode 100755 1382/CH5/EX5.2/EX_5_2.sce
 create mode 100755 1382/CH5/EX5.20/EX_5_20.SCE
 create mode 100755 1382/CH5/EX5.21/EX_5_21.sce
 create mode 100755 1382/CH5/EX5.22/EX_5_22.sce
 create mode 100755 1382/CH5/EX5.23/EX_5_23.sce
 create mode 100755 1382/CH5/EX5.24/EX_5_24.SCE
 create mode 100755 1382/CH5/EX5.25/EX_5_25.SCE
 create mode 100755 1382/CH5/EX5.26/EX_5_26.SCE
 create mode 100755 1382/CH5/EX5.27/EX_5_27.SCE
 create mode 100755 1382/CH5/EX5.28/EX_5_28.SCE
 create mode 100755 1382/CH5/EX5.29/EX_5_29.SCE
 create mode 100755 1382/CH5/EX5.3/EX_5_3.sce
 create mode 100755 1382/CH5/EX5.30/EX_5_30.SCE
 create mode 100755 1382/CH5/EX5.31/EX_5_31.SCE
 create mode 100755 1382/CH5/EX5.32/EX_5_32.SCE
 create mode 100755 1382/CH5/EX5.33/EX_5_33.SCE
 create mode 100755 1382/CH5/EX5.4/EX_5_4.sce
 create mode 100755 1382/CH5/EX5.5/EX_5_5.sce
 create mode 100755 1382/CH5/EX5.6/EX_5_6.sce
 create mode 100755 1382/CH5/EX5.7/EX_5_7.sce
 create mode 100755 1382/CH5/EX5.8/EX_5_8.sce
 create mode 100755 1382/CH5/EX5.9/EX_5_9.SCE

(limited to '1382/CH5')

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