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* (𝐸−EPL)

7  IF(S.LT.0.)𝑆 = 0.

8  RETURN

9  END