$
$****************************************       begin
$
&device -pri device
inmodel
$
$****************************************       pictures
$
&title Plate with Hole
&subtitle Original Mesh
&selec :p -sel *a@ *b@ *c@ *d@ *e@ *f@
&channel gra -file hole.ans/ho_orig.eps
&pict top -type struct -poin :p -ano poin -color default
$
$****************************************       summary
$
&summ
    plate
    cat
end
$
$****************************************       do it twice
$
&loop ref ( .5 )
$
$****************************************       refine
$
&subtitle Hole Refined
medit
   refine %ref*5          box 36.0 -36.0 36.0 -36.0
   refine %ref*3.5        box 16.0 -16.0 26.0 -26.0
   refine %ref*2.0        box 06.0 -06.0 26.0 -26.0
end
&status size
$
$****************************************       do a picture
$
&channel gra -file hole.ans/ho_refined.eps
&pict top -type struct -poin :p -ano poin -color default
$
$****************************************       solve struct
$
struct
   lc_doit load #load
   ssolve
end
$
$****************************************       post
$
strpost
   rest load
   plate stress -standar  -ele qcd23
   &rep_sel -ele @
end
&subtitle Refined - Stresses
&channel gra -file hole.ans/ho_stress.eps
&pict top -type struct  -color stress -poin :p -ano poin
$
$****************************************       end loop
$
&endloop
$
$****************************************       all done
$
&fini