! 一個管道，環向配筋率為1%，縱向配筋率為0.5%，徑向配筋率為0.1%
! 作者: 陸新征 清華大學土木系
!
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
! 注意：紅色代表最大配筋方向，綠色代表其次，藍色表示最小配筋方
