24小时热门版块排行榜    

查看: 472  |  回复: 2
【悬赏金币】回答本帖问题,作者Juneok123将赠送您 5 个金币

Juneok123

新虫 (初入文坛)

[求助] ansys高斯热源模拟

/com, units: Mpa, mm - c - mW - mg -sec - mJ
/title,LBW


/prep7
et,1,solid70

mptemp,1,0,25,100,200,300,400                          
mptemp,,500,550,580,600,620,650
mptemp,,700,800,900,1000,1100,1200

mpdata,dens,1,1,1.79,1.79,1.79,1.79,1.79,1.79         
mpdata,dens,1,,1.79,1.79,1.79,1.79,1.79,1.79
mpdata,dens,1,,1.79,1.79,1.79,1.79,1.79,1.79

mpdata,kxx,1,1,83.8,83.8,88,92.2,101,105              
mpdata,kxx,1,,111.2,114.1,115.9,117.1,118.2,119.99
mpdata,kxx,1,,122.9,128.74,134.6,140.4,140.4,140.4

mpdata,c,1,1,1.089,1.089,1.090,1.130,1.210,1.269                  
mpdata,c,1,,1.269,1.269,1.269,1.269,1.269,1.269
mpdata,c,1,,1.269,1.269,1.269,1.269,1.269,1.269  

mpdata,enth,1,1,0,25*1.79*1.089,100*1.79*1.090,200*1.79*1.130,300*1.79*1.210,400*1.79*1.269   
mpdata,enth,1,,500*1.79*1.269,550*1.79*1.269,580*1.79*1.269,600*1.79*1.269,620*1.79*1.269+1.79*600,650*1.79*1.269+1.79*600
mpdata,enth,1,,700*1.79*1.269+1.79*600,800*1.79*1.269+1.79*600,900*1.79*1.269+1.79*600,1000*1.79*1.269+1.79*600,1100*1.79*1.269+1.79*600,1200*1.79*1.269+1.79*600

*dim,conve,table,8,1,1,temp        
conve(0,1,1)=1
conve(1,0,1)=0
conve(1,1,1)=12e-3
conve(2,0,1)=200
conve(2,1,1)=18.23e-3
conve(3,0,1)=400
conve(3,1,1)=40.38e-3
conve(4,0,1)=600
conve(4,1,1)=72.69e-3
conve(5,0,1)=800
conve(5,1,1)=125.00e-3
conve(6,0,1)=1000
conve(6,1,1)=150.38e-3
conve(7,0,1)=1500
conve(7,1,1)=200.00e-3
conve(8,0,1)=2000
conve(8,1,1)=250.65e-3


                           

mpcopy,,1,2


rectng,-4,0,0,10
rectng,0,4,0,10
rectng,-50,50,0,10
aovlap,all
aglue,all

vext,all,,,,,100
vglue,all      
      


esize,1
type,1
mat,1
vmesh,1
vmesh,2


esize,5
type,1
mat,2
vmesh,3
vmesh,4



  

/solu
antype,4
trnopt,full           
pred,on               
solcontrol,on         
nropt,full,,on        
!cnvtol,u,,0.5         
!cnvtol,f,,0.05         
cutcontrol,plslimit,10,
!eqslv,sparse,,2
lnsrch,on        
autots,on                     
tintp,,,,1,,         
timint,on              
tref,20              
kbc,0                 
neqit,50               
outres,all

*********************稳态分析处于初始条件******************
timint,off
alls
ic,all,temp,20

alls
nsel,s,ext
sf,all,conv,%conve%,20         

time,1e-3                       
deltim,1e-3,1e-3,1e-3
kbc,1
allsel,all
solve
eplot

******************************热源加载*****************************
lsize=1
v=20
tinc=lsize/v
rb=4
pi=3.1415926
p=8000e3
      
K=0.7               
      
qm=(3*k*p)/(pi*16)


max_time=5
max_z=5
max_x=5
*dim,laser,table,max_z,max_x,max_time,z,x,time

*do,k,1,max_time,1
*do,i,1,max_z,1
laser(i,0,k)=(i-1)*lsize
*enddo

