/com	ANSYS 11.0
! Next100_pmt screen, photocathode at y=0, triangular solid modle 
v2=-.00550041 	! voltage @2cm
rw=.00003	!wire radius
xw=.00025	!wire location, x
yw=.01455	!wire location, y

ysa=.014
y2=.02
y0=0.000
dy=0.001
i=10
efy0=0
ymin=0

nx=20

nysa0=140
nya=50
nyw=nx
ny2=100

/PNUM,KP,1  
/PNUM,LINE,1
/PNUM,AREA,1
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0 
/psym,cs,1
/PSF,PRES,NORM,2,0,1
/SHRINK,0   
/ESHAPE,1   
/EFACET,1   
/RATIO,1,1,1

/com *do,i,0,13
y=y0+I*dy
nysa=nysa0-(i*10)

/prep7
et,1,122	!3d 20-node  estat solid
msha,1,3d
mp,perx,1,1.
mp,perx,2,1.
mp,perx,3,1.

/com	 
k,1,,y
k,2,xw,y
k,3,xw,y,xw
k,4,,y2
l,1,2 
l,2,3 
l,3,1 
al,1,2,3
l,1,4 
vdrag,1,,,,,,4

/com	CYL4, XCENTER, YCENTER, RAD1, THETA1, RAD2, THETA2, DEPTH
CYL4,xw,yw,rw,,,,xw
/com	VSBV, NV1, NV2, SEPO, KEEP1, KEEP2
VSBV,1,2,,delete,delete
aesize,12,.000005
aesize,13,.000005
esiz,.00005
vmesh,3

da,1,volt,0
da,5,volt,v2
da,12,volt,0
da,13,volt,0

fini

/solu
anty,stat
solve
fini

/post1
/gropts,view,1
set,last

path,axx,2,6,200
ppath,1,,0,0.01
ppath,2,,0,.016
pdef,efy,ef,y
plpath,efy
/eof

*GET,ymin,NODE,1,loc,y
*GET,efy0,NODE,1,EF,y
*cfopen,efy_tri,txt,,append
*vwrite,ymin,efy0
(f10.3,f10.7)
*CFCLOS
fini
parsav,all,pars,txt
/cle
parres,new,pars,txt
*enddo
/eof