blob: 144786644d04dd5280d905ca7930c9d1a6de1e93 (
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
|
clc
//
//Variable declaration
Fac = 750 //Force on rod AC(lb)
D = 0.375 //Diameter at the upper junction of rod ABC(in)
//Calculation
//Case(a)
A=(1/4.0)*((%pi)*(D**2)) //Area at the upper junction of rod ABC(in^2)
tA=(Fac/A) //Shearing Stress in Pin A(psi)
//Case(b)
Ab=(1/4.0)*((%pi)*(0.25**2)) //Area at the lower junction of rod ABC(in^2)
tC=(((1/2.0)*Fac)/Ab) //Shearing Stress in Pin C(psi)
//Case(c)
Anet=(3/8.0)*(1.25-0.375) //Area of cross section at A(in^2)
sA=(Fac/Anet) //Largest Normal Stress in Link ABC(psi)
//Case(d)
F1=750/2 //Force on each side(lb)
Ad=(1.25*1.75) //Area at junction B(in^2)
tB=(F1/Ad) //Average Shearing Stress at B
//Case(e)
Ae=0.25*0.25 //Area at point C(in^2)
sB=(F1/Ae) //Bearing Stress in Link at C
//Result
printf("\n Case(a): Shearing Stress in Pin A = %.1f psi' ,tA)
printf("\n Case(b): Shearing Stress in Pin C = %.f psi' ,tC)
printf("\n Case(c): Largest Normal Stress in Link ABC = %.f psi' ,sA)
printf("\n Case(d): Average Shearing Stress at B = %.f psi' ,tB)
printf("\n Case(e): Bearing Stress in Link at C = %.f psi' ,sB)
|
