24小时热门版块排行榜    

查看: 311  |  回复: 2
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

taofei

捐助贵宾 (正式写手)

[求助] 帮忙找一下这段程序中的问题吧

大概模型是,双层的靶,电子轰击到靶上,我用热生成率hgen来代替电子打靶产生的热量,上层是钨靶,下层是不锈钢靶。
但是问题是我用hgen加上载荷后只有钨靶加上了载荷,而下层无论如何也加不上了,就这么个小问题,折磨死我了,请各位帮忙看看这段apdl的问题,怎么才能让下层的不锈钢也加上载荷谢谢!

!双层靶
/FILNAME,target      
/PREP7                    ! 进入前处理器
R=0.004
H=0.001
Q=2.9e14  
t=0.000004  
ET,1,PLANE55           

!*  
KEYOPT,2,1,2
KEYOPT,2,2,0
KEYOPT,2,3,0
KEYOPT,2,4,0
KEYOPT,2,5,0
!*
!*  
KEYOPT,1,1,0
KEYOPT,1,3,1
KEYOPT,1,4,0
KEYOPT,1,8,0
KEYOPT,1,9,0
!*
!定义随温度变化的参数
MPTEMP,1,300
MPTEMP,2,500
MPTEMP,3,1000
MPTEMP,4,1500
MPTEMP,5,2000   
MPTEMP,6,2500   
MPTEMP,7,3000   

MPDATA,KXX,1,,171.5 !上层半径4毫米,厚1mm的钨片
MPDATA,KXX,1,,149.5
MPDATA,KXX,1,,119.5
MPDATA,KXX,1,,107.1
MPDATA,KXX,1,,98.8
MPDATA,KXX,1,,92.5
MPDATA,KXX,1,,87.8

MPDATA,DENS,1,,19350
MPDATA,DENS,1,,19350
MPDATA,DENS,1,,19350
MPDATA,DENS,1,,19350
MPDATA,DENS,1,,19350
MPDATA,DENS,1,,19350
MPDATA,DENS,1,,19350

MPDATA,C,1,,132.2
MPDATA,C,1,,138.9
MPDATA,C,1,,147.7
MPDATA,C,1,,158.8
MPDATA,C,1,,167.9
MPDATA,C,1,,176.5
MPDATA,C,1,,186.7

MPTEMP,1,300
MPTEMP,2,500
MPTEMP,3,1000
MPTEMP,4,1500
MPTEMP,5,2000   
MPTEMP,6,2500   
MPTEMP,7,3000   

MPDATA,KXX,2,,80.4  !下层半径8mm,厚3mm的不锈钢
MPDATA,KXX,2,,80.4
MPDATA,KXX,2,,80.4
MPDATA,KXX,2,,80.4
MPDATA,KXX,2,,80.4
MPDATA,KXX,2,,80.4
MPDATA,KXX,2,,80.4

MPDATA,DENS,2,,78600
MPDATA,DENS,2,,78600
MPDATA,DENS,2,,78600
MPDATA,DENS,2,,78600
MPDATA,DENS,2,,78600
MPDATA,DENS,2,,78600
MPDATA,DENS,2,,78600

MPDATA,C,2,,448
MPDATA,C,2,,448
MPDATA,C,2,,448
MPDATA,C,2,,448
MPDATA,C,2,,448
MPDATA,C,2,,448
MPDATA,C,2,,448
!关键点建模
K,1,,,,
K,2,0.008,,,
K,3,0.008,0.004,,   
K,4,0.004,0.004,,   
K,5,0,0.004,,   
K,6,0,0.003,,   
K,7,0.004,0.003,,   
  
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
FLST,2,6,3  
FITEM,2,1   
FITEM,2,2   
FITEM,2,3   
FITEM,2,4   
FITEM,2,7   
FITEM,2,6   
A,P51X  
FLST,2,4,3  
FITEM,2,5   
FITEM,2,4   
FITEM,2,7   
FITEM,2,6   
A,P51X  
FLST,2,2,5,ORDE,2   
FITEM,2,1   
FITEM,2,-2  
AGLUE,P51X
!划分网格
/UI,MESH,OFF
CM,_Y,AREA  
ASEL, , , ,       2
CM,_Y1,AREA
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1
AATT,       1, ,   1,       0,  
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*  
CM,_Y,AREA  
ASEL, , , ,       1
CM,_Y1,AREA
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1
AATT,       2, ,   2,       0,  
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*  
CM,_Y,AREA  
ASEL, , , ,       1
CM,_Y1,AREA
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1
AATT,       2, ,   1,       0,  
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*
ESIZE,r/40,0,   
MSHAPE,0,2D
MSHKEY,0
!*  
FLST,5,2,5,ORDE,2   
FITEM,5,1   
FITEM,5,-2  
CM,_Y,AREA  
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
AMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
/UI,MESH,OFF
!施加载荷
DOFSEL,S, ,
FCUM,ADD,1,
DOFSEL,ALL  
!*  
BFCUM,TEMP,REPL,1,0,
BFCUM,HGEN,ADD,1,   
BFCUM,CHRGD,REPL,1,
BFCUM,FLUE,REPL,1,  
BFCUM,JS,REPL,1,
!*
nsel,s,loc,Z,0
nsel,s,loc,x,0,0.001
nsel,r,loc,y,0,0.004
BF,all,hgen,q

/SOLU   
tunif,300
toffst,273                                 
ANTYPE,TRANS     
TIME,t         
DELTIM,t/10     
KBC,0           
AUTOTS,ON      
OUTRES,ALL,ALL   
ALLSEL,ALL      
SAVE
solve

[ Last edited by taofei on 2013-1-4 at 10:09 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

taofei

捐助贵宾 (正式写手)

送鲜花一朵
引用回帖:
2楼: Originally posted by htbbzzg at 2013-01-05 09:09:53
主要问题:
1  你只定义了一种单元类型,因此以下几句话是多余的,会报错:
!*  
KEYOPT,2,1,2
KEYOPT,2,2,0
KEYOPT,2,3,0
KEYOPT,2,4,0
KEYOPT,2,5,0
!*

2  最关键的是:不锈钢的材料数据中,密度大了  ...

非常感谢!
3楼2013-01-07 09:32:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 taofei 的主题更新
信息提示
请填处理意见