! ============================================================
! M03 - Caza de errores
! Cinco defectos logicos. El archivo ejecuta, pero el modelo
! no representa lo que afirma representar.
! ============================================================
/CLEAR,START
/FILNAME,m03_bug_hunt,1
/UNITS,SI
/PREP7

beam_l=1.0
beam_h=0.10
beam_b=0.05
mesh_h=0.025

ET,1,SOLID185
KEYOPT,1,2,0

! ERROR 1: en SI, 210000 no son 210 GPa.
MP,EX,1,210000
MP,PRXY,1,0.30
MP,EX,2,70E9
MP,PRXY,2,0.33

! ERROR 2: definir MAT 1 no lo activa; aqui queda activo MAT 2.
TYPE,1
MAT,2

! ERROR 3: SECNUM no define una seccion y no es necesario para SOLID185.
SECNUM,1

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

ESEL,S,CENT,X,0.4*beam_l,0.6*beam_l
CM,mid_elems,ELEM

! ERROR 4: ALLSEL destruye la seleccion antes de modificarla.
ALLSEL,ALL
EMODIF,ALL,MAT,2

! ERROR 5: MAT,1 cambia el puntero activo, no los elementos ya creados.
MAT,1

*GET,n_elements,ELEM,0,COUNT
ESEL,S,MAT,,1
*GET,n_mat1,ELEM,0,COUNT
ALLSEL,ALL
ESEL,S,MAT,,2
*GET,n_mat2,ELEM,0,COUNT
ALLSEL,ALL

/COM,DIAGNOSE: units, active attributes, sections, selection scope, assignment
FINISH