24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 767  |  回复: 0

grinmtyj

新虫 (小有名气)

[交流] 求助,利用table加载高斯热源模型求解没用

模型大致是,在一个基板上有一个0.3mm熔覆层,想在熔覆层上表面加载移动的高斯热源模型。在设置时,我用到了设定了一个局部坐标系12,不知道是否有影响

命令流如下:
Finish
/filename,TA15 Ti2AlNb SINGLE
/prep7
et,1,solid70
et,2,surf152
keyopt,2,4,1      !solid 70单元没有中间节点
keyopt,2,5,0      !表面效应单元加载对流,0和1均可?
keyopt,2,8,4      !根据流体温度计算对流系数
!根据Jmat Pro 模拟数据输入材料参数
!2号材料为薄壁

MPREAD,'TA15','dat','C:\Users\laser\Desktop\'   
MPREAD,'Ti-22Al-25Nb','dat','C:\Users\laser\Desktop\'   

block,0,0.15,0,0.006,0,0.1  
wpave,0.05,0.006,0.05
block,0,0.048,0,0.0003,0,0.005
WPAVE,0,0,0
CSYS,0
vglue,all
wpave,0.05,0.006,0.05
vsbw,all,,delete
wpave,0.05,0.006,0.055
vsbw,all,,delete
wprot,0,0,90
vsbw,all,,delete
wpave,0.098,0.006,0.055
vsbw,all,,delete


nummrg,all
numcmp,all

vsel,s,,,2
vatt,2,,1,0

vsel,s,,,1
vsel,a,,,3,10,1
vatt,1,,1,0
allsel

vsel,s,mat,,2
esize,0.001
MSHAPE,0,3d
MSHKEY,1
vmesh,all
vsel,s,mat,,1
esize,0.003
MSHAPE,0,3d
MSHKEY,1
vmesh,all  !建模 划分网格



/solu
antype,trans    !瞬态分析
OUTRES,,ALL     !输出设置
toffst,273  !温度偏移量设置
nropt,full
timint,1,therm   !打开瞬态热分析
tunif,25      !初始温度
autos,on     !自动时间步长
solcontrol,on
kbc,0    !渐变载荷
pred,on      !打开时间预测器
lnsrch,on         !瞬态热分析设置
CNVTOL,HEAT, ,0.01,1,0.000001,   !控制收敛准则
LUMPM,0     !不使用集中质量矩阵

asel,s,loc,x,0
sfa,all,,conv,30,25
asel,s,loc,x,0.15
sfa,all,,conv,30,25
asel,s,loc,z,0
sfa,all,,conv,30,25
asel,s,loc,z,0.1
sfa,all,,conv,30,25
asel,s,loc,y,0
sfa,all,,conv,30,25
asel,s,loc,y,0.006
asel,u,,,9
sfa,all,,conv,30,25

local,12,0,0.05,0.0063,0.05
csys,12
asel,s,loc,y,0
lsize=0.001
v=0.003
tinc=lsize/v
r=0.002
qmax=1.31e8
max_time=49
max_x=49
max_z=6
*dim,flux2,table,max_x,max_z,max_time,x,z,time

*do,k,1,max_time,1

*do,i,1,max_x,1
flux2(i,0,k)=(i-1)*lsize
*enddo

*do,j,1,max_z,1
flux2(0,j,k)=(j-1)*lsize
*enddo

*do,i,1,max_x,1
*do,j,1,max_z,1
  xcenter=v*(k-1)*tinc
  zcenter=0.0025
  distance=sqrt(((i-1)*lsize-xcenter)**2+((j-1)*lsize-zcenter)**2)
  *if,distance,le,r,then
   flux2(i,j,k)=qmax/exp(3*(distance**2)/(r**2))
  *else
   flux2(i,j,k)=0
  *endif
*enddo
*enddo
flux2(0,0,k)=(k-1)*tinc
*enddo

*do,t,tinc,16,tinc
asel,s,loc,y,0
TSRES,ERASE
sfa,all,1,hflux,%flux2%
allsel,all
deltim,0.1,0.05,1/3
time,t
solve
*enddo

求指点,哪出错了

求助,利用table加载高斯热源模型求解没用
模型.jpg
回复此楼

» 猜你喜欢

» 本主题相关商家推荐: (我也要在这里推广)

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 grinmtyj 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 312求调剂 +13 gtw1 2026-04-06 13/650 2026-04-06 18:04 by 猪会飞
[考研] 265求调剂 +8 小木虫085600 2026-04-06 8/400 2026-04-06 17:20 by swb0218
[考研] 085405软件工程301分求调剂,专硕可跨专业,四六级已过 +3 静静想想 2026-04-05 3/150 2026-04-06 15:23 by nepu_uu
[考研] 复试调剂 +13 呼呼?~+123456 2026-04-05 13/650 2026-04-05 22:07 by 醉翁wl
[考研] 327求调剂 +4 拾光任染 2026-04-05 4/200 2026-04-05 20:16 by 南航~万老师
[考研] 复试调剂 +8 春日来信- 2026-04-03 8/400 2026-04-05 18:58 by 蓝云思雨
[考研] 080200学硕,277分,数一104,求带走! +7 瓶子PZ 2026-03-31 7/350 2026-04-05 17:49 by liucky
[考研] 求调剂 +3 小沢 2026-04-03 3/150 2026-04-05 09:10 by sihailian3
[考研] 283求调剂 +10 A child 2026-04-04 10/500 2026-04-05 08:22 by qlm5820
[考研] 324求调剂 +9 想上学求调 2026-04-03 9/450 2026-04-04 23:57 by 果冻大王
[论文投稿] 求文献 5+3 ys879651$ 2026-04-02 3/150 2026-04-04 17:22 by bobvan
[考研] 293分求调剂,外语为俄语 +6 加一一九 2026-03-31 6/300 2026-04-04 14:57 by 聪明的大松鼠
[考研] 考研调剂 +4 zybz冲冲冲 2026-04-03 6/300 2026-04-04 13:08 by zybz冲冲冲
[考研] 求调剂 +4 15064154688 2026-04-03 5/250 2026-04-03 15:07 by zrongyan
[考研] 279求调剂 +6 qazplm0852 2026-04-02 6/300 2026-04-03 10:03 by 蓝云思雨
[考研] 一志愿北京科技材料科学与工程288分,求调剂 +14 是辰啊 2026-04-02 14/700 2026-04-02 21:10 by dongzh2009
[考研] 调剂 +3 好好读书。 2026-04-01 6/300 2026-04-02 15:49 by liumengping
[考研] 化学工程专硕324分,一志愿中国矿业大学求调剂 +7 耿耿1314 2026-04-01 7/350 2026-04-02 07:40 by 尚水阁主
[考研] 土木304求调剂 +5 顶级擦擦 2026-03-31 5/250 2026-04-01 08:15 by fdcxdystjk¥
[考研] 福建理工大学材料学院先进合金团队招收考研调剂学生 +3 大华金商都 2026-03-30 4/200 2026-03-31 01:04 by 方英俊602
信息提示
请填处理意见