summaryrefslogtreecommitdiff
path: root/1085/CH3/EX3.18/ex3_18.sce
blob: 2969afd125b0e3cb38b4e81388c2f55c5102fe2d (plain)
1
2
3
4
5
6
7
8
9
10
//Exam:3.18
clc;
clear;
close;
A=55.8;//atomic weight of Fe
n=2;//number of atoms per unit cell
N=6.02*10^(26);//Avogadro's number
p=7.87*10^3;//density of Fe(in kg/m^3)
a=((A*n/(N*p))^(1/3))*10^10;//Value of lattice constant
disp(a,'Value of lattice constant(in A)=');