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

---
 2210/CH6/EX6.1/6_1.sce   | 13 +++++++++++
 2210/CH6/EX6.10/6_10.sce | 17 ++++++++++++++
 2210/CH6/EX6.11/6_11.sce | 18 +++++++++++++++
 2210/CH6/EX6.12/6_12.sce | 18 +++++++++++++++
 2210/CH6/EX6.13/6_13.sce | 27 ++++++++++++++++++++++
 2210/CH6/EX6.14/6_14.sce | 18 +++++++++++++++
 2210/CH6/EX6.15/6_15.sce | 35 +++++++++++++++++++++++++++++
 2210/CH6/EX6.16/6_16.sce | 17 ++++++++++++++
 2210/CH6/EX6.17/6_17.sce | 58 ++++++++++++++++++++++++++++++++++++++++++++++++
 2210/CH6/EX6.18/6_18.sce | 49 ++++++++++++++++++++++++++++++++++++++++
 2210/CH6/EX6.19/6_19.sce | 41 ++++++++++++++++++++++++++++++++++
 2210/CH6/EX6.2/6_2.sce   | 13 +++++++++++
 2210/CH6/EX6.3/6_3.sce   | 19 ++++++++++++++++
 2210/CH6/EX6.4/6_4.sce   | 22 ++++++++++++++++++
 2210/CH6/EX6.5/6_5.sce   | 22 ++++++++++++++++++
 2210/CH6/EX6.6/6_6.sce   | 23 +++++++++++++++++++
 2210/CH6/EX6.7/6_7.sce   | 19 ++++++++++++++++
 2210/CH6/EX6.8/6_8.sce   | 18 +++++++++++++++
 2210/CH6/EX6.9/6_9.sce   | 17 ++++++++++++++
 19 files changed, 464 insertions(+)
 create mode 100755 2210/CH6/EX6.1/6_1.sce
 create mode 100755 2210/CH6/EX6.10/6_10.sce
 create mode 100755 2210/CH6/EX6.11/6_11.sce
 create mode 100755 2210/CH6/EX6.12/6_12.sce
 create mode 100755 2210/CH6/EX6.13/6_13.sce
 create mode 100755 2210/CH6/EX6.14/6_14.sce
 create mode 100755 2210/CH6/EX6.15/6_15.sce
 create mode 100755 2210/CH6/EX6.16/6_16.sce
 create mode 100755 2210/CH6/EX6.17/6_17.sce
 create mode 100755 2210/CH6/EX6.18/6_18.sce
 create mode 100755 2210/CH6/EX6.19/6_19.sce
 create mode 100755 2210/CH6/EX6.2/6_2.sce
 create mode 100755 2210/CH6/EX6.3/6_3.sce
 create mode 100755 2210/CH6/EX6.4/6_4.sce
 create mode 100755 2210/CH6/EX6.5/6_5.sce
 create mode 100755 2210/CH6/EX6.6/6_6.sce
 create mode 100755 2210/CH6/EX6.7/6_7.sce
 create mode 100755 2210/CH6/EX6.8/6_8.sce
 create mode 100755 2210/CH6/EX6.9/6_9.sce

(limited to '2210/CH6')

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