I'm trying to get results from a shell model (using SHELL91 and SHELL93 elements).
It appears that nodal results are available on the 'TOP' and 'BOTTOM' surfaces
for both these element types. How can I retrieve that data and then print it out?
I modified ANSYS Verification Manual sample vm35 to use the *VGET and *VWRITE commands along with the SHELL command in POST1 to store and output the top and bottom values. I did S2 to confirm that it was working correctly. The *VMASK commands are so that only the selected nodes get processed by each vector operation. /COM,ANSYS MEDIA REL. 10.0 (05/31/2005) REF. VERIF. MANUAL: REL. 10.0 !/VERIFY,VM35 /PREP7 SMRT,OFF /TITLE,VM35: BIMETALLIC LAYERED CANTILEVER PLATE WITH THERMAL LOADING C*** ROARK AND YOUNG, FORMULAS FOR STRESS AND STRAIN, PP. 113-114. ANTYPE,STATIC ET,1,SHELL91,,1,,0,4,1,1 R,1,2 RMORE RMORE,1,0,.05 ! LAYER 1 IS MAT'L 1, .05 THICK RMORE,2,,.05 ! LAYER 2 IS MAT'L 2, .05 THICK MP,EX,1,3E7 ! MATERIAL PROPERTIES MP,EX,2,3E7 MP,ALPX,1,1E-5 MP,ALPX,2,2E-5 MP,NUXY,1,0 MP,NUXY,2,0 K,1 ! DEFINE GEOMETRY K,2,,1 K,3,10,1 K,4,10 A,1,2,3,4 ESIZE,2 ! ELEMENT SIDE LENGTHS = 2 AMESH,1 NSEL,S,LOC,X NSEL,R,LOC,Y,.5 D,ALL,ALL ! FIX ONE END OF CANTILEVER NSEL,S,LOC,Y,0.5 DSYM,SYMM,Y ! SYMMETRY PLANE DOWN CENTERLINE NSEL,ALL TREF,70 BFUNIF,TEMP,170 ! DEFINE UNIFORM TEMPERATURE FINISH /SOLU OUTPR,BASIC,1 SOLVE FINISH /POST1 SHELL,TOP ! SELECT TOP SURFACE FOR STRESS PRINT PRNSOL,S,COMP NSEL,S,LOC,X,10 ! SELECT CENTERLINE OF FREE END FOR DISPLACEMENT PRINT NSEL,R,LOC,Y,.5 PRNSOL,U,COMP RT_NODE = NODE (10,.5,0) *GET,DEF_Z,NODE,RT_NODE,U,Z *GET,DEF_X,NODE,RT_NODE,U,X *GET,OUT_STRS,NODE,1,S,X allsel ! esel,s,type,,1 nsle,s,corner *get,n_mx,node,,num,max *dim,da_ta,array,n_mx,5 *vget,da_ta(1,1),node,1,nsel shell,top prns,s,prin *vmask,da_ta(1,1) *vget,da_ta(1,2),node,1,s,eqv *vmask,da_ta(1,1) *vget,da_ta(1,4),node,1,s,2 shell,bot prns,s,prin *vmask,da_ta(1,1) *vget,da_ta(1,3),node,1,s,eqv *vmask,da_ta(1,1) *vget,da_ta(1,5),node,1,s,2 *vmask,da_ta(1,1) *vfill,da_ta(1,1),ramp,1,1 *vmask,da_ta(1,1) *vwrite,da_ta(1,1),da_ta(1,2),da_ta(1,3),da_ta(1,4),da_ta(1,5) (5f15.8) ! FINISH /exit,nosa |
||
|