! ============================================================
! M02 - Punto de partida
! Ejecuta este archivo antes de completar las selecciones.
! ============================================================

/CLEAR,START
/FILNAME,m02_start,1
/TITLE,M02 - Punto de partida
/UNITS,SI

beam_l=1.0
beam_h=0.10
beam_b=0.05
young=210E9
nu=0.30
mesh_h=0.025
select_tol=MIN(beam_h,beam_b)*1E-5

/PREP7
ET,1,SOLID185
MP,EX,1,young
MP,PRXY,1,nu
TYPE,1
MAT,1

BLOCK,0,beam_l,0,beam_h,0,beam_b
ESIZE,mesh_h
VMESH,ALL

ALLSEL,ALL
*GET,n_nodes,NODE,0,COUNT
*GET,n_elements,ELEM,0,COUNT

! TODO 1: activa select_tol con SELTOL.
! TODO 2: crea fixed_nodes sin utilizar numeros de nodo.
! TODO 3: define el sistema local 11 en la punta.
! TODO 4: crea tip_nodes y restaura inmediatamente CSYS,0.
! TODO 5: crea top_nodes, mid_elems y tip_top_nodes.
! TODO 6: comprueba que fixed_nodes y tip_nodes no se solapan.
! TODO 7: recupera el modelo completo y restaura SELTOL.

/COM,M02 START READY - complete the TODO blocks
FINISH