/BATCH
/input,menust,tmp,'',,,,,,,,,,,,,,,,1
WPSTYLE,,,,,,,,0
*SET,wf,2
*SET,wm,2
*SET,gg,2
*SET,tt,40
*SET,t1,4
*SET,t2,tt
*SET,hh,50
*SET,dt,tt/2
*SET,v0,100
*SET,xx,(2*tt-dt)*2.75
*SET,y1,(wm/2)+gg
*SET,y2,(wm/2)+gg+wf
*SET,x1,tt+t1
*SET,dx,wm*1.1
*SET,dy,dx
/PREP7
cyl4,0,0,xx,0,,360,hh
block,-tt,0,y1,y2,0,hh
block,(-tt-t1),-tt,-y2,y2,0,hh
block,-tt,0,-y1,-y2,0,hh
block,-dt,(tt-dt),(-wm/2),(wm/2),0,hh
block,(-dt-(gg/2)),(tt-dt+(gg/2)),((-wm/2)-(gg/2)),((wm/2)+(gg/2)),0,hh
block,-x1-dx,tt-dt+dx,-y2-dy,y2+dy,0,hh
vovlap,all
et,11,200,7
esize,gg/2
mshape,1
amesh,52
esize,gg
amesh,54
esize,(y2+dy)*5
amesh,50
et,1,128
emunit,epzro,8.854e-6
mp,perx,1,1
mat,1
lsel,s,loc,z,.5
lesize,all,,,hh
lsel,all
type,1
vsel,s,volu,,10,12,1
vsweep,all
vsel,all
vsel,s,volu,,10
eslv,s
allsel
asel,s,loc,z,hh
aclear,all
etdele,11
allsel
csys,1
nsel,s,loc,x,xx
d,all,volt,0
nsel,all
csys,0
vsel,s,volu,,5
cm,MFINGER,volu
asel,s,ext
nsla,s,1
d,all,volt,0
sf,all,mxwf
allsel
vsel,s,volu,,2
vsel,a,volu,,8,9,1
cm,FFINGER,volu
asel,s,ext
nsla,s,1
d,all,volt,v0
allsel
/SOL
pemopts,5.0,dual
pconv,2,efor,x
save
FINISH
/SOL
eqslv,iccg
solve
finish
/POST1
set,last
vsel,s,volu,,11,12
eslv,s
pplot
esel,all
plconv,all
esel,all
etable,fx,fmag,x
etable,fy,fmag,y
etable,fz,fmag,z
ssum
*get,fx,ssum,,item,fx
*get,fy,ssum,,item,fy
*get,fz,ssum,,item,fz
*stat,fx
finish |