9 files changed, 83 insertions, 0 deletions
diff --git a/377/CH15/EX15.1/15_1.sce b/377/CH15/EX15.1/15_1.sce
new file mode 100644
index 000000000..0eadb41ac
--- /dev/null
+++ b/377/CH15/EX15.1/15_1.sce
@@ -0,0 +1,8 @@
+disp("T=Tr*Tnr/(Tr+Tnr)");
+Tr=60;
+Tnr=100;
+T=Tr*Tnr/(Tr+Tnr);
+printf('\n Total carrier recombination lifetime is %fnS',T);
+disp("η=T/Tr");
+n=T/Tr;
+printf('\n The internal quantum efficiency is %fpercent',n*100);
+\ No newline at end of file
diff --git a/377/CH15/EX15.2/15_2.sce b/377/CH15/EX15.2/15_2.sce
new file mode 100644
index 000000000..2edc942b8
--- /dev/null
+++ b/377/CH15/EX15.2/15_2.sce
@@ -0,0 +1,10 @@
+P=10;//assumed for calculation purpose
+disp("Pin=0.5*P");
+printf('\n');
+Pin=0.5*P;
+disp("Pe=0.013*Pin");
+printf('\n');
+Pe=0.013*Pin;
+disp("ηext=Pe/p");
+n=Pe/P;
+printf('\n The external power efficiency is %fpercent',n*100);
+\ No newline at end of file
diff --git a/377/CH15/EX15.3/15_3.sce b/377/CH15/EX15.3/15_3.sce
new file mode 100644
index 000000000..094fd9e09
--- /dev/null
+++ b/377/CH15/EX15.3/15_3.sce
@@ -0,0 +1,12 @@
+disp("η=no. of electrons collected/no. of incident photons");
+a=1.2*10^11;//say a=no. of electrons collected
+b=3*10^11;//say b=no. of incident photon
+n=a/b;
+printf('\n The value of quantum efficiency is %fpercent',n*100);
+disp("R=Ip/Po=n*e*λ/(h*c)");
+e=1.602*10^-19;
+d=0.85*10^-6;//say d=λ
+h=6.626*10^-34;
+c=2.998*10^8;
+R=n*e*d/(h*c);
+printf('\nThe value of R is %fA/W',R);
+\ No newline at end of file
diff --git a/377/CH15/EX15.4/15_4.sce b/377/CH15/EX15.4/15_4.sce
new file mode 100644
index 000000000..79c872aa6
--- /dev/null
+++ b/377/CH15/EX15.4/15_4.sce
@@ -0,0 +1,14 @@
+disp("λ=c*h/E");
+h=6.626*10^-34;
+c=2.998*10^8;
+E=1.5*10^-19;
+d=c*h/E;
+printf('\nThe value of λ is %fμm',d*10^6);
+n=0.65;
+e=1.602*10^-19;
+R=n*e/E;
+printf('\nThe value of R is %fA/W',R);
+disp("Po=Ip/R");
+Ip=2.5*10^-6;
+Po=Ip/R;
+printf('\nThe required incident opticalpower is %fμW',Po*10^6);
+\ No newline at end of file
diff --git a/377/CH15/EX15.5/15_5.sce b/377/CH15/EX15.5/15_5.sce
new file mode 100644
index 000000000..bc1784cf2
--- /dev/null
+++ b/377/CH15/EX15.5/15_5.sce
@@ -0,0 +1,6 @@
+disp("λ=c*h/Eg");
+h=6.626*10^-34;
+c=2.998*10^8;
+E=1.43*1.6*10^-19;
+d=c*h/E;
+printf('\nThe value of λ is %fμm',d*10^6);
+\ No newline at end of file
diff --git a/377/CH15/EX15.6/15_6.sce b/377/CH15/EX15.6/15_6.sce
new file mode 100644
index 000000000..8508db84e
--- /dev/null
+++ b/377/CH15/EX15.6/15_6.sce
@@ -0,0 +1,13 @@
+disp("Pout=I*V");
+I=14*10^-3;
+V=0.425;
+Pout=I*V;
+printf('\n The value of Pout is %fW',Pout);
+disp("Pin=li*A");
+li=50*10^-1;//say li=light intensity
+A=0.01;//say A=surface area
+Pin=li*A;
+printf('\n The value of Pin is %fW\n',Pin);
+disp("η=(Pout/Pin)*100");
+n=(Pout/Pin)*100;
+printf('\n The photo voltaic efficiency is %fpercent',n);
+\ No newline at end of file
diff --git a/377/CH15/EX15.7/15_7.sce b/377/CH15/EX15.7/15_7.sce
new file mode 100644
index 000000000..6f19ac501
--- /dev/null
+++ b/377/CH15/EX15.7/15_7.sce
@@ -0,0 +1,3 @@
+disp("It/(2*It)=exp((27/100)-(T/110))");
+T=110*(log(2)+(27/100));
+printf('\n The value of T is %fCentigrade',T);
+\ No newline at end of file
diff --git a/377/CH15/EX15.8/15_8.sce b/377/CH15/EX15.8/15_8.sce
new file mode 100644
index 000000000..63e05ce91
--- /dev/null
+++ b/377/CH15/EX15.8/15_8.sce
@@ -0,0 +1,10 @@
+disp("Voc=k*log(Il/Is)");
+k=0.026;//say k=K*T/q
+Il=100*10^-3;
+Is=1*10^-9;
+Voc=k*log(Il/Is);
+printf('\n The value of Voc is %1.2fV',Voc);
+disp("P=(Il*V)-(Is*exp((V/k)-1))");
+V=0.35;
+P=(Il*V)-(Is*exp((V/k)-1));
+printf('\n The Output power is %f*10^-4W',P*10^4);
+\ No newline at end of file
diff --git a/377/CH15/EX15.9/15_9.sce b/377/CH15/EX15.9/15_9.sce
new file mode 100644
index 000000000..a080c38f5
--- /dev/null
+++ b/377/CH15/EX15.9/15_9.sce
@@ -0,0 +1,7 @@
+disp("Emax=q*Na*d/Єs");
+q=1.6*10^-19;
+Na=6.42*10^18;
+d=50*10^-8;
+es=12.9*8.854*10^-14;//say es=Єs
+Emax=q*Na*d/es;
+printf('\n The value of Emax is %fkV/cm',Emax*10^-3);
+\ No newline at end of file