搜索
finish/clear/filname,weldtem/title,weldingtempseraturefieldsimluation/unit,si/prep7et,1,solid70keyopt,1,2,1et,2,surf152r,2keyopt,2,4,1keyopt,2,5,0keyopt,2,8,3mptemp,1,0,400,600,800,1000,1500mpdata,kxx,1,1,18.9,28.35,31.08,32.76,31.5,28.2mpdata,c,1,1,580,756,840,882,756,797mpdata,hf,1,1,9.66,59.43,84.32,109.2,180.6,359mpdata,dens,1,1,7800,7550,7550,7550,7550,7550pi=3.1415926I=160u=23efficient=0.78r=0.0045Qm=3*i*u*efficient/(pi*r*2)kk=0.85Qmax=Qm*kkly=0.12lx=0.4lz=0.012lsize=0.01v=0.00185tm=lx/vtinc=lsize/vmax_time=1+tm/tincmax_x=1+lx/lsizemax_y=1+ly/lsize/view,1,1,1block,0,lx,0,ly,0,lzsaveesize,lsizemshkey,1vatt,1,1,1vmesh,alltype,2asel,s,,,1,6asel,u,,,3amesh,all/pnum,line,off/pnum,defaeplotfinish*dim,flux2,table,max_x,max_y,max_time,x,y,time*do,k,1,max_time,1*do,i,1,max_x,1flux2(i,0,k)=(i-1)*lsize*enddo*do,j,1,max_y,1flux2(0,j,k)=(j-1)*lsize*enddo*do,i,1,max_x,1*do,j,1,max_y,1xcenter=v*(k-1)*tincycenter=0distance=sqrt(((i-1)*lsize-xcenter)**2+((j-1)*lsize-ycenter)**2)*if,distance,le,r,thenflux2(i,j,k)=Qmax*exp(-3*kk*distance**2/(r**2))*elseflux2(i,j,k)=0*endif*enddo*enddoflux2(0,0,k)=(k-1)*tinc*enddo/soluantype,transtunif,15kbc,1timint,onautots,offesel,s,type,,,2nsel,ssf,all,conv,-1allsel*do,t,1e-6,tm,tinctime,tautots,0deltim,,,,1kbc,0outres,all,alltsres,erasesf,all,hflux,%flux2%solve*enddofinish