summaryrefslogtreecommitdiff
path: root/1898/CH11/EX11.1/Ex11_1.sce
blob: 0b187d3b6f413a3e27964fdc9be44ede3ff59b1e (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
clear all; clc;

disp("Scilab Code Ex 11.1 : ")

//Given:
sigma_allow = 170; //MPa
tou_allow = 100; //MPa

//Shear and Moment Diagrams:
V_max = 90; //kN
M_max = 120; //kNm

//Bending Stress:
S_reqd = (M_max*(10^3))/sigma_allow;

W = [60 67 64 74 80 100];
S = [1120 1200 1030 1060 984 987];

i = find(min(W));
S_chosen = S(i);
flag1 = 0;
flag2 = 0;

if (S_reqd<S_chosen) 
   flag1 =1; 
end

//Shear Stress:
d = 455; //mm
tw = 8; //mm
tou_avg = (V_max*10^3)/(d*tw);

if(tou_avg<tou_allow)
    flag2 =1;
end

if(flag1==1 & flag2==1)
    
    
     printf("\n\nUse a W460X60 standard shape.');
end

//--------------------------------------------------------------------------END-------------------------------------------------------------------------------------