!--------------------------------------------------------!
!                                                        !
!   Test Case for Retarding Grid Simulation              !
!                                                        !
!   one cross-section                                    !
!                                                        !
!   Last Updated    1/20/06   JHK                        !
!                                                        !
!--------------------------------------------------------!
/BATCH,list

!--           Voltages
v_g=0.0		! Ground Potential
v_r=5.0		! Retarding Grid Potential
v_c=-5.0 	! Collector Potential

!--           Physical COnstants
mp,perx,1,1	! Free Space
mp,perx,2,10	! Metal

!--           Geometry
grid_wire=1
grid_hole=5
grid_thick=1
grid_loc=50

dx = grid_wire + grid_hole
dy = grid_wire + grid_hole
dz = 100


/PREP7
et,1,solid123
/pnum,volume,1
BLOCK,0,dx,0,dy,0,1,		! vol 1     ground
BLOCK,0,dx,0,dy,dz-1,dz,  	! vol 2     collector

block,0,dx,0,dy,1,grid_loc      ! vol 3
block,0,grid_hole/2.,0,grid_hole/2.,grid_loc,grid_loc+grid_thick		! vol 4
block,0,grid_hole/2.,grid_hole/2.+grid_wire,dy,grid_loc,grid_loc+grid_thick		! vol 5
block,grid_hole/2.+grid_wire,dx,grid_hole/2.,grid_loc,grid_loc+grid_thick		! vol 6
block,grid_hole/2.+grid_wire,dx,grid_hole/2.+grid_wire,dy,grid_loc+grid_thick		! vol 7
block,0,dx,0,dy,grid_loc+grid_thick,dz-1      ! vol 8     space 1

vadd,3,4,5,6,7,8
vglue,all			! vol 3 is free space

block,grid_hole/2.,grid_hole/2.+grid_wire,0,dy,grid_loc,grid_loc+grid_thick    ! vol 4
block,0,dx,grid_hole/2.,grid_hole/2.+grid_wire,grid_loc,grid_loc+grid_thick    ! vol 5

vadd,4,5
vglue,all                       ! vol 4 is grid

!vsel,s,volume,,3
!vatt,1,1,1
!vsel,inve
!vatt,2,1,1
!vsel,all
!esize,2
!vmesh,all
!finish
!/solution
!ANTYPE,STAT
!-----------------------------
!vsel,s,,,4 
!nslv,s,1
!d,all,volt,v_r
!-----------------------------
!vsel,s,,,1 
!nslv,s,1
!d,all,volt,v_c 
!-----------------------------
!vsel,s,,,2 
!nslv,s,1
!d,all,volt,v_g  
!-----------------------------
!nsel,all
!-----------------------------
!solve
!finish
!-----------------------------
!/post1
!plnsol,volt
!-----------------------------
!*do,i,-3,3
!	*do,j,-3,3
!		trpoin,i*0.9,j*0.9,-4,0,0,0.7,1,15.5
!	*enddo
!*enddo
!-----------------------------
!/VIEW,1,1,1,1   
!/ANG,1  
!/REP,FAST   
!-----------------------------
!pltrac,elec