6 files changed, 86 insertions, 0 deletions
diff --git a/377/CH12/EX12.1/12_1.sce b/377/CH12/EX12.1/12_1.sce
new file mode 100644
index 000000000..79ac5bc6b
--- /dev/null
+++ b/377/CH12/EX12.1/12_1.sce
@@ -0,0 +1,15 @@
+q=1.6*10^-19;
+Nd=10^17;
+a=0.25*10^-4;
+c=13.1*8.854*10^-14;  //say c=Єs
+Vp=q*Nd*a^2/(2*c);
+printf('\n The value of Vp is %fV',Vp);
+disp("Vbi=φb0+(Ec-Ef)");
+e=0.88;  //say e=φb0
+f=0.037;  //say f=(Ec-Ef)/q
+Vbi=e-f;
+printf('\n The value of Vbi is %fV',Vbi);
+Vt=Vbi-Vp;
+printf('\n The value of Vt is %fV and this is a depletion mode device',Vt);
+Vsat=Vp-Vbi;  //say for Vg=0
+printf('\n The value of Vsat at Vg=0 is %fV',Vsat);
+\ No newline at end of file
diff --git a/377/CH12/EX12.2/12_2.sce b/377/CH12/EX12.2/12_2.sce
new file mode 100644
index 000000000..8b56a8075
--- /dev/null
+++ b/377/CH12/EX12.2/12_2.sce
@@ -0,0 +1,15 @@
+q=1.6*10^-19;
+Nd=2*10^15;
+a=0.6*10^-4;
+c=12.4*8.854*10^-14;  //say c=Єs
+Vp=q*Nd*a^2/(2*c);
+printf('\n The value of Vp is %fV\n',Vp);
+d=0.026;  //sat d=K*T/q
+Nc=4.7*10^17;
+disp("φn=(K*T/q)*log(Nc/Nd)");
+b=d*log(Nc/Nd);
+printf('\n The value of φn is %fV\n',b);
+disp("Vbi=φb0-φn");
+e=0.89;  //say e=φb0
+Vbi=e-b;
+printf('\n The value of Vbi is %fV\n',Vbi);
+\ No newline at end of file
diff --git a/377/CH12/EX12.3/12_3.sce b/377/CH12/EX12.3/12_3.sce
new file mode 100644
index 000000000..df87d2876
--- /dev/null
+++ b/377/CH12/EX12.3/12_3.sce
@@ -0,0 +1,9 @@
+Vbi=0.74;
+Vg=0.5;
+c=13.2*8.854*10^-14;  //say c=Єs
+q=1.6*10^-19;
+Nd=5*10^16;
+b=(2*c*(Vbi-Vg)/(q*Nd))^(1/2);
+printf('\n The value of depletion width near drain is %f*10^-2 μm',b*10^6);
+d=0.8-(b*10^4);
+printf('\n The maximum undepleted channel width is near the drain end of the gate is %f μm',d);
+\ No newline at end of file
diff --git a/377/CH12/EX12.4/12_4.sce b/377/CH12/EX12.4/12_4.sce
new file mode 100644
index 000000000..954a18141
--- /dev/null
+++ b/377/CH12/EX12.4/12_4.sce
@@ -0,0 +1,19 @@
+disp("Ef=(Ec/q)+(K*T/q)*log(Nd/Nc)");
+d=0.026;  //say d=K*T/q
+Nd1=2*10^16;
+Nc=4.45*10^17;
+c1=d*log(Nd1/Nc);  //say c1=(K*T/q)*log(Nd1/Nc)
+printf('\n The value is Ef1 is Ec/q%f V',c1);
+Vbi1=0.8-(-c1);
+printf('\n The value is Vbi1 is %f V',Vbi1);
+e1=13.2*8.854*10^-14;
+b1=sqrt(2*e1*Vbi1/(q*Nd1));
+printf('\n The value is b1 is %f μm',b1*10^4);
+Nd2=2*10^17;
+c2=d*log(Nd2/Nc);  //say c2=(K*T/q)*log(Nd2/Nc)
+printf('\n The value is Ef2 is Ec/q%f V',c2);
+Vbi2=0.8-(-c2);
+printf('\n The value is Vbi2 is %f V',Vbi2);
+e2=12.2*8.854*10^-14;
+b2=sqrt(2*e2*Vbi2/(q*Nd2));
+printf('\n The value is b2 is %f μm',b2*10^4);
+\ No newline at end of file
diff --git a/377/CH12/EX12.5/12_5.sce b/377/CH12/EX12.5/12_5.sce
new file mode 100644
index 000000000..035cd5442
--- /dev/null
+++ b/377/CH12/EX12.5/12_5.sce
@@ -0,0 +1,15 @@
+d=0.026;  //sat d=K*T/q
+Nc=4.7*10^17;
+Nd=2*10^15;
+b=d*log(Nc/Nd);
+printf('\n The value of φn is %fV\n',b);
+e=0.89;  //say e=φb0
+Vbi=e-b;
+printf('\n The value of Vbi is %fV\n',Vbi);
+Vt=0.25;
+Vp=Vbi-Vt;
+printf('\n The value of Vp is %fV\n',Vp);
+q=1.6*10^-19;
+c=13.1*8.854*10^-14;  //say c=Єs
+a=sqrt(Vp*2*c/(q*Nd));
+printf('\n The value of a is %f μm',a*10^4);
+\ No newline at end of file
diff --git a/377/CH12/EX12.6/12_6.sce b/377/CH12/EX12.6/12_6.sce
new file mode 100644
index 000000000..0ae6bf52d
--- /dev/null
+++ b/377/CH12/EX12.6/12_6.sce
@@ -0,0 +1,13 @@
+disp("Ef=(Ec/q)+(K*T/q)*log(Nd/Nc)");
+d=0.026;  //say d=K*T/q
+Nd=10^16;
+Nc=2.8*10^19;
+c=d*log(Nd/Nc);  //say c=(K*T/q)*log(Nd/Nc)
+printf('\n The value is Ef is Ec/q%f V',c);
+Vbi=0.7-(-c);
+printf('\n The value is Vbi is %f V',Vbi);
+q=1.6*10^-19;
+c=11.9*8.854*10^-14;  //say c=Єs
+Vp=0.796;
+a=sqrt(Vp*2*c/(q*Nd));
+printf('\n The value of a is %f μm',a*10^4);
+\ No newline at end of file