initial commit / add all books

19 files changed, 464 insertions, 0 deletions

diff --git a/2210/CH6/EX6.1/6_1.sce b/2210/CH6/EX6.1/6_1.sce
new file mode 100755
index 000000000..bd84db996
--- /dev/null
+++ b/2210/CH6/EX6.1/6_1.sce
@@ -0,0 +1,13 @@
+//Chapter 6, Problem 1

+clc

+hfe=200                             //dc current gain

+vcc=10                              //supply voltage

+vbe=0.7                             //base to emitter voltage

+ic=1e-3                             //collector current

+vc=5                                //collector voltage

+

+//calculation of operating point

+ib=ic/hfe

+rf=(vc-vbe)/ib

+rc=(vcc-vc)/(ic+ib)

+printf("Operating point Rc = %.3f Kohm",rc/1000)

diff --git a/2210/CH6/EX6.10/6_10.sce b/2210/CH6/EX6.10/6_10.sce
new file mode 100755
index 000000000..aef7a1390
--- /dev/null
+++ b/2210/CH6/EX6.10/6_10.sce
@@ -0,0 +1,17 @@
+//Chapter 6, Problem 10

+clc

+id=-2e-3                             //drain current in ampere

+vds=-8                              //drain to source voltage

+vcc=-14                               //supply voltage

+vs=2.1                                  //source voltage

+vp=5                                    //pinch-off voltage

+idss=-6e-3                           //drain–source current when the gate and source are shorted

+

+//calculating the biasing resistors

+vgs=vp*(1-sqrt(id/idss))

+rs=-vgs/id

+vd=-vds+vs

+rd=((vcc+vd)/id)

+

+disp("Since IG = 0, RG = 1 Mohm (approx)")

+printf("\nRs = %d ohm\nRd = %.2f ohm\n\n",rs,rd)

diff --git a/2210/CH6/EX6.11/6_11.sce b/2210/CH6/EX6.11/6_11.sce
new file mode 100755
index 000000000..ed84736ac
--- /dev/null
+++ b/2210/CH6/EX6.11/6_11.sce
@@ -0,0 +1,18 @@
+//Chapter 6, Problem 11

+clc

+id=5e-3                             //drain current in ampere

+vds=10                              //drain to source voltage

+vcc=18                               //supply voltage

+vs=0.1*vcc                            //source voltage

+vgs=3.2                               //gate to source voltage

+r2=220e3                             //resistance in ohm based upon d.c. input resistance needs

+

+//calculating the biasing resistors

+rs=vs/id

+vg=vgs+vs

+r1=(r2*(vcc-vg)/vg)

+vd=vds+vs

+rd=((vcc-vd)/id)

+

+printf("\nRs = %d ohm\nRd = %.2f ohm\n\n",rs,rd)

+printf("\nR1 = %d Kohm\nR2 = %.2f Kohm\n\n",r1/1000,r2/1000)

diff --git a/2210/CH6/EX6.12/6_12.sce b/2210/CH6/EX6.12/6_12.sce
new file mode 100755
index 000000000..288de4387
--- /dev/null
+++ b/2210/CH6/EX6.12/6_12.sce
@@ -0,0 +1,18 @@
+//Chapter 6, Problem 12

+clc

+id=2e-3                             //drain current in ampere

+vds=6                              //drain to source voltage

+vcc=12                               //supply voltage

+vs=0.1*vcc                            //source voltage

+vgs=1.8                               //gate to source voltage

+r2=220e3                             //resistance in ohm based upon d.c. input resistance needs

+

+//calculating the biasing resistors

+rs=vs/id

+vg=vgs+vs

+r1=(r2*(vcc-vg)/vg)

+vd=vds+vs

+rd=((vcc-vd)/id)

+

+printf("\nRs = %d ohm\nRd = %.2f ohm\n\n",rs,rd)

+printf("\nR1 = %d Kohm\nR2 = %.2f Kohm\n\n",r1/1000,r2/1000)