*do,j,1,max_x,1
laser(0,j,k)=(j-1)*lsize
*enddo

*do,i,1,max_z,1
*do,j,1,max_x,1
zcenter=v*(k-1)*tinc
xcenter=0

*if,k,le,6,then
distance=sqrt(((i-1)*lsize-zcenter)**2+((j-1)*lsize-xcenter)**2)
*if,distence,le,rb,then
laser(i,j,k)=qm/exp(2*distance**2/16)
*else
laser(i,j,k)=0
*endif
*enddo
*enddo


laser(0,0,k)=(k-1)*tinc
*enddo

************求解***************
t=0.05
timint,on
nsle,s,loc,y,10
*do,t,1,5,tinc
time,t
deltim,,,,1
sf,all,hflux,%laser%
solve
*enddo
finish
*************************************************************************************************
























麻烦大神帮忙看看,问题:热源加载是否正确呢? 求解设置是否又问题啊

@beefly @月只蓝 发自小木虫IOS客户端
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Juneok123

新虫 (初入文坛)

麻烦各位师兄帮忙看看呢,看的文献自己写的代码,模拟结果时间步0.01s;算了一天都没算完,不知道哪了出问题了

发自小木虫IOS客户端
2楼2020-07-23 23:59:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Juneok123

新虫 (初入文坛)

3楼2020-07-24 08:00:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 Juneok123 的主题更新
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 max7zaruFVS8 2026-10-06 3/150 2026-10-07 17:01 by kUQbiRsIeOpF
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 max7zaruFVS8 2026-10-06 3/150 2026-10-07 16:51 by kUQbiRsIeOpF
[考博] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 z1aZaKkVi71s 2026-10-06 3/150 2026-10-07 16:31 by kUQbiRsIeOpF
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 z1aZaKkVi71s 2026-10-06 3/150 2026-10-07 16:09 by kUQbiRsIeOpF
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 z1aZaKkVi71s 2026-10-05 3/150 2026-10-07 15:09 by kUQbiRsIeOpF
[考研] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 z1aZaKkVi71s 2026-10-05 3/150 2026-10-07 15:07 by kUQbiRsIeOpF
[考博] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 z1aZaKkVi71s 2026-10-05 3/150 2026-10-07 14:49 by kUQbiRsIeOpF
[公派出国] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 z1aZaKkVi71s 2026-10-05 3/150 2026-10-07 14:49 by kUQbiRsIeOpF
[找工作] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 FlhJF7cq3uT3 2026-10-04 9/450 2026-10-07 11:21 by EXuX9l7TjjIY
[博后之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 FlhJF7cq3uT3 2026-10-04 9/450 2026-10-07 11:07 by EXuX9l7TjjIY
[论文投稿] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +4 FlhJF7cq3uT3 2026-10-04 10/500 2026-10-07 10:49 by EXuX9l7TjjIY
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 FlhJF7cq3uT3 2026-10-04 8/400 2026-10-07 10:21 by EXuX9l7TjjIY
[论文投稿] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +4 FlhJF7cq3uT3 2026-10-04 13/650 2026-10-07 10:09 by EXuX9l7TjjIY
[找工作] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 FUSxPqiIHRjH 2026-10-04 10/500 2026-10-07 10:01 by EXuX9l7TjjIY
[博后之家] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +4 FUSxPqiIHRjH 2026-10-04 11/550 2026-10-07 09:51 by EXuX9l7TjjIY
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +4 FUSxPqiIHRjH 2026-10-04 12/600 2026-10-07 09:49 by EXuX9l7TjjIY
[论文投稿] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 FUSxPqiIHRjH 2026-10-04 12/600 2026-10-06 14:26 by x7yLzftaCUEL
[教师之家] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 FlhJF7cq3uT3 2026-10-05 4/200 2026-10-06 05:08 by z1aZaKkVi71s
[教师之家] 烦躁 +5 水冰月月野兔 2026-10-03 5/250 2026-10-05 21:59 by 火星超人xi
[教师之家] 寻找合作团队 +4 悠悠2003 2026-10-01 4/200 2026-10-04 15:18 by Zh_fish
信息提示
请填处理意见