summaryrefslogtreecommitdiff
path: root/3864/CH2/EX2.38/Ex2_38.sce
blob: 86842b02d3728349a95ce542b4e5912ab92646af (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
37
38
clear
//
//

//Initilization of Variables

d=100 //mm //Diameter of circular rod
P=1*10**6 //N //Tensile Force
mu=0.3 //Poissons ratio
E=2*10**5 //N/mm**2 //Youngs Modulus 
L=500 //mm //Length of rod

//Calculations

//Modulus of Rigidity
G=E*(2*(1+mu))**-1 //N/mm**2

//Bulk Modulus 
K=E*(3*(1-2*mu))**-1 //N/mm**2

A=%pi*4**-1*d**2 //mm**2 //Area of Circular rod
//Let sigma be the Longitudinal stress
sigma=P*A**-1 //N/mm**2 

s=sigma*E**-1 //Linear strain
e_x=s

//Volumetric strain
e_v=e_x*(1-2*mu)

v=%pi*4**-1*d**2*L
//Change in VOlume
dell_v=e_v*v

//Result
printf("\n Bulk Modulus  is %0.2f  N/mm**2",E)
printf("\n Modulus of Rigidity is %0.2f  N/mm**2",G)
printf("\n The change in Volume is %0.2f  mm**3",dell_v)