24小时热门版块排行榜    

查看: 535  |  回复: 0

fghjk

新虫 (初入文坛)

[求助] ANSYS热结构耦合求位移曲线图

我做的是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
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 fghjk 的主题更新
信息提示
请填处理意见