1 files changed, 10 insertions, 0 deletions
diff --git a/3159/CH15/EX15.1/Ex15_1.sce b/3159/CH15/EX15.1/Ex15_1.sce
new file mode 100755
index 000000000..46f384aec
--- /dev/null
+++ b/3159/CH15/EX15.1/Ex15_1.sce
@@ -0,0 +1,10 @@
+// Calculate intrinsic carrier density
+clc
+rho = 3000 // resistivity in ohm m
+mu_e = 0.14
+mu_h = 0.05 
+e = 1.602e-19 // charge on electron
+printf("\n Example 15.1")
+sigma = 1/rho
+n = sigma/((mu_e+mu_h)*e)
+printf("\n Intrinsic carrier density is %.3e m^-3",n)