再次请教ansys分析粘弹性问题

wenyue · 发表于 2006-3-18 19:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

我现在做标准三参数固体的模型而ansys给的好象是maxwell模型。能否再次给一些详细的提示，或者我举个例子：矩形板一边固支，对边受常力，采用三参数固体模型。用ansys具体怎么做呀？ 谢谢

NASA · 发表于 2006-3-19 11:47

ansys自带的vm200不就是相关的例子吗？ /COM,ANSYS MEDIA REL. 10.0 (05/31/2005) REF. VERIF. MANUAL: REL. 10.0 /VERIFY,VM200 JPGPRF,500,100,1 ! MACRO TO SET PREFS FOR JPEG PLOTS /SHOW,JPEG /PREP7 /TITLE, VM200, VISCOELASTIC SANDWICH SEAL ANALYSIS /COM, ----- 2-D ANALYSIS ----- /COM, "FE CALCULATIONS OF RESIDUAL STRESSES ....",SOULES ET AL. ET,1,VISCO88,,,1 ! AXISYMMETRIC 2-D VISCOELASTIC ELEMENT *CREATE,MAC1 ! MACRO FOR MATERIAL PROPERTIES /COM, MATERIAL ONE IS G-11 GLASS AND MATERIAL TWO IS ALUMINA /COM, NOTE THAT ALUMINA IS AN ELASTIC MATERIAL THEREFORE IT /COM, DOES NOT HAVE VISCOELASTICITY AND STRUCTURAL RELAXATION /COM, MATERIAL PROPERTIES OF ALUMINA TB,EVISC,2 TBDATA,31,52.6E-7 ! THERMAL EXPANSION COEFFICENTS FOR ALUMINA TBDATA,32,.119E-7 ! LOCATIONS 31-33 TBDATA,33,-1.0E-11 TBDATA,46,1.435E5 ! SHEAR MODULUS AT TIME = 0 TBDATA,47,1.435E5 ! SHEAR MODULUS AT TIME = INFINITY TBDATA,48,3.11E5 ! BULK MODULUS AT TIME = 0 TBDATA,49,3.11E5 ! BULK MODULUS AT TIME = INFINITY /COM, MATERIAL PROPERTIES OF G-11 GLASS TB,EVISC,1 TBDATA,1,6.45D4 ! H/R TBDATA,2,0.53 ! VALUE OF X TBDATA,3,6 ! NO. OF MAXWELL ELEMENTS FOR STRUCTURAL RELAXATION TBDATA,6,0.108 ! COEFFICIENTS OF THE MAXWELL ELEMENTS FOR TBDATA,7,0.443 ! VOLUME DECAY (STRUCTURAL RELAXATION) TBDATA,8,0.166 ! LOCATIONS 6-11 TBDATA,9,0.161 TBDATA,10,0.046 TBDATA,11,0.076 TBDATA,16,3.00 ! RELAXATION TIMES FOR VOLUME DECAY FUNCTION TBDATA,17,0.671 ! LOCATIONS 16-21 TBDATA,18,0.247 TBDATA,19,0.091 TBDATA,20,0.033 TBDATA,21,0.008 TBDATA,26,3.43E-5 ! THERMAL EXPANSION COEFF. IN LIQUID STATE TBDATA,31,64.7E-7 ! THERMAL EXPANSION COEFF. IN GLASS (SOLID) STATE TBDATA,32,.02E-7 ! LOCATIONS 31-32 TBDATA,36,618 ! FICTIVE TEMPERATURE LOCATIONS 36-41 TBDATA,37,618 TBDATA,38,618 TBDATA,39,618 TBDATA,40,618 TBDATA,41,618 TBDATA,46,2.79D4 ! SHEAR MODULUS AT TIME = 0 TBDATA,47,0.0D0 ! SHEAR MODULUS AT TIME = INFINITY TBDATA,48,6.05D4 ! BULK MODULUS AT TIME = 0 TBDATA,49,6.05D4 ! BULK MODULUS AT TIME = INFINITY TBDATA,50,3 ! THREE MAXWELL ELEMENTS FOR SHEAR RELAXATION TBDATA,51,0.422 ! COEFF. FOR SHEAR RELAXATION LOCATIONS 51-53 TBDATA,52,0.423 TBDATA,53,0.155 TBDATA,61,0.0689 ! RELAXATION TIMES FOR SHEAR RELAXATION TBDATA,62,0.0065 ! LOCATIONS 61-63 TBDATA,63,0.0001 TBDATA,71,0 ! NO BULK MODULUS RELAXATION *END *USE,MAC1 ! EXECUTE MACRO FOR MATERIAL PROPERTIES :COM, CREATE FINITE ELEMENT MODEL N,1, N,3,,0.00025 FILL N,5,0,(0.00025+0.00325) FILL NGEN,3,10,1,5,1,.001 MAT,2 E,1,21,23,3,11,22,13,2 MAT,1 E,3,23,25,5,13,24,15,4 /COM, APPLY BOUNDARY CONDITIONS AND COUPLING NSEL,S,LOC,Y DSYM,SYMM,Y NSEL,S,LOC,X DSYM,SYMM,X NSEL,ALL D,1,ALL CP,1,UX,21,22,23,24,25 CP,2,UY,2,22 CP,3,UY,3,13,23 CPSGEN,2,2,2,3,1 FINISH /COM SINCE THE SOLUTION OUTPUT IS VOLUMINOUS IT IS DIVERTED TO A /COM SCRATCH FILE /OUTPUT,SCRATCH *CREATE,MAC2 ! CREATE MACRO FOR ANALYSIS TYPE AND LOADING /SOLU SOLCONTROL,0 ANTYPE,STATIC /COM, TEMPERATURE SET UP TREF,618 TOFFST,273 TUNIF,618 TIME,1E-5 CNVTOL,F,,,,.00001 ! VERY SMALL MINIMUM ENFORCED ! FOR CONVERGENCE SOLVE OUTRES,ESOL,1 ! STORE RESULTS FOR EVERY SUBSTEP NSUBST,200 TUNIF,460 ! COOLING TIME,3160 SOLVE TIME,(14400+3160) ! ISOTHERMAL HOLD SOLVE TUNIF,18 ! FURTHER COOLING TIME,(14400+12000) SOLVE *END FINISH *USE,MAC2 ! EXECUTE ANALYSIS AND LOADING MACRO /OUTPUT /POST26 ESOL,2,2,,BFE,TEMP ESOL,3,2,3,S,X,STRESS *CREATE,MAC3 ! MACRO FOR PROCESSING RESULTS XVAR,2 /GRID,1 /AXLAB,X,TEMPERATURE /AXLAB,Y,IN-PLANE STRESS (MPA) PLVAR,3 *GET,MXSX,VARI,3,EXTREM,VMAX ! MAXIMUM IN-PLANE STRESS NSTORE,20 ! STORE EVERY 20TH TIME POINT RESULTS PRVAR,2,3 *END *USE,MAC3 ! EXECUTE POSTPROCESSING MACRO *SET,P1,(MXSX) *GET,T1,VARI,3,EXTREM,TMAX *GET,TE,VARI,2,RTIME,T1 *DIM,LABEL,CHAR,2,2 *DIM,VALUE,,2,3 LABEL(1,1) = 'PRES MX ','TEMP ' LABEL(1,2) = 'MPa','DEG C' *VFILL,VALUE(1,1),DATA,12.5,460 *VFILL,VALUE(1,2),DATA,P1,TE *VFILL,VALUE(1,3),DATA,ABS(P1/12.5),ABS(TE/460) SAVE,TABLE_1 FINISH /CLEAR,NOSTART ! CLEAR THE DATABASE JPGPRF,500,100,1 ! MACRO TO SET PREFS FOR JPEG PLOTS /PREP7 /TITLE, VM200, VISCOELASTIC SANDWICH SEAL ANALYSIS /COM, ----- 3-D ANALYSIS ----- ET,1,89 ! 3-D VISCOELASTIC ELEMENT *USE,MAC1 ! EXECUTE MACRO FOR MATERIAL PROPERTIES /COM, CREATE FINITE ELEMENT MODEL N,1, N,3,0.00025 FILL N,5,(0.00025+0.00325) FILL NGEN,3,10,1,5,1,,.001 NGEN,3,100,1,25,1,,,0.001 MAT,2 E,1,3,23,21,201,203,223,221 EMORE,2,13,22,11,202,213,222,211 EMORE,101,103,123,121 EGEN,2,2,1,1,1,-1 NSLE,S NSEL,INVE NDELE,ALL NSLE,S /COM, APPLY BOUNDARY CONDITIONS AND COUPLING NSEL,S,LOC,Y DSYM,SYMM,Y NSEL,S,LOC,X DSYM,SYMM,X NSEL,S,LOC,Z DSYM,SYMM,Z NSEL,S,LOC,Y,0.002 CP,1,UY,ALL NSEL,S,LOC,Z,0.002 CP,2,UZ,ALL NSEL,S,LOC,X,0.00025 CP,3,UX,ALL NSEL,S,LOC,X,0.0035 CP,4,UX,ALL NSEL,ALL FINISH /COM, SINCE THE SOLUTION OUTPUT IS VOLUMINOUS IT IS DIVERTED TO A /COM, SCRATCH FILE /OUTPUT,SCRATCH *USE,MAC2 ! EXECUTE ANALYSIS AND LOADING MACRO /OUTPUT /POST26 ESOL,2,2,,BFE,TEMP ESOL,3,2,3,S,Y,STRESS *USE,MAC3 ! EXECUTE POSTPROCESSING MACRO *SET,P2,(MXSX) *GET,T2,VARI,3,EXTREM,TMAX *GET,TE2,VARI,2,RTIME,T2 *DIM,LABEL,CHAR,2,2 *DIM,VALUE,,2,3 LABEL(1,1) = 'PRES MX ','TEMP ' LABEL(1,2) = 'MPa','DEG C' *VFILL,VALUE(1,1),DATA,12.5,460 *VFILL,VALUE(1,2),DATA,P2,TE2 *VFILL,VALUE(1,3),DATA,ABS(P2/12.5),ABS(TE2/460) SAVE,TABLE_2 RESUME,TABLE_1 /COM /OUT,vm200,vrt /COM,------------------- VM200 RESULTS COMPARISON -------------- /COM, /COM, | TARGET | ANSYS | RATIO /COM, /COM,RESULTS USING VISCO88 *VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3) (1X,A8,A8,' ',F10.1,' ',F10.1,' ',1F5.3) /NOPR RESUME,TABLE_2 /GOPR /COM, /COM,RESULTS USING VISCO89 *VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3) (1X,A8,A8,' ',F10.1,' ',F10.1,' ',1F5.3) /COM,----------------------------------------------------------- /OUT FINISH /NOPR /DELETE,TABLE_1 /DELETE,TABLE_2 /DELETE,MAC1 /DELETE,MAC2 /DELETE,MAC3 FINISH *LIST,vm200,vrt

weiyuanjie · 发表于 2006-3-19 14:45

哇,高手,这些看着好像有点头痛,我也有相似的问题想问您,我也是想用三元件模型来定义模型的材料属性,但是不知如何ansys输入,因为材料的粘弹性模型它只有Maxwell模型呀.请高手指点!!!!

账号		自动登录	找回密码
密码			我要加入

再次请教ansys分析粘弹性问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

回复：（wenyue）再次请教ansys分析粘弹性问题