CALCS PROC044
SECTION, RECTANGULAR ELEMENTS, TORSION

NOTATION

Nnumber of elements
Ksumstiffness, sum, torsional
Mxtorsion
a1/2 length, cross section, longer
b1/2 length, cross section, shorter
Kestiffness, element, torsional
fsstress, shear

APPLICATION

Open section composed of rectangular elements, with ends unable to prevent warping, subject to torsion and providing shear stresses

OUTPUT

from prog

SEE ALSO

PROC047

THEORY

Roark5,T20,I4

GUIDANCE

Array DIM Ke(N),a(N),b(N) statement must be added at prog start.
Composite member parameters are defined "Nm=:Nk=:N=:Mx=" before the proc is called
When the proc is called, a & b are defined for each element "a(1)=:b(1)=:a(2)=:b(2)=:Ksum=0:C=1".

INPUT FORMAT

LET Nm=:Nk=:N=:Mx=
LET a(1)=:b(1)=:Ksum=0:PROC044

EXAMPLE

Call Statement

LET Nm=1:Nk=1:N=2:Mx=99
LET a(1)=23:a(2)=14:b(1)=1.4:b(2)=1.1:Ksum=0:PROC044

Output

PROC044 SECTION, RECT.ELEMENTS, TORSION, Rev 021095
Ke(C)= a(C)*b(C)^3*(16/3-(3.36*b(C)/a(C))*(1-b(C)^4/(12*a(C)^4)))= 323.7
fs= (Ke(C)/Ksum)*Mx*(3*a(C)+1.8*b(C))/(8*a(C)^2*b(C)^2)= 0.8536
Ke(C)= a(C)*b(C)^3*(16/3-(3.36*b(C)/a(C))*(1-b(C)^4/(12*a(C)^4)))= 94.46
fs= (Ke(C)/Ksum)*Mx*(3*a(C)+1.8*b(C))/(8*a(C)^2*b(C)^2)= 0.5184
UF= fsmax/(Ks(Nk)*Fy(Nm))= 0.6276
END044