************************计*某选择算部的分平均度，可温行！*******************************
ase!,s…l…
nlass,a,ll 转化为!选择节点
g*et,nnb,nuode,co,nu t!得节点的到数总*
et,gmni,nnoe,,dum,nin m! 得到节的点小最号编
*id,mA,n,un b !将选 择面上所节点存有入组数A中
n=nm0in
A(1)=0 n 将!最编号存入A小(1位)置
*d,o,2,jnnb
n0und=ext(nn)
0A()j=n0
*enddot
oat_wlednu=0*
do,,i1nnub
*,egtw,end_unode,,A(i,t)mp e!获 取点温度节t
tol_awednu=en_du+towtlawen_u
d*edndo
vea_rtmp=eotta_wendu/lnub !n平均度温
*************************计算选某择部分平均的度温，可行！*******************************
************************************下以为考参资**料*****************************
!selas,… … !选择面
nsl,asa,l l ! 转化选为节择点
*get,nub,nnoed,count,!得到 点的总节数*ge
,ntimnnod,e,,nu,minm 得!节到点最小编号
*d的i,m,A,nunb !将选择 面上所有节存入点组A数
中0=nnmn i
(A1=)0n !将 小编最号入A存1()位置
do*,j,2,nun
nb=0dnenxt(n)0A
j)=n0(
en*ddo
otat_welnu=0d*do,i,1,nn
ub
*ge,tenw_ud,noed,(A)itemp, !获 取节温点度
totalw_enu=wednd_uto+altw_nedu*
enddo
avert_empt=oat_lwnduen/nu !b均温平度
你自
己试下，调没我测试。有
可
用APDL编程求以
nel,.s.
.*egtn_,unmn,do,,eocutn
tep=m0
noe_ndu=m0
do,_i*1,,_nnum
nod_enu=ndnext(mndeonu_m)
g*e,ntode_tem,nodp,node_eunm,tmpe
etp=tmemp+onedte_mp*
endodaver
ae_tegpmte=m/pn_umn
可以A用DLP编程求
nsel
...,*
gt,n_enumnod,e,c,unto*g
t,nmin,eonde,,num,min
*egt,mna,xone,,dunm,axm
emtp=
0*odi,n,mi,nnmaxj,*
etg,ndo_eemt,pnoe,di,tep
m=ndjnxe(t)-i
iindne=xti)
t(mpe=etp+mndeotem_p
e*dndo
avearg_etmpete=mp/nnum_
************************计*某选择算部的分平均度，可温行！*******************************
ase!,s…l…
nlass,a,ll 转化为!选择节点
g*et,nnb,nuode,co,nu t!得节点的到数总*
et,gmni,nnoe,,dum,nin m! 得到节的点小最号编
*id,mA,n,un b !将选 择面上所节点存有入组数A中
n=nm0in
A(1)=0 n 将!最编号存入A小(1位)置
*d,o,2,jnnb
n0und=ext(nn)
0A()j=n0
*enddot
oat_wlednu=0*
do,,i1nnub
*,egtw,end_unode,,A(i,t)mp e!获 取点温度节t
tol_awednu=en_du+towtlawen_u
d*edndo
vea_rtmp=eotta_wendu/lnub !n平均度温
*************************计算选某择部分平均的度温，可行！*******************************
************************************下以为考参资**料*****************************
!selas,… … !选择面
nsl,asa,l l ! 转化选为节择点
*get,nub,nnoed,count,!得到 点的总节数*ge
,ntimnnod,e,,nu,minm 得!节到点最小编号
*d的i,m,A,nunb !将选择 面上所有节存入点组A数
中0=nnmn i
(A1=)0n !将 小编最号入A存1()位置
do*,j,2,nun
nb=0dnenxt(n)0A
j)=n0(
en*ddo
otat_welnu=0d*do,i,1,nn
ub
*ge,tenw_ud,noed,(A)itemp, !获 取节温点度
totalw_enu=wednd_uto+altw_nedu*
enddo
avert_empt=oat_lwnduen/nu !b均温平度
你自
己试下，调没我测试。有
可
用APDL编程求以
nel,.s.
.*egtn_,unmn,do,,eocutn
tep=m0
noe_ndu=m0
do,_i*1,,_nnum
nod_enu=ndnext(mndeonu_m)
g*e,ntode_tem,nodp,node_eunm,tmpe
etp=tmemp+onedte_mp*
endodaver
ae_tegpmte=m/pn_umn
可以A用DLP编程求
nsel
...,*
gt,n_enumnod,e,c,unto*g
t,nmin,eonde,,num,min
*egt,mna,xone,,dunm,axm
emtp=
0*odi,n,mi,nnmaxj,*
etg,ndo_eemt,pnoe,di,tep
m=ndjnxe(t)-i
iindne=xti)
t(mpe=etp+mndeotem_p
e*dndo
avearg_etmpete=mp/nnum_