Research Article
Simple Program to Investigate Hysteresis Damping Effect of Cross-Ties on Cables Vibration of Cable-Stayed Bridges
Algorithm 3
Subroutine SE.
1 SUBROUTINE SE(E, EPL, ) | 2 COMMON/B/EY, ELAST | 3 IF(E,GT.EPL + EY)EPL=E-EY | 4 IF(E.LT.EPL)EPL=E | 5 IF(EPL.LT.0.)EPL=0. | 6 = ELAST* | 7 IF(S.LT.0.) = 0. | 8 RETURN | 9 END |
|