/BATCH  
! /COM,ANSYS RELEASE 11.0    UP20070125       11:13:27    04/04/2009              
/input,menust,tmp,'',,,,,,,,,,,,,,,,1   
! /GRA,POWER  
! /GST,ON 
! /PLO,INFO,3 
! /GRO,CURL,ON
! /CPLANE,1   
! /REPLOT,RESIZE  
WPSTYLE,,,,,,,,0
!----------------------------------------------------------------------------------------------------   
!      Selecting Dicipline  
!----------------------------------------------------------------------------------------------------   
/NOPR   
/PMETH,OFF,0
KEYW,PR_SET,1   
KEYW,PR_STRUC,1 
KEYW,PR_FLUID,0 
KEYW,PR_MULTI,0 
/GO 
! /COM, 
! /COM,Preferences for GUI filtering have been set to display:  
! /COM,  Structural 
!----------------------------------------------------------------------------------------------------   
!      Preprocessor 
!----------------------------------------------------------------------------------------------------   
/PREP7  
!-------------------------------------------------- 
!   Selecting Elements & KeyOption  
!-------------------------------------------------- 
ET,1,LINK8  
ET,2,SOLID45
ET,3,SOLID65
ET,4,SHEll41
KEYOPT,4,1,2
KEYOPT,4,2,0
KEYOPT,4,4,0
KEYOPT,4,5,0
KEYOPT,4,6,0
!-------------------------------------------------- 
!   Real Constant   
!-------------------------------------------------- 
R,1, , ,
R,2,314,0,  
R,3,78,0,   
R,4,10,0,   
!-------------------------------------------------- 
!   Material Property   
!-------------------------------------------------- 
!-------------------------  
! Concrete (Crack & Crush)  
!-------------------------  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,25750  
MPDATA,PRXY,1,,0.2  
TB,MISO,1,1,14,0
TBTEMP,0
TBPT,,0,0   
TBPT,,3.496e-4,9
TBPT,,4e-4,10.0026  
TBPT,,5e-4,12.3052  
TBPT,,6e-4,14.4858  
TBPT,,7e-4,16.5291  
TBPT,,8e-4,18.4238  
TBPT,,9e-4,20.1623  
TBPT,,1e-3,21.7408  
TBPT,,1.2e-3,24.4187
TBPT,,1.4e-3,26.4845
TBPT,,1.6e-3,27.9957
TBPT,,1.8e-3,29.0256
TBPT,,2e-3,29.6521  
TBPT,,2.3307e-3,30  
TB,CONC,1,1,9,  
TBTEMP,0
TBDATA,,0.3,0.99,3.22,30,,  
TBDATA,,,,,,,   
!-------------------------  
! Concrete (Only Crack) 
!-------------------------  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,2,,25750  
MPDATA,PRXY,2,,0.2  
TB,MISO,2,1,14,0
TBTEMP,0
TBPT,,0,0   
TBPT,,3.496e-4,9
TBPT,,4e-4,10.0026  
TBPT,,5e-4,12.3052  
TBPT,,6e-4,14.4858  
TBPT,,7e-4,16.5291  
TBPT,,8e-4,18.4238  
TBPT,,9e-4,20.1623  
TBPT,,1e-3,21.7408  
TBPT,,1.2e-3,24.4187
TBPT,,1.4e-3,26.4845
TBPT,,1.6e-3,27.9957
TBPT,,1.8e-3,29.0256
TBPT,,2e-3,29.6521  
TBPT,,2.3307e-3,30  
TB,CONC,2,1,9,  
TBTEMP,0
TBDATA,,0.3,0.99,3.22,-1,,  
TBDATA,,,,,,,   
!-------------------------  
! Concrete (Nothig) 
!-------------------------  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,3,,25750  
MPDATA,PRXY,3,,0.2  
TB,MISO,3,1,14,0
TBTEMP,0
TBPT,,0,0   
TBPT,,3.496e-4,9
TBPT,,4e-4,10.0026  
TBPT,,5e-4,12.3052  
TBPT,,6e-4,14.4858  
TBPT,,7e-4,16.5291  
TBPT,,8e-4,18.4238  
TBPT,,9e-4,20.1623  
TBPT,,1e-3,21.7408  
TBPT,,1.2e-3,24.4187
TBPT,,1.4e-3,26.4845
TBPT,,1.6e-3,27.9957
TBPT,,1.8e-3,29.0256
TBPT,,2e-3,29.6521  
TBPT,,2.3307e-3,30  
TB,CONC,3,1,9,  
TBTEMP,0
TBDATA,,0.3,0.99,-1,-1,,
TBDATA,,,,,,,   
!-------------------------  
! Reinforcement Steel   
!-------------------------  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,4,,2e6
MPDATA,PRXY,4,,0.3  
TB,BISO,4,1,2,  
TBTEMP,0
TBDATA,,240,0,,,,   
!-------------------------  
! Base Steel
!-------------------------  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,5,,2e6
MPDATA,PRXY,5,,0.2  
!-------------------------------------------------- 
!   Modeling
!-------------------------------------------------- 
!-------------------------  
! Blocks
!-------------------------  
BLOCK,-150,150,-150,150,0,600,  
BLOCK,-150,150,-150,150,600,700,
!-------------------------  
! Keypoints 
!-------------------------  
K, ,-100,100,0, 
K, ,-100,-100,0,
K, ,100,100,0,  
K, ,100,-100,0, 
K, ,-100,100,50,
K, ,-100,-100,50,   
K, ,100,100,50, 
K, ,100,-100,50,
K, ,-100,100,100,   
K, ,-100,-100,100,  
K, ,100,100,100,
K, ,100,-100,100,   
K, ,-100,100,150,   
K, ,-100,-100,150,  
K, ,100,100,150,
K, ,100,-100,150,   
K, ,-100,100,200,   
K, ,-100,-100,200,  
K, ,100,100,200,
K, ,100,-100,200,   
K, ,-100,100,250,   
K, ,-100,-100,250,  
K, ,100,100,250,
K, ,100,-100,250,   
K, ,-100,100,300,   
K, ,-100,-100,300,  
K, ,100,100,300,
K, ,100,-100,300,   
K, ,-100,100,350,   
K, ,-100,-100,350,  
K, ,100,100,350,
K, ,100,-100,350,   
K, ,-100,100,400,   
K, ,-100,-100,400,  
K, ,100,100,400,
K, ,100,-100,400,   
K, ,-100,100,450,   
K, ,-100,-100,450,  
K, ,100,100,450,
K, ,100,-100,450,   
K, ,-100,100,500,   
K, ,-100,-100,500,  
K, ,100,100,500,
K, ,100,-100,500,   
K, ,-100,100,550,   
K, ,-100,-100,550,  
K, ,100,100,550,
K, ,100,-100,550,   
K, ,-100,100,600,   
K, ,-100,-100,600,  
K, ,100,100,600,
K, ,100,-100,600,   
K, ,-100,0,0,   
K, ,0,-100,0,   
K, ,100,0,0,
K, ,0,100,0,
K, ,-100,0,50,  
K, ,0,-100,50,  
K, ,100,0,50,   
K, ,0,100,50,   
K, ,-100,0,100, 
K, ,0,-100,100, 
K, ,100,0,100,  
K, ,0,100,100,  
K, ,-100,0,150, 
K, ,0,-100,150, 
K, ,100,0,150,  
K, ,0,100,150,  
K, ,-100,0,200, 
K, ,0,-100,200, 
K, ,100,0,200,  
K, ,0,100,200,  
K, ,-100,0,250, 
K, ,0,-100,250, 
K, ,100,0,250,  
K, ,0,100,250,  
K, ,-100,0,300, 
K, ,0,-100,300, 
K, ,100,0,300,  
K, ,0,100,300,  
K, ,-100,0,350, 
K, ,0,-100,350, 
K, ,100,0,350,  
K, ,0,100,350,  
K, ,-100,0,400, 
K, ,0,-100,400, 
K, ,100,0,400,  
K, ,0,100,400,  
K, ,-100,0,450, 
K, ,0,-100,450, 
K, ,100,0,450,  
K, ,0,100,450,  
K, ,-100,0,500, 
K, ,0,-100,500, 
K, ,100,0,500,  
K, ,0,100,500,  
K, ,-100,0,550, 
K, ,0,-100,550, 
K, ,100,0,550,  
K, ,0,100,550,  
K, ,-100,0,600, 
K, ,0,-100,600, 
K, ,100,0,600,  
K, ,0,100,600,  
!-------------------------  
! Longitudinal  
!-------------------------  
LSTR,      21,      61  
LSTR,      23,      63  
LSTR,      24,      64  
LSTR,      22,      62  
LSTR,      73,     113  
LSTR,      76,     116  
LSTR,      75,     115  
LSTR,      74,     114  
!-------------------------  
! Transvarse
!-------------------------  
LSTR,      26,      25  
LSTR,      25,      27  
LSTR,      27,      28  
LSTR,      28,      26  
LSTR,      30,      29  
LSTR,      29,      31  
LSTR,      31,      32  
LSTR,      32,      30  
LSTR,      38,      37  
LSTR,      37,      39  
LSTR,      39,      40  
LSTR,      40,      38  
LSTR,      46,      45  
LSTR,      45,      47  
LSTR,      47,      48  
LSTR,      48,      46  
LSTR,      54,      53  
LSTR,      53,      55  
LSTR,      55,      56  
LSTR,      56,      54  
LSTR,      58,      57  
LSTR,      57,      59  
LSTR,      59,      60  
LSTR,      60,      58  
!-------------------------  
! Concrete Rod ( Nothing )  
!-------------------------  
K, ,-150,100,0, 
K, ,-150,150,0, 
K, ,-100,150,0, 
K, ,100,150,0,  
K, ,150,150,0,  
K, ,150,100,0,  
K, ,150,-100,0, 
K, ,150,-150,0, 
K, ,100,-150,0, 
K, ,-100,-150,0,
K, ,-150,-150,0,
K, ,-150,-100,0,
K, ,-150,100,600,   
K, ,-150,150,600,   
K, ,-100,150,600,   
K, ,100,150,600,
K, ,150,150,600,
K, ,150,100,600,
K, ,150,-100,600,   
K, ,150,-150,600,   
K, ,100,-150,600,   
K, ,-100,-150,600,  
K, ,-150,-150,600,  
K, ,-150,-100,600,  
K, ,-150,-50,0, 
K, ,-150,0,0,   
K, ,-150,50,0,  
K, ,150,-50,0,  
K, ,150,0,0,
K, ,150,50,0,   
K, ,-150,-50,600,   
K, ,-150,0,600, 
K, ,-150,50,600,
K, ,150,-50,600,
K, ,150,0,600,  
K, ,150,50,600, 
NUMMRG,NODE, , , ,LOW   
NUMMRG,KP, , , ,LOW 
NUMCMP,ALL  
LSTR,     123,     131  
LSTR,     2,       5
LSTR,     124,     132  
LSTR,     133,     139  
LSTR,     134,     140  
LSTR,     135,     141  
LSTR,     117,     125  
LSTR,     1,       8
LSTR,     118,     126  
LSTR,     122,     130  
LSTR,     4,       6
LSTR,     121,     129  
LSTR,     136,     142  
LSTR,     137,     143  
LSTR,     138,     144  
LSTR,     120,     128  
LSTR,     3,       7
LSTR,     119,     127  
!-------------------------------------------------- 
!   Meshing 
!-------------------------------------------------- 
!-------------------------  
! Attribute 
!-------------------------  
!---------------
! Volume
!---------------
CM,_Y,VOLU  
VSEL, , , ,       1 
CM,_Y1,VOLU 
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1 
VATT,       2,       1,   3,       0
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*  
CM,_Y,VOLU  
VSEL, , , ,       2 
CM,_Y1,VOLU 
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1 
VATT,       5,       1,   3,       0
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!---------------
! Longitudinal  
!---------------
FLST,5,8,4,ORDE,2   
FITEM,5,21  
FITEM,5,-28 
CM,_Y,LINE  
LSEL, , , ,P51X 
CM,_Y1,LINE 
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1 
LATT,4,2,1, , , ,   
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!---------------
! Transverse
!---------------
FLST,5,24,4,ORDE,2  
FITEM,5,29  
FITEM,5,-52 
CM,_Y,LINE  
LSEL, , , ,P51X 
CM,_Y1,LINE 
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1 
LATT,4,3,1, , , ,   
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!---------------
! Concrete Rod  
!---------------
FLST,5,18,4,ORDE,4  
FITEM,5,9   
FITEM,5,-12 
FITEM,5,53  
FITEM,5,-66 
CM,_Y,LINE  
LSEL, , , ,P51X 
CM,_Y1,LINE 
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1 
LATT,3,4,1, , , ,   
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!-------------------------  
!   Manual Siza Line
!-------------------------  
LESIZE,ALL,50, , , ,1, , ,1,
!-------------------------  
!   Mesh
!-------------------------  
!---------------
! Volume
!---------------
MSHAPE,0,3D 
MSHKEY,1
!*  
FLST,5,2,6,ORDE,2   
FITEM,5,1   
FITEM,5,-2  
CM,_Y,VOLU  
VSEL, , , ,P51X 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!---------------
! Reinforcement 
!---------------
FLST,2,8,4,ORDE,2   
FITEM,2,21  
FITEM,2,-28 
LMESH,P51X  
FLST,2,24,4,ORDE,2  
FITEM,2,29  
FITEM,2,-52 
LMESH,P51X  
!---------------
! Concrete Rod  
!---------------
!---------------
! Tension   
!---------------
FLST,2,9,4,ORDE,4   
FITEM,2,9   
FITEM,2,12  
FITEM,2,53  
FITEM,2,-59 
LMESH,P51X  
!---------------
! Compression   
!---------------
FLST,2,9,4,ORDE,4   
FITEM,2,10  
FITEM,2,-11 
FITEM,2,60  
FITEM,2,-66 
LMESH,P51X  
!-------------------------------------------------- 
!   Second Modeling & Meshing Blocks
!-------------------------------------------------- 
BLOCK,-150,150,-150,150,0,-100, 
CM,_Y,VOLU  
VSEL, , , ,       3 
CM,_Y1,VOLU 
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1 
VATT,       5,       1,   2,       0
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
LESIZE,ALL,50, , , ,1, , ,1,
CM,_Y,VOLU  
VSEL, , , ,       3 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
NUMMRG,ALL, , , ,LOW
NUMCMP,ALL  
FINISH  
!----------------------------------------------------------------------------------------------------   
!      Solution 
!----------------------------------------------------------------------------------------------------   
/SOL
!-------------------------------------------------- 
!   Sol'n Controls  
!-------------------------------------------------- 
NSUBST,20,40,10 
OUTRES,ERASE
OUTRES,ALL,ALL  
NEQIT,100   
RESCONTRL,DEFINE,ALL,ALL,1  
!-------------------------------------------------- 
!   Restraints  
!-------------------------------------------------- 
FLST,2,49,1,ORDE,2  
FITEM,2,736 
FITEM,2,-784
!*  
/GO 
D,P51X, , , , , ,UX,UY,UZ, , ,  
! /REPLOT,RESIZE  
! SAVE, Column,    ,F:\ 
! /COM,ANSYS RELEASE 11.0    UP20070125       12:12:02    04/04/2009              
! /VIEW,1,,-1 
! /ANG,1  
! /REP,FAST   
! /AUTO,1 
! /REP,FAST   
/SOLU   
FLST,2,7,1,ORDE,3   
FITEM,2,639 
FITEM,2,645 
FITEM,2,-650
!*  
/GO 
F,P51X,FZ,-80000
FLST,2,7,1,ORDE,4   
FITEM,2,644 
FITEM,2,652 
FITEM,2,682 
FITEM,2,-686
!*  
/GO 
F,P51X,FZ,-66666
FLST,2,7,1,ORDE,4   
FITEM,2,643 
FITEM,2,653 
FITEM,2,677 
FITEM,2,-681
!*  
/GO 
F,P51X,FZ,-53333
FLST,2,7,1,ORDE,4   
FITEM,2,642 
FITEM,2,654 
FITEM,2,672 
FITEM,2,-676
!*  
/GO 
F,P51X,FZ,-40000
FLST,2,7,1,ORDE,4   
FITEM,2,641 
FITEM,2,655 
FITEM,2,667 
FITEM,2,-671
!*  
/GO 
F,P51X,FZ,-26666
FLST,2,7,1,ORDE,4   
FITEM,2,640 
FITEM,2,656 
FITEM,2,662 
FITEM,2,-666
!*  
/GO 
F,P51X,FZ,-13333
FLST,2,7,1,ORDE,4   
FITEM,2,638 
FITEM,2,651 
FITEM,2,657 
FITEM,2,-661
!*  
/GO 
F,P51X,FZ,0