(完整版)ANSYS钢筋混凝土分离式建模
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
!跨中施加110KN的集中力FINISH $/CLEAR$/PREP7!
AS0=380.1 $AS1=50.3 $A=30 $B=150!
H=300 $L=2650 $L0=125!
ET,1,SOLID65!
KEYOPT,1,1,0!
KEYOPT,1,5,1!
KEYOPT,1,6,3!
KEYOPT,1,7,1!
ET,2,LINK180!
ET,3,SOLID185,,3
R,1,AS0$R,2,AS1$R,3
MP,EX, 1,2.4E4 $MP,PRXY,1,0.2$FC=25!
TB,CONCR,1,1,9!
TBDATA,,0.35,0.75,3.1125,-1!
TB,MISO,1,,15!
TBPT,,0.0002,4.8$TBPT,,0.0004,9.375$TBPT,,0.0006,13.51! TBPT,,0.0008,17.02$TBPT,,0.001,19.83,$TBPT,,0.0012,21.95! TBPT,,0.0014,23.43$TBPT,,0.0016,24.365$TBPT,,0.0018,24.856! TBPT,,0.002,FC $TBPT,,0.0038,FC !
TBPLOT!
MP,EX,2,2E5$MP,PRXY,2,0.25!
TB,BKIN,2$TBDATA,,360!
MP,EX,3,2E5$MP,PRXY,3,0.25!
TB,BKIN,3$TBDATA,,210!
N,1,,B $N,9$FILL,1,9!
NGEN,11,9,1,9,1,,,A!
NGEN,2,1000,1,99,1,75!
NGEN,3,1000,1001,1099,1,50!
NGEN,7,1000,3001,3099,1,75!
NGEN,7,1000,12001,12099,1,75!
NGEN,2,1000,18001,18099,1,50!
/VIEW,1,-1,-1,1!
TYPE,2 $REAL,2$MAT,3!
*DO,II,11,16,1$E,II,II+1 $*ENDDO!
*DO,II,83,88,1$E,II,II+1 $*ENDDO!
*DO,II,11,74,9$E,II,II+9 $*ENDDO!
*DO,II,17,80,9$E,II,II+9 $*ENDDO! EGEN,20,1000,1,28,1!
*DO,II,83,18083,1000$E,II,II+1000$*ENDDO! *DO,II,89,18089,1000$E,II,II+1000$*ENDDO! TYPE,2$REAL,1$MAT,2
*DO,II,11,18011,1000$E,II,II+1000$*ENDDO!
*DO,II,17,18017,1000$E,II,II+1000$*ENDDO!
/ESHAPE,1$EP!
BLC4,,,L/2,B,H $BLC4,75,,100,B,-40$WPOFFS,,,H$BLC4,625,,200,B,40 $WPCSYS,-1!WPOFFS,75$WPROTA,,,90$VSBW,ALL!
WPOFFS,,,100$VSBW,ALL$WPOFFS,,,450$VSBW,ALL!
WPOFFS,,,200$VSBW,ALL$WPOFFS,,,450$VSBW,ALL!
WPCSYS,-1$ALLSEL!
LSEL,S,LOC,Y,0$LSEL,A,LOC,Y,150$LSEL,R,LOC,X,0$LESIZE,ALL,,,10!LSEL,S,LOC,Z,0 $LSEL,A,LOC,Z,300$LSEL,R,LOC,X,0$LESIZE,ALL,,,8!
LSEL,S,LOC,Z,300$LSEL,R,LOC,Y,0$LSEL,R,LOC,X,0,75$LESIZE,ALL,75!LSEL,S,LOC,Z, 300$LSEL,R,LOC,Y,0$LSEL,R,LOC,X,75,175$LESIZE,ALL,25!LSEL,S,LOC,Z,300$LSEL,R,LO C,Y,0$LSEL,R,LOC,X,175,625
LSEL,S,LOC,Z,300$LSEL,R,LOC,Y,0$LSEL,R,LOC,X,625,825
LSEL,S,LOC,Z,300$LSEL,R,LOC,Y,0$LSEL,R,LOC,X,825,1275
LSEL,S,LOC,Z,300$LSEL,R,LOC,Y,0$LSEL,R,LOC,X,1275,1325$LESIZE,ALL,50!LSEL,S, LOC,Z,340$LSEL,R,LOC,X,625$LESIZE,ALL,,,8!
LSEL,S,LOC,Y,0$LSEL,R,LOC,X,625$LSEL,R,LOC,Z,300,340$LESIZE,ALL,,,1!LSEL,S,LO C,Z,-40$LSEL,R,LOC,X,75$LESIZE,ALL,,,8!
LSEL,S,LOC,Y,0$LSEL,R,LOC,Z,-40$LESIZE,ALL,,,4!
LSEL,S,LOC,Y,0$LSEL,R,LOC,X,75$LSEL,R,LOC,Z,0,-
40$LESIZE,ALL,,,1!VSEL,S,LOC,Z,0,H $VATT,1,3,1
MSHAPE,0,3D $MSHKEY,1
VMESH,ALL $ALLSEL
VSEL,S,LOC,Z,-40,0$VSEL,A,LOC,Z,H,H+40$VATT,2,3,3
MSHAPE,0,3D $MSHKEY,1$VMESH,ALL
/VIEW,1,-0.2,-1,1$EPLOT$ALLSEL
NUMMRG,ALL $NUMCMP,ALL$EPLOT
/SOLU!
NSEL,S,LOC,Z,-40$NSEL,R,LOC,X,L0$D,ALL,UY,,,,,UZ$ALLSEL!
ASEL,S,LOC,X,L/2$DA,ALL,SYMM$ALLSEL!
NSEL,S,LOC,Z,H+40$NSEL,R,LOC,X,725!
*GET,NODE1,NODE,,COUNT $F,ALL,FZ,-110000/NODE1$ALLSEL!
ANTYPE,STATIC
$NLGEOM,ON$NSUBST,80$OUTRES,ALL,ALL$AUTOTS,1$LNSRCH,1!CNVTOL,F,,0. 05,2,
0.5$ALLSEL!
SOLVE $FINISH
/POST1 $SET,LAST $PRRSOL,FZ!
SET,LAST $PLDISP,1!
ESEL,S,TYPE,,2$ETABLE,SAXL,LS,1$PLLS,SAXL,SAXL!
ESEL,S,TYPE,,1$/DEVICE,VECTOR,ON$PLCRACK!
/POST26$NSOL,2,NODE(L/2,B/2,0),U,Z!
PROD,3,2,,,,,,-1$PROD,4,1,,,LOAD,,,110!
/AXLAB,X,MID-UZ(MM)$/AXLAB,Y,P(KN)!
XVAR,3$PLVAR,4