Do you have an APDL example demonstrating how to use [*VFUN,,PRIN] to calculate principal stresses from component stresses?


C******************************************
C*** MAKE UP STRESS STATE
C******************************************
sx=1
sy=2
sz=3
sxy=1
syz=1
sxz=1


C******************************************
C*** DIMENSION ARRAYS
C******************************************
*dim,s_comp,,1,6
*dim,s_prin,,1,5


C******************************************
C*** FILL COMPONENT STRESS ARRAY
C******************************************
s_comp(1,1)=sx
s_comp(1,2)=sy
s_comp(1,3)=sz
s_comp(1,4)=sxy
s_comp(1,5)=syz
s_comp(1,6)=sxz


C******************************************
C*** CALCULATE PRINCIPLE STRESSES
C******************************************
*vfun,s_prin(1,1),prin,s_comp(1,1)


C******************************************
C*** REPORT PRINCIPLE STRESSES
C******************************************
s1=s_prin(1,1)! FIRST PRINCIPLE
s2=s_prin(1,2) ! SECOND PRINCIPLE
s3=s_prin(1,3) ! THIRD PRINCIPLE
sint=s_prin(1,4) ! STESS INTENSITY (S1-S3)
seqv=s_prin(1,5) ! EQUIVALENT OR VON MISES

s1_seqv=s1/seqv ! RATIO FIRST PRINCIPLE TO EQUIVALENT





Show Form
No comments yet. Be the first to add a comment!