9 files changed, 95 insertions, 0 deletions
diff --git a/377/CH6/EX6.1/6_1.sce b/377/CH6/EX6.1/6_1.sce
new file mode 100644
index 000000000..c54dbc49a
--- /dev/null
+++ b/377/CH6/EX6.1/6_1.sce
@@ -0,0 +1,6 @@
+disp("ρ=1/(q*μe*n)");
+n=9*10^14;
+c=1400;  //say c=μe
+q=1.6*10^-19;
+a=1/(q*c*n);
+printf('\n The value of ρ is %f ohm-cm',a);
+\ No newline at end of file
diff --git a/377/CH6/EX6.2/6_2.sce b/377/CH6/EX6.2/6_2.sce
new file mode 100644
index 000000000..772198890
--- /dev/null
+++ b/377/CH6/EX6.2/6_2.sce
@@ -0,0 +1,12 @@
+disp("σ=q*(μe*n+μh*p)");
+b=510;  //say μe=b
+c=187;  //say μh=c
+n=10^16;
+p=2.25*10^4;
+q=1.6*10^-19;
+a=q*((b*n)+(c*p));
+printf('\n The value of σ is %f/ohm/cm',a);
+d=a*10^-2;
+l=2;A=2;
+R=l/(d*A);
+printf('\n The value of Resistance is %fohm',R);
+\ No newline at end of file
diff --git a/377/CH6/EX6.3/6_3.sce b/377/CH6/EX6.3/6_3.sce
new file mode 100644
index 000000000..401293f1b
--- /dev/null
+++ b/377/CH6/EX6.3/6_3.sce
@@ -0,0 +1,14 @@
+disp("σn=q*μe*n and σp=q*μh*p");
+n=10^16;p=10^4;
+a=626;  //say μe=a
+b=292;  //say μh=b
+q=1.6*10^-19;
+c=q*a*n;  //say c=σn
+d=q*b*p*10^13;  //say d=σp
+printf('\n The value of σn is %f/ohm/cm',c);
+printf('\n The value of σp is %f*10^-13/ohm/cm',d);
+e=c+(d*10^-13);  //say e=σ=σn+σp
+A=2*10^-2;
+l=2.5;
+R=l/(e*A);
+printf('\n The value of resistance is %fohm',R);
+\ No newline at end of file
diff --git a/377/CH6/EX6.4/6_4.sce b/377/CH6/EX6.4/6_4.sce
new file mode 100644
index 000000000..bab54c5ab
--- /dev/null
+++ b/377/CH6/EX6.4/6_4.sce
@@ -0,0 +1,13 @@
+p0=10^15;
+n0=10^5;
+a=1331;  //say μe=a
+q=1.6*10^-19;
+b=0.0259;  //sat K*T/q=b
+c=-10^14;
+disp("Dn=(K*T/q)*μe");
+Dn=b*a;
+printf('\n The value of Dn is %fcm^2/s',Dn);
+disp("Jn=q*Dn*(dn/dx)");
+Jn=q*Dn*c;
+d=Jn*10^3;
+printf('\n The value of Jn is %fmA/cm^2',d);
+\ No newline at end of file
diff --git a/377/CH6/EX6.5/6_5.sce b/377/CH6/EX6.5/6_5.sce
new file mode 100644
index 000000000..f9db2450b
--- /dev/null
+++ b/377/CH6/EX6.5/6_5.sce
@@ -0,0 +1,12 @@
+disp("n=dNa/Mat");
+a=5.9*10^5;  //say a=σ
+e=1.6*10^-19;
+n=8.5*10^22;
+me=9.1;
+disp("μe=σ/(e*n)");
+b=a/(e*n);  //say μe=b
+printf('\n The value of μe is %fcm^2/V/s',b);
+disp("τ=μe*me/e");
+c=b*me/e;  //say c=τ
+d=c*10^-21;
+printf('\n The value of τ is %f*10^-14s',d);
diff --git a/377/CH6/EX6.6/6_6.sce b/377/CH6/EX6.6/6_6.sce
new file mode 100644
index 000000000..528a5f3fa
--- /dev/null
+++ b/377/CH6/EX6.6/6_6.sce
@@ -0,0 +1,11 @@
+u=10^6;
+disp("vdx=0.001*u");
+vdx=0.001*u;
+a=43.4*10^-4;  //say a=μe
+b=5.9*10^7;  //say b=σ
+disp("Ex=vdx/a");
+Ex=vdx/a;
+printf('\n The value of Ex is %fV/m',Ex);
+disp("Jx=σ*Ex");
+Jx=b*Ex;
+printf('\n The value of Jx is %fA/m^2',Jx);
+\ No newline at end of file
diff --git a/377/CH6/EX6.7/6_7.sce b/377/CH6/EX6.7/6_7.sce
new file mode 100644
index 000000000..94045f704
--- /dev/null
+++ b/377/CH6/EX6.7/6_7.sce
@@ -0,0 +1,5 @@
+disp("(1/2)*m*vf^2=Ef0");
+Ef0=1.6*7*10^-19;
+m0=9.1*10^-31;
+vF=sqrt(2*Ef0/m0);
+printf('\n The value of vF is %1.1f*(10^6)m/s',vF/(10^6));
+\ No newline at end of file
diff --git a/377/CH6/EX6.8/6_8.sce b/377/CH6/EX6.8/6_8.sce
new file mode 100644
index 000000000..11aa5ae34
--- /dev/null
+++ b/377/CH6/EX6.8/6_8.sce
@@ -0,0 +1,14 @@
+N1=5.5*10^18;
+N2=4.5*10^18;
+q=1.6*10^-19;
+K=1.38*10^-23;
+T=500;
+N=N1+N2;
+printf('\n The total doping is %fcm^-3',N);
+De=a*K*T/q;
+printf('\n The value of De is %fcm^2/s',De);
+c=-10^7;  //say c=dn/dx
+F=-De*c;
+printf('\n The value of F is %felectrons/cm^2-s',F);
+J=q*F;
+printf('\n The diffusion current density is %fpA/cm2',J*10^12);
+\ No newline at end of file
diff --git a/377/CH6/EX6.9/6_9.sce b/377/CH6/EX6.9/6_9.sce
new file mode 100644
index 000000000..756b73c74
--- /dev/null
+++ b/377/CH6/EX6.9/6_9.sce
@@ -0,0 +1,8 @@
+disp("np0=n0p+(g*τe)");
+n0p=4.5*10^5;
+g=10^15;
+a=10^-5;  //say a=τe
+np0=n0p+(g*a);
+printf('\n The value of np0 is %fcm^-3',np0);
+t=-a*log(n0p/np0);
+printf('\n The value of t is %fms',t*10^3);
+\ No newline at end of file