FINI
/CLE
/FILNAME,CABLE_BRIDGE,1
/TITLE,YIDONE HEZAI OF CABLE_BRIDGE
BW=10.8
TH=-1.88
X1=50
X2=174
Y1=18
Y2=-18.8
D1=0.079
D2=0.039
B1=0.16
B2=0.3
B3=0.2
B4=0.18
B5=0.12
B6=2.0
B7=4.0
B8=0.14
H1=0.28
H2=0.2
H3=0.14
H4=0.18
H5=0.24
H6=0.12
H7=4.0
H8=2.0
INSTR=0
/PREP7
ET,1,LINK10
KEYOPT,1,3,0
ET,2,BEAM4
ET,3,SHELL63
MP,EX,1,2.1E11
MP,NUXY,1,0.167
MP,DENS,1,7850
MP,EX,2,3.0E10
MP,NUXY,2,0.3
MP,DENS,2,2500
MP,EX,3,2.8E10
MP,NUXY,3,0.3
MP,DENS,3,2500
R,1,D1**2*3.1415926/4,INSTR
R,2,D2**2*3.1415926/4
R,3,B1*H1,,,B1,H1
R,4,B2*H2,B2*H2**3/12,B2**3*H2/12,B2,H2
R,5,B1*H3,B1*H3**3/12,B1**3*H3/12,B1,H3
R,6,B3*H4,B3*H4**3/12,B3**3*H4/12,B3,H4
R,7,B4*H5,B4*H5**3/12,B4**3*H5/12,B4,H5
R,8,B4*H2,B4*H2**3/12,B4**3*H2/12,B4,H2
R,9,B3*H3,B3*H3**3/12,B3**3*H3/12,B3,H3
R,10,B5*H6,B5*H6**3/12,B5**3*H6/12,B5,H6
R,11,B6*H7,B6*H7**3/12,B6**3*H7/12,B6,H7
R,12,B7*H8,B7*H8**3/12,B7**3*H8/12,B7,H8
R,13,B8
*DO,I,1,12,1
N,I,4*(I-1),(4*(I-1)+12)**2/256+2
*ENDDO
N,13,50,18
*DO,I,1,29,1
N,I+13,4*I+52,(4*I-60)**2/256+2
*ENDDO
N,43,174,18
*DO,I,1,12,1
N,I+43,4*I+176,(4*I-60)**2/256+2
*ENDDO
TYPE,1
MAT,1
REAL,1
*DO,I,1,54,1
E,I,I+1
*ENDDO
*DO,I,1,11,1
N,I+55,4*I
*ENDDO
*DO,I,1,29,1
N,I+66,4*I+52
*ENDDO
*DO,I,1,11,1
N,I+95,4*I+176
*ENDDO
TYPE,1
MAT,1
REAL,2
*DO,I,2,12,1
E,I,I+54
*ENDDO
*DO,I,14,42,1
E,I,I+53
*ENDDO
*DO,I,44,54,1
E,I,I+52
*ENDDO
K,1,X1,Y1
K,2,X1,Y2
K,3,X2,Y1
K,4,X2,Y2
K,5,X1,TH
K,6,X2,TH
K,7,X1,0
K,8,X2,0
L,1,7
L,3,8
L,7,2
L,8,4
LSEL,ALL,ALL
LGEN,2,ALL,,,,,BW
ESEL,ALL,ALL
!EGEN, ITIME, NINC, IEL1, IEL2, IEINC, MINC, TINC, RINC, CINC, SINC, DX, DY, DZ
！其中NINC为编号增量,MINC为材料号
EGEN,2,200,ALL,,,,,,,,,,BW
KGEN,2,5,6,,,,BW,10
L,5,15
L,6,16
L,1,9
L,3,11
NUMCMP,ALL
N,213,8,TH,BW
N,214,8,TH
N,215,8,,1.89
NGEN,7,1,215,,,,,1.17
N,222,8,TH,1.89
NGEN,4,1,222,,,,,2.34
TYPE,2
MAT,2
REAL,7
E,57,215
E,163,221
*DO,I,215,220,1
E,I,I+1
*ENDDO
TYPE,2
MAT,2
REAL,8
E,214,222
E,213,225
*DO,I,222,224,1
E,I,I+1
*ENDDO
TYPE,2
MAT,2
REAL,2
E,163,225
E,225,220
E,220,224
E,224,218
E,218,223
E,223,216
E,216,222
E,222,57
TYPE,2
MAT,2
REAL,9
*DO,I,1,4,1
E,213+2*I,221+I
*ENDDO
TYPE,2
MAT,2
REAL,6
E,163,213
E,57,214
ESEL,S,ELEM,,211,237,1
EGEN,2,200,ALL,,,,,,,,-4
ALLS
NUMMRG,ALL
NUMCMP,ALL
TYPE,2
MAT,2
REAL,4
NGEN,2,77,162,,,2
NGEN,2,1,239,,,,TH
E,162,239
E,239,163
E,226,240
E,240,213
TYPE,2
MAT,2
REAL,5
E,226,239
E,239,213
ESEL,S,ELEM,,265,270,1
EGEN,2,100,ALL,,,,,,,,,,-BW
TYPE,2
MAT,2
REAL,5
*DO,I,1,7,1
E,227+I,214+I
*ENDDO
NUMCMP,ALL
E,56,163
E,162,57
NUMCMP,ALL
TYPE,3
MAT,3
REAL,13
E,162,163,221,234
E,234,221,220,233
*DO,I,1,5,1
E,234-I,221-I,220-I,233-I
*ENDDO
E,228,215,57,56
ESEL,S,ELEM,,211,293,1
EGEN,54,1000,ALL,,,,,,,,4
ALLS
NUMMRG,ALL
NUMCMP,ALL
NSEL,ALL
NSEL,U,LOC,Y,Y1
CM,QIAO,NODE
LSEL,S,LINE,,1,8,1
LESIZE,ALL,1.88
MSHKEY,1
MSHAPE,0,3D
TYPE,2
MAT,3
REAL
,11
LMESH,ALL
ALLS
LSEL,S,LINE,,9,12,1
LESIZE,ALL,,,10
REAL,12
LMESH,ALL
ALLS
CMSEL,U,QIAO
NUMMRG,NODE
NUMCMP,ALL
ALLS
CP,1,UY,431,1213
CP,2,UZ,431,1213
CP,3,ROTX,431,1213
CP,4,UY,433,1173
CP,5,UZ,433,1173
CP,6,ROTX,433,1173
CP,7,UY,962,1223
CP,8,UZ,962,1223
CP,9,ROTX,962,1223
CP,10,UY,964,1183
CP,11,UZ,964,1183
CP,12,ROTX,964,1183
CP,13,UY,430,1192
CP,14,UZ,430,1192
CP,15,ROTX,430,1192
CP,16,UY,432,1152
CP,17,UZ,432,1152
CP,18,ROTX,432,1152
CP,19,UY,961,1202
CP,20,UZ,961,1202
CP,21,ROTX,961,1202
CP,22,UY,963,1162
CP,23,UZ,963,1162
CP,24,ROTX,963,1162
NSEL,S,LOC,X,0
D,ALL,ALL
NSEL,S,LOC,X,224
D,ALL,ALL
NSEL,S,LOC,Y,Y2
D,ALL,ALL
NSEL,S,LOC,X,220
NSEL,U,LOC,Y,3
D,ALL,ALL
NSEL,S,LOC,X,4
NSEL,U,LOC,Y,3
D,ALL,ALL
*END
/eshape,1
MODEL
DELTL=4
V=120
DELTT=DELTL/V*3.6
F=10
LF=8
NUM=54
MM=NUM+1+LF/DELTL
FINI
/SOLU
ANTYPE,4
TRNOPT,FULL
NLGEOM,OFF
NROPT,FULL
TIMINT,OFF
TIME,1E-8
KBC,1
NSUBST,5
SSTIF,ON
ACEL,,9.8
ALLS
SOLVE
TIMINT,ON
KBC,0
*DO,I,1,MM,1
OUTRES,ALL,ALL
TIME,I*DELTT
NSUBST,5
*IF,I,LT,LF/DELTL,THEN
FDELE,ALL,ALL
NSEL,S,LOC,X,I*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,1.89
F,ALL,FY,-F
ALLS
NSEL,S,LOC,X,I*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,BW-1.89
F,ALL,FY,-F
ALLS
SOLV
*ELSEIF,I,LT,(NUM+1)
FDELE,ALL,ALL
NSEL,S,LOC,X,I*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,1.89
F,ALL,FY,-F
ALLS
NSEL,S,LOC,X,I*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,BW-1.89
F,ALL,FY,-F
ALLS
NSEL,S,LOC,X,(I-2)*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,1.89
F,ALL,FY,-F
ALLS
NSEL,S,LOC,X,(I-2)*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,BW-1.89
F,ALL,FY,-F
ALLS
SOLV
*ELSE
FDELE,ALL,ALL
NSEL,S,LOC,X,(I-2)*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,1.89
F,ALL,FY,-F
ALLS
NSEL,S,LOC,X,(I-2)*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,BW-1.89
F,ALL,FY,-F
ALLS
SOLV
*ENDIF
*ENDDO
*IF,I,LT,LF/DELTL,THEN
FDELE,ALL,ALL
NSEL,S,LOC,X,I*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,1.89
F,ALL,FY,-F*COS(W*I*DELTT)
ALLS
NSEL,S,LOC,X,I*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,BW-1.89
F,ALL,FY,-F*COS(W*I*DELTT)
ALLS
SOLV
*ELSEIF,I,LT,(NUM+1)
FDELE,ALL,ALL
NSEL,S,LOC,X,I*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,1.89
F,ALL,FY,-F*COS(W*I*DELTT)
ALLS
NSEL,S,LOC,X,I*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,BW-1.89
F,ALL,FY,-F*COS(W*I*DELTT)
ALLS
NSEL,S,LOC,X,(I-2)*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,1.89
F,ALL,FY,-F*COS(W*I*DELTT)
ALLS
NSEL,S,LOC,X,(I-2)*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,BW-1.89
F,ALL,FY,-F*COS(W*I*DELTT)
ALLS
SOLV
*ELSE
FDELE,ALL,ALL
NSEL,S,LOC,X,(I-2)*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,1.89
F,ALL,FY,-F*COS(W*I*DELTT)
ALLS
NSEL,S,LOC,X,(I-2)*DELTL
NSEL,R,LOC,Y
NSEL,R,LOC,Z,BW-1.89
F,ALL,FY,-F*COS(W*I*DELTT)
ALLS
SOLV
*ENDIF
*ENDDO
FINI
/POST1
SET,30,2
PLNSOL,U,Y
PLNSOL,S,EQV
/POST26
NUMVAR,20
NSOL,2,677,U,Y,UY_CENT
DERIV,3,2,1,,VY_CENT
PLVAR,2
PLVAR,3