CALCS | PROC007 FLANGE BEARING DISSIPATION |

## NOTATION | ||

t1 | thickness, 1st flange element | |

t2 | 2 | |

t3 | 3 | |

te | thickness, effective | |

tw | thickness, web | |

xbrg | bearing length | |

xw | web compression length | |

P | normal force |

## EXAMPLE | |||

## Call Statement | |||

LET Nm=1:Nk=1:Nt=3:T(1)=.5:T(2)=.4:T(3)=.6:xbrg=5.5:Tw=.3:P=5.4:PROC007 | |||

## Output | |||

PROC007 FLANGE BEARING DISSIPATION, Rev 190995 | |||

sum | = +T(1)^3+T(2)^3+T(3)^3 | = 0.405 | |

Te | = (sum)^(1/3) | = 0.7399 | |

xw | = xbrg+2*Te/TAN(RAD(30)) | = 8.063 | |

fd | = P/(xw*Tw) | = 2.232 | |

UF | = ABS(fd)/(Kc(Nk)*Fy(Nm)) | = 0.952 | |

END007 |