5-3.txt

是用apdl语言编的

/TITLE,CABLE
/PREP7
ET,1,LINK10
ET,2,BEAM3
R,1,1,1E-5
R,2,0.02,1E-5
R,3,0.5,1/24,1
MP,EX,1,25E10
MP,PRXY,1,0.1
MP,DENS,1,1000
MP,EX,2,30E10
MP,PRXY,2,0.1
MP,DENS,2,1000
A=250
*DO,I,1,10
   X=10*(I-1)
   Y=A*COSH(X/A)-A
   N,I,X,Y
*ENDDO
N,11,100,20
*DO,I,1,10
   X=10*I
   Y=0
   N,11+I,X,Y
*ENDDO
type,1
real,1
mat,1
*DO,I,1,10
 E,I,I+1
*ENDDO
type,1
real,2
mat,1
*DO,I,2,10
 E,I,I+10
*ENDDO
type,2
real,3
mat,2
E,1,12
*DO,I,1,9
 E,I+11,I+12
*ENDDO
NSYM,X,21,ALL
ESYM,,21,ALL
NUMMRG,ALL
NUMCMP,ALL
SAVE
!>>>>>>>>>>>>>>>>>>>>
/SOLU
D,41,UX
D,41,UY
D,21,UY
D,31,UX
D,31,UY
D,11,UX
D,11,UY
NSEL,U,NODE,,41
NSEL,U,NODE,,21
D,ALL,UZ
ALLSEL
ACEL,,10,,
NROPT,FULL
ESEL,,REAL,,2
ESEL,A,REAL,,3
EKILL,ALL
ALLSEL
NLGEOM,ON
TIME,1
NSUBST,10,20,5
OUTRES,ERASE
OUTRES,ALL,ALL
SSTIF,ON
SOLVE
/POST1
ESEL,,LIVE
PLVECT,U
ALLSEL
/PREP7
UPGEOM,1,LAST,LAST,'Cable','RST'
/SOLU
SOLVE
/POST1
ESEL,,LIVE
PLVECT,U
ALLSEL
SAVE
/SOLU
F,1,FY,-50000
F,2,FY,-25000
F,22,FY,-25000
TIME,2
SOLVE
/POST1
ESEL,,LIVE
PLVECT,U
ALLSEL
/SOLU
DOFSEL,S,,FY
FCUM,ADD,1
DOFSEL,ALL
*DO,I,1,9
XX0=I*10
XX=(I+1)*10
NSEL,,LOC,X,-XX0
NSEL,R,LOC,Y,0.1,30
NSEL,A,LOC,X,XX0
NSEL,R,LOC,Y,0.1,30
F,ALL,FY,-25000
ALLSEL
NSEL,,LOC,X,XX
NSEL,R,LOC,Y,0.1,30
NSEL,A,LOC,X,-XX
NSEL,R,LOC,Y,0.1,30
F,ALL,FY,-25000
ALLSEL
TIME,I+2
SOLVE
*ENDDO
/POST1
ESEL,,LIVE
PLVECT,U
ALLSEL
SAVE
!>>>>>>>>>>>>>>>>>>
/SOLU
NSEL,,LOC,Y,0.1,30
NSEL,A,NODE,,1
FDELE,ALL,FY
ALLSEL
ESEL,U,LIVE
EALIVE,ALL
ALLSEL
TIME,12
SOLVE
/POST1
ESEL,,LIVE
PLVECT,U
ALLSEL
FINISH
SAVE