/FILNAM,PIPE INTERSECTION
/title,Pipe Intersection
/prep7

et,1,solid90				! Elemento No 1 (3D) 
mp,dens,1,2330E-18			! Densidad (Kg/m3)
mptemp,1,21,93,149,204,260			! Tabla de Conductividad Termica en Funcion de la Temperatura (J/s.m.°C)
mpdata,kxx,1,1,0.2505,0.267,0.2805,0.294,0.3069
mptemp,1,21,93,149,204,260			! Tabla de Calor Especifico en Funcion de la Temperatura (J/kg.°C)
mpdata,c,1,1,6.898,7.143,7.265,7.448,7.631

mptemp,1,21,93,149,204,260			! Tabla de Coeficiente de Conveccion en Funcion de la Temperatura (W/m^2.°C)
mpdata,hf,2,1,41.918,39.852,34.637,27.06,21.746

cylind,1.5,1.3,-2,2,0,90
cylind,1.5,1.3,-2,2,90,180
cylind,1.5,1.3,-2,2,180,270
cylind,1.5,1.3,-2,2,270,360

wprota,0,-90,0

cylind,0.5,0.4,0,2,0,90
cylind,0.5,0.4,0,2,90,180
cylind,0.5,0.4,0,2,180,270
cylind,0.5,0.4,0,2,270,360

wprota,0,90,0

vsel,all
vovlap,all

vsel,all
vatt,1,0,1
numcmp,volu

vdele,1,2
vdele,5,10,5
vdele,7,8

vsel,all
vadd,all

smrtsize,1
mshkey,0
mshape,1,3d
vsel,all
vmesh,all

finish
/solu

antype,0
toffst,0
tunif,232

csys,1				! Cambio a Coordenadas Cilindricas
nsel,s,loc,x,1.3
sf,all,conv,4.92,232
nsel,s,loc,z,2
d,all,,232,,,,all,temp			! Restricciones sobre Todos los DOF y Adicional de Temperatura

wprota,0,-90
cswpla,11,1,1,1			! Define un Sistema de Coordenadas en el Origen de WP
nsel,s,loc,x,0.4
sf,all,conv,-2,38
alls

csys,0
nsubst,50			! Numero de Sub-Pasos del Analisis
autots,on				! Tamaņo de Tiempo Automatico

solve