diff --git a/2210/CH6/EX6.13/6_13.sce b/2210/CH6/EX6.13/6_13.sce
new file mode 100755
index 000000000..b14ce2156
--- /dev/null
+++ b/2210/CH6/EX6.13/6_13.sce
@@ -0,0 +1,27 @@
+//Chapter 6, Problem 13

+clc

+funcprot(0)

+//using Y-parameters given in the case study

+Yin=(18.33+%i*11.59)*10^-3              //in complex form

+y21=(1.09-%i*17.51)*10^-3               //in complex form

+y22=(0.3+%i*1.57)*10^-3                 //in complex form

+Yl=3.33e-3

+

+//defining a funcion 

+deff('[b]=imp1(d)','b={(real(d)^2)+(imag(d)^2)}^0.5');

+deff('[c]=imp2(e)','c=atan(imag(e)/real(e))*180/%pi');

+

+a=y21*Yl

+b=Yin*(y22+Yl)

+

+//calling a function

+[a1]=imp1(a)

+[a2]=imp2(a)

+[b1]=imp1(b)

+[b2]=imp2(b)

+

+Ai1=a1/b1

+Ai2=a2-b2

+

+printf("Ai (magnitude) = %.2f amp\n\n",Ai1)

+printf("Ai (angle) = %.2f degree",Ai2)

diff --git a/2210/CH6/EX6.14/6_14.sce b/2210/CH6/EX6.14/6_14.sce
new file mode 100755
index 000000000..37bdf8a0b
--- /dev/null
+++ b/2210/CH6/EX6.14/6_14.sce
@@ -0,0 +1,18 @@
+//Chapter 6, Problem 14

+clc

+//transistor parameter

+yi=(16+%i*11.78)*10^-3              //in complex form

+y0=(1.55+%i*5.97)*10^-3             //in complex form

+gi=16e-3                            //input conductance

+go=0.19e-3                          //output conductance

+yr_mag=1.55e-3                      //magnitude of yr parameter

+yr_ang=258                          //angle of yr parameter

+yf_mag=45e-3                        //magnitude of yf parameter

+yf_ang=285                           //angle of yf parameter

+

+//calculation of stabilty factor

+a=yr_mag*yf_mag

+b=(2*gi*go)+(yr_mag*yf_mag)

+C=a/b

+

+printf("Linvill stability factor C = %.2f ",C)

diff --git a/2210/CH6/EX6.15/6_15.sce b/2210/CH6/EX6.15/6_15.sce
new file mode 100755
index 000000000..009b9ebf8
--- /dev/null
+++ b/2210/CH6/EX6.15/6_15.sce
@@ -0,0 +1,35 @@
+//Chapter 6, Problem 15

+clc

+funcprot(0)

+// A = p2z(R,Theta) - Convert from polar to rectangular form.

+//    R is a matrix containing the magnitudes

+//    Theta is a matrix containing the phase angles (in degrees).

+function [A] = p2z(R,Theta)

+ A = R*exp(%i*%pi*Theta/180);

+endfunction

+

+// [R, Theta] = z2p(A) - Display polar form of complex matrix.

+function [R, Theta] = z2p(A)

+     Theta = atan(imag(A),real(A))*180/%pi;

+     R=sqrt(real(A)^2+imag(A)^2)

+endfunction

+

+//transistor parameter

+yi=(4.8+%i*4.52)*10^-3              //in complex form

+y0=(0.05+%i*2.26)*10^-3             //in complex form

+gi=4.8e-3                            //input conductance

+go=0.05e-3                          //output conductance

+yr=p2z(0.90e-3,265)                    //in polar form to complex form

+yf=p2z(61e-3,325)                     //in polar form to complex form

+

+[yrm,yra]=z2p(yr)                       //in complex form to polar form

+[yfm,yfa]=z2p(yf)                       //in complex form to polar form

+

+Zs=50+%i*0

+Zl=1000+%i*0

+Ys=1/Zs

+Yl=1/Zl

+a=2*(gi+Ys)*(go+Yl)

+b=(yfm*yrm)+real(yr*yf)

+K=a/b

+printf("Stern stability factor, K = %.2f ",K)

