El blog del Plástico

Os planteo el listado del primer ejemplo para que podais realizarlo en la version de ansys 12.1

/BATCH
/COM,ANSYS RELEASE 13.0    UP20101012       19:41:47    09/10/2012
/input,menust,tmp,»,,,,,,,,,,,,,,,,1
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
/PREP7
et, 1,beam3
r,1,400,13330,20
r,2,100,833,10
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2100000
MPDATA,PRXY,1,,0.3
K, ,,,,
K, ,100,,,
K, ,0,120,,
LSTR,       1,       2
LSTR,       2,       3
TYPE,   1
MAT,       1
REAL,       1
ESYS,       0
SECNUM,
TSHAP,LINE
!*
TYPE,   1
MAT,       1
REAL,       1
ESYS,       0
SECNUM,
TSHAP,LINE
!*
CM,_Y,LINE
LSEL, , , ,       2
CM,_Y1,LINE
CMSEL,S,_Y
!*
!*
CMSEL,S,_Y1
LATT,1,1,1, , , ,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,LINE
LSEL, , , ,       1
CM,_Y1,LINE
CMSEL,S,_Y
!*
!*
CMSEL,S,_Y1
LATT,1,2,1, , , ,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
FLST,5,1,4,ORDE,1
FITEM,5,2
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,1, , , , ,1
!*
FLST,5,1,4,ORDE,1
FITEM,5,1
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,1, , , , ,1
!*
FLST,2,2,4,ORDE,2
FITEM,2,1
FITEM,2,-2
LMESH,P51X
!*
ANTYPE,0
FLST,2,1,3,ORDE,1
FITEM,2,3
!*
/GO
DK,P51X, , , ,0,UX, , , , , ,
FLST,2,1,3,ORDE,1
FITEM,2,1
!*
/GO
DK,P51X, , , ,0,ALL, , , , , ,
FLST,2,1,1,ORDE,1
FITEM,2,2
!*
/GO
F,P51X,FY,-100
FINISH
/SOL
/STATUS,SOLU
SOLVE
FINISH
/POST1
PLDISP,2

Las imagenes que salen son: