1 files changed, 21 insertions, 0 deletions
diff --git a/1919/CH11/EX11.7/Ex11_7.sce b/1919/CH11/EX11.7/Ex11_7.sce
new file mode 100755
index 000000000..4ef0dbeff
--- /dev/null
+++ b/1919/CH11/EX11.7/Ex11_7.sce
@@ -0,0 +1,21 @@
+
+// Theory and Problems of Thermodynamics
+// Chapter 11
+// Kinetic Theory of Gases
+// Example 7
+clear ;clc;
+
+//Given data
+V1 = 1                  // X-component velocity low range
+V2 = 1.6                // X-component velocity upper range
+
+// Caluclations
+// Required fraction from The Maxwell-Boltzmann distribution of the X-component // velocity
+
+// F = (1/sqrt(%pi))integrate(exp(-X^2),'X',1,1.6)
+// F = 1/2*((2/sqrt(%pi))integrate(exp(-X^2),'X',1,1.6) - (2/sqrt(%pi))integrate// (exp(-X^2),'X',0,1))
+
+F = erf(V2) - (2/sqrt(%pi))*V2*exp(-V2^2) - erf(V1) + (2/sqrt(%pi))*exp(-V1)
+
+// Output results
+mprintf('The fraction of molecules of a gas with speed between Vmp and 1.6Vmp = %4.4f', F)