*HEADING
Weld of Metal sheet
**
**
*include, input=all.msh
**assign elements to an element set
**
**
*SOLID SECTION, ELSET=C3D8, MATERIAL=X6CrNiTi1810
          1.,
**
**
*MATERIAL, NAME=X6CrNiTi1810
** Propiedades del material (acero inoxidable)
*CONDUCTIVITY
** Conductividad térmica (W/m/K)
   14.E0,  0.25
    0.25E0, 400.
   32.4E0, 1360.
   32.4E0, 2500.
*ELASTIC
** Propiedades elásticas (MPa)
  200000.0, 0.3
*EXPANSION
** Coeficiente de expansión térmica
  1.7E-5
*SPECIFIC HEAT
** Calor específico (mJ/ton K)
  521.E6, 0.
  548.E6, 200.
  575.E6, 400.
  605.E6, 600.
  640.E6, 800.
  665.E6, 1000.
  680.E6, 1200.
  695.E6, 1350.
*DENSITY
** Densidad (ton/mm³)
   7.912E-9,  0.25
   7.140E-9, 1500.
**
**
**
*INITIAL CONDITIONS, TYPE=TEMPERATURE
 Nall, 20.
*INCLUDE, INPUT=boundary_conditions.bnd
**
*PHYSICAL CONSTANTS, ABSOLUTE ZERO=-273.15, STEFAN BOLTZMANN=5.669E-11
**physical constants, stefan boltzmann=5.669e-11, absolute zero=-273.15
**stefan boltzmann=5.669e-8 W/mÂ²Kâ´
**
************************************
**      STEP 1:                 **
************************************
*RESTART,WRITE,FREQUENCY=1
*STEP, INC=500
*HEAT TRANSFER, DIRECT
0.01, 0.02
*DFLUX, OP=NEW
** Incluir condiciones de frontera
*INCLUDE, INPUT=boundary_conditions.bnd
*OUTPUT, FREQUENCY=1
*NODE PRINT, NSET=Nall
NT
*NODE FILE
NT
**
*EL FILE
HFL
*NODE FILE, FREQUENCY=1
NT
**
*END STEP
************************************
**      STEP 2:
************************************
*RESTART,WRITE,FREQUENCY=1
*STEP, INC=10000
*HEAT TRANSFER
0.02, 0.98, , 0.03
** Film based on AIR_1
*FILM, OP=NEW
** Film based on air
*include, input=film1.flm
*DFLUX, OP=NEW
 C3D8, BFNU, 1
** Incluir condiciones de frontera
*INCLUDE, INPUT=boundary_conditions.bnd
*NODE PRINT, NSET=Nall
NT
*NODE FILE
NT
**
*EL FILE
HFL
*NODE FILE, FREQUENCY=1
NT
**
*END STEP
**
************************************
**       STEP 3: Último paso térmico
************************************
*STEP, INC=50000
*HEAT TRANSFER
0.025, 350, ,15
*DFLUX, OP=NEW
*FILM, OP=NEW
** Film based on air
*include, input=film2.flm
*RADIATE, OP=NEW
** Radiate based on air
*include, input=radiation1.rad
*RESTART, WRITE, FREQUENCY=1
** Incluir condiciones de frontera
*INCLUDE, INPUT=boundary_conditions.bnd
*OUTPUT, FREQUENCY=1
*NODE PRINT, NSET=Nall
NT
*NODE FILE
NT
**
*EL FILE
HFL
*NODE FILE, FREQUENCY=1
NT
**
*END STEP
************************************
**      STEP 4: Análisis estructural
************************************
*STEP, NLGEOM, INC=5000
*STATIC
*CONTROLS, TIME INCREMENTATION
6, 16, 9, 32
0.25, 0.5, 0.75, 1.5
*NODE FILE, FREQUENCY=1
NT, RFL, U
*EL FILE, FREQUENCY=1
*END STEP