4-7.txt

是用apdl语言编的

/TITLE,CASTCONCRETE	
/PREP7
ET,1,SOLID70
MP,KXX,1,300.89 
MP,C,1,0.94500 
MP,DENS,1,2400 
MP,KXX,2,300.89 
MP,C,2,0.94500 
MP,DENS,2,2600 
BLOCK,,50,,2,,40,   
BLOCK,-25,75,-10,0,-20,60, 
/VIEW, 1 ,1,1,1 
/ANG, 1 
LSEL,,LOC,Z,0
LSEL,R,LOC,X,1,49
LESIZE,ALL,,,10
ALLSEL
LSEL,,LOC,Z,40
LSEL,R,LOC,X,1,49
LESIZE,ALL,,,10
ALLSEL
LSEL,,LOC,X,0
LSEL,R,LOC,Z,1,39
LESIZE,ALL,,,10
ALLSEL
LSEL,,LOC,X,50
LSEL,R,LOC,Z,1,39
LESIZE,ALL,,,10
ALLSEL
LSEL,,LOC,Z,0
LSEL,R,LOC,Y,1,1.5
LESIZE,ALL,,,2
ALLSEL
LSEL,,LOC,Z,40
LSEL,R,LOC,Y,1,1.5
LESIZE,ALL,,,2
ALLSEL
LSEL,,LOC,Z,-20
LSEL,R,LOC,X,1,49
LESIZE,ALL,,,20
ALLSEL
LSEL,,LOC,Z,60
LSEL,R,LOC,X,1,49
LESIZE,ALL,,,20
ALLSEL
LSEL,,LOC,X,-25
LSEL,R,LOC,Z,1,39
LESIZE,ALL,,,20
ALLSEL
LSEL,,LOC,X,75
LSEL,R,LOC,Z,1,39
LESIZE,ALL,,,20
ALLSEL
LSEL,,LOC,Z,-20
LSEL,R,LOC,Y,-9,-1.3
LESIZE,ALL,,,10
ALLSEL
LSEL,,LOC,Z,60
LSEL,R,LOC,Y,-9,-1.3
LESIZE,ALL,,,10
ALLSEL
VSEL,,LOC,Y,1,1.5
MAT,1
VMESH,1
ALLSEL
VSEL,,LOC,Y,-9,-1.5
MAT,2
VMESH,2
ALLSEL
NUMMRG,ALL
NUMCMP,NODE
NROPT,FULL
ESEL,S,MAT,,2
NSLE,S      
IC,ALL,TEMP,16.5
ASEL,,LOC,X,-25
ASEL,A,LOC,X,75
ASEL,A,LOC,Y,-10
ASEL,A,LOC,Z,-20
ASEL,A,LOC,Z,60
NSLA,S
SF,ALL,HFLUX,0
ALLSEL
NSEL,,LOC,X,49,76
NSEL,R,LOC,Y,0
NSEL,A,LOC,X,-26,1
NSEL,R,LOC,Y,0
NSEL,A,LOC,Z,39,61
NSEL,R,LOC,Y,0
NSEL,A,LOC,Z,-21,1
NSEL,R,LOC,Y,0
SF,ALL,CONV,2016,20
ESEL,,MAT,,1
EKILL,ALL
NSLE,S
IC,ALL,TEMP,40
NSEL,,LOC,Y,0,1
ESLN,S,1
EALIVE,ALL
ALLSEL
NSEL,,LOC,X,1,49
NSEL,R,LOC,Z,1,39
NSEL,R,LOC,Y,0
CM,DD,NODE   
ALLSEL
NSEL,,LOC,Y,0,1
ESLN,S,1
NSLE,S
NSEL,U,,,DD   
SF,ALL,CONV,2016,20
HE00=47880/1.862
BFE,ALL,HGEN,,HE00
ALLSEL
/SOLU
ANTYPE,TRANS
TIME,1
AUTOTS,0
DELTIM,1
KBC,0
SOLVE
/POST1
PLNSOL,TG,SUM
/PREP7
NSEL,,LOC,Y,0,1
ESLN,S,1
HE00=47880*(2/2.862- 1/1.862)
BFE,ALL,HGEN,,HE00
ALLSEL
/SOLU
ANTYPE,TRANS
TIME,2
AUTOTS,0
DELTIM,1
KBC,0
SOLVE
/POST1
PLNSOL,TG,SUM
/PREP7
ESEL,,MAT,,1
NSLE,S
SFEDELE,ALL,ALL,CONV
ALLSEL
NSEL,,LOC,X,1,49
NSEL,R,LOC,Z,1,39
NSEL,R,LOC,Y,0,1
CM,KK,NODE  
NSEL,,LOC,Y,0,2
ESLN,S,1
NSLE,S
NSEL,U,,,KK   
SF,ALL,CONV,2016,20
ALLSEL
NSEL,,LOC,Y,0,1
ESLN,S,1
HE00=47880*(3/3.862-2/2.862)
BFE,ALL,HGEN,,HE00
ALLSEL
NSEL,,LOC,Y,1,2
ESLN,S,1
HE00=47880/1.862
BFE,ALL,HGEN,,HE00
ALLSEL
/SOLU
ANTYPE,TRANS
TIME,3
AUTOTS,0
DELTIM,1
KBC,0
SOLVE
/POST1
PLNSOL,TG,SUM
/PREP7
NSEL,,LOC,Y,0,1
ESLN,S,1
HE00=47880*(4/4.862-3/3.862)
BFE,ALL,HGEN,,HE00
ALLSEL
NSEL,,LOC,Y,1,2
ESLN,S,1
HE00=47880*(2/2.862-1/1.862)
BFE,ALL,HGEN,,HE00
ALLSEL
/SOLU
ANTYPE,TRANS
TIME,4
AUTOTS,0
DELTIM,1
KBC,0
SOLVE
/POST1
PLNSOL,TG,SUM
SAVE
FINISH

