【正文】 1ESORT,STRS*GET,SMAX2,SORT,MAXPRNSOL,DOFLFT_NODE = NODE (0,0,0)*GET,DEFL2,NODE,LFT_NODE,U,Z! (14) 定義數(shù)組，將計(jì)算結(jié)果及其與理論結(jié)果的比較輸出到文件*DIM,LABEL,CHAR,2,2*DIM,VALUE2,2,3LABEL(1,1) = 39。DEFLECTI39。,39。MXPRIN_39。LABEL(1,2) = 39。ON(mm) 39。,39。STRS(MPa)39。*VFILL,VALUE2(1,1),DATA,*VFILL,VALUE2(1,2),DATA,DEFL2,SMAX2*VFILL,VALUE2(1,3),DATA,ABS(DEFL2/),ABS(SMAX2/)SAVE, TABLE_2RESUME,TABLE_1/COM/OUT, EX2_6, out/COM, RESULTS COMPARISON /COM,/COM, | TARGET | ANSYS | RATIO/COM,/COM,RESULTS USING SHELL63:/COM,*VWRITE,LABEL(1,1),LABEL(1,2),VALUE1(1,1),VALUE1(1,2),VALUE1(1,3)(1X,A8,A8,39。 39。,39。 39。,39。 39。,)/NOPRRESUME,TABLE_2/GOPR/COM,*VWRITE,LABEL(1,1),LABEL(1,2),VALUE2(1,1),VALUE2(1,2),VALUE2(1,3)(1X,A8,A8,39。 39。,39。 39。,39。 39。,)/COM,/OUTFINISH*LIST, EX2_6, out ! 彈性地基半無限長(zhǎng)梁在端部力和力偶作用下的變形! 本程序來源于邢靜忠等編著的《ANSYS分析實(shí)例與工程應(yīng)用》，機(jī)械工業(yè)出版社（2004年）FINISH/CLEAR, NOSTART/FileName, /PREP7/TITLE, , BENDING OF A BEAM ON AN ELASTIC FOUNDATIONC*** STR. OF MATL., TIMOSHENKO, PART 2, 3RD ED., PAGE 12! (1) 設(shè)置分析類型，單元類型，實(shí)常數(shù)和材料參數(shù)ANTYPE,STATICET,1,BEAM54R,1,14839,RMODIF,1,16,MP,EX,1,207e3MP,PRXY,! (2) 定義節(jié)點(diǎn)N,1N,14,7264FILL! (3) 定義單元E,1,2EGEN,13,1,1! (4) 施加位移約束和節(jié)點(diǎn)荷載D,1,UXF,1,FY,4448F,1,MZ,OUTPR,1FINISH! (5) 在求解模塊求解，提取位移計(jì)算結(jié)果/SOLUSOLVE*GET,UY,NODE,1,U,Y*status,parm! (6) 將計(jì)算結(jié)果輸出到文件*DIM,LABEL,CHAR,1,2*DIM,VALUE,1,3LABEL(1,1) = 39。END DISP 39。LABEL(1,2) = 39。 mm 39。*VFILL,VALUE(1,1),DATA,*VFILL,VALUE(1,2),DATA,UY*VFILL,VALUE(1,3),DATA,ABS(UY/)/COM/OUT, EX2_7, out/COM, 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,39。 39。,39。 39。,39。 39。,)/COM,/OUTFINISH*LIST, EX2_7, out ! 偏心受壓桿的大變形分析! 本程序來源于邢靜忠等編著的《ANSYS分析實(shí)例與工程應(yīng)用》，機(jī)械工業(yè)出版社（2004年）FINISH/CLEAR, NOSTART! (1) 定義工程選項(xiàng)，分析類型，實(shí)常數(shù)和材料參數(shù)等/PREP7/TITLE, , LARGE DEFLECTION ECCENTRIC COMPRESSION OF SLENDER COLUMNC*** STR. OF MATL., TIMOSHENKO, PART 1, 3RD ED., PG. 263, PROB. 1ANTYPE,STATICNLGEOM,ONET,1,BEAM54R,1,RMORE,,MP,EX,1,207E3MP,NUXY,1,! (2) 定義節(jié)點(diǎn)N,1N,5,1524FILL! (3) 定義單元E,1,2EGEN,4,1,1! (4) 施加位移約束和荷載D,1,ALLF,5,FY,17793FINISH! (5) 進(jìn)入求解模塊求解/SOLUCNVTOL,F,1E4CNVTOL,M,1E1OUTPR,LASTSOLVEFINISH! (6) 在后處理模塊，提取計(jì)算結(jié)果/POST1END_NODE = NODE (0,3048/2,0)*GET,DEF,NODE,END_NODE,U,XETABLE,TENS,NMISC,1ETABLE,COMP,NMISC,2*GET,STS_TENS,ELEM,1,ETAB,TENS*GET,STS_COMP,ELEM,1,ETAB,COMP! (7) 將計(jì)算結(jié)果輸出到文件*DIM,LABEL,CHAR,3,2*DIM,VALUE,3,3LABEL(1,1) = 39。DEFLECTI39。,39。STRSS_TE39。,39。STRSS_CO39。LABEL(1,2) = 39。ON (mm) 39。,39。NS (MPa)39。,39。MP (MPa)39。*VFILL,VALUE(1,1),DATA,*VFILL,VALUE(1,2),DATA,ABS(DEF),STS_TENS,STS_COMP*VFILL,VALUE(1,3),DATA,ABS(DEF/),ABS(STS_TENS/),ABS(STS_COMP/)/COM/OUT, EX2_8, out/COM, 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,39。 39。,39。 39。,39。 39。,)/COM,/OUTFINISH*LIST, EX2_8, out3 第三章 ! 利用梁?jiǎn)卧?jì)算壓桿穩(wěn)定性! 本程序來源于邢靜忠等編著的《ANSYS分析實(shí)例與工程應(yīng)用》，機(jī)械工業(yè)出版社（2004年）FINISH/CLEAR, NOSTART! (1) 定義工程選項(xiàng),單元類型,實(shí)常數(shù)和材料參數(shù)/FileName, /PREP7/TITLE, , BUCKLING OF A BAR WITH HINGED END BY BEAM3 ELEMENTC*** STR. OF MATL., TIMOSHENKO, PART 2, 3RD ED., PAGE 148ET,1,BEAM3R,1,MP,EX,1,207000MP,PRXY,! (2)定義節(jié)點(diǎn)和單元N,1N,11,2540FILLE,1,2EGEN,10,1,1FINISH! (3)設(shè)置求解選項(xiàng),位移約束和荷載,開始求解/SOLUANTYPE,STATICPSTRES,OND,1,ALLF,11,FY,1OUTPR,1SOLVEFINISH! (4)再次進(jìn)入求解模塊,進(jìn)行屈曲分析/SOLUANTYPE,BUCKLEBUCOPT,LANB,1MXPAND,1SOLVE! (5)提取計(jì)算結(jié)果*GET,FCR,MODE,1,FREQ*status,parm! (6)定義數(shù)組變量,將計(jì)算結(jié)果輸出到文件*DIM,LABEL,CHAR,1,2*DIM,VALUE,1,3LABEL(1,1) = 39。Fcr 39。LABEL(1,2) = 39。(N) 39。*VFILL,VALUE(1,1),DATA,*VFILL,VALUE(1,2),DATA,FCR*VFILL,VALUE(1,3),DATA,ABS(FCR/)/COM/OUT, EX3_1, out/COM, 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,39。 39。,39。 39。,39。 39。,)/COM,/OUTFINISH*LIST, EX3_1, out ! 利用實(shí)體單元計(jì)算壓桿穩(wěn)定性! 本程序來源于邢靜忠等編著的《ANSYS分析實(shí)例與工程應(yīng)用》，機(jī)械工業(yè)出版社（2004年）FINISH/CLEAR, NOSTART! (1)設(shè)置工程選項(xiàng), 單元類型, 實(shí)常數(shù)和材料參數(shù)/FILENAME, /PREP7/TITLE, , BUCKLING OF A BAR WITH HINGED BY PLANE42 ELEMENTC*** STR. OF MATL., TIMOSHENKO, PART 2, 3RD ED., PAGE 148ET,1,PLANE42,3R,1,MP,EX,1, 207000MP,PRXY,! (2) 定義節(jié)點(diǎn)和單元N,1N,11,2540FILL! NGEN, ITIME, INC, NODE1, NODE2, NINC, DX, DY, DZ, SPACENGEN,2,11,1,11,E,12,13,2,1EGEN,10,1,1FINISH! (3) 定義求解選項(xiàng), 位移約束和荷載力, 并開始靜力分析的求解/SOLUPSTRES,OND,1,ALL,12,11F,11,FY,22,11OUTPR,1SOLVEFINISH! (4)再次進(jìn)入求解模塊, 進(jìn)行屈曲分析/SOLUANTYPE,BUCKLEBUCOPT,SUBSP,1MXPAND,1SOLVE! (5)提取計(jì)算結(jié)果*GET,FCR1,MODE,1,FREQ*status,parm! (6) 定義數(shù)組變量, 將計(jì)算結(jié)果輸出到文件*DIM,LABEL,CHAR,1,2*DIM,VALUE,1,3LABEL(1,1) = 39。Fcr 39。LABEL(1,2) = 39。(N)39。*VFILL,VALUE(1,1),DATA,*VFILL,VALUE(1,2),DATA,FCR1*VFILL,VALUE(1,3),DATA,ABS(FCR1/)/COM/OUT, EX3_2, out/COM, RESULTS COMPARISON /COM,/COM, | TARGET | ANSYS | RATIO/COM,/COM, Subspace Solution*VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3)(1X,A8,A8,39。 39。,39。 39。,39。 39。,)/COM,/OUTFINISH! (7)改用其它特征值求解方法/SOLUBUCOPT,LANB ,1SOLVE! (8)顯示計(jì)算結(jié)果*GET,FCR2,MODE,1,FREQ*status,parm! (9)定義數(shù)組變量, 將計(jì)算結(jié)果輸出到文件*DIM,LABEL,CH