| 查看: 1995 | 回复: 0 | ||
[求助]
ANSYS焊接移动热源APDL
|
|
ANSYS焊接高斯移动热源，需要导入模型进行模拟，写的APDL结果都不行，求助~~~ 附上我改的APDL,能找错也可以~最好帮忙提供一份能根据导入模型的APDL /UNITS,SI /CONFIG,NRES,10000 /PREP7 ET,1,SOLID70 MP,DENS,1,7930 MP,C,1,502 mptemp,1,20,100,500 mpdata,kxx,1,1,12.1,16.3,21.4 /VIEW,1,1,1,1 pi=3.1415926 i=160 u=15.7 efficient=0.8 r=0.03 Qm=3*i*u*efficient/(pi*r*r) kk=0.85 Qmax=Qm*kk ly=0.4 lx=3 lz=0.025 lsize=0.09 v=0.0018 tm=lx/v tinc=lsize/v /solu antype,trans,new !nlgeom,on timint,0,struct timint,1,therm timint,0,mag timint,0,elect tref,25 nropt,auto autos,on kbc,0 pred,on lnsrch,on nsel,s,loc,y,ly,ly+0.004 esln,s,1 ekill,all allsel,all esel,s,live eplot esel,s,live nsel,s,loc,z,0 nsel,a,loc,z,lz nsel,a,loc,x,0 nsel,a,loc,x,lx sf,all,conv,10,25 MAX_TIME=1+tm/tinc MAX_X=1+lx/lsize MAX_Z=1+lz/lsize *DIM,heatflux,TABLE,MAX_X,MAX_Z,MAX_TIME,X,Z,TIME *DO,K,1,MAX_TIME,1 *DO,I,1,MAX_X,1 heatflux(I,0,K)=(I-1)*lsize *ENDDO *DO,J,1,MAX_Z,1 heatflux(0,J,K)=(J-1)*lsize *ENDDO *DO,I,1,MAX_X,1 *DO,J,1,MAX_Z,1 XCENTER=v*(K-1)*tinc ZCENTER=lz/2 DISTANCE=SQRT(((I-1)*lsize-XCENTER)**2+((J-1)*lsize-ZCENTER)**2) *IF,DISTANCE,LE,r,THEN heatflux(I,J,K)=Qmax/EXP(2*DISTANCE**2/(R**2)) *ELSE heatflux(I,J,K)=0 *ENDIF *ENDDO *ENDDO heatflux(0,0,K)=(K-1)*tinc esel,s,live nsel,s,loc,x,xcenter-0.002,xcenter+0.001 nsel,r,loc,z,zcenter-0.005,zcenter+0.005 nsel,r,loc,y,ly,ly+0.004 esln,s,0 ealive,all allsel,all esel,s,live nsel,s,loc,y,ly sf,all,hflux,%heatflux% allsel,all time,K*lsize/v nsubst,2 SOLVE nsel,s,loc,y,ly sfdele,all,hflux allsel,all esel,s,live eplot OUTRES,ALL,ALL, /PSF,HFLUX,,2 /REPLOT OUTRES,ALL,ALL, *ENDDO FINISH |
回复此楼» 猜你喜欢
瑞典林雪平大学博士后招聘｜PEC Water Splitting 方向
已经有130人回复
-
PRB投稿，Acknowledgment sent to author状态十天了
已经有3人回复
-
物理学I论文润色/翻译怎么收费?
已经有192人回复
-
PVA溶解
已经有2人回复
-
基金申请
已经有44人回复
-
CSC与新西兰维多利亚大学PhD奖学金项目
已经有0人回复
-
新西兰Robinson研究所 招聘CSC公派访问人员
已经有0人回复
-
帮我的英语口语老师找学生
已经有0人回复
-
什么时候开奖？
已经有6人回复
-
散金币祈福
已经有6人回复
