summaryrefslogtreecommitdiff
path: root/3862/CH8/EX8.4/Ex8_4.sce
blob: 7b85cefc211130bf19fd65cdb16227ba015a04f2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
clear
//

//variable declaration

d=(20)                                       //Diameter ,mm
Loadatelasticlimit=(102)                  //Load at elastic limit,KN
P=80                                              //Load for extension of o.25mm , KN
delta=(0.25)                                 //extension in specimen of steel,mm
L=200                                             //gauge length of specimen of steel,mm
Finalextension=(56)                         //total extension at fracture,mm


A=(%pi*(d**2))/4                                 //Area**mm^2
printf("\n Area= %0.2f  mm^2",A)

Stressatelasticlimit=Loadatelasticlimit*1000/A    //Stress at elastic limit,N/mm^2
printf("\n Stress at elastic limit= %0.2f  N/mm^2",Stressatelasticlimit)

E=(P*1000/A)/(delta/L)                            //Young’s modulus ,N/mm^2
printf("\n Youngs modulus E= %0.2f  N/mm^22",E)

Percentageelongation=Finalextension*100/L       //percentage elongation,%
printf("\n Percentage elongation= %0.3f percentage",Percentageelongation )

Initialarea=(%pi*(d**2))/4

Finalarea=(%pi*(15**2))/4                     // total extension at fracture is 56 mm and diameter at neck is 15 mm.
Percentagereductionina=(Initialarea-Finalarea)*100/Initialarea

printf("\n Percentage reduction in area= %0.3f percentage",Percentagereductionina )

UltimateLoad=130                               //Maximum Load=130,kN
UltimateTensileStress=UltimateLoad*1000/A

printf("\n Ultimate Tensile Stress= %0.2f  N/mm^2",UltimateTensileStress)