| 查看: 1936 | 回复: 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 |
回复此楼» 猜你喜欢
深圳大学2026年秋博士招生-物理学-活性胶体方向-高永祥课题组
已经有18人回复
-
论物质与能量的统一模型及物理现象解释
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有213人回复
-
基于基元I统一理论的数学相关应用推导
已经有0人回复
-
基元I统一理论：宇宙本质、层级演化与修炼文明的本源规律
已经有1人回复
-
基元I理论下三大核心空间现象精准推导与细节解析
已经有0人回复
-
基于基元 I 统一理论的反重力理论推导
已经有0人回复
-
基于基元I统一理论的量子力学本源推导
已经有1人回复
-
推荐一款可以AI辅助写作的Latex编辑器SmartLatexEditor，超级好用，AI润色，全免费
已经有20人回复
-
【EI|Scopus 双检索】第六届智能机器人系统国际会议（ISoIRS 2026）
已经有0人回复
-
2026年第四届电动车与车辆工程国际会议（CEVVE 2026）
已经有0人回复