/BATCH,list

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


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

!--           Geometry
g_wire=1
g_hole=5
g_thick=1
g_loc=50

dx = g_wire + g_hole
dy = g_wire + g_hole
dz = 100

xcopies=6
ycopies=4


/PREP7
et,1,solid123

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

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

/VIEW,1,1,1,1   
/ANG,1  
/REP,FAST   

block,0, dx, 0, dy, 1, g_loc      					! vol 3
block,0, g_hole/2., 0, g_hole/2., g_loc, g_loc+g_thick			! vol 4
block,0, g_hole/2., g_hole/2.+g_wire, dy, g_loc, g_loc+g_thick		! vol 5
block,g_hole/2.+g_wire, dx, 0, g_hole/2., g_loc, g_loc+g_thick		! vol 6
block,g_hole/2.+g_wire, dx, g_hole/2.+g_wire, dy, g_loc, g_loc+g_thick	! vol 7
block,0, dx, 0, dy, g_loc+g_thick, dz-1      				! vol 8

vadd,3,4,5,6,7,8
vglue,all			

block,g_hole/2., g_hole/2.+g_wire, 0, dy, g_loc, g_loc+g_thick    	! vol 4
block,0, g_hole/2., g_hole/2., g_hole/2.+g_wire, g_loc, g_loc+g_thick   ! vol 5
block,g_hole/2.+g_wire, dx, g_hole/2., g_hole/2.+g_wire, g_loc, g_loc+g_thick   ! vol 6

vadd,4,5,6
vglue,all                       			

numcmp,volume			! renumbers volumes 1-4

!	vol 1 is ground
!	vol 2 is collector
!	vol 3 is grid
!	vol 4 is vaccuum

!---------		Copy in x-direction

FLST,3,4,6,ORDE,2   
FITEM,3,1   
FITEM,3,-4  
VGEN,xcopies,P51X, , ,dx, , , ,0   

!-- Add Ground Plate
vsel,s,volume,,1,4*xcopies-3,4
vadd,all

!-- Add Collector Plate
vsel,s,volume,,2,4*xcopies-2,4
vadd,all

!-- Add Grid
vsel,s,volume,,3,4*xcopies-1,4
vadd,all

!-- Add Free Space
vsel,s,volume,,4,4*xcopies,4
vadd,all

vsel,all
vglue,all   
numcmp,volume   
/rep

!---------		Copy in y-direction

FLST,3,4,6,ORDE,2   
FITEM,3,1   
FITEM,3,-4  
VGEN,ycopies,P51X, , , ,dy, , ,0   

!-- Add Ground Plate
vsel,s,volume,,1,4*ycopies-3,4
vadd,all

!-- Add Collector Plate
vsel,s,volume,,2,4*ycopies-2,4
vadd,all

!-- Add Grid
vsel,s,volume,,3,4*ycopies-1,4
vadd,all

!-- Add Free Space
vsel,s,volume,,4,4*ycopies,4
vadd,all

vsel,all
vglue,all   
numcmp,volume   
/rep





!vsel,s,volume,,4
!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