summaryrefslogtreecommitdiff
path: root/3526/CH3/EX3.1/EX3_1.sce
diff options
context:
space:
mode:
Diffstat (limited to '3526/CH3/EX3.1/EX3_1.sce')
-rw-r--r--3526/CH3/EX3.1/EX3_1.sce13
1 files changed, 13 insertions, 0 deletions
diff --git a/3526/CH3/EX3.1/EX3_1.sce b/3526/CH3/EX3.1/EX3_1.sce
new file mode 100644
index 000000000..fc5ab1007
--- /dev/null
+++ b/3526/CH3/EX3.1/EX3_1.sce
@@ -0,0 +1,13 @@
+//page 53
+clc;funcprot(0);//EXAMPLE 3.1
+// Initialisation of Variables
+Cn=8;......//No. of Corners of the Cubic Crystal Systems
+c=1;......//No. of centers of the Cubic Crystal Systems in BCC unit cell
+F=6;.......//No. of Faces of the Cubic Crystal Systems in FCC unit cell
+//CALCULATIONS
+N1=Cn/8;.....//No. of latice points per unit cell in SC unit cell
+N2=(Cn/8)+c*1;....//No. of latice points per unit cell in BCC unit cells
+N3=(Cn/8)+F*(1/2);....//No. of latice points per unit cell in FCC unit cells
+disp(N1,"No. of latice points per unit cell in SC unit cell:")
+disp(N2,"No. of latice points per unit cell in BCC unit cells:")
+disp(N3,"No. of latice points per unit cell in FCC unit cells:")