*CREATE,SRECOVER !,mac ! macro to calculate average stress /NOPR ETABLE, ,VOLU, ! Get element volume ETABLE, ,S,X ! Get element stress ETABLE, ,S,Y ETABLE, ,S,Z ETABLE, ,S,XY ETABLE, ,S,XZ ETABLE, ,S,YZ ETABLE, ,S,YZ SMULT,SXV,VOLU,SX,1,1, ! Stress by element volume SMULT,SYV,VOLU,SY,1,1, SMULT,SZV,VOLU,SZ,1,1, SMULT,SXYV,VOLU,SXY,1,1, SMULT,SXZV,VOLU,SXZ,1,1, SMULT,SYZV,VOLU,SYZ,1,1, SSUM *GET,TOTVOL,SSUM,,ITEM,VOLU ! integrate stress *GET,TOTSX ,SSUM,,ITEM,SXV *GET,TOTSY ,SSUM,,ITEM,SYV *GET,TOTSZ ,SSUM,,ITEM,SZV *GET,TOTSXY ,SSUM,,ITEM,SXYV *GET,TOTSXZ ,SSUM,,ITEM,SXZV *GET,TOTSYZ ,SSUM,,ITEM,SYZV SXX0 = TOTSX/TOTVOL ! compute average stress SYY0 = TOTSY/TOTVOL SZZ0 = TOTSZ/TOTVOL SXY0 = TOTSXY/TOTVOL SXZ0 = TOTSXZ/TOTVOL SYZ0 = TOTSYZ/TOTVOL /GOPR *END !SRECOVER