24小时热门版块排行榜    

CyRhmU.jpeg
查看: 673  |  回复: 0
【悬赏金币】回答本帖问题,作者TD981216将赠送您 5 个金币

TD981216

新虫 (初入文坛)

[求助] ansys生死单元问题求助

*DO,j, 1,n,1     !循环加载  
my_time=my_time+pw   !时间增量是pw
AUTOTS,on !求解设置
NSUBST,30,100000,30,1  !设置载荷步数,最大最小和初始载荷步
TIME,my_time     !设置求解时间
KBC,1    !阶跃载荷
TSRES,ERASE
SFA,8,1,HFLUX,%HFLUX%   !加载热源
SOLVE  !求解
finish
/post1
set,last
    etable,temperature,temp        !将温度存储在temperature表中
    esel,s,etab,temperature,1700    !选择所有温度大于等于1700的单元
    finish
    /solu
antype,,rest
        *get,elemnum,elem,0,count
    *if,elemnum,gt,0,then
        ekill,all
        esel,s,live
    *else
       esel,s,live
    *endif
nsle,s        !选择活单元上的节点
nsel,inve     !选择死单元上的节点   inve选择与当前子集相反的部分,形成新的当前子集
d,all,all,0     !约束死节点自由度
nsel,inve     !选择活单元上的节点
my_time=my_time+1/f-pw  !开始一个周期内,后面不加激光的部分了,一个周期内不加激光部分的时间是1/f-pw
AUTOTS,on
NSUBST,10,100000,10,1     !设置载荷步数,可以调整  
TIME, my_time    !这个设置时间
KBC,1   
TSRES,ERASE
ALLSEL,all
SFADELE,8,1,HFLUX !删除热源
SFA,8,1,CONV,%CONV%,25
SOLVE !再次求解,一个循环结束,也是一个周期结束   
*ENDDO  !循环结束   
这段命令流生死单元杀死的是所有单元并非选取的超过1700的单元,有大佬能帮忙改一下吗@wuming524
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 TD981216 的主题更新
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
信息提示
请填处理意见