diff options
Diffstat (limited to '3862/CH8/EX8.4/Ex8_4.sce')
| -rw-r--r-- | 3862/CH8/EX8.4/Ex8_4.sce | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/3862/CH8/EX8.4/Ex8_4.sce b/3862/CH8/EX8.4/Ex8_4.sce new file mode 100644 index 000000000..7b85cefc2 --- /dev/null +++ b/3862/CH8/EX8.4/Ex8_4.sce @@ -0,0 +1,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) |