在ANSYS中影响线计算

2004ANSYSANSYS100010[]ANSYSAPDLAPDLANSYS[]ANSYSAPDLCreateInfluenceLinesofStructrueinANSYSWangwenbinChinaHighwayPlanning&DesignInstitute(HPDI)Consultants,IncBeijing100010[Abstract]ThispaperisintendedtointroduceamethodthatcreateinfluencelinesofstructurebyusingAPDLinANSYSandgivesaexampleof3-spancontinuousgirderbridgewithcommentsasareferenceforengineers.[Keyword]ANSYS,APDL,Matrixoperation,Influencelinesofstructure,3-spancontinuousgirderbridge1.StructureANSYSSTRUCTUREANSYS2.ANSYSANSYSAPDLANSYSGUIAPDLANSYSANSYS2004ANSYS1233.3.11nP12n34543.220.020.020.0P=1ABCDYX11320AXYBCDYkNmBEAM32004ANSYS0.2m1/20L1/10LE3.5107kPaPRXY0.1673.3!ANSYSANSYS!!!!2003-11-12!!kN,m!!!!********************************!!!!FINI/CLEARSPAN=3!L=20!/FILNAME,MODEL/TITLE,The%SPAN%*%L%MContinuousBridgeAnalysis/NOPR/PREP7*AFUN,DEG/VIEW,1,0,0,1!!!!!!!!********************************!!!!********************************!!!!SEGMENT=5!NMAX=SEGMENT*L*SPAN+1!X0=0.0Y0=0.0!SEC_H=L/20SEC_W=L/10!!!!!!!!!********************************!!!!********************************!!!!ET,1,BEAM3MP,EX,1,3.5E7MP,PRXY,1,0.167!R,1,SEC_W*SEC_H,SEC_H**3*SEC_W/12,SEC_H!N,1,X0,Y0N,NMAX,X0+L*SPAN,Y0FILL,1,NMAX!2004ANSYSTYPE,1MAT,1REAL,1ESYS,0!*DO,I,1,NMAX-1E,I,I+1*ENDDO!*DO,J,1,NMAX,SEGMENT*LD,J,UY*IF,J,EQ,1,THEND,J,UX*ENDIF*ENDDO!ALLS/PBC,ALL,,1EPLOTSAVE!!!!!!!!!********************************!!!!********************************!!!!/SOLU*DO,I,1,NMAXF,I,FY,-1*IF,I,GT,1,THENFDELE,I-1,FY*ENDIF!LSWRITE,I!*ENDDOANTYPE,0OUTRES,ALL,LAST,OUTPR,BASIC,ALL,TIME,1AUTOTS,-1NSUBST,1,,,1KBC,0!ALLS,ALLLSSOLVE,1,NMAX!!!!!!!!!********************************!!!!********************************!!!!/POST1*DIM,NODE_X,ARRAY,NMAX!X2004ANSYS*DIM,N_QY,TABLE,NMAX,NMAX!QY*DIM,N_MZ,TABLE,NMAX,NMAX!MZ*DIM,QY_EXTR,ARRAY,4,NMAX!QY*DIM,MZ_EXTR,ARRAY,4,NMAX!MZ*DIM,TRANS_V,ARRAY,NMAX-1!ESEL,ALL*DO,I,1,NMAXN_QY(0,I)=IN_MZ(0,I)=I*ENDDO!N_QYN_MZ0*VGET,NODE_X,NODE,ALL,LOC,X!NODE_XX*ABSET,'CreatingEfficacyData......',BAR!*DO,I,1,NMAX*ABCHECK,NINT(100*I/NMAX)!SET,IETABLE,QYI,SMISC,2ETABLE,QYJ,SMISC,8ETABLE,MZI,SMISC,6ETABLE,MZJ,SMISC,12!Beam3N_QY(I,0)=NODE_X(I,1)N_MZ(I,0)=NODE_X(I,1)!N_QYN_MZ0X*VGET,TRANS_V,ELEM,ALL,ETAB,QYI!IQYITRANS_V*MFUN,N_QY(I,1),TRAN,TRANS_V!TRANS_VN_QY*GET,N_QY(I,NMAX),ELEM,NMAX-1,SMISC,8!JQY*VGET,TRANS_V,ELEM,ALL,ETAB,MZI!IMZITRANS_V*MFUN,N_MZ(I,1),TRAN,TRANS_V!TRANS_VN_MZ*GET,N_MZ(I,NMAX),ELEM,NMAX-1,SMISC,12!JMZ*ENDDO*ABFINISH!*ABSET*ABCHECK*ABFINISHTRANS_V(0)=!!!!QYMZ!!!!********************************!!!!********************************!!!!*DIM,COLUMN_V,ARRAY,NMAX!*ABSET,'GetingExtremum......',BAR!*DO,I,1,NMAX*ABCHECK,NINT(100*I/NMAX)!*VCOL,1*MFUN,COLUMN_V(1),COPY,N_QY(1,I)!N_QY1COLUMN_V*VSCFUN,INDEX,LMAX,COLUMN_V!COLUMN_VQY_EXTR(1,I)=NODE_X(INDEX)!NODE_X*VSCFUN,QY_EXTR(2,I),MAX,COLUMN_V!COLUMN_VQY2004ANSYS*VSCFUN,INDEX,LMIN,COLUMN_V!COLUMN_VQY_EXTR(3,I)=NODE_X(INDEX)!NODE_X*VSCFUN,QY_EXTR(4,I),MIN,COLUMN_V!COLUMN_VQY*VCOL,1*MFUN,COLUMN_V(1),COPY,N_QY(1,I)!N_MZ1COLUMN_V*VSCFUN,INDEX,LMAX,COLUMN_V!COLUMN_VMZ_EXTR(1,I)=NODE_X(INDEX)!NODE_X*VSCFUN,MZ_EXTR(2,I),MAX,COLUMN_V!COLUMN_VMZ*VSCFUN,INDEX,LMIN,COLUMN_V!COLUMN_VMZ_EXTR(3,I)=NODE_X(INDEX)!NODE_X*VSCFUN,MZ_EXTR(4,I),MIN,COLUMN_V!COLUMN_VMZ*ENDDO*ABFINISH!COLUMN_V(0)=!!!!!!!!********************************/eof!/AXLAB,X,Span_X/XRANGE,0,SPAN*L/GROPT,DIVX,12/GROPT,CURL,1/AXLAB,Y,VALUE*VPLOT,N_QY(1,0),N_QY(1,1),151*VPLOT,N_MZ(1,0),N_MZ(1,1),51,101,151!!!!!!!!********************************3.4N_QYN_MZQY_EXTRMZ_EXTRXAPDL*DO*ENDDO*IF*ENDIFANSYS30ANSYSANSYSANSYS2004ANSYS151101151151Y151101151Z4.ANSYS*.GRPHANSYSDISPLAYANSYSANSYSANSYSANSYS[][1]ANSYS.ANSYS[2]ANSYS.ANSYS[3]APDL.ANSYS[4]..