summaryrefslogtreecommitdiff
path: root/3862/CH8/EX8.13/Ex8_13.sce
blob: 64318da5952e32feef746f0e533017d20bceaf7c (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
clear
//

//variable declaration

P=(60)               //load,KN
d=(25)               //diameter,mm
A=%pi*(d**2)/4    //Area**mm^2
L=(200)              //gauge length,mm

delta=0.12         //extension,mm
deltad=0.0045      //contraction in diameter,mm
Linearstrain=delta/L
Lateralstrain=deltad/d

Pr=Lateralstrain/Linearstrain

printf("\n Poissons ratio= %0.1f  ",Pr)

E=(P*1000*L)/(A*delta)

printf("\n E= %0.2f  N/mm^2",E)

G=E/(2*(1+Pr))                      //Rigidity modulus

printf("\n G= %0.1f  N/mm^2",G)

K=E/(3*(1-(2*Pr)))                 //bulk modulus

printf("\n K= %0.2f  N/mm^2",K)