1 files changed, 13 insertions, 0 deletions
diff --git a/3557/CH4/EX4.2/Ex4_2.sce b/3557/CH4/EX4.2/Ex4_2.sce
new file mode 100644
index 000000000..27c200330
--- /dev/null
+++ b/3557/CH4/EX4.2/Ex4_2.sce
@@ -0,0 +1,13 @@
+//Example4.2//
+a=4;//body-centered cubic as given in table 3.3
+b=sqrt(3); //body-centered cubic as given in table 3.3
+c=1;// as we take R common from the equation
+ri=(1/2)*(a/b)-c
+mprintf("ri = %f R",ri)
+//from the appendix 2, R=0.124nm giving
+R=0.124;//nm //atomic radius of iron
+ri1=ri*R
+mprintf("\nri1 = %f nm",ri1)
+rC=0.077;//nm //atomic radius of carbon from the appendix 2
+R1=rC/ri1
+mprintf("\nR1 = %f ",R1)