! ============================================================
! M00 - Primera simulacion reproducible
! Proyecto conductor: viga maciza en voladizo
! Unidades coherentes: m, kg, s, N, Pa
! ============================================================

/CLEAR,START                        ! /CLEAR debe preceder a los metadatos de la nueva base de datos.
/FILNAME,m00_cantilever,1           ! /FILNAME fija el prefijo de los archivos (.rst, etc.).
/OUTPUT,m00_session,out              ! Nombre distinto al job: m00_cantilever.out queda reservado por /FILNAME.
/TITLE,M00 - Viga en voladizo
/UNITS,SI                           ! /UNITS,SI impone un sistema coherente: m, kg, s, N, Pa.

/PREP7                              ! --- PREP7: construir el modelo ---

ET,1,SOLID185
MP,EX,1,210E9
MP,PRXY,1,0.30
TYPE,1
MAT,1

BLOCK,0,1.0,0,0.10,0,0.05           ! Geometria global: L=1.0 m, H=0.10 m, B=0.05 m
ESIZE,0.025
VMESH,ALL

NSEL,S,LOC,X,0                      ! Empotramiento en x=0
D,ALL,ALL,0
ALLSEL,ALL

NSEL,S,LOC,X,1.0                    ! Fuerza total de -1000 N, repartida entre los nodos del extremo x=1 m
*GET,n_tip,NODE,0,COUNT
F,ALL,FY,-1000/n_tip
ALLSEL,ALL

FINISH

/SOLU                               ! --- SOLU: resolver ---
ANTYPE,STATIC
SOLVE
FINISH

/POST1                              ! --- POST1: comprobar resultados ---
SET,LAST
PLNSOL,U,SUM
PLNSOL,S,EQV
FINISH

/OUTPUT                               ! Sin argumentos: la salida vuelve a la Output Window en tiempo real.

! Resultado orientativo de teoria de vigas:
! |uy_tip| = P*L^3/(3*E*I) = 3.81E-4 m, con I=B*H^3/12.
! El resultado 3D no sera identico; M04 y M07 explican convergencia y validacion.