diff --git a/2210/CH6/EX6.16/6_16.sce b/2210/CH6/EX6.16/6_16.sce
new file mode 100755
index 000000000..9c95a708f
--- /dev/null
+++ b/2210/CH6/EX6.16/6_16.sce
@@ -0,0 +1,17 @@
+//Chapter 6, Problem 16

+clc

+//transistor Y parameter

+yi=(16+%i*11.78)*10^-3                  //in complex form

+yf_mag=45e-3

+yf_ang=285

+yr_mag=1.55e-3

+yr_ang=258

+yo=0.19+%i*5.97                      //in complex form

+gi=16e-3                            //input conductance in  siemens

+go=0.19e-3                          //output conductance in  siemens

+

+//calculating maximum available gain

+MAG=yf_mag^2/(4*gi*go)

+MAG_db=10*log10(MAG)

+printf("Maximum available gain = %.2f \n\n",MAG)

+printf("Maximum available gain in dB = %.2f dB",MAG_db)

diff --git a/2210/CH6/EX6.17/6_17.sce b/2210/CH6/EX6.17/6_17.sce
new file mode 100755
index 000000000..12fd7ae2e
--- /dev/null
+++ b/2210/CH6/EX6.17/6_17.sce
@@ -0,0 +1,58 @@
+//Chapter 6, Problem 17

+clc

+// A = p2z(R,Theta) - Convert from polar to rectangular form.

+//    R is a matrix containing the magnitudes

+//    Theta is a matrix containing the phase angles (in degrees).

+function [A] = p2z(R,Theta)

+ A = R*exp(%i*%pi*Theta/180);

+endfunction

+

+//transistor Y parameter

+yi=(17.37+%i*11.28)*10^-3                  //in complex form

+yr_mag=1.17e-3

+yf_mag=130.50e-3

+yr=p2z(1.17e-3,-91)

+yf=p2z(130.50e-3,-69)

+yo=(0.95+%i*3.11)*10^-3                   //in complex form

+f=300e6                                   //frequency in hertz

+Vce=5                                     //base to emitter voltage

+Ic=2e-3                                   //collector current

+gi=17.37e-3                              //input conductance

+go=0.95e-3                               //output conductance

+

+//to calculate linvill stability factor

+a=yf_mag*yr_mag

+b=(2*gi*go)-real(yf*yr)

+c=a/b

+

+//to calculate maximum available gain

+MAG=yf_mag^2/(4*gi*go)

+MAG_db=10*log10(MAG)

+

+//to calculate conjugate input admittance

+m=sqrt(((2*gi*go)-real(yf*yr))^2-(yf_mag*yr_mag)^2)

+n=2*go

+Gs=m/n

+Bs=-imag(yi)+(imag(yf*yr)/(2*go))

+Gsi=Gs+%i*Bs

+

+//to calculate conjugate output admittance

+Gl=Gs*go/gi

+Bl=-imag(yo)+(imag(yf*yr)/(2*gi))

+Gsl=Gl+%i*Bl

+

+//to calculate Stern stability factor

+u=2*(gi+Gs)*(go+Gl)

+v=(yf_mag*yr_mag)+real(yf*yr)

+K=u/v

+

+printf("(1) Linvill stability factor C = %.2f\n\n",c)

+printf("(2) Maximum available gain (MAG) = %.2f dB\n\n",MAG_db)

+printf("(3) Conjugate input admittance \n\treal = %.2f mS \n\timaginary = %.2f mS\n\n",real(Gsi)*1000,imag(Gsi)*1000)

+printf("(4) Conjugate output admittance \n\treal = %.2f mS \n\timaginary = %.2f mS\n\n",real(Gsl)*1000,imag(Gsl)*1000)

+printf("(5) Stern stability factor K = %.2f",K)

+

+

+

+

+

diff --git a/2210/CH6/EX6.18/6_18.sce b/2210/CH6/EX6.18/6_18.sce
new file mode 100755
index 000000000..923694426
--- /dev/null
+++ b/2210/CH6/EX6.18/6_18.sce
@@ -0,0 +1,49 @@
+//Chapter 6, Problem 18

+clc

+funcprot(0)

+// A = p2z(R,Theta) - Convert from polar to rectangular form.

+//    R is a matrix containing the magnitudes

