1 files changed, 11 insertions, 0 deletions
diff --git a/1736/CH4/EX4.23.5/Ch04Ex23_5a.sce b/1736/CH4/EX4.23.5/Ch04Ex23_5a.sce
new file mode 100755
index 000000000..0269143dc
--- /dev/null
+++ b/1736/CH4/EX4.23.5/Ch04Ex23_5a.sce
@@ -0,0 +1,11 @@
+// Scilab Code Ex4.5a: Page-139 (2006)
+clc; clear;
+T_F = 24600;   // Fermi temperature of potassium, K
+k = 1.38e-023;  // Boltzmann constant, J/mol/K
+m = 9.1e-031;   // Mass of an electron, kg
+E_F = k*T_F;    // Fermi energy of potassium, eV
+v_F = sqrt(2*k*T_F/m);      // Fermi velocity of potassium, m/s
+printf("\nThe Fermi velocity of potassium = %5.3e m/s", v_F);
+
+// Result 
+// The Fermi velocity of potassium = 8.638e+005 m/s