summaryrefslogtreecommitdiff
path: root/3392/CH4/EX4.1/Ex4_1.sce
blob: 5413583db39711432953a53ff54e71656b6605af (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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
clc
// initialization of variables
clear
P=170 //kN
A=645 // (mm)^2
// part (a)
E=211.4 // G Pa (from figure)
Y=252.6 // M Pa (from figure)
Beta=0.0799 // G Pa (from figure)
Ey=Y/E
// The stress strain law given is
// Sigma= E*eps  for eps< Ey
// Sigma= (1-Beta)*Y + Beta*E*eps  otherwise

// part (b)
th=atan(1.8/2.4)// radians
F=P/(2*cos(th))
F=F*10^3 //N
A=A*10^-6 //m^2
E=E*10^9 //Pa
Y=Y*10^6 //Pa
L=3.0 //m
Sigma=F/A
if(Sigma<Y)
    eps=Sigma/E
else
   eps=(Sigma-(1-Beta)*Y )/(Beta*E) 
end
u=eps*L/cos(th)
u=u*10^3 //mm
// results
printf('part (b)\n')
printf(' Deflection = %.3f mm',u)

// part (c)
P=270 //kN
F=P/(2*cos(th))
F=F*10^3 //N
Sigma=F/A
if(Sigma<Y)
    eps=Sigma/E
else
   eps=(Sigma-(1-Beta)*Y )/(Beta*E) 
end
u=eps*L/cos(th)
u=u*10^3 //mm
// results
printf('\n part (c)\n')
printf(' Deflection = %.3f mm for P = %.d kN',u,P)

P=300 //kN
F=P/(2*cos(th))
F=F*10^3 //N
Sigma=F/A
if(Sigma<Y)
    eps=Sigma/E
else
   eps=(Sigma-(1-Beta)*Y )/(Beta*E) 
end
u=eps*L/cos(th)
u=u*10^3 //mm
// results
printf('\n Deflection = %.3f mm for P = %.d kN',u,P)