!Cuerpo rígido línea-línea acoplado
finish
/CLEAR, START
/COM, ANSYS
/input,start120,ans,'C:\Program Files\Ansys Inc\v120\ANSYS\apdl\',,,,,,,,,,,,,,,,,1
finalizar
/PREP7
HH=10
LL=2
et, 1, 95! Defina unidad sólida solid95
et, 2, 93! Definir unidad de entidad shell93
block, 0, 1, 0, 1, 0, HH! Construir modelo de entidad
wpoff, 0, 0, HH
RECTNG, 1, LL 1, 0, 1,
NUMMRG, KP, , , , LOW
mp, dens, 1, 2000
mp, ex, 1, 10e9
mp, prxy, 1, 0.2
R, 1, 0.4, , , , , ,
!*
!Cuerpo dividido
VATT, 1, , 1, 0! Utilice la unidad 45 para especificar la entidad
MSHAPE, 0, 3D
p>
MSHKEY, 1
esize,, 5
vmesh, all
!Superficie dividida
asel, s, loc, X, 1, LL 1! Seleccione la superficie superior de la entidad
AATT, 1, , 2, 0,! Especifique la superficie superior de la entidad para usar la unidad No. 154
MSHAPE, 0, 2D
p>MSHKEY, 1
esize,, 5
malla, ¡todo!
allsel, all
!!Añadir carga
FINISH
/SOL
ACEL, 0, 0, 1000,
!ASEL, S , , , 7
!SFA, TODOS, 1, PRES, -100000
!
!
!allsel, todos
!eplot
!SFTRAN
!/PSF, PRES, NORM, 2, 0, 1
!Acoplamiento
LSEL, S, LOC, X, LL 1-0.01, LL 1 0.01
LSEL, A, LOC, X, 1-0.01, 1 0.01
LSEL, R , LOC, Z, 10
LPLOT
NSLL, S, 1
NPLOT
CP, 1, UZ, TODOS
p>!ASEL, S, , , 16
!ASEL, A, , , 39
!NSLA, S, 1
!NPLOT
!CP, , TODOS, todos
!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!Calcular
FINALIZAR
/SOL
ANTYPE, 0
NSEL, S, LOC, Z, 0
NPLOT
D, TODOS, , , , , , TODOS, , , , ,
LSEL, S, LOC, X, LL 1-0.01, LL 1 0.01
LPLOT
NSLL, S, 1
NPLOT
D, todos, , , , , ,UX,UY,ROTX,ROTY,ROTZ,
TODO SEL, TODO
RESOLVER
TERMINAR
!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!