Hollow thermal tube

Short example that shows how to impose boundary conditions in a polar frame. The inner radius is 1.0 and the outer radius is 2.0. The outer boundary has an imposed temperature of 100.0 and the inner boundary has a radial flux of 10.0

feap * * Thermal tube example
0 0 0 2 1 4

MATErial
 THERMAL
  FOURIER ISOTropic 100

BLOCk
 POLAr 10 40 ! Define block using r,theta
 1  1.0 0.0
 2  2.0 0.0
 3  2.0 360.0
 4  1.0 360.0

EBOUN
 POLAr  ! Use polar option to eboun
 1 2.0 1

CSURface
  DISP 1
  POLAr
   LINEar
    1 2.0 0.0   100.0  ! Set thermal dof(1) to 100
    2 2.0 360.0 100.0

CSURface
 FLUX                ! Set in flux to 10 
 POLAr
  LINEar             ! I've split the surface into two parts
   1 1.0 360.0 10.0  ! to avoid a projection error that FEAP was reporting
   2 1.0 180.0 10.0
  LINEar
   1 1.0 180.0 10.0
   2 1.0   0.0 10.0
  
END

TIE

BATCh
 LOOP,,10
  TANG,,1
 NEXT
 PLOT,FRAME,1
 PLOT,CONT
 PLOT,FRAME,2
 PLOT,FLUX,1
 PLOT,FRAME,3
 PLOT,FLUX,2
END

INTEractive
STOP