1 files changed, 10 insertions, 0 deletions
diff --git a/135/CH2/EX2.18/EX18.sce b/135/CH2/EX2.18/EX18.sce
new file mode 100755
index 000000000..2a5e56cb6
--- /dev/null
+++ b/135/CH2/EX2.18/EX18.sce
@@ -0,0 +1,10 @@
+// Example 2.18: Diffusion length
+clc, clear
+I=1e-3; // Forward bias current in amperes
+C=1e-6; // Diffusion capacitance in farads
+Dp=13; // Diffusion constant for Si
+eta=2; // for Si
+VT=26e-3; // Voltage equivalent to temperatue at room temperature in volts
+Lp=sqrt(C*Dp*eta*VT/I); // Diffusion length in metres
+Lp=Lp*1e2; // Diffusion length in centimetres
+disp(Lp,"Diffusion length (cm) =");
+\ No newline at end of file