summaryrefslogtreecommitdiff
path: root/2438/CH9/EX9.3/Ex9_3.sce
blob: e251cee28166696758171c127e8c3cd8299b558b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//=============================================================================
// chapter 9 example 3

clc
clear

// Variable declaration

P   = 400;          // tensile force in newtons 
d   = 6*10^-3;      // diameter of steel rod m

// Calculations
r   =d/2;
E_stress = P/((%pi/4)*r*r);         //e_stress in N/m^2

// Result

mprintf('Engineering stress = %3.2f MPa',E_stress/10^6);

//===========================================================================