summaryrefslogtreecommitdiff
path: root/3647/CH1/EX1.4/Ex1_4.sce
blob: 9f1a141e5199c08e6e208996d0790a6d638ea151 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Tension Coupling calculation
clc
//initialisation of variables
w=30//tonf
m=100//tonf
w1=150//tonf
f=6000//lbf
h=2240//lbf
q=105//lbf
p=135//lbf
a=711.7//lbf
//CALCULATIONS
M=(q*h)/m//lbf
R=(w*h)/w1//lbf
T=M+R//lbf
A=f-T//lbf
T1=R+a//lbf
//RESULTS
printf('the Tension Coupling is=% f lbf',T1)