/FILNAM,THERMAL STRESS
/title,Stress Termico
/prep7

et,1,solid98				! Elemento No 1 (3D) Polisilicio
mp,ex,1,160E3				! Modulo de Young (160GPa)
mp,prxy,1,0.22				! Razon de Poisson
mp,alpx,1,2.9E-6				! Coeficiente Expansion Termica (2.9E-6 1/°C)
mp,kxx,1,150E6				! Conductividad Termica (150W/mK)
mp,dens,1,2330E-18			! Densidad (2330 Kg/m3)
mp,c,1,753E12				! Calor Especifico (753 J/Kg.K)
mptemp,1,296,323,373,423,473,573		! Tabla de Resistividad en Funcion de la Temperatura
mptemp,7,673,773,873,973
mpdata,rsvx,1,1,2.04E-11,2.1E-11,2.19E-11,2.28E-11,2.38E-11,2.6E-11
mpdata,rsvx,1,7,2.81E-11,3.09E-11,3.37E-11,3.66E-11

et,2,solid98				! Eemento No 2 (3D) Aluminio
mp,ex,2,70E3				! Modulo de Young (70GPa)
mp,prxy,2,0.33				! Razon de Poisson
mp,kxx,2,237E6				! Conductividad Termica (237W/mK)
mp,dens,2,2700E-18			! Densidad (2700 Kg/m3)
mp,c,2,898.7E12				! Calor Especifico (898.7 J/Kg.K)
mp,rsvx,2,2.67E-14				! Resistividad Electrica (2.67E-8 Ohm.m)

block,0,24,0,24,0,2 				! Pad1
block,24,64,22,24,0,2   			! Flexure
block,64,204,0,24,0,2   			! Cold arm
block,202,204,24,30,0,2 			! Union
block,24,202,28,30,0,2  			! Hot Arm
block,0,24,28,52,0,2			! Pad2
vadd,1,2,3,4,5,6            			! Unificacion de Volumenes
numcmp,volu				! Re-enumeracion de Volumenes

block,11,13,11,13,0,2       			! Abrir huecos para insertar pads
numcmp,volu 
vsbv,1,2
numcmp,volu 
block,11,13,39,41,0,2   
numcmp,volu 
vsbv,1,2
numcmp,volu

block,11,13,11,13,0,2       			! Insercion pads  
block,11,13,39,41,0,2   
block,6,18,6,18,2,4
block,6,18,34,46,2,4
numcmp,volu
vadd,2,4
numcmp,volu
vadd,2,3
numcmp,volu 
vsel,all
vglue,all 
numcmp,volu

vsel,s,,,1,2				! Asignacion de los Materiales a los Volumenes
vatt,2,0,2
vsel,s,,,3
vatt,1,0,1
alls

vsel,all					! Enmallado
smrt,8					! Activa la opcion Smart Size
vmesh,all

asel,s,,,11,19,8				! Condiciones de Frontera Estructurales
asel,a,,,66,67					
da,all,ux,0				
da,all,uy,0
da,all,uz,0
alls

asel,s,,,59				! Temperatura en los Contactos
asel,a,,,36
da,all,temp,296
alls

asel,s,,,15,18,3				! Coeficiente de Conveccion
asel,a,,,9,22,13
asel,a,,,38,47
asel,a,,,9,22,13
asel,a,,,27
asel,a,,,52,53
asel,a,,,56,57
sfa,all,1,conv,60,296
alls


da,59,volt,5				! Condiciones de Frontera Electricas					
da,36,volt,0

/solu
solve