貝多芬旳悲傷 发表于 2018-11-16 15:44:58

如何将磁感应产生的热量（已有rmg文件）导入热场做为热源

感应加热的时候有人做成功过没？please,help

貝多芬旳悲傷 发表于 2018-11-16 15:45:54

由于磁场部分的参数与温度无关，我不想用循环求解，算温度场的时候直接读入对应部分的产热率。那么求解部分的命令流该如何修改？
ALLSEL,ALL
FINISH
/SOLU   
ANTYPE,TRANS
TOFFST,273
TUNIF,300
d,nmax,temp,300
CNVTOL,HEAT,1   
KBC,1
TRNOPT,FULL
AUTOS,ON
DELTIM,5,5,10,ON
OUTRES,ERASE
OUTRES,NSOL,LAST
PHYSICS,WRITE,THERMAL   
SAVE
FINISH
ALLSEL,ALL
/SOL
EQSLV,PCG,1E-8

!!!!采用循环进行求解，这是间接耦合方法
*DO,I,1,FTIME/TINC                  ! solution *do loop   
*SET,TIME,TIME+TINC                        ! increment time
PHYSICS,READ,EMAG
/solu                  !read emag physics file   
*IF,I,EQ,1,THEN
TUNIF,300                            ! initial temperature
*ELSE   
LDREAD,TEMP,LAST,,,,,RST            ! read thermal analysis temperatures   
*ENDIF
SOLVE                                 ! solve harmonic analysis
FINISH
PHYSICS,READ,THERMAL                  ! read thermal physics file   
/ASSIGN,ESAV,THERM,ESAV               ! redirect files for use in thermal restart
/ASSIGN,EMAT,THERM,EMAT
/SOLU   
*IF,I,GT,50,THEN
ANTYPE,TRANS,REST                  ! thermal restart
*ENDIF
TIME,TIME                           ! time at end of thermal run
ESEL,S,MAT,,2                         ! select billet region
LDREAD,HGEN,,,,2,,RST                ! apply coupled joule heating load from emag   
ESEL,ALL
SOLVE   
FINISH
/ASSIGN,ESAV                        ! reassign files to default   
/ASSIGN,EMAT
*ENDDO                              ! end of solution looping

/post1
set,,,1,,10
PLNSOL,TEMP,,0
!gettemp
/post26
nsel,all
nsol,2,2,temp
plvar,2

情太重 发表于 2018-11-16 15:46:15

楼主还在吗？我最近也在做磁热耦合场方面的分析，但是我的磁场分析求解后怎么找不到rmg文件呢？求帮忙啊

一万零一种可能 发表于 2018-11-16 15:46:34

情太重 发表于 2018-11-16 15:46
楼主还在吗？我最近也在做磁热耦合场方面的分析，但是我的磁场分析求解后怎么找不到rmg文件呢？求帮忙啊 ...

还可以找.rst文件吧

貝多芬旳悲傷 发表于 2018-11-16 15:46:54

:handshake

军xunmengv9 发表于 2020-7-11 18:34:50

徐莉八卦时空平衡法实战培训https://www.youxuan68.com/jiangzuo/144465.html
页: [1]
查看完整版本: 如何将磁感应产生的热量（已有rmg文件）导入热场做为热源