4 files changed, 85 insertions, 0 deletions
diff --git a/2216/CH14/EX14.1/ex_14_1.sce b/2216/CH14/EX14.1/ex_14_1.sce
new file mode 100755
index 000000000..9cc8f842e
--- /dev/null
+++ b/2216/CH14/EX14.1/ex_14_1.sce
@@ -0,0 +1,22 @@
+//Example 14.1: energy and threshold electrical energy
+clc;
+clear;
+close;
+format('v',4)
+disp("part (a)")
+no=1.9*10^19;//cm^-3;//
+hc=6.6*10^-34;//
+v=5.45*10^14;//Hz
+av=2;//
+nv=1;//
+n2=no/2;//
+eng=((n2*hc*v)/(av*nv));// J cm^-2
+disp(eng,"energy in J cm^-2 is")
+format('v',5)
+disp("part (b)")
+oe=0.50;//
+mr=0.15;//
+lr=0.20;//
+teng=eng/(oe*mr*lr);//
+disp(teng,"threshold energy in J cm^-2 is")
+//electrical energy is calculated wrong in the textbook
diff --git a/2216/CH14/EX14.3/ex_14_3.sce b/2216/CH14/EX14.3/ex_14_3.sce
new file mode 100755
index 000000000..383debcbb
--- /dev/null
+++ b/2216/CH14/EX14.3/ex_14_3.sce
@@ -0,0 +1,30 @@
+//Example 14.3: output power
+clc;
+clear;
+close;
+h=0.6943*10^-6;//
+lm=10;//in cm
+r1=1.0;//
+r2=0.8;//
+t1=0.98;//
+as=1;//cm^2;//
+Ls=2;//cm
+gth=((1/(2*lm))*log((1/(r1*r2*(t1)^8))))+(as*Ls)/lm;//
+sg=1.5*10^-20;//
+ndth=gth/sg;//cm^-3;//
+nth=ndth*as*lm;//atoms
+ni=5*nth;//atoms
+ng=1.78;//
+ns=2.7;//
+lair=2;//
+c=3*10^10;//
+trt=((2*ng*lm)/c)+((2*ns*Ls)/c)+((2*lair)/c);//seconds
+npmax=((ni-nth)/2)-(nth/2)*log(ni/nth);//photons
+L=14;//cm
+at=((as*Ls)/L)+((1/(2*L))*log(1/(r1*t1^8)));//
+aext=((1/(2*L))*log(1/r2));//
+tp=((trt)/(1-(r1*r2*t1^8*exp(-2*as*Ls))));//seconds
+hc=6.6*10^-34;//
+pmax=((aext/at)*hc*c*npmax)/(h*tp);//in watts
+disp(pmax*10^-6,"maximum power in MW is")
+//answer is wrong in the textbook
diff --git a/2216/CH14/EX14.4/ex_14_4.sce b/2216/CH14/EX14.4/ex_14_4.sce
new file mode 100755
index 000000000..059a6035a
--- /dev/null
+++ b/2216/CH14/EX14.4/ex_14_4.sce
@@ -0,0 +1,22 @@
+//Example 14.4: pulse width and spatial length 
+clc;
+clear;
+close;
+format('v',5)
+disp("part (a)")
+//given data :
+del_v=1.5*10^9;// in Hz
+tau_p=1/del_v;
+C=3*10^8;// constant
+disp(tau_p*10^9,"pulse width,del_v(ns) = ")
+Lp=C*tau_p;
+disp(Lp*10^2,"spatial length,Lp(cm) = ")
+//spatial length is calculated wrong in the textbook
+format('v',5)
+disp("part (b)")
+del_v=6*10^10;// in Hz
+tau_p=1/del_v;
+C=3*10^8;// constant
+disp(tau_p*10^12,"pulse width,del_v(ps) = ")
+Lp=C*tau_p*10^3;
+disp(Lp,"spatial length,Lp(mm) = ")
diff --git a/2216/CH14/EX14.5/ex_14_5.sce b/2216/CH14/EX14.5/ex_14_5.sce
new file mode 100755
index 000000000..45efd6941
--- /dev/null
+++ b/2216/CH14/EX14.5/ex_14_5.sce
@@ -0,0 +1,11 @@
+//Example 14.5: time difference
+clc;
+clear;
+close;
+format('v',5)
+n=1.33;//
+x=2;//
+l=50;//m
+c=3*10^8;//m/s
+dt=((n*x*l)/c);//s
+disp(dt*10^6,"time difference is,(micro-seconds)=")