SimWe仿真论坛 » A02：LS-DYNA » 求热力耦合的例子,请各位高手帮助!

xiaoma 发表于 2006-4-4 15:43

求热力耦合的例子,请各位高手帮助!

我想做热轧过程模拟,求助热力直接耦合的例子,请各位帮助!万分感谢!

wswftwswft01 发表于 2006-4-4 17:18

Re:求热力耦合的例子,请各位高手帮助!

金属浇铸的例子，如下：
:Tv V"vxG0A{ /clear
(J)a |,v;aIU /prep7
K\.I5x&|Q| et,1,55 "pIhY'HgL
et,2,55
(R0o(?W0h"qOV kxx,1,1.99/3600 5d`m;VE~j5H-P,n
dens,1,0.00073 \:_/yY&~y_h
c,1,0.100 9zP}-E7zaU9o3S
kxx,2,7.38e-6
!A(uh:G,S,R~6N^h dens,2,9.35e-5
UnF"G8O$} c,2,1
a.}J9Y9O#}} k,1,-0.5 +z,lf
{ k
k,4,6 IQa
N&j[/e}
k,12
8v9y
ebw[ k,13,5.5
D3Y_5P5r*g k,21,-0.5,6 gh,?$Q]M
k,22,,6
VC Fjn#{4S,Y/xF4y k,23,5.5,6
[e4u3{-] [ YW#FO k,24,6,6 xr\9W lJ
a,12,13,23,22 z}(p5[rW8c
C(]
a,1,12,22,21
'tw&m,La]T{!Y a,4,24,23,13
7^ H.Hznm{8U}5vL /pnum,line,1 jP{Nk)NPc!_
lplot
WO&j1o`] lsel,s,,,5,6
st4O%^ lx)` lsel,a,,,9,10
L*gr3c@5b3uJ&f lesize,all,,,8
3T'Srj%T%x lsel,all
3|1K}?)z4h2d lesize,all,,,20
a2c(D0M bW /pnum,area,1
i'o0c`$LM aplot
.z,[!uj+[qc asel,s,,,1
;n!~wI~_ aatt,2,2,2 P@)H0u,x)fFUT
asel,all
)s%b\u*uP|m amesh,all
+p0?;ck!F$Om)?[${ fini 5? d+s@$Aum
/solu
'eGjqi^X!P} antype,tran
J"YK {4Z!KzJx timint,off r%Ve*s/b S
/pnum,line,1
(x:f As_ lplot
2Vj3e:HX2x lsel,s,,,7,8 ~b ~ b#xjX3J7{/f#s
nsll,s
.w%n L&?/}:nP W sf,all,conv,100,70
/m"b5h(z"C.w9f$C lsel,s,,,5,10,5 7_OOS A8P E
nsll,s
&}\:F l9cC3lc)n sf,all,conv,1,70
;|v;uVB:jKr*w lsel,s,,,1
0D,[}:m~V9fH nsll,s
,R_)^cYrd"XwFN sf,all,hflux,0 M [q2Ya
alls 'Ic+y"z1^*^`r
esel,s,type,,2
0OO Nl.Bg3f nropt,full /Hqx1|B y
ekill,all
(y9r)GHbi alls
Tt+N.HM FwNh tunif,100 K#s&K&ux
time,1 ;w:UtVR7x
deltim,0.1 Z)E TC"^%rY-dbk
outres,all,all
v&u
n&`}a'{F solve
2C*`f5|!pTG *SET,dtop,0
i[4l7QCQS *SET,tim,1 Xlh(F8n*P
*SET,delt,0.05 E`!li+fb*f
timint,on Ta\;ksm
tintp,,,,1 %Y ?"_K"H{7e2|
*do,ii,1,20
P m9z#^%XVon3q.Oe ddele,all,temp
:n[HR} esel,s,type,,2 #u4j&q"e x3H ZtlCm
nsle,s
4kQ`+NOA"W{ *SET,tim,tim+delt *GB:[R"O2_
time,tim
2T
k'k!}V3A:` *SET,dtop,dtop+0.3 5]C AF~4f2b
j\M[
nsel,r,loc,y,0,dtop 6` O.`!w&mfV)p%u
esln,s,1 V/X(Ad-A
ealive,all
4tt^*xI u nsel,r,loc,y,dtop F@1}E*A!|
esln,s l_Ps)G"MXu `
nsle,s,1
e J L-E0} d,all,temp,600
SS0u,z(T/x esel,s,live |Qs6^s#[ ml_
nall
9V~hA\O |y eall
w7T
{ a%t8b_P\ solve
X*W4Z'G[/r9}2p *enddo lW.{z4nndv
fini
G&l&R3J3t%Ym^7h/s /post1 sn-CWa
*SET,dtop,0
J3ykM!x;K'I *do,ii,2,21 Mg1vj6WWC-L
set,ii
\,W7X9R7PSHep8c!j:m0z *SET,dtop,dtop+0.3 +_Kmr ibFC:Y?
nsel,r,loc,y,0,dtop
{(qDPx.?!ZL+E/[v esln,s,1
/hzMa[2Ud};h esel,a,type,,1 _i5lb/@.hn1^E
nall
!|!G ]*V7q1\|(a plns,temp \4G(O"P"BN4j%?
*enddo

tushaotian 发表于 2006-4-4 21:34

Re:求热力耦合的例子,请各位高手帮助!

热力耦合的k文件
&j#Tg(c&E*p"Q_
qeNvr2T\{HI
俺作的,不过好久了

popcorn 发表于 2006-4-5 11:01

Re:求热力耦合的例子,请各位高手帮助!

小马 ?

hello2001zzu 发表于 2007-3-6 10:14

回复 #3 tushaotian 的帖子

多谢！能不能给说明一下在ls-dyna中进行热力耦合都需要注意那些问题，以及所用关键字的说明？

ck 发表于 2007-3-27 15:45

三楼的贴子真好，谢谢:D :victory:

JustPlay 发表于 2007-3-27 19:06

热力耦合用什么单元呢？
X-RQ@I;ZA c 那位熟悉的指点一下

byb 发表于 2008-8-17 20:03

参考下，谢谢

查看完整版本: 求热力耦合的例子,请各位高手帮助!