blob: 4ba1279c8d58c8a3b7d3f69f7324bd45170ab9d4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
clc;funcprot(0);//EXAMPLE 3.5
// Initialisation of Variables
a=5.156;........//The lattice constants for the monoclinic unit cells in Angstroms
b=5.191;........//The lattice constants for the monoclinic unit cells in Angstroms
c=5.304;........//The lattice constants for the monoclinic unit cells in Angstroms
beeta=98.9;.......//The angle fro the monoclinic unit cell
a2=5.094;........//The lattice constants for the tetragonal unit cells in Angstroms
c2=5.304;........//The lattice constants for the tetragonal unit cells in Angstroms
//CALCULATIONS
v2=(a2^2)*c2;........//volume of a tetragonal unit cell
v1=a*b*c*sin(beeta*%pi/180);........//volume of a monoclinic unit cell
Pv=(v1-v2)/(v1)*100;........//The percent change in volume in percent
disp(v2,"volume of a tetragonal unit cell in A^3:")
disp(v1,"volume of a monoclinic unit cell in A^3:")
disp(Pv,"The percent change in volume in percent:")
//valu of pv is wrong in book
|
