变截面杆的拉伸实验课件.pptVIP

4 数值计算 4 数值计算 附录:数值计算程序 OUTPR,BASIC,ALL NSEL,S,LOC,Y,0 D,ALL,ALL NSEL,ALL NSEL,S,LOC,Y,254 SF,,PRES,-68.949 NSEL,ALL FINISH ! /SOLU SOLVE FINISH /POST1 ETABLE,SIGY,S,Y /VIEW,1,1 /VUP,1,-Y NSLE,S PLNSOL,S,Y ESEL,S,ELEM,,11 PRETAB,SIGY PRNSOL,S,COMP ESEL,ALL NSEL,S,LOC,Y,254 PRNSOL,DOF NSEL,ALL /NOPR MID_NODE = NODE(0,128,0) MID_ELM = ENEARN(MID_NODE) BOT_NODE = NODE (0,254,0) 附录:数值计算程序 *GET,DEF,NODE,BOT_NODE,U,Y *GET,STRSS,ELEM,MID_ELM,ETAB,SIGY *DIM,LABEL,CHAR,2,2 *DIM,VALUE_C1,,2,3 LABEL(1,1) = MAX DEF ,SIGY MID LABEL(1,2) = (mm) ,_ELM MPa *VFILL,VALUE_C1(1,1),DATA,0.12384,