summaryrefslogtreecommitdiff
path: root/3526/CH4/EX4.9/EX4_9.sce
blob: 12be5d1d782fc79ba780f05db808c5de4a2e9398 (plain)
1
2
3
4
5
6
7
8
//page 105
clc;funcprot(0);//EXAMPLE 4.10
// Initialisation of Variables
g=16;.......// No. of grains per square inch in a photomicrograph
M=250;..........//Magnification in a photomicrograph
N=(M/g)*100;........//The number of grains per square   inch
n=(log10(100)/log10(2))+1;........//the ASTM grain size number
disp(n,"the ASTM grain size number:")