+//    Theta is a matrix containing the phase angles (in degrees).

+function [A] = p2z(R,Theta)

+ A = R*exp(%i*%pi*Theta/180);

+endfunction

+

+// [R1, Theta1] = z2p(A1) - Display polar form of complex matrix.

+function [R1, Theta1] = z2p(A1)

+     Theta1 = atan(imag(A1),real(A1))*180/%pi;

+     R1=sqrt(real(A1)^2+imag(A1)^2)

+endfunction

+

+

+//transistor Y parameter

+yi=(17.37+%i*11.28)*10^-3                  //in complex form

+yr_mag=1.17e-3

+yf_mag=130.50e-3

+yr=p2z(1.17e-3,-91)

+yf=p2z(130.50e-3,-69)

+yo=(0.95+%i*3.11)*10^-3                   //in complex form

+f=300e6                                   //frequency in hertz

+Vce=5                                     //base to emitter voltage

+Ic=2e-3                                   //collector current

+gi=17.37e-3                              //input conductance

+go=0.95e-3                               //output conductance

+

+//to calculate conjugate input admittance

+m=sqrt(((2*gi*go)-real(yf*yr))^2-(yf_mag*yr_mag)^2)

+n=2*go

+Gs=m/n

+Bs=-imag(yi)+(imag(yf*yr)/(2*go))

+Gsi=Gs+%i*Bs

+

+//to calculate conjugate output admittance

+Gl=Gs*go/gi

+Bl=-imag(yo)+(imag(yf*yr)/(2*gi))

+Gsl=Gl+%i*Bl

+

+

+num=4*Gs*Gl*(yf_mag)^2

+den=((yi+Gsi)*(yo+Gsl))-(yf*yr)

+[denm,dena]=z2p(den)

+Gt=num/denm^2

+Gt_db=10*log10(Gt)

+printf("Transducer gain = %.2f dB",Gt_db)

diff --git a/2210/CH6/EX6.19/6_19.sce b/2210/CH6/EX6.19/6_19.sce
new file mode 100755
index 000000000..30f983a25
--- /dev/null
+++ b/2210/CH6/EX6.19/6_19.sce
@@ -0,0 +1,41 @@
+//Chapter 6, Problem 18

+clc

+// A = p2z(R,Theta) - Convert from polar to rectangular form.

+//    R is a matrix containing the magnitudes

+//    Theta is a matrix containing the phase angles (in degrees).

+function [A] = p2z(R,Theta)

+ A = R*exp(%i*%pi*Theta/180);

+endfunction

+

+//transistor parameter

+yi=(2.25+%i*7.2)*10^-3

+yr=p2z(0.70e-3,-85.9)

+yf=p2z(44.72e-3,-26.6)

+yo=(0.4+%i*1.9)*10^-3

+yr_mag=0.70e-3

+yf_mag=44.72e-3

+Rs=250

+Gs=1/Rs

+K=3                                     //stern stability factor

+gi=2.25e-3                            //input conductance

+go=0.4e-3                            //output conductance

+a=K*((yr_mag*yf_mag)+real(yf*yr))

+b=2*(gi+Gs)

+Gl=(a/b)-go

+

+Bl=-imag(yo)

+Yl=Gl+%i*Bl

+

+yin=yi-((yr*yf)/(yo+Yl))

+

+Bs=-imag(yin)

+Ys=Gs+%i*Bs

+

+num=4*Gs*Gl*(yf_mag)^2

+den=real(((yi+Ys)*(yo+Yl))-(yf*yr))^2

+Gt=num/den

+Gt_db=10*log10(Gt)

+

+printf("(a) Load admittance Yl \n\treal = %.2f mS \n\timaginary = %.2f mS\n\n",real(Yl)*1000,imag(Yl)*1000)

+printf("(b) Source admittance Ys \n\treal = %.2f mS \n\timaginary = %.2f mS\n\n",real(Ys)*1000,imag(Ys)*1000)

+printf("(c) Transducer gain = %.2f dB",Gt_db)

