3d_contact_region

<< Click to Display Table of Contents >>

Navigation:  Sample Problems > Usage > Contact_Boundaries >

3d_contact_region

Previous pageReturn to chapter overviewNext page

{ 3D_CONTACT_REGION.PDE

 

 This problem shows the use of a contact resistance boundary between layers.

 The resistance model is applied only to one region of the boundary surface.

 (This is a modification of problem 3D_CONTACT.PDE).

 

}  

   

title 'steady-state 3D heat conduction with Contact Resistance'  

 

select  

   regrid=off { use fixed grid }  

 

coordinates  

   cartesian3  

 

variables  

   Tp  

 

definitions  

   long = 1  

   wide = 1  

   K                           { thermal conductivity -- values supplied later }  

   Q = 10*exp(-x^2-y^2-z^2)   { Thermal source }  

 

initial values  

   Tp = 0.  

 

equations  

   Tp : div(k*grad(Tp)) + Q = 0 { the heat equation }  

 

extrusion z = -long,0,long     { divide Z into two layers }  

 

boundaries  

  surface 1 value(Tp)=0       { fix bottom surface temp }  

  surface 3 value(Tp)=0       { fix top surface temp }  

 

  Region 1           { define full domain boundary in base plane }  

      layer 1 k=1             { bottom right brick }  

      layer 2 k=0.1           { top right brick }  

      start(-wide,-wide)  

        value(Tp) = 0         { fix all side temps }  

        line to (wide,-wide)   { walk outer boundary in base plane }  

          to (wide,wide)  

          to (-wide,wide)  

          to close  

 

  Region 2           { overlay a second region in left half }  

      { CONTACT RESISTANCE IN REGION 2 ONLY:  }  

      surface 2 contact(tp)=jump(tp)/10      

      layer 1 k=0.2           { bottom left brick }  

      layer 2 k=0.4           { top left brick }  

      start(-wide,-wide)  

        line to (0,-wide)             { walk left half boundary in base plane }  

          to (0,wide)  

          to (-wide,wide)  

          to close  

 

monitors  

  contour(Tp) on z=0.01 as "XY Temp - Upper"  

  contour(Tp) on z=-0.01 as "XY Temp - Lower"  

  contour(Tp) on x=0 as "YZ Temp"  

  contour(Tp) on y=0 as "ZX Temp"  

  elevation(Tp) from (-wide/2,0,-long) to (wide/2,0,long) as "Left Side Temp"  

 

plots  

  contour(Tp) on z=0.01 as "XY Temp - Upper"  

  contour(Tp) on z=-0.01 as "XY Temp - Lower"  

  contour(Tp) on x=0 as "YZ Temp"  

  contour(Tp) on y=0 as "ZX Temp"  

  elevation(Tp) from (-wide/2,0,-long) to (-wide/2,0,long) as "Left Side Temp"  

  surface(Tp) on y=0 as "ZX Temp" Viewpoint(-3.5,8.2,31)  

 

end