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 |
||
|