summaryrefslogtreecommitdiff
path: root/3557/CH8/EX8.2/Ex8_2.sce
blob: 46d7adf891c069d2487112eb8b71c0e355d49c96 (plain)
1
2
3
4
5
6
7
8
9
//Example 8.2//

Y=1;// dimensionless geometry factor
YS=1460//MPa //MegaPascal // overall stress applied at failure
b=0.5;//Y.S //given
Kic=98;//MPa sqrt(m) //fracture toughness
a=(Kic^2)/((%pi)*(b*YS)^2)
mprintf("a = %e m   = 5.74 mm   (As 1milli = 10^-3 )",a)