我做的是H型钢的喷水冷却,求变形位移曲线图,利用的是热结构耦合的间接法做的,先求出温度场,后温度场作为载荷求变形位移场。
这里的命令流哪里错了?怎么就做不出图示的位移曲线图?求助大神!!!
FINI
/CLEAR,ALL
/FILNAME,LENGQUE
/PREP7
ET,1,PLANE55
MP,KXX,1,40
MP,C,1,600
MP,DENS,1,7800
K,1,,0.004,,
K,2,,-0.004,,
K,3,0.088,-0.004,,
K,4,0.088,0.004,,
K,5,0.088,0.1,,
K,6,0.088,-0.1,,
K,7,0.1,-0.1,,
K,8,0.1,0.1,,
K,9,0.088,0.07,,
K,10,0.088,-0.07,,
K,11,0.1,0.07,,
K,12,0.1,-0.05,,
LSTR, 1, 4
LSTR, 4, 9
LSTR, 9, 5
LSTR, 5, 8
LSTR, 8, 11
LSTR, 11, 12
LSTR, 12, 7
LSTR, 7, 6
LSTR, 6, 10
LSTR, 10, 3
LSTR, 3, 2
LSTR, 2, 1
LFILLT,1,2,0.013, ,
LFILLT,10,11,0.013, ,
FLST,2,2,3,ORDE,2
FITEM,2,3
FITEM,2,-4
KDELE,P51X
LGLUE,ALL
AL,ALL
SMRTSIZE,3
AMESH,ALL
/SOL
ANTYPE,TRANS
TUNIF,900
FLST,2,1,4,ORDE,1
FITEM,2,1
SFL,P51X,CONV,3500, ,20,
FLST,2,1,4,ORDE,1
FITEM,2,13
SFL,P51X,CONV,3000, ,20,
FLST,2,1,4,ORDE,1
FITEM,2,2
SFL,P51X,CONV,2500, ,20,
FLST,2,1,4,ORDE,1
FITEM,2,3
SFL,P51X,CONV,2000, ,20,
FLST,2,1,4,ORDE,1
FITEM,2,4
SFL,P51X,CONV,100, ,20,
FLST,2,1,4,ORDE,1
FITEM,2,5
SFL,P51X,CONV,2500, ,20,
FLST,2,1,4,ORDE,1
FITEM,2,6
SFL,P51X,CONV,3500, ,20,
FLST,2,1,4,ORDE,1
FITEM,2,7
SFL,P51X,CONV,4000, ,20,
FLST,2,1,4,ORDE,1
FITEM,2,8
SFL,P51X,CONV,150, ,20,
FLST,2,1,4,ORDE,1
FITEM,2,9
SFL,P51X,CONV,2500, ,20,
FLST,2,1,4,ORDE,1
FITEM,2,10
SFL,P51X,CONV,3000, ,20,
FLST,2,1,4,ORDE,1
FITEM,2,14
SFL,P51X,CONV,2500, ,20,
FLST,2,1,4,ORDE,1
FITEM,2,11
SFL,P51X,CONV,1000, ,20,
TIME,1
SOLVE
TIME,5
DELTIM,1
OUTRES,ALL,ALL
SOLVE
!******************转换到应力场位移分析*****************5f
FINISH
/FILNAME,LENGQUE1
/PREP7
PHYSICS,CLEAR
FINISH
/SOL
LSCLEAR,ALL !!删除荷载步数据
FINISH
/PREP7
ETCHG,TTS
!************参数************
MP,DENS,1,7850
MP,EX,1,170E9
MP,PRXY,1,0.3
UIMP,1,REFT,,,20
MP,ALPX,1,14E-6
/SOLU
LSEL,S,LOC,X,0
D,ALL,UX,0
ALLS
EPLOT
TIME,1
LDREAD,TEMP,,,1,,'LENGQUE','rth',' '
ALLSEL
SOLVE
TIME,2
LDREAD,TEMP,,,2,,'LENGQUE','rth',' '
ALLSEL
SOLVE
TIME,3
LDREAD,TEMP,,,3,,'LENGQUE','rth',' '
ALLSEL
SOLVE
TIME,4
LDREAD,TEMP,,,4,,'LENGQUE','rth',' '
ALLSEL
SOLVE
TIME,5
LDREAD,TEMP,,,5,,'LENGQUE','rth',' '
ALLSEL
SOLVE
/POST26
NSOL,2,160,U,Y,Y-1 !最小位移曲线
NSOL,3,77,U,Y,Y-2 !最大位移曲线
PLVAR,2,3
![ANSYS热结构耦合求位移曲线图]()
IMG20161220205806.jpg |