1 files changed, 12 insertions, 0 deletions
diff --git a/1736/CH1/EX1.3/Ch01Ex3.sce b/1736/CH1/EX1.3/Ch01Ex3.sce
new file mode 100755
index 000000000..502ad6be2
--- /dev/null
+++ b/1736/CH1/EX1.3/Ch01Ex3.sce
@@ -0,0 +1,12 @@
+// Scilab Code Ex1.3 : Page-17 (2006)
+clc; clear;
+V = 10.58e-29;  // Volume of the unit cell, metre cube
+a = poly(0, 'a');      // Declare a variable
+a = roots(3*sqrt(3)/2*1.58*a^3-V);        // First lattice parameter, m
+c = 1.58*a(3);     // Third lattice parameter, m
+printf("\nThe lattice parameters of hcp structure of Ti are:");
+printf("\na = %4.2f angstorm, c = %4.2f angstorm", a(3)/1e-010, c/1e-010);
+
+// Result 
+// The lattice parameters of hcp structure of Ti are:
+// a = 2.95 angstorm, c = 4.67 angstorm