diff --git a/2210/CH6/EX6.2/6_2.sce b/2210/CH6/EX6.2/6_2.sce
new file mode 100755
index 000000000..a1edd3b32
--- /dev/null
+++ b/2210/CH6/EX6.2/6_2.sce
@@ -0,0 +1,13 @@
+//Chapter 6, Problem 2

+clc

+hfe=250                             //dc current gain

+vcc=24                              //supply voltage

+vbe=0.7                             //base to emitter voltage

+ic=2e-3                             //collector current

+vc=12                                //collector voltage

+

+//calculation of operating point

+ib=ic/hfe

+rf=(vc-vbe)/ib

+rc=(vcc-vc)/(ic+ib)

+printf("Operating point Rc = %.3f Kohm",rc/1000)

diff --git a/2210/CH6/EX6.3/6_3.sce b/2210/CH6/EX6.3/6_3.sce
new file mode 100755
index 000000000..49d792e12
--- /dev/null
+++ b/2210/CH6/EX6.3/6_3.sce
@@ -0,0 +1,19 @@
+//Chapter 6, Problem 3

+clc

+vbe=0.7                             //base to emitter voltage

+vcc=20                              //supply voltage

+vc=10                                //collector voltage

+ic=5e-3                             //collector current

+hfe=150                             //dc current gain

+vbb=2

+ibb=1e-3

+

+//calculating the biasing resistors

+ib=ic/hfe

+rb=(vbb-vbe)/ib

+r1=vbb/ibb

+rf=((vc-vbb)/(ibb+ib))

+rc=((vcc-vc)/(ic+ib+ibb))

+

+disp("Biasing resistors is given by")

+printf("R1 = %d Kohm\nRb = %.2f Kohm\nRc = %.2f Kohm\nRf = %.2f Kohm",r1/1000,rb/1000,rc/1000,rf/1000)

diff --git a/2210/CH6/EX6.4/6_4.sce b/2210/CH6/EX6.4/6_4.sce
new file mode 100755
index 000000000..01e9810e1
--- /dev/null
+++ b/2210/CH6/EX6.4/6_4.sce
@@ -0,0 +1,22 @@
+//Chapter 6, Problem 4

+clc

+vbe=0.7                             //base to emitter voltage

+ic=1e-3                            //collector current

+vc=6                               //collector voltage

+hf1=100                             //dc current gain

+hf2=250                             //dc current gain

+vcc=12                              //supply voltage

+vbb=1.5

+ibb=0.5e-3

+

+//calculating the biasing resistors

+hfe=sqrt(hf1*hf2)

+ib=ic/hfe

+rb=((vbb-vbe)/ib)

+r1=vbb/ibb

+rf=((vc-vbb)/(ibb+ib))

+rc=((vcc-vc)/(ic+ib+ibb))

+

+disp("Biasing resistor is given by\n")

+printf("R1 = %d Kohm\nRb = %.2f Kohm\nRc = %.2f Kohm\nRf = %.2f Kohm",r1/1000,rb/1000,rc/1000,rf/1000)

+

diff --git a/2210/CH6/EX6.5/6_5.sce b/2210/CH6/EX6.5/6_5.sce
new file mode 100755
index 000000000..20143e0b2
--- /dev/null
+++ b/2210/CH6/EX6.5/6_5.sce
@@ -0,0 +1,22 @@
+//Chapter 6, Problem 5

+clc

+vbe=0.7                             //base to emitter voltage

+ic=10e-3                            //collector current

+vc=10                               //collector voltage

+vcc=20                              //supply voltage

+hfe=50                             //dc current gain

+

+

+//calculating the biasing resistors

+ie=ic                               //assuming for high gain transistor

+ve=(10/100)*vcc

+re=ve/ie

+rc=((vcc-vc)/ic)

+ib=ic/hfe

+vbb=ve+vbe

+ibb=10*ib

+r2=vbb/ibb

+r1=((vcc-vbb)/(ibb+ib))

+

+disp("Biasing resistor is given by\n")

+printf("R1 = %d ohm\nR2 = %.2f ohm\nRc = %.2f ohm\nRe = %.2f ohm",r1,r2,rc,re)

