summaryrefslogtreecommitdiff
path: root/3772/CH10/EX10.7/Ex10_7.sce
blob: 7c909293b815c746b63f9c3d75e67e03a7ef051e (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
// Problem no 10.7,Page No.261
clc;
clear;
close;


//Calculations

theta=atan(1*2**-1)*(180*%pi**-1) //Radian

//Taking moment about A
R_EH=10*8*4**-1

//Horizontal component of reaction at A
R_AH=20 //KN

//Applying the summation of horizontal  forces  we get
F_AB=20*cos(theta*%pi*180**-1)**-1

//Applying the summation of vertical forces  we get
R_AV=10*5**0.5*sin(theta*%pi*180**-1)

//Vertical Reaction at E
R_EV=0

//Joint C

//Applying the summation of vertical forces  we get
F_DC=10*sin(theta*%pi*180**-1)**-1

//Applying the summation of horizontal  forces  we get
F_CB=F_DC*cos(theta*%pi*180**-1)

//Joint D

//Applying the summation of vertical forces  we get
F_DB=F_DC*sin(theta*%pi*180**-1)

//Applying the summation of horizontal  forces  we get
F_DE=F_DC*cos(theta*%pi*180**-1)

//Joint E

//Applying the summation of vertical forces  we get
F_EB=R_EV*sin(theta*%pi*180**-1)

//Result
printf("Forces in Each members are as follows:F_AB %.2f",F_AB);printf(" KN(Tensile)")
printf("\n                                      :F_DC %.2f",F_DC);printf(" KN(compression)")
printf("\n                                      :F_CB %.2f",F_CB);printf(" KN(Tensile)")
printf("\n                                      :F_DB %.2f",F_DB);printf(" KN(Tensile)")
printf("\n                                      :F_DE %.2f",F_DE);printf(" KN(compression)")
printf("\n                                      :F_EB %.2f",F_EB);printf(" KN")