金豆儿 发表于 2008-4-14 18:21:51

请教关于脉冲激光移动加载问题？

本帖最后由 金豆儿 于 2009-6-13 10:03 编辑

请教关于脉冲激光加载问题！
不知哪位大系有关于激光加载的资料，脉冲的！
我刚接触这个领域，不吝赐教！！！
激光加载问题！

QQ 719386973

zhanglinghnsm 发表于 2008-4-17 18:11:44

T0=0                                       !脉冲开始时间
T1=1                                       !脉冲结束时间
T2=2                                       !下一脉冲结束时间

!第一个时间步，加热源
TIME,T1                       
NSUBST, 5
KBC, 1

NSEL, S, LOC, Y, Y1,Y2
NSEL, R, LOC, x, X1,X2
NSEL, R, LOC, Z, Z1,Z2                !加热流密度
ESLN, S, 1
SFE, ALL, 4, HFLUX, , LaserPower*Factor/Area, , ,
ALLSEL, ALL

SOLVE
SAVE

!第一个时间步，删除热源
TIME,2                       
NSUBST, 5
KBC, 1

SFEDELE,ALL,4,HFLUX                !删除载荷
ALLSEL, ALL

SOLVE
SAVE

循环以上两个步骤，就实现了脉冲激光加载

zhanglinghnsm 发表于 2008-4-17 18:13:09

我的程序是这样加载的，你也可以用其他方式；

比如：
1.将载荷随时间变化定义为方程；
2.将载荷随时间变化定义为表

xbzhang 发表于 2008-4-18 21:21:44

论坛需要热心人

金豆儿 发表于 2008-4-27 13:18:09

非常感谢 八爪鱼

:handshake

金豆儿 发表于 2008-4-27 13:22:43

首先非常感谢你的答复和帮助

本帖最后由 金豆儿 于 2009-6-13 10:03 编辑

首先非常感谢你的答复和帮助。

sff1984 发表于 2009-4-2 13:15:53

这个问题我最近也在研究，请高手指点下

sff1984 发表于 2009-4-2 13:20:37

qq 409388376

午后的行人 发表于 2009-4-2 15:42:32

我刚也在研究激光打孔方面的温度场加载，希望有高人指点一二。qq794420990

carptin 发表于 2009-4-3 23:43:25

fini
/clear
/prep7
et,1,solid70

mptemp,1,0,227,727,927
mpdata,kxx,1,1,5
mpdata,kyy,1,1,5
mpdata,kzz,1,1,5
blc4,,,0.01,0.01,0.005
wpoffs,0.0046
wprota,,,90
vsbw,all
wpoffs,,,0.0008
vsbw,all

lsel,s,length,,0.0046
cm,l1,line
lesize,l1,,,20,0.25

lsel,s,length,,0.005
lsel,u,,,9,12,3
cm,l2,line
lesize,l2,,,20,0.25

lsel,s,,,9,12,3
cm,l3,line
lesize,l3,,,20,4

lsel,s,length,,0.01
cm,l4,line
lesize,l4,0.0002

lsel,s,length,,0.0008
cm,l4,line
lesize,l4,,,1

vmesh,all
physics,write,thermal
physics,clear
etchg,tts
mptemp,1,0,227,727,927
mpdata,ex,1,1,1e11,0.9815e11,0.6878e11,0.5711e11
mp,prxy,1,0.403
mp,dens,1,4520
mp,alpx,1,7.06e-6

tb,bkin,1,4
tbtemp,0,1
tbdata,1, 8e6,1e10
tbtemp,227,2
tbdata,1, 7.97e6,0.9815e10
tbtemp,727,3
tbdata,1, 5.80e6,0.6878e10
tbtemp,927,4
tbdata,1, 5.78e6,0.5711e10
physics,write,struct
physics,clear
fini
/solu
physics,read,thermal
tunif,20
nsel,s,loc,x,0.0046,0.0054
nsel,r,loc,z,0.0048,0.005
esln,s,1
a=elmiqr(0,13)
*get,b,elem,0,num,min
*dim,c,array,a

*do,i,1,a
c(i)=elnext(b+i-2)
*enddo
antype,trans
trnopt,full
autots,on
timint,on
allsel

*do,i,1,a
sfdel,all,all
time,10/6/a*i
deltim,0.01,0.005,0.01
kbc,1
esel,s,elem,,c(i)
nsle
nsel,r,loc,z,0.005
sf,all,hflux,3e7
sfdel,all,all
*enddo


nsel,s,loc,x,0
nsel,a,loc,x,0.01
sf,all,conv,20,20

nsel,s,loc,y,0
nsel,a,loc,y,0.01
sf,all,conv,20,20

nsel,s,loc,z,0
sf,all,conv,20,20
allsel
outres,all,all
solve
fini
/post26
nsol,2,26,temp
plvar,2
帮我看看，问题出在哪里？加热后，温度一直不变，为什么？问题在哪？？

sff1984 发表于 2009-4-6 12:46:05

关注此类问题

sff1984 发表于 2009-4-6 15:15:52

请问如何选择热流密度施加区域

sff1984 发表于 2009-4-7 23:20:00

SFEDELE,ALL,4,HFLUX为什么用此命令没有删除掉前次载荷

jyjacob 发表于 2009-8-22 16:44:26

谢谢，小弟也是苦于没有指导程序，再次感谢！
页: [1]
查看完整版本: 请教关于脉冲激光移动加载问题？