Research Article
Simple Program to Investigate Hysteresis Damping Effect of Cross-Ties on Cables Vibration of Cable-Stayed Bridges
Algorithm 4
Subroutine NHIST.
1 SUBROUTINE NHIST(T,N) | 2 COMMON/C/NN, TK, NK | 3 DIMENSION TK(20), NK(20) | 4 REAL , NK | 5 DO 1 = 1, NN−1 | 6 IF((− TK)*(− TK( + 1)).GT.0.) GO TO 1 | 7 = NK() + (NK( + 1)−NK())/(TK( + 1)−TK())*(T−TK()) | 8 RETURN | 9 1 CONTINUE | 10 END |
|