FINISH
/CLEAR

/PREP7
!*
! 单元属性
ET,1,SOLID65
!*
KEYOPT,1,1,0
KEYOPT,1,5,0
KEYOPT,1,6,0
KEYOPT,1,7,1
!*
!实参数1：不同方向配筋
R,1,2,.001, , ,2, .01,
RMORE, 90, ,2,.005 ,90 ,90 ,

!材料属性
!混凝土基本材料属性
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,30E2
MPDATA,PRXY,1,,.2
!屈服准则
TB,MISO,1,1,5,
TBTEMP,0
TBPT,,0.0005,15
TBPT,,0.001,21
TBPT,,0.0015,24
TBPT,,0.002,27
TBPT,,0.003,24
!破坏准则
TB,CONC,1,1,9,
TBTEMP,0
TBDATA,,.5,.9,3,30,,
TBDATA,,,,1,,,
MPTEMP,,,,,,,,
MPTEMP,1,0
!钢材基本属性
MPDATA,EX,2,,200E3
MPDATA,PRXY,2,,.27
!屈服准则
TB,BISO,2,1,2,
TBTEMP,0
TBDATA,,310,2E3,,,,

! 管道内径和外径
CYL4,0,0,3000, , , ,10000
CYL4,0,0,2000, , , ,10000
VSBV, 1, 2

! 定义局部柱坐标
CSWPLA,11,1,1,1,
KWPAVE, 11
WPRO,,-90.000000,
VSBW, 3
WPCSYS,-1,0
KWPAVE, 1
WPRO,,,-90.000000
VSBW,ALL

ESIZE,500,0,
! 注意：设定单元局部坐标
VATT, 1, 1, 1, 11
!*
VSWEEP,ALL
/DEVICE,VECTOR,1
/ESHAPE,1.0
/REPLO
! 注意：红色代表最大配筋方向，绿色代表其次，蓝色表示最小配筋方向