summaryrefslogtreecommitdiff
path: root/3763/CH12/EX12.3/Ex12_3.sce
blob: 2c2e8d6052466e7602ff7df4332f8d6cda89ae87 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clear
//
//
//

//Variable declaration
ml=57800     //load(N)
d=10*10**-3    //diameter(m)
D=5      //diameter after fracture(mm)
l=50    //guage length(mm)
L=55    //length after fracture(mm)

//Calculation
ts=ml/(%pi*(d/2)**2)    //ultimate tensile strength(MPa)
de=(L-l)*100/l          //ductility % of elongation(%)
dr=((2*D)**2-D**2)*100/(2*D)**2      //ductility % of reduction(%)
t=(2/3)*ts*de/100        //modulus of toughness(Pa)

//Result
printf("\n ultimate tensile strength is %0.0f  MPa",ts/10**6)
printf("\n modulus of toughness is %0.0f  *10**6 Pa",t/10**6)