!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
/PREP7
ET,1,SOLID45
MP,EX,1,0.325E10
MP,DENS,1,2400
MP,PRXY,1,0.2
MP,ALPX,1,0.9E-5
MP,REFT,1,15
MP,EX,2,2.08E10
MP,DENS,2,2600
MP,PRXY,2,0.2
MP,ALPX,2,0.9E-5
ESEL,,MAT,,2
MPCHG,2,ALL
ALLSEL
/SOLU
ASEL,,LOC,X,-25
ASEL,A,LOC,X,75
ASEL,A,LOC,Y,-10
ASEL,A,LOC,Z,-20
ASEL,A,LOC,Z,60
NSLA,S
D,ALL,ALL
ALLSEL
ESEL,,MAT,,1
EKILL,ALL
NSEL,,LOC,Y,0,1
ESLN,S,1
EALIVE,ALL
MPCHG,1,ALL
ALLSEL
ACEL,0,9.8,0
LDREAD,TEMP,,,1,,'CASTCONCRETE','rth',''
ANTYPE,TRANS
NLGEOM,ON
CNVTOL,F,,0.2,2,200
TIME,1
AUTOTS,0
DELTIM,1
KBC,0
SOLVE
/SOLU
LDREAD,TEMP,,,2,,'CASTCONCRETE','rth',''
TIME,2
SOLVE
/SOLU
NSEL,,LOC,Y,1,2
ESLN,S,1
EALIVE,ALL
MPCHG,1,ALL
ALLSEL
LDREAD,TEMP,,,3,,'CASTCONCRETE','rth',''
TIME,3
SOLVE
/SOLU
LDREAD,TEMP,,,4,,'CASTCONCRETE','rth',''
TIME,4
SOLVE
FINISH
SAVE
!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

/POST1
PLNSOL,U,Y
PLNSOL,S,Y
PLESOL,S,Y