/BATCH  
! /COM,ANSYS RELEASE 11.0    UP20070125       11:09:53    08/01/2007              
/input,menust,tmp,'',,,,,,,,,,,,,,,,1   
! /GRA,POWER  
! /GST,ON 
! /PLO,INFO,3 
! /GRO,CURL,ON
! /CPLANE,1   
! /REPLOT,RESIZE  
WPSTYLE,,,,,,,,0
! /REPLOT,RESIZE  
/PREP7  
!*  
ET,1,SOLID65
!*  
ET,2,LINK8  
!*  
!*  
ETDEL,2 
!*  
R,1, , , , , , ,
RMORE, , , , , , ,  
RMORE, ,
!*  
R,2,2,.2,0,0, , ,   
RMORE, , , , , , ,  
RMORE, ,
!*  
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,29000  
MPDATA,PRXY,1,,0
TB,CONC,1,1,9,  
TBTEMP,0
TBDATA,,1,1,3,20,,  
TBDATA,,,,,,,   
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,2,,210000 
MPDATA,PRXY,2,,0.3  
BLOCK,0,3000,0,100,0,300,   
BLOCK,0,3000,100,200,0,300, 
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
! LPLOT   
! /PNUM,KP,0  
! /PNUM,LINE,1
! /PNUM,AREA,0
! /PNUM,VOLU,0
! /PNUM,NODE,0
! /PNUM,TABN,0
! /PNUM,SVAL,0
! /NUMBER,0   
!*  
! /PNUM,ELEM,0
! /REPLOT 
!*  
TYPE,   1   
MAT,       1
REAL,       2   
ESYS,       0   
SECNUM, 
!*  
lesize,6,,,2
lesize,10,,,3   
lesize,5,,,10   
vmesh,1 
! LPLOT   
TYPE,   1   
MAT,       1
REAL,       1   
ESYS,       0   
SECNUM, 
!*  
lesize,18,,,2   
lesize,23,,,3   
lesize,19,,,10  
vmesh,2 
FLST,2,2,6,ORDE,2   
FITEM,2,1   
FITEM,2,-2  
VCLEAR,P51X 
! LPLOT   
NUMMRG,KP, , , ,LOW 
vmesh,2 
TYPE,   1   
MAT,       1
REAL,       2   
ESYS,       0   
SECNUM, 
!*  
vmesh,1 
NUMMRG,NODE, , , ,LOW   
! SAVE, file,db,
FLST,2,2,4,ORDE,2   
FITEM,2,9   
FITEM,2,-10 
!*  
/GO 
DL,P51X, ,UY,   
FLST,2,1,4,ORDE,1   
FITEM,2,10  
!*  
/GO 
DL,P51X, ,UX,   
FLST,2,1,1,ORDE,1   
FITEM,2,9   
!*  
/GO 
D,P51X, , , , , ,UZ, , , , ,
FLST,2,1,5,ORDE,1   
FITEM,2,10  
/GO 
!*  
SFA,P51X,1,PRES,5   
! SAVE, file,db,
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
FINISH  
/POST1  
! SAVE, file,db,
! LGWRITE,'beton','txt','C:\DOCUME~1\DANIEL~1\Desktop\TESTBE~1\',COMMENT