CALCS | PROC044 SECTION, RECTANGULAR ELEMENTS, TORSION |

## NOTATION | ||

N | number of elements | |

Ksum | stiffness, sum, torsional | |

Mx | torsion | |

a | 1/2 length, cross section, longer | |

b | 1/2 length, cross section, shorter | |

Ke | stiffness, element, torsional | |

fs | stress, shear |

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".

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 |