539/CH10/EX10.2/Example_10_2.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

//Determination the rate of recrystallization

clear;
clc;

printf("\tExample 10.2\n");
n=5;
y=0.3;
t=100;          //in min


k=-log(1-y)/t^n;

thalf=(-log(1-0.5)/k)^(1/n);

rate=1/thalf;

printf("\nRate is %.2e (min)^-1\n",rate);

//End