3d_toggle

<< Click to Display Table of Contents >>

Navigation:  Sample Problems > Usage > 3D_domains >

3d_toggle

Previous pageReturn to chapter overviewNext page

{ 3D_TOGGLE.PDE  

 

 This problem shows the use of curved extrusion surfaces and VOID layers

 to construct a transverse cylindrical hole in an upright cylinder.

 

 The domain consists of three layers:

   1) the cylinder below the hole

   2) the hole

   3) the cylinder above the hole.

 Layer 2 has zero thickness outside the

 hole region, and is VOID (excluded

 from the mesh) inside the hole.

 

 Click "Controls->Domain Review" to watch

 the domain construction process.

 

}  

 

title '3D CYLINDRICAL VOID LAYER TEST'  

 

coordinates  

   cartesian3  

 

select  

   errlim = 0.005  

 

variables  

   u  

 

definitions  

   k = 0.1  

   h = 1  

   L = 1  

   Ro = 1         { the cylinder radius }  

   Ri = Ro/2       { the hole radius }  

  { the base-plane Y-coordinate of the intersection of the hole projection with the  

   cylinder projection: }  

   Yc = sqrt(Ro^2-Ri^2)    

   Z4 = L         { Z-height of the cylinder top }  

  { the Z-shape function for the hole top (zero beyond +-Ri): }  

   Z3 = CYLINDER ((0,1,0), (0,-1,0), Ri)    

  { the Z-shape function for the hole bottom (zero beyond +-Ri): }  

   Z2 = -Z3                      

   Z1 = -L         { Z-height of the cylinder bottom }  

 

equations  

   U: div(K*grad(u)) + h = 0       { a heat equation for demonstration purposes }  

 

extrusion z=Z1,Z2,Z3,Z4     { short-form specification of the extrusion surfaces }  

 

boundaries  

 

  Region 1       { this region is the projection of the outer cylinder shape }  

    start(Ro,0)  

    value(u)=0               { Force U=0 on perimeter }  

    arc(center=0,0) angle=360 to close  

 

  limited region 2       { this region is the projection of the transverse hole }  

    layer 2 void         { the region exists only in layer 2.  Its bounding surfaces

                               merge beyond the edges of the hole  }  

    start(Ri,Yc) arc(center=0,0) to (-Ri,Yc)  

    line to (-Ri,-Yc)  

    arc(center=0,0) to (Ri,-Yc)  

    line to close  

 

monitors  

  grid(x,y,z)  

  elevation(u) from (-Ro,0,0) to (Ro,0,0)  

  contour(u) on z=0  

  contour(u) on y=0  

 

plots  

  grid(x,y,z)  

  elevation(u) from (-Ro,0,0) to (Ro,0,0)  

  contour(u) on z=0  

  contour(u) on y=0  

 

end