命令流BATCH.doc

/BATCH /COM,ANSYS RELEASE 5.6 UP19991022 13:25:41 08/08/2002!* /PREP7 ET,1,SOLID95!* !* UIMP,1,EX, , ,212000, UIMP,1,NUXY, , ,0.3,UIMP,1,ALPX, , , , UIMP,1,REFT, , , , UIMP,1,MU, , ,0.2 ,UIMP,1,DAMP, , , , UIMP,1,DENS, , , , UIMP,1,VISC, , , , UIMP,1,SONC, , , , UIMP,1,PERX, , , , *SET,u,0.5 !u是一个参数，这段程序是为了确定u为何值时，接触应力最小，上面语句中u是可变的!定义材料K, ,0,14, K, ,12,14-u, K, ,13.5,14-u, K, ,13.5,7.5, K, ,13,7, K, ,-13,7, K, ,-13.5,7.5, K, ,-13.5,14-u,K, ,-12,14-u, LARC, 9, 2, 1 LSTR, 2, 3 LSTR, 3, 4 LSTR, 4, 5 LSTR, 5, 6 LSTR, 6, 7 LSTR, 7, 8 LSTR, 8, 9 !* LFILLT,2,3,0.3, , !* LFILLT,8,7,0.3, , FLST,2,10,4 FITEM,2,1 FITEM,2,2 FITEM,2,9 FITEM,2,3 FITEM,2,4 FITEM,2,5 FITEM,2,6 FITEM,2,7 FITEM,2,10 FITEM,2,8 AL,P51X K, ,-10, K, ,10, FLST,2,1,5,ORDE,1 FITEM,2,1 FLST,8,2,3 FITEM,8,14 FITEM,8,15 VROTAT,P51X, , , , , ,P51X, ,180, , WPSTYLE,1wpstyle,0.05,1,-10,10,0.003,0,0,5 wpro,90.000000wpoff,0,0,12FLST,2,2,6,ORDE,2 FITEM,2,1 FITEM,2,-2 VSBW,P51Xwpoff,0,0,1 FLST,2,2,6,ORDE,2 FITEM,2,3 FITEM,2,-4 VSBW,P51X wpoff,0,0,-25 FLST,2,2,6,ORDE,2 FITEM,2,5 FITEM,2,-6 VSBW,P51X wpoff,0,0,-1FLST,2,2,6,ORDE,2 FITEM,2,9 FITEM,2,-10 VSBW,P51X WPCSYS,-1,0 FLST,5,14,4,ORDE,6 FITEM,5,41 FITEM,5,-50 FITEM,5,57 FITEM,5,65 FITEM,5,74 FITEM,5,81 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y !* LESIZE,_Y1, , ,12,3, , , ,1 CMDELE,_Y CMDELE,_Y1 !* FLST,5,14,4,ORDE,6 FITEM,5,21 FITEM,5,-30 FITEM,5,36 FITEM,5,53 FITEM,5,71 FITEM,5,78 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y !* LESIZE,_Y1, , ,12,1/3, , , ,1 CMDELE,_Y CMDELE,_Y1 !* FLST,5,4,4,ORDE,4 FITEM,5,1 FITEM,5,12 FITEM,5,31 FITEM,5,73 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y !* LESIZE,_Y1, , ,20, , , , ,1 CMDELE,_Y CMDELE,_Y1 !* ESIZE,1,0, FLST,5,10,6,ORDE,4 FITEM,5,1 FITEM,5,-8 FITEM,5,11 FITEM,5,-12 CM,_Y,VOLU VSEL, , , ,P51X CM,_Y1,VOLU CHKMSH,VOLU CMSEL,S,_Y !* !* VCLEAR,_Y1 VSWEEP,_Y1 !* CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 !* !滚轮建模及分网结束 wpro,90.000000CYLIND,7, ,-19.65,19.65,0,360, wpro,90.000000FLST,2,2,5,ORDE,2 FITEM,2,46 FITEM,2,-47 ASBW,P51X wpro,-90.000000 wpoff,0,0,14FLST,2,2,5,ORDE,2 FITEM,2,49 FITEM,2,59 ASBW,P51X wpoff,0,0,-28 FLST,2,2,5,ORDE,2 FITEM,2,46 FITEM,2,-47 ASBW,P51X WPCSYS,-1,0 !滚轮销切面结束ESIZE,1.5,0,CM,_Y,VOLU VSEL, , , , 9 CM,_Y1,VOLU CHKMSH,VOLU CMSEL,S,_Y !* VSWEEP,_Y1 !* CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 !* !滚轮销划网结束BLOCK,-20,20,-15,15,14,30, FLST,5,2,4,ORDE,2 FITEM,5,114 FITEM,5,-115CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y !* LESIZE,_Y1, , ,12,4, , , ,1 CMDELE,_Y CMDELE,_Y1 !* FLST,5,2,4,ORDE,2 FITEM,5,113 FITEM,5,116 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y !* LESIZE,_Y1, , ,12,1/4, , , ,1 CMDELE,_Y CMDELE,_Y1 !* ESIZE,2,0, CM,_Y,VOLU VSEL, , , , 10 CM,_Y1,VOLU CHKMSH,VOLU CMSEL,S,_Y !* VSWEEP,_Y1 !* CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 !* !立方体建模及划网结束FLST,5,4,5,ORDE,3 FITEM,5,49 FITEM,5,59 FITEM,5,-61 ASEL,S, , ,P51X NSLA,S,1NPLOT FLST,2,170,1,ORDE,9 FITEM,2,5522FITEM,2,-5528 FITEM,2,5536FITEM,2,5545FITEM,2,-5589 FITEM,2,5797FITEM,2,-5801 FITEM,2,6036FITEM,2,-6147 !* /GO F,P51X,FZ,46.18 ALLSEL,ALL !加力为7850NFLST,2,2,3,ORDE,2 FITEM,2,26 FITEM,2,-27 !* /GO DK,P51X, , , ,0,UX,UY, , , , , FLST,2,1,5,ORDE,1 FITEM,2,47 !* /GO DA,P51X,ALL,！定义的约束FINISH /PREP7 /COM, CONTACT PAIR CREATION - START CM,_NODECM,NODE CM,_ELEMCM,ELEM CM,_LINECM,LINE CM,_AREACM,AREA /GSAV,cwz,gsav,tempMP,MU,1,0.2 MAT,1 R,3 REAL,3 ET,2,170ET,3,174RMODIF,3,1,0.1,0.1, RMODIF,3,7,1.0e20,0.0,1.0 KEYOPT,3,2,0KEYOPT,3,6,0KEYOPT,3,7,0KEYOPT,3,8, KEYOPT,3,9,0KEYOPT,3,11,KEYOPT,3,12,0 ! Generate the target surface ASEL,S,57 ASEL,A,58 CM,_TARGET,AREA TYPE,2 NSLA,S,1ESLN,R,0ESURF,ALL CMSEL,S,_ELEMCM ! Generate the contact surface ASEL,S,27 ASEL,A,44 CM,_CONTACT,AREATYPE,3 NSLA,S,1ESLN,R,0ESURF,ALL ALLSEL ESEL,ALLESEL,S,TYPE,2 ESEL,A,TYPE,3 ESEL,R,REAL,3 /PSYMB,ESYS,1 /PNUM,TYPE,1/NUM,1 EPLOT ESEL,ALLESEL,S,TYPE,2 ESEL,A,TYPE,3 ESEL,R,REAL,3 CMSEL,A,_NODECM CMDEL,_NODECM CMSEL,A,_ELEMCM CMDEL,_ELEMCM CMSEL,S,_LINECM CMDEL,_LINECM CMSEL,S,_AREACM CMDEL,_AREACM /GRES,cwz,gsav CMDEL,_TARGET CMDEL,_CONTACT /COM, CONTACT PAIR CREATION - END !* !* /COM, CONTACT PAIR CREATION - START CM,_NODECM,NODE CM,_ELEMCM,ELEM CM,_LINECM,LINE CM,_AREACM,AREA /GSAV,cwz,gsav,tempMP,MU,1,0.2 MAT,1 R,4 REAL,4 ET,4,170ET,5,174RMODIF,4,1,0.1,0.1, RMODIF,4,7,1.0e20,0.0,1.0 KEYOPT,5,2,0KEYOPT,5,6,0KEYOPT,5,7,0KEYOPT,5,8, KEYOPT,5,9,0KEYOPT,5,11,KEYOPT,5,12,0 ! Generate the target surface ASEL,S,46 CM,_TARGET,AREA TYPE,4 NSLA,S,1ESLN,R,0ESURF,ALL CMSEL,S,_ELEMCM ! Generate the contact surface ASEL,S,2 ASEL,A,13 CM,_CONTACT,AREATYPE,5 NSLA,S,1ESLN,R,0ESURF,ALL ALLSEL ESEL,ALLESEL,S,TYPE,4 ESEL,A,TYPE,5 ESEL,R,REAL,4 /PSYMB,ESYS,1 /PNUM,TYPE,1/NUM,1 EPLOT ESEL,ALLESEL,S,TYPE,4 ESEL,A,TYPE,5 ESEL,R,REAL,4 CMSEL,A,_NODECM CMDEL,_NODECM CMSEL,A,_ELEMCM CMDEL,_ELEMCM CMSEL,S,_LINECM CMDEL,_LINECM CMSEL,S,_AREACM CMDEL,_AREACM /GRES,cwz,gsav CMDEL,_TARGET CMDEL,_CONTACT /COM, CONTACT PAIR CREATION - END ！定义接触FINISH /SOLU EQSLV,PCG,1E-8 NEQIT,50!定义求解器/prep7/TRIAD,OFFet,1,solid186mp,ex,1,1.8E5mp,PRXY,1,0.3mp,mu,1,0.12mp,ex,2,2.0E5mp,PRXY,2,0.3mp,mu,2,0.12k,1,-100,60k,2,-150,155k,3,-150,180k,4,0,105k,5,0,60k,6,-100,140k,7,-60,180n,1,150,0,0LSTR,1,5LSTR,2,3 LSTR,1,6LSTR,3,7lang,3,2,60lang,4,4,30ldele,5,1ldele,7,1lfillt,3,6,40lsel,alllsymm,x,allldele,1,1ldele,7,1ldele,14,1lstr,4,15lstr,1,10lfillt,1,8,40al,allk,18,0k,19,100,0vrotat,1,18,19,45wpoffs,-110wprota,90cyl4,60,90,135,220WPCSYS,-1,0 lsel,alllsel,u,29,42lsel,u,45,46lesize,all,10lsel,s,35lsel,a,36lesize,all,10lsel,s,45lsel,a,46lesize,all,10vsel,s,1type,1mat,1vsweep,1vsel,s,2type,1mat,2vsweep,2mat,1mat,2r,3REAL,3ET,2,170 ET,3,174R,3,0.2,0.2,0.2,0 RMORE,1.0E20,0.2,1.0,0RMORE,0.0,0,1.0,1.0,0 RMO