Download ddnsth.eso
Back to the list
1 : C DDNSTH SOURCE CHAT 05/01/12 22:38:08 5004
2 : C DDNSTH SOURCE AM 95/12/27 21:26:13 1962
3 : SUBROUTINE DDNSTH(IR,IC,DP,PN,U,E,E0,EYP,EYN,PCP,PCN,PYP,PYN,
4 : * UYP,UYN,CP,CN,PSP,PSN,BP,BN,UEP,PEP,UEN,
5 : * PEN,UCP,UCN,E1P,E1N,E2P,E2N,USP,USN,UTP,
6 : * PTP,UTN,PTN,EP,EN)
7 : C=======================================================================
8 : C 3-PARAMETER MODEL
9 : C
10 : C THIS PROGRAM TRACES THE HYSTERETIC BEHAVIOR OF R/C COMPONENTS
11 : C - "DDNSTH" REPRESENTS DEGRADING, DETERIORATING,
12 : C NONSYMMETRIC, SLIP-TYPE & TRILINEAR HYSTERETIC MODEL.
13 : C
14 : C *ESSENTIAL VARIABLES
15 : C IR= NUMBER OF BRANCH OF HYSTERETIC RULE
16 : C IC= NON-ZERO VALUE INDICATES CHANGE OF BRANCH
17 : C DP= INCREMENTAL STRESS
18 : C PN= NEW STRESS
19 : C U= NEW DEFORMATION
20 : C E= INSTANTANIOUS STIFFNESS
21 : C *PERMANENT VARIABLES FOR ENVELOPE CURVES (LAST LETTER "P" INDICATES
22 : C POSITIVE SIDE, AND "N" INDICATES NEGATIVE SIDE)
23 : C E0= INITIAL STIFFNESS
24 : C EYP,EYN= POST-YIELDING STIFFNESS
25 : C PCP,PCN= CRACKING STRESS
26 : C PYP,PYN= YIELDING STRESS
27 : C UYP,UYN= YIELDING DEFORMATION
28 : C
29 : C *PERMANENT VARIABLES FOR DEGRADATION
30 : C CP,CN= COEFFICIENT FOR COMMON POINTS OF UNLOADING BRANCH
31 : C
32 : C *PERMANENT VARIABLES FOR SLIPPAGE
33 : C PSP,PSN= SLIPPING YIELD STRESS (WHEN NO SLIP IS EXPECTED,
34 : C SET PSP>PYP,PSN