做完了温度场分析,怎么做应力场分析?尤其是应力场怎么施加约束?
FINISH
/FILNAME,YUANPAN2
/PREP7
ET,1,PLANE55
KEYOPT,1,3,1
ET,2,SOLID70
MP,DENS,1,2707
MPTEMP,1,100,300,500,700,800
MPDATA,KXX,1,1,206,229,268,104,122
MPTEMP,,,,,,,,,,
MPTEMP,1,0,695,697,1000
MPTEMP,1,0,695,697,1000
MPDATA,ENTH,1,1,0,1.6857E9,2.7614E9,3.6226E9
MP,DENS,2,1495
MP,KXX,2,0.35
MP,C,2,816
SAVE
SAVE
SAVE,'DINGYI','db','D:\PROGRA~1\ANSYSI~1\MYWORK~1\'
*SET,R1,0.01
*SET,R2,0.05
*SET,R3,0.175
*SET,R4,0.2
*SET,H1,0.03
*SET,H2,0.006
*SET,H3,0.10
*SET,RAC,0.01
*SET,R,0.25
*SET,H,0.2
K,,R1,0.5*H1
K,,R2,0.5*H1,,
K,,R3,0.5*H2,,
K,,R3,0.5*H3,,
K,,R4,0.5*H3,,
K,,R1,-0.5*H1,,
K,,R2,-0.5*H1,,
K,,R3,-0.5*H2,,
K,,R3,-0.5*H3,,
K,,R4,-0.5*H3,,
SAVE
SAVE,'DINGYI','db','D:\PROGRA~1\ANSYSI~1\MYWORK~1\'
LSTR,1,2
LSTR,2,3
LSTR,3,4
LSTR,4,5
LSTR,5,10
LSTR,10,9
LSTR,9,8
LSTR,8,7
LSTR,7,6
LSTR,6,1
LSTR,2,7
LFILLT,2,3,RAC
LFILLT,8,7,RAC
SAVE
FLST,2,4,4
FITEM,2,10
FITEM,2,1
FITEM,2,11
FITEM,2,9
AL,P51X
FLST,2,10,4
FITEM,2,11
FITEM,2,2
FITEM,2,12
FITEM,2,3
FITEM,2,4
FITEM,2,5
FITEM,2,6
FITEM,2,7
FITEM,2,13
FITEM,2,8
AL,P51X
RECTNG,0,R,-0.5*H,0.5*H,
RECTNG,0,R1,-0.5*H,0.5*H,
RECTNG,R1,R2,-0.5*H,0.5*H
RECTNG,0,R,-0.5*H3,0.5*H3,
AOVLAP,ALL
FLST,5,2,5,ORDE,2
FITEM,5,1
FITEM,5,-2
ASEL,S,,,P51X
AATT,1,,1,0,
ALLS
ASEL,U,MAT,,1
AATT,2,,1,0,
ALLS
ESIZE,0.005
MSHKEY,2
AMESH,ALL
ASEL,S,MAT,,1
LSEL,S,EXT
LREFINE,ALL,,,2,1,1,1
LREFINE,ALL,,,2,1,1,1
/SOLU
ESEL,S,MAT,,1
NSLE,S,1
D,ALL,,750,,,,TEMP,,,,,
ALLSEL,ALL
ESEL,S,MAT,,2
NSLE,S,1
D,ALL,,25,,,,TEMP,,,,,
ALLSEL,ALL
LSEL,S,LOC,Y,0.5*H
LSEL,A,LOC,Y,-0.5*H
SFL,ALL,CONV,5.75,,25,
LSEL,S,LOC,X,R
SFL,ALL,CONV,7.5,,25,
ALLSEL,ALL
ANTYPE,TRANS
TRNOPT,FULL
LUMPM,0
TIMINT,OFF
TIME,0.001
DELTIM,0.001
TOFFST,273,
KBC,1
SOLVE
TIMINT,ON
LNSRCH,1
TIME,1800
DELTIM,0.1,0.01,20
NEQIT,500
AUTOTS,ON
DDELE,ALL,TEMP
OUTRESM,ALL,1
SOLVE
FINISH
![温度场应力场分析]()
IMG_20150415_150946.jpg |