/BATCH  
! /COM,ANSYS RELEASE 11.0    UP20070125       10:14:54    07/25/2007              
/input,menust,tmp,'',,,,,,,,,,,,,,,,1   
! /GRA,POWER  
! /GST,ON 
! /PLO,INFO,3 
! /GRO,CURL,ON
! /CPLANE,1   
! /REPLOT,RESIZE  
WPSTYLE,,,,,,,,0
/PREP7  
!*  
ET,1,SOLID65
!*  
!*  
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,,,,,,,   
BLOCK,0,400,0,400,0,150,
! /AUTO,1 
! /REP,FAST   
! /AUTO,1 
! /REP,FAST   
VDELE,       1, , ,1
BLOCK,0,4000,0,400,0,150,   
! /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 
!*  
/UI,MESH,OFF
lesize,11,,,2   
lesize,6,,,3
lesize,5,,,10   
vmesh,all   
FLST,2,1,1,ORDE,1   
FITEM,2,106 
!*  
/GO 
F,P51X,FY,-10000
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,4,ORDE,1   
FITEM,2,2   
!*  
/GO 
DL,P51X, ,UZ,   
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
FINISH  
/POST1  
! PLDISP,0
! PLDISP,0
!*  
! /EFACET,1   
! PLNSOL, S,X, 0,1.0  
! PLDISP,0
FINISH  
/PREP7  
R,1,2,0.2,0,0, , ,  
RMORE, , , , , , ,  
RMORE, ,
!*  
!*  
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,2,,210000 
MPDATA,PRXY,2,,0.3  
TYPE,   1   
MAT,       1
REAL,       1   
ESYS,       0   
SECNUM, 
!*  
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
FINISH  
/POST1  
! PLDISP,0
FINISH  
/PREP7  
R,1,2,0.6,0,0,0,0,  
RMORE,0,0,0,0,0,0,  
RMORE,0,
!*  
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
FINISH  
/POST1  
! PLDISP,0
PLCRACK,0,0 
PLCRACK,1,0 
PLCRACK,0,0 
!*  
! /VSCALE,1,1,0   
!   
!*  
! PLVECT,ROT, , , ,VECT,ELEM,ON,0 
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
!*  
! /EFACET,1   
! PLNSOL, U,SUM, 0,1.0
! /EFACET,1   
! PLNSOL, EPTO,X, 0,1.0   
! /EFACET,1   
! PLNSOL, EPTO,XY, 0,1.0  
! /EFACET,1   
! PLNSOL, S,YZ, 0,1.0 
! /EFACET,1   
! PLNSOL, S,XY, 0,1.0 
/CWD,'C:\Documents and Settings\Daniel Lahr\Desktop\Beton rebar'
! SAVE, file,db,
! SAVE, file,db,
! /COM,ANSYS RELEASE 11.0    UP20070125       17:30:21    07/25/2007              
/PREP7  
R,2, , , , , , ,
RMORE, , , , , , ,  
RMORE, ,
!*  
R,2,0,0,0,0,0,0,
RMORE,0,0,0,0,0,0,  
RMORE,0,
!*  
R,2,0,0,0,0,0,0,
RMORE,0,0,0,0,0,0,  
RMORE,0,
!*  
BLOCK,0,4000,400,500,-100,100,  
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
! /USER,  1   
! /FOC,   1,   2068.32928580    ,   199.979491153    ,   6.69122305168
! /REPLO  
! /VIEW,  1,  0.957996072065    ,  0.209029620064    ,  0.196341905470
! /ANG,   1,   17.1981993906  
! /REPLO  
! /VIEW,  1,  0.926051308424    ,  0.177833351637    ,  0.332872758290
! /ANG,   1,   14.9573628181  
! /REPLO  
! /VIEW,  1,  0.891381732979    ,  0.226941568727    ,  0.392346951682
! /ANG,   1,   14.1247140851  
! /REPLO  
VDELE,       2, , ,1
BLOCK,0,4000,400,500,-100,100,  
VDELE,       2, , ,1
BLOCK,0,4000,400,500,100,-100,  
VDELE,       2, , ,1
BLOCK,0,4000,400,500,-100,300,  
! /VIEW,  1,  0.960645162237    , -0.113705411861    , -0.253440232767
! /ANG,   1,   19.8651443437  
! /REPLO  
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
! /FOC,   1,   2233.12439362    ,   43.6654010053    ,  -1.78979461838
! /REPLO  
FLST,2,2,6,ORDE,2   
FITEM,2,1   
FITEM,2,-2  
VGLUE,P51X  
! /REPLO  
FINISH  
/RUN
FINISH  
/PREP7  
FLST,2,2,6,ORDE,2   
FITEM,2,1   
FITEM,2,3   
VCLEAR,P51X 
! VPLOT   
FLST,2,2,6,ORDE,2   
FITEM,2,1   
FITEM,2,3   
VGLUE,P51X  
! /FOC,   1,   2284.09212974    ,   10.3183951071    ,  -19.4105248388
! /REPLO  
! /FOC,   1,   2302.55054464    ,   31.1602737935    ,  -58.7108184299
! /REPLO  
! /FOC,   1,   2284.63053851    ,   56.1705282171    ,  -65.8010667202
! /REPLO  
! /FOC,   1,   2294.41820242    ,   58.2547160857    ,  -77.6729184975
! /REPLO  
! /FOC,   1,   2276.94711016    ,  -4.27091997337    ,   2.32380982547
! /REPLO  
TYPE,   1   
MAT,       1
REAL,       1   
ESYS,       0   
SECNUM, 
!*  
MSHAPE,0,3D 
MSHKEY,1
!*  
CM,_Y,VOLU  
VSEL, , , ,       1 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
! APLOT   
TYPE,   1   
MAT,       1
REAL,       2   
ESYS,       0   
SECNUM, 
!*  
CM,_Y,VOLU  
VSEL, , , ,       3 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
MSHAPE,1,3D 
MSHKEY,0
!*  
CM,_Y,VOLU  
VSEL, , , ,       3 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
VCLEAR,       3 
! /REPLOT 
! VPLOT   
FLST,2,3,5,ORDE,3   
FITEM,2,8   
FITEM,2,10  
FITEM,2,15  
AESIZE,P51X,20, 
MSHAPE,0,3D 
MSHKEY,1
!*  
CM,_Y,VOLU  
VSEL, , , ,       3 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
MSHAPE,1,3D 
MSHKEY,0
!*  
CM,_Y,VOLU  
VSEL, , , ,       3 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
! /REPLO  
! EPLOT   
! VPLOT   
! /ZOOM,1,SCRN,0.941721,-0.231151,1.141195,-0.481942  
lesize,14,,10   
lesize,15,,1
lesize,23,,5
! /PNUM,KP,0  
! /PNUM,LINE,1
! /PNUM,AREA,0
! /PNUM,VOLU,1
! /PNUM,NODE,0
! /PNUM,TABN,0
! /PNUM,SVAL,0
! /NUMBER,0   
!*  
! /PNUM,ELEM,0
! /REPLOT 
!*  
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /FOC,   1,   3425.66999104    ,   412.330080294    ,   152.647375275
! /REPLO  
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /FOC,   1,   2944.83629598    ,   664.071922141    ,   381.739228488
! /REPLO  
! /FOC,   1,   2592.44089988    ,   843.108538906    ,   555.098007826
! /REPLO  
! /FOC,   1,   2494.25216391    ,   893.093381150    ,   603.301901548
! /REPLO  
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /REPLO  
vmesh.2 
vmesh,2 
vmesh,3 
/CWD,'C:\Documents and Settings\Daniel Lahr\Desktop\Beton rebar'
! SAVE, file,db,
! /FOC,   1,   2460.19556285    ,   900.994206580    ,   629.457677178
! /REPLO  
allsel,all  
TYPE,   1   
MAT,       1
REAL,       2   
ESYS,       0   
SECNUM, 
!*  
CM,_Y,VOLU  
VSEL, , , ,       3 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
/UI,MESH,OFF
! SAVE, file,db,
FINISH  
! /EXIT,MODEL   
! /COM,ANSYS RELEASE 11.0    UP20070125       10:21:07    07/30/2007              
! VPLOT   
/SOLU   
FINISH  
/PREP7  
FLST,2,2,6,ORDE,2   
FITEM,2,1   
FITEM,2,3   
VDELE,P51X, , ,1
VCLEAR,       1 
! VPLOT   
VDELE,       1, , ,1
BLOCK,0,3000,0,100,0,300,   
BLOCK,0,3000,100,200,0,300, 
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,   
! LPLOT   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /ZOOM,1,RECT,1.18351,-0.787122 ,1.21373150354 ,-0.539352493492  
! /FOC,   1,   3342.62185430    ,   719.386580153    ,   630.714627263
! /REPLO  
! /FOC,   1,   3403.96343490    ,   681.934333120    ,   606.825293693
! /REPLO  
! /FOC,   1,   3448.60042604    ,   631.581867664    ,   612.540768005
! /REPLO  
! /FOC,   1,   3486.59818134    ,   580.813266130    ,   625.311614243
! /REPLO  
! /FOC,   1,   3480.86818024    ,   548.666754093    ,   663.188127375
! /REPLO  
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /FOC,   1,   3477.75687341    ,   563.301160455    ,   651.665027841
! /REPLO  
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /FOC,   1,   3478.02110177    ,   580.106380263    ,   634.595579675
! /REPLO  
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /REPLO  
! /FOC,   1,   3478.77091579    ,   580.466464360    ,   633.485681555
! /REPLO  
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /AUTO,1 
! /REP,FAST   
FINISH  
/SOL
FINISH  
/PREP7  
TYPE,   1   
MAT,       1
REAL,       1   
ESYS,       0   
SECNUM, 
!*  
lesize,25,,,10  
lesize,5,,,10   
lesize,10,,,3   
lesize,6,,,2
vmesh,1 
VCLEAR,       1 
! /REPLOT 
! VPLOT   
! LPLOT   
vmesh,1 
FINISH  
/SOL
FINISH  
/PREP7  
VCLEAR,       1 
MSHAPE,0,3D 
MSHKEY,1
!*  
CM,_Y,VOLU  
VSEL, , , ,       1 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
! VPLOT   
lesize,14,,,10  
lesize,23,,,3   
lesize,18,,,2   
TYPE,   1   
MAT,       1
REAL,       2   
ESYS,       0   
SECNUM, 
!*  
CM,_Y,VOLU  
VSEL, , , ,       2 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
NUMMRG,NODE, , , ,LOW   
NUMMRG,KP, , , ,LOW 
NUMMRG,KP, , , ,LOW 
/CWD,'C:\Documents and Settings\Daniel Lahr\Desktop\Copy of Beton rebar'
! SAVE, file,db,
! VPLOT   
FLST,2,1,5,ORDE,1   
FITEM,2,12  
/GO 
!*  
SFA,P51X,1,PRES,100 
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
FINISH  
/POST1  
FINISH  
/PREP7  
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
FLST,2,2,4,ORDE,2   
FITEM,2,2   
FITEM,2,14  
!*  
/GO 
DL,P51X, ,UZ,   
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
FINISH  
/POST1  
FINISH  
/PREP7  
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
! NPLOT   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /USER,  1   
! /REPLO  
! NLIST,ALL, , , ,X,Y,Z   
! /PNUM,KP,0  
! /PNUM,LINE,1
! /PNUM,AREA,0
! /PNUM,VOLU,1
! /PNUM,NODE,1
! /PNUM,TABN,0
! /PNUM,SVAL,0
! /NUMBER,0   
!*  
! /PNUM,ELEM,0
! /REPLOT 
!*  
! SAVE, file,db,
NUMMRG,NODE, , , ,LOW   
FINI
! /EXIT 
! /COM,ANSYS RELEASE 11.0    UP20070125       11:02:54    07/30/2007              
FINISH  
/PREP7  
FLST,2,2,6,ORDE,2   
FITEM,2,1   
FITEM,2,-2  
VCLEAR,P51X 
! VPLOT   
! VPLOT   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
FLST,2,2,6,ORDE,2   
FITEM,2,1   
FITEM,2,-2  
VGLUE,P51X  
TYPE,   1   
MAT,       1
REAL,       2   
ESYS,       0   
SECNUM, 
!*  
CM,_Y,VOLU  
VSEL, , , ,       2 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
TYPE,   1   
MAT,       1
REAL,       1   
ESYS,       0   
SECNUM, 
!*  
CM,_Y,VOLU  
VSEL, , , ,       1 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
FINISH  
/POST1  
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
FINISH  
/PREP7  
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
FLST,2,11,5,ORDE,4  
FITEM,2,1   
FITEM,2,-8  
FITEM,2,10  
FITEM,2,-12 
SFADELE,P51X,1,PRES 
FLST,2,1,5,ORDE,1   
FITEM,2,10  
/GO 
!*  
SFA,P51X,1,PRES,
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
FINISH  
/POST1  
! PLDISP,0
!*  
! /EFACET,1   
! PLNSOL, S,X, 0,1.0  
! FLIST, ALL  
! NPLOT   
! VPLOT   
!*  
! /PSF,DEFA, ,1,0,1   
! /PBF,DEFA, ,1   
! /PIC,DEFA, ,1   
! /PSYMB,CS,0 
! /PSYMB,NDIR,0   
! /PSYMB,ESYS,0   
! /PSYMB,LDIV,0   
! /PSYMB,LDIR,0   
! /PSYMB,ADIR,0   
! /PSYMB,ECON,0   
! /PSYMB,XNODE,0  
! /PSYMB,DOT,1
! /PSYMB,PCONV,   
! /PSYMB,LAYR,0   
! /PSYMB,FBCS,0   
!*  
! /PBC,ALL,,1 
! /PBC,NFOR,,0
! /PBC,NMOM,,0
! /PBC,RFOR,,0
! /PBC,RMOM,,0
! /PBC,PATH,,0
! /REP
!*  
FINISH  
/PREP7  
FLST,2,1,5,ORDE,1   
FITEM,2,10  
/GO 
!*  
SFA,P51X,1,PRES,10  
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
FINISH  
/PREP7  
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
FLST,2,2,6,ORDE,2   
FITEM,2,1   
FITEM,2,-2  
VCLEAR,P51X 
! VPLOT   
FLST,2,2,6,ORDE,2   
FITEM,2,1   
FITEM,2,-2  
VDELE,P51X, , ,1
/CWD,'C:\Documents and Settings\Daniel Lahr\Desktop\Copy of Copy of Beton rebar'
! SAVE, file,db,
BLOCK,0,3000,0,100,0,300,   
BLOCK,0,3000,100,200,0,300, 
FLST,2,2,6,ORDE,2   
FITEM,2,1   
FITEM,2,-2  
VGLUE,P51X  
! SAVE, file,db,
esize,5,,,10
! LPLOT   
esize,5,,,10
lesize,5,,,10   
lesize,10,,,3   
lesize,6,,,2
TYPE,   1   
MAT,       1
REAL,       1   
ESYS,       0   
SECNUM, 
!*  
CM,_Y,VOLU  
VSEL, , , ,       1 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
lesize,27,,,2   
lesize,23,,,3   
lesize,19,,,10  
TYPE,   1   
MAT,       1
REAL,       2   
ESYS,       0   
SECNUM, 
!*  
CM,_Y,VOLU  
VSEL, , , ,       3 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
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,2,4,ORDE,2   
FITEM,2,5   
FITEM,2,19  
!*  
/GO 
DL,P51X, ,UZ,   
! SAVE, file,db,
FLST,2,1,5,ORDE,1   
FITEM,2,10  
/GO 
!*  
SFA,P51X,1,PRES,10  
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
! SAVE, file,db,
/CWD,'C:\Documents and Settings\Daniel Lahr\Desktop\Copy of Copy of Beton rebar'
! SAVE, file,db,
FINISH  
! /EXIT,SOLU
! /COM,ANSYS RELEASE 11.0    UP20070125       10:55:59    07/31/2007              
! NPLOT   
/PREP7  
NUMMRG,NODE,1.0E-4, , ,LOW  
NUMCMP,NODE 
! NPLOT   
! EPLOT   
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
! /FOC,   1,   1466.94002998    ,   26.4184618583    ,   256.641508167
! /REPLO  
! /VIEW,  1,  0.592139759158    ,  0.474606886299    ,  0.651244047268
! /ANG,   1,  -1.41801861334  
! /REPLO  
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
FINISH  
/PREP7  
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
! NPLOT   
ngen,60,600 
FLST,2,11,5,ORDE,5  
FITEM,2,1   
FITEM,2,-6  
FITEM,2,10  
FITEM,2,13  
FITEM,2,-16 
SFADELE,P51X,1,PRES 
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
! APLOT   
FLST,2,1,5,ORDE,1   
FITEM,2,10  
/GO 
!*  
SFA,P51X,1,PRES,3   
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
FINISH  
/PREP7  
FLST,3,1,8  
FITEM,3,-34.85,-1100.7,0
N, ,P51X
ngen,221,800
! /FOC,   1,   1468.87365293    ,   26.4184618583    ,   254.707885217
! /REPLO  
ndele,221   
FLST,3,1,8  
FITEM,3,-136.15,-938.85,0   
K, ,P51X
kgen,,10,20 
kgen,10,20  
kgen,10,9   
kdele,10
NUMMRG,nodes,,  
! VPLOT   
FINISH  
/SOL
! /STATUS,SOLU
SOLVE   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /FOC,   1,   1454.61017030    ,   48.3416022407    ,   247.048227461
! /REPLO  
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /DIST,1,1.08222638492,1 
! /REP,FAST   
! /FOC,   1,   1509.62231916    ,   47.1334288051    ,   193.244252032
! /REPLO  
*GET, Vor_merge, NODE, 0, count,
*GET, Nach_merge, NODE, 0, count,   
*SET,NACH_MERGE , 220   
! /FOC,   1,   1514.77874200    ,   32.6353475776    ,   202.585910421
! /REPLO  
FINISH  
/PREP7  
NUMMRG,NODE,0.1, , ,LOW 
NUMMRG,NODE,0.00000000000000001, , ,LOW 
! /REPLO  
! NPLOT   
! /FOC,   1,   1517.47544649    ,   31.4271741420    ,   201.097379364
! /REPLO  
! /FOC,   1,   1521.70405351    ,   22.9699600926    ,   205.325986389
! /REPLO  
! /VIEW,  1,  0.591082383650    ,  0.446275239307    ,  0.671907751496
! /ANG,   1,  -2.00759384905  
! /REPLO  
! /VIEW,  1,  0.625808245333    ,  0.285327635471    ,  0.725914719860
! /ANG,   1,  -2.21672133899  
! /REPLO  
! /VIEW,1,1,1,1   
! /ANG,1  
! /REP,FAST   
! /REPLOT,RESIZE  
! VPLOT   
! EPLOT   
CM,_TARGET,AREA 
!*  
CM,_CONTACT,AREA
!*  
CM,_CONTACT,AREA
!*  
CM,_CONTACT,AREA
!*  
CM,_CONTACT,AREA
!*  
CM,_TARGET,AREA 
!*  
CM,_CONTACT,AREA
!*  
CM,_CONTACT,AREA
!*  
! /MREP,EPLOT 
! /REPLO  
!*  
!*  
! APLOT   
! /PNUM,KP,0  
! /PNUM,LINE,1
! /PNUM,AREA,1
! /PNUM,VOLU,1
! /PNUM,NODE,1
! /PNUM,TABN,0
! /PNUM,SVAL,0
! /NUMBER,0   
!*  
! /PNUM,ELEM,0
! /REPLOT 
!*  
! /FOC,   1,   1521.86186463    ,   20.5536518534    ,   207.584483513
! /REPLO  
! /FOC,   1,   1627.21538877    ,   25.3863481465    ,   97.3982630819
! /REPLO  
! /FOC,   1,   1600.46207317    ,   112.374881423    ,   37.1630454093
! /REPLO  
! /FOC,   1,   1542.63158229    ,   225.943244311    ,  -18.5748265953
! /REPLO  
! /REPLO  
! /REPLO  
! /MREP,EPLOT 
! LGWRITE,'beton','','D:\TULAUT~1\10D5D6~1.SEM\DA\',COMMENT