summaryrefslogtreecommitdiff
path: root/1664/CH6/EX6.18/Ex6_18.sce
blob: e47e5c45d516eba9faa0dcb4d0093e23ab94a524 (plain)
1
2
3
4
5
6
7
8
9
10
11

//Example No.6.18
//Page No.194.
clc;clear;
r = 0.97*10^(-10);
R = 1.81*10^(-10);
Pd = ((%pi)/(3*sqrt(2)));
printf("\nThe packing density is %.2f",Pd);
//Ionic factor of NaCl//
IPF = (4*(4/3)*%pi*(r^(3)+R^(3)))/((2*(r+R))^(3));//Ionic packing factor of NaCl crystal.
printf("\nThe ionic packing factor of NaCl crystal is %.3f",IPF);