用SOLID65及LINK8分析钢筋混凝土梁.

1、用SOLID65及LINK8分析钢筋混凝土梁（分离式模型FINISH/CLEAR/PREP7ET,1,SOLID65R,1MP,EX,1,3.0E4MP,NUXY,1,0.2TB,CONCR,1,1TBTEMP,0TBDA TA,1,0.3,0.5,5.1,69TB,MISO,1,1,15TBPT, 100E-6, 3.0TBPT, 300E-6, 8.3TBPT, 600E-6,14.6TBPT, 900E-6,19.1TBPT,1100E-6,21.0TBPT,1250E-6,22.0TBPT,1400E-6,22.6TBPT,1550E-6,22.8TBPT,1650E-6,22.7TB

2、PT,1800E-6,22.3TBPT,2000E-6,21.4TBPT,2800E-6,16.8TBPT,3200E-6,14.7TBPT,3800E-6,12.3TBPT,4600E-6, 9.9ET,2,LINK8R,2,113MP,EX,2,200E3MP,NUXY,2,0.3TB,BKIN,2,1TBTEMP,0TBDA TA,300,0ET,3,LINK8R,3,28MP,EX,3,200E3TB,BKIN,3,1TBTEMP,0TBDA TA,300,0N,1,0,0,0NGEN,5,1,1,1,1,0,50,0 NGEN,61,5,1,5,1,50,0,0 NGEN,3,100

3、0,1,305,1,60TYPE,1REAL,1MA T,1E,1,1001,1002,2,6,1006,1007,7 EGEN,4,1,1,1,1EGEN,60,5,1,4,1EGEN,2,1000,1,240,1TYPE,2REAL,2MA T,2ENDI=1-5ENDJ=6-5*DO,I,1,60,1ENDI=ENDI+5ENDJ=ENDJ+5E,ENDI,ENDJ *ENDDOENDI=1001-5ENDJ=1006-5*DO,I,1,60,1ENDI=ENDI+5ENDJ=ENDJ+5E,ENDI,ENDJ*ENDDO!ENDI=2001-5ENDJ=2006-5*DO,I,1,60

4、,1ENDI=ENDI+5ENDJ=ENDJ+5E,ENDI,ENDJ*ENDDOENDI=5-5ENDJ=10-5 *DO,I,1,60,1ENDI=ENDI+5ENDJ=ENDJ+5E,ENDI,ENDJ*ENDDOENDI=2005-5ENDJ=2010-5*DO,I,1,60,1ENDI=ENDI+5ENDJ=ENDJ+5E,ENDI,ENDJ*ENDDOTYPE,3REAL,3MA T,3STARTP=1+2*5*DO,I,1,10,1 STARTP=STARTP+2*5 ENDI=STARTPDO,J,1,4,1E,ENDI,ENDI+1ENDI=ENDI+1*ENDDOENDI=

5、STARTP*D0,J,1,2,1E,ENDI,ENDI+1000 ENDI=ENDI+1000*ENDDOENDI=STARTP+4*D0,J,1,2,1E,ENDI,ENDI+1000 ENDI=ENDI+1000 *ENDDOENDI=STARTP+2*1000 *D0,J,1,4,1E,ENDI,ENDI+1ENDI=ENDI+1*ENDDO*ENDDOSTARTP=1+18*2*5*DO,I,1,10,1 STARTP=STARTP+2*5ENDI=STARTPD0,J,1,4,1E,ENDI,ENDI+1ENDI=ENDI+1*ENDDOENDI=STARTP*D0,J,1,2,1

6、E,ENDI,ENDI+1000 ENDI=ENDI+1000*ENDDOENDI=STARTP+4*D0,J,1,2,1E,ENDI,ENDI+1000 ENDI=ENDI+1000*ENDDOENDI=STARTP+2*1000 *D0,J,1,4,1E,ENDI,ENDI+1ENDI=ENDI+1*ENDDO*ENDDOFINISH/SOLUNSEL,S, LOC,X,100 NSEL,R 丄 OC,Y,0D,ALL,ALLNSEL,S, LOC,X,2900 NSEL,R ,L OC,Y,0D,ALL,UY,0D,ALL,U Z,0NSEL,S, LOC,X,1200 NSEL,R ,

7、L OC,Y,200 CP,1,UY,ALLD,ALL,UY,-25 NSEL,S,LOC,X,1800 NSEL,R,LOC,Y,200 CP,2,UY,ALLD,ALL,UY,-25 NSEL,ALLANTYPE,STATIC AUTOTS,1OUTRES,ALL,1NSUBST,50PRED,ONSOLVEFINISH/POST1/TYPE,1,0SET, , ,4PLCRACK,0,0 /WAIT,3/TYPE,1,0SET, , ,6PLCRACK,0,0 /WAIT,3 /TYPE,1,0SET, , ,8PLCRACK,0,0 /WAIT,3 /TYPE,1,0SET, , ,1

8、2PLCRACK,0,0 /WAIT,3 /TYPE,1,0SET, , ,16PLCRACK,0,0 /WAIT,3 /TYPE,1,0SET, , ,24PLCRACK,0,0/WAIT,3FINISH/POST26NUMV AR,15NSOL,2, node(1500,0,0,U,Y,UY RFORCE,3, no de(1200,200,0,F,Y,FYRFORCE,4, node(1200,200,60,F,Y,FY RFORCE,5, node(1200,200,120,F,Y,FYRFORCE,6, node(1800,200,0,F,Y,FY RFORCE,7, node(1800,200,60,F,Y,FYRFORCE,8 ,n ode(1800,200,120,F,Y,FY ADD,9,2,DISP,-1ADD,10,3,4,5 ,L OAD,-1/1000,-1/1000,-1/1