Simple Program to Investigate Hysteresis Damping Effect of Cross-Ties on Cables Vibration of Cable-Stayed Bridges

Algorithm 2

Subroutine EVAL.

1  SUBROUTINE EVAL(UO, UU, EOPL, EUPL, GO, GU)

2  COMMON/A/AW, HO, HO0, DHO, EO, SO, TO, HU, HU0, DHU, EU, *SU, TU, WO, WU,

   N, LO, LU, FO, FU, MO, MU

3  REAL LO, LU, MO, MU, 𝑁

4  DHO = HO + UO − UU − HO0

5  EO = DHO/HO0

6  CALL SE(EO, EOPL, SO)

7  TO = SO*AW

8  DHU = HU + UU − HU0

9  EU = DHU/HU0

10  CALL SE(EU, EUPL, SU)

11  TU = SU*AW

12  FO = WO − 2. *𝑁/(LO/2.)*UO − TO

13  FU = WU − 2. *𝑁/(LU/2.)*UU + TO − TU

14  GO = FO/MO

15  GU = FU/MU

16  RETURN

17  END