ansys 蠕变例子 绷紧的螺钉的应力松弛现象 /COM,ANSYS MEDIA REL. 8.1 (03-15-2004) REF. VERIF. MANUAL: REL. 8.1 /VERIFY,VM132 /PREP7 /TITLE, VM132, STRESS RELAXATION OF A BOLT DUE TO CREEP C*** STR. OF MATL., TIMOSHENKO, PART 2, 3RD ED., PAGE 531 ANTYPE,STATIC ET,1,LINK1 ! SPAR ELEMENT R,1,1,(1/30000) ! INITIAL STRAIN MP,EX,1,30E6 TB,CREEP,1 TBDATA,1,4.8E-30,7 ! CREEP PROPERTIES N,1 N,2,10 E,1,2 BFUNIF,TEMP,900 ! UNIFORM TEMPERATURE TIME,1000 KBC,1 D,ALL,ALL ! FIX ALL DOFS FINISH /SOLU SOLCONTROL,0 NSUBST,100 OUTPR,BASIC,10 ! PRINT BASIC SOLUTION FOR EVERY 10TH SUBSTEP OUTRES,ESOL,1 ! STORE ELEMENT SOLUTION FOR EVERY SUBSTEP SOLVE FINISH /POST26 ESOL,2,1,,LS,1,SIG ! STORE AXIAL STRESS PRVAR,2 ! PRINT AXIAL STRESS VS TIME *GET,T190,VARI,2,RTIME,190 *GET,T420,VARI,2,RTIME,420 *GET,T690,VARI,2,RTIME,690 *GET,T880,VARI,2,RTIME,880 *GET,T950,VARI,2,RTIME,950 *status,parm *DIM,LABEL,CHAR,5,2 *DIM,VALUE,,5,3 LABEL(1,1) = 'SIG @ ','SIG @ ','SIG @ ','SIG @ ','SIG @ ' LABEL(1,2) = '190 hr','420 hr','690 hr','880 hr','950 hr' *VFILL,VALUE(1,1),DATA,975,950,925,910,905 *VFILL,VALUE(1,2),DATA,T190,T420,T690,T880,T950 V1 = ABS(T190/975) V2 = ABS(T420/950) V3 = ABS(T690/925) V4 = ABS(T880/910) V5 = ABS(T950/905) *VFILL,VALUE(1,3),DATA,V1,V2,V3,V4,V5 /COM /OUT,vm132,vrt /COM,------------------- VM132 RESULTS COMPARISON ------------- /COM, /COM, | TARGET | ANSYS | RATIO /COM, *VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3) (1X,A8,A8,' ',F10.0,' ',F10.0,' ',1F5.2) /COM,---------------------------------------------------------- /OUT FINISH *LIST,vm132,vrt ============================== /COM,ANSYS MEDIA REL. 8.1 (03-15-2004) REF. VERIF. MANUAL: REL. 8.1 /VERIFY,VM133 /PREP7 MP,PRXY,,0.3 /TITLE, VM133, MOTION OF A ROD DUE TO IRRADIATION INDUCED CREEP C*** REFERENCE - ANY BAS...
