[ÇóÖú] ÇóÖú£º·ÂÕæÖгöÏÖ´íÎó£¬Í¼Æ¬Óë´íÎóÈçϸ½¼þ£¬Ð»Ð»¸÷λ´óÀÐ

ÇóÖú£º·ÂÕæÖгöÏÖ´íÎó£¬Í¼Æ¬Óë´íÎóÈçϸ½¼þ£¬Ð»Ð»¸÷λ´óÀÐ finish /clear,start /title,'thermal spraying 20171210' /prep7 /unit,si et,1,solid5 mptemp,1,20,500,1000,1500,2000 mpdata,ex,1,1,1.93e11,1.50e11,0.70e11,0.10e11,0.01e11   !steel mpdata,ex,2,1,1.02e11,0.50e11,0.08e11,0.001e11,0.0001e11 !alu tb,bkin,1,5 tbtemp,20,1 tbdata,1,1200e6,0.193e11 tbtemp,500,2 tbdata,1, 933e6,0.150e11 tbtemp,1000,3 tbdata,1, 435e6,0.070e11 tbtemp,1500,4 tbdata,1, 70e6,0.010e11 tbtemp,2000,5 tbdata,1, 7e6,0.001e11 tb,bkin,2,5 tbtemp,20,1 tbdata,1,800e6,0.102e11 tbtemp,500,2 tbdata,1,400e6,0.050e11 tbtemp,1000,3 tbdata,1, 70e6,0.008e11 tbtemp,1500,4 tbdata,1, 1e6,0.0001e11 tbtemp,2000,5 tbdata,1,0.1e6,0.00001e11 mp,dens,1,8030 mp,dens,2,4850 mp,alpx,1,1.78e-5 mp,alpx,2,9.36e-6 mp,nuxy,1,0.29 mp,nuxy,2,0.30 mp,murx,1,1 mp,murx,2,1 mp,rsvx,1,1 mp,rsvx,2,1 mp,kxx,1,16.3 mp,kxx,2,7.44 mp,c,1,502 mp,c,2,544 mp,reft,1,20 mp,reft,2,600 csys,0 block,0,0.1,0,0.1,0,0.01 block,0,0.1,0,0.1,0.01,0.012 vglue,all nummrg,all numcmp,all type,1 mat,1 esize,0.005 vmesh,1 type,1 mat,2 esize,0.0005 vmesh,2 eplot finish /solu      antype,trans trnopt,full solcontrol,on cnvtol,f cnvtol,heat ncnv,2 nsel,all *get,minz,node,,mnloc,z nsel,s,loc,z,minz d,all,uz,0 *get,minx,node,,mnloc,x nsel,r,loc,x,minx d,all,ux,0 alls asel,all nsla,s sf,all,conv,100,20 /auto /replot allsel,all esel,s,mat,,2 ekill,all allsel,all outres,all,all tunif,20 kbc,1 time,1 timint,1,therm timint,0,mag timint,0,elec tintp,0.005,,,1,0.5,0.2 solve ytop=0 t=1 dt1=0.05 *do,ii,1,10 ddele,all,temp t=t+dt1 time,t nsubst,1 solve esel,s,mat,,2 nsle,s ytop=ytop+0.01 nsel,r,loc,y,0,ytop esln,s,1, ealive,all nsel,r,loc,y,ytop esln,s nsle,s,1 d,all,temp,600 t=t+dt1 time,t nsubst,1 esel,s,live nall eall solve *enddo t=t+10000 time,t nsubst,40 solve finish /post1 /seg,dele /cont,1,15,0,600/16,600 /dscale,1,1.0 avprin,0,0 avres,1 /seg,multi,temp,0.1 ytop=0 *do,ii,1,11 ytop=ytop+0.01 nsel,r,loc,y,0,ytop esln,s,1 esel,a,mat,,1 nall *do,j,1,2 set,j,1 plns,temp *enddo *enddo *do,j,1,40 set,22,j plns,temp *enddo /seg,off,temp,0.1 /anfile,save,temp,avi /post1 /seg,dele /cont,1,15,0,1200e6/16,1200e6 /dscale,1,1.0 avprin,0,0 avres,1 /seg,multi,stress,0.1 ytop=0 *do,ii,1,11 ytop=ytop+0.01 nsel,r,loc,y,0,ytop esln,s,1 esel,a,mat,,1 nall *do,j,1,2 set,j,1 plns,s,eqv *enddo *enddo *do,j,1,40 set,22,j plns,s,eqv *enddo /seg,off,stress,0.1 /anfile,save,stress,avi finish ²¶»ñ.PNG

»Ø¸´´ËÂ¥