summaryrefslogtreecommitdiff
path: root/1736/CH1/EX1.16/Ch01Ex16.sce
blob: dad7d23d600119c0e4bf7e8003b01d4787faed45 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// Scilab Code Ex 1.16 :Page-27 (2006)
clc; clear;
R = 1;  // For simplicity we assume radius of atom to be unity, m
// From the right triangle LMN similar to trinagle LPO, LM/LO = R/(R + r) = LP/LO = sqrt(2/3), solving for r
r = poly(0, 'r');
r = roots(R/sqrt(2/3)-R-r);
printf("\nThe radius ratio of tetragonal void = %5.3f", r/R); 

// Result 
// The radius ratio of tetragonal void = 0.225