diff --git a/2210/CH6/EX6.6/6_6.sce b/2210/CH6/EX6.6/6_6.sce
new file mode 100755
index 000000000..2926905ea
--- /dev/null
+++ b/2210/CH6/EX6.6/6_6.sce
@@ -0,0 +1,23 @@
+//Chapter 6, Problem 6

+clc

+vbe=0.7                             //base to emitter voltage

+ic=1e-3                            //collector current

+vc=6                               //collector voltage

+vcc=12                              //supply voltage

+hf1=100                             //dc current gain

+hf2=250                             //dc current gain

+ibb=0.5e-3

+

+//calculating the biasing resistors

+ie=ic

+hfe=sqrt(hf1*hf2)

+ve=(10/100)*vcc

+re=ve/ie

+rc=((vcc-vc)/ic)

+ib=ic/hfe

+vbb=ve+vbe

+r2=vbb/ibb

+r1=((vcc-vbb)/(ibb+ib))

+

+disp("Biasing resistor is given by\n")

+printf("R1 = %.2f Kohm\nR2 = %.2f Kohm\nRc = %.2f Kohm\nRe = %.2f Kohm",r1/1000,r2/1000,rc/1000,re/1000)

diff --git a/2210/CH6/EX6.7/6_7.sce b/2210/CH6/EX6.7/6_7.sce
new file mode 100755
index 000000000..895cfbd0d
--- /dev/null
+++ b/2210/CH6/EX6.7/6_7.sce
@@ -0,0 +1,19 @@
+//Chapter 6, Problem 7, figure 6.13

+clc

+vcc=24                                  //supply voltage

+vds=10                                  //drain to source voltage

+id=5e-3                                 //drain current

+vgs=2.3                                 //gate to source voltage

+vs=2.3                                  //source voltage

+vp=-8                                   //pinch-off voltage

+idss=10e-3                              //drain–source current when the gate and source are shorted

+

+//calculating the biasing resistors

+rs=vgs/id

+vd=vds+vs

+rd=(vcc-vd)/id

+vgs=vp*(1-sqrt(id/idss))

+

+disp("Since IG = 0, RG = 1 Mohm (approx)")

+printf("Rs = %.2f ohm\nRd = %.2f ohm\n\n",rs,rd)

+

diff --git a/2210/CH6/EX6.8/6_8.sce b/2210/CH6/EX6.8/6_8.sce
new file mode 100755
index 000000000..895faf584
--- /dev/null
+++ b/2210/CH6/EX6.8/6_8.sce
@@ -0,0 +1,18 @@
+//Chapter 6, Problem 8

+clc

+id=2e-3                             //drain current in ampere

+vds=12                              //drain to source voltage

+vcc=24                              //supply voltage

+idss=8e-3                           //drain–source current when the gate and source are shorted

+vp=-6                               //pinch-off voltage

+

+//calculating the biasing resistors

+vgs=vp*(1-sqrt(id/idss))

+rs=-vgs/id

+vs=-vgs

+vd=vds+vs

+rd=((vcc-vd)/id)

+

+disp("Since IG = 0, RG = 1 Mohm (approx)")

+printf("Rs = %d ohm\nRd = %.2f ohm\n\n",rs,rd)

+

diff --git a/2210/CH6/EX6.9/6_9.sce b/2210/CH6/EX6.9/6_9.sce
new file mode 100755
index 000000000..36d71cce9
--- /dev/null
+++ b/2210/CH6/EX6.9/6_9.sce
@@ -0,0 +1,17 @@
+//Chapter 6, Problem 9

+clc

+id=-5e-3                             //drain current in ampere

+vds=-10                              //drain to source voltage

+vcc=-24                              //supply voltage

+idss=8e-3                           //drain–source current when the gate and source are shorted

+vp=-6                               //pinch-off voltage

+vgs=2.3                             //gate to source voltage

+

+//calculating the biasing resistors

+rs=-vgs/id

+vs=-vgs

+vd=vds+vs

+rd=((vcc-vd)/id)

+

+disp("Since IG = 0, RG = 1 Mohm (approx)")

+printf("\nRs = %.2f ohm\nRd = %.2f ohm\n\n",rs,rd)