! ============================================================
! M03 - Reto bimaterial
! ============================================================
/CLEAR,START                        ! No cambies la geometria ni resuelvas el modelo.
/FILNAME,m03_challenge,1
/TITLE,M03 - Reto bimaterial
/UNITS,SI

case_id=1
beam_l=1.0
beam_h=0.10
beam_b=0.05
mesh_h=0.025
young_steel=210E9
nu_steel=0.30
young_aluminum=70E9
nu_aluminum=0.33

/PREP7
ET,1,SOLID185                       ! ET,1,SOLID185 declara el tipo de elemento que se usara al mallar.
KEYOPT,1,2,0                        ! KEYOPT,1,2,0 fija la formulacion de flexion del solido (sin tratamiento especial).
MP,EX,1,young_steel                 ! MP,EX asigna el modulo de Young al material 1 en el banco de propiedades.
MP,PRXY,1,nu_steel
! TODO 1: define EX y PRXY del material 2.

TYPE,1                              ! TYPE,1 activa el puntero de tipo para los elementos que se crearan a continuacion.
MAT,1                               ! MAT,1 activa el puntero de material coherente con el acero homogeneo.
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
*GET,n_mid_elems,ELEM,0,COUNT

/COM,M03 CHALLENGE READY - inspect element attributes, not active pointers     ! young_steel/young_aluminum=3
FINISH