| 24小時(shí)熱門(mén)版塊排行榜 |
| 5 | 1/1 | 返回列表 |
| 查看: 2317 | 回復(fù): 7 | |||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | |||
founderyuan新蟲(chóng) (初入文壇)
|
[交流]
ansys模擬殘余應(yīng)力的問(wèn)題,不會(huì)寫(xiě)命令流 已有4人參與
|
||
|
/FILNAME,EXERCISE1 /TITLE,TRANSIENT THERMAL ANALYSYS TO A SPHERE KEYW,PR_THERM,1 /PreP7 MPTEMP,,,,,,,, MPTEMP,1,0 MPDATA,DENS,1,,1780 MPTEMP,,,,,,,, MPTEMP,1,20 MPTEMP,2,100 MPTEMP,3,200 MPTEMP,4,300 MPTEMP,5,400 MPTEMP,6,700 MPDATA,C,1,,1050 MPDATA,C,1,,1130 MPDATA,C,1,,1170 MPDATA,C,1,,1210 MPDATA,C,1,,1260 MPDATA,C,1,,1300 MPTEMP,,,,,,,, MPTEMP,1,20 MPTEMP,2,100 MPTEMP,3,200 MPTEMP,4,300 MPTEMP,5,400 MPTEMP,6,700 MPDATA,KXX,1,,96.4 MPDATA,KXX,1,,101 MPDATA,KXX,1,,105 MPDATA,KXX,1,,109 MPDATA,KXX,1,,113 MPDATA,KXX,1,,150 /prep7 /units,si rb=0.001*0.1 length=0.001*5 width=0.001*5 height=0.001*1 et,1,solid70 et,2,solid70 block,0,length,-0.5*width,0.5*width,0,height Block,0,length,-3*Rb,3*Rb,0,height Block,0,length,-12*Rb,12*Rb,0,height VOVLAP,ALL !!!!!!!!!!!!!!!!!!!!!!!!!!!!!主要焊接部位 VSEL,S, , , 2 ASLV,S LSLA,S lesize,all,rb ALLSEL,ALL type,1 vsweep,2 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!上下次要區(qū)域 VSEL,S, , , 4 ASLV,S LSLA,S lesize,all,3*rb ALLSEL,ALL VSEL,S, , , 5 ASLV,S LSLA,S lesize,all,3*rb ALLSEL,ALL type,1 vsweep,4 vsweep,5 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!焊接部位與次要區(qū)域的鏈接區(qū)域 MSHAPE,1,3D MSHKEY,0 type,2 vmesh,6 vmesh,7 /Solu antype,trans,new nlgeom,on timint,1,struct Timint,1,therm timint,0,mag Timint,0,elect Tintp,0.005,-1,0.5,0.2 nropt,auto,, autos,on outres,,all tref,25 !!!!!初始條件,室溫,25° SFA,ALL,1,CONV,62.3,25 !!!!!對(duì)流換熱系數(shù)62.3 p=600 !!激光功率 ef=1 !!激光吸收率 r=0.001*0.1 !!激光熱源半徑 qmax=(p*ef)/(3.14*r*r) v=0.004 !!焊接速度為250mm/min tinc=rb/v VSEL,S, , , 2 !選取焊接部分的節(jié)點(diǎn) ESLV,S *get,nemax,elem,,num,max *get,nemin,elem,,num,min ALLSEL,ALL max_time=length/rb+1 *do,k,1,max_time,1 a=v*(k-1)*tinc c=height *do,i,nemin,nemax,1 xsy=centrx(i) !讀取該單元的中心坐標(biāo) ysy=centry(i) zsy=centrz(i) rr=abs(sqrt((xsy-a)*(xsy-a)+ysy*ysy+(zsy-c)*(zsy-c))) !該單元中心距離熱源中心 *if,rr,le,r,then !該單元中心在加熱半徑范圍內(nèi) qr=qmax*exp(-(rr*rr)/(r*r)) !該單元中心處的熱流大小 sfe,i,,hflux,,qr,qr,qr,qr !在每個(gè)單元所指定的面上施加熱源載荷 *endif *enddo time,k*rb/v nsubst,5 !設(shè)定每個(gè)時(shí)間步長(zhǎng)內(nèi)有5個(gè)子步 solve !計(jì)算 SFEDELE,ALL,1,HFLUX *enddo save 這是找別人寫(xiě)的命令流,但是那哥們兒臨時(shí)有事兒寫(xiě)不了了,我對(duì)這個(gè)不太懂模擬了一下 好像是有溫度場(chǎng),找不到應(yīng)力的結(jié)果。有沒(méi)有哪位大神能幫忙給寫(xiě)下 應(yīng)力場(chǎng)的命令流。跪謝了。十萬(wàn)火急啊~!! 285466480這是小弟的QQ號(hào) 有什么問(wèn)題可以聯(lián)系。必有重謝。 |
新蟲(chóng) (初入文壇)
![]() ![]() ![]() ![]() ![]() ![]() ![]() |
木蟲(chóng) (著名寫(xiě)手)

| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|