summaryrefslogtreecommitdiff
path: root/866/CH5/EX5.2/5_2.sce
blob: 736dcf61978b41406619905ae67bc7d5036d0268 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
clc
//initialisation of variables
Fc= -10.0 //KN 
Fd= -6.0 //KN
y= 0.5 //m
x1= 1.5 //m
x2= 2.0 //m
x3= 1.8 //m
//CALCULATIONS
//The values in the textbook are rounded off. hence, there is a small variation in the result of this code.
alpha= atand(y/x1)
Rav= (-Fd*x3-Fc*(x2+x3))/(x1+x2+x3)
Rah= Rav*x1/y
Tca= sqrt(Rah^2+Rav^2)
tanbeta= ((-Fc-Tca*sind(alpha)))/(Tca*cosd(alpha))
Tcd= Tca*cosd(alpha)/cosd(beta)
gama= atand((-Fd+Tcd*sind(beta)))/(Tcd*cosd(beta))
Tdb= (Tcd*cosd(beta))/cosd(gama)
//RESULTS
printf ('Tca= %.1f KN',Tca)
printf (' \n Tcd=%.1f KN',Tcd)
printf (' \n Tdb=%.2f KN',Tdb)