$
$****************************************       begin
$
&device -pri device  -fig_num yes 11
$
$****************************************       read model
$
inmodel
$
$****************************************       pictures
$
&title Plate with a Free Edge
&subtitle Geometry Model
&selec :p -sel *hp@ *ep@ **R@ *cp@
&channel gra -file ref_fe.ans/ref_fe0.ps
&pict top              -poin :p  -ano points
&subtitle Basic Structural Model 
&channel gra -file ref_fe.ans/ref_fe1.ps
&selec :p -sel *hp@ *ep@ **R@  **C@
&pict top -type struct -poin :p -ano points
$
$****************************************       summary
$
&summ
    plate
    cat
end
$
$****************************************       refine ext edge
$
medit
    refine 5   ele qfs
end
$
$****************************************       pictures
$
&channel gra -file ref_fe.ans/ref_fe2.ps
&subtitle Refined Structural Model 
&pict top -type struct -poin :p -ano points
$
$****************************************       summary
$
&summ
    point  coor
    plate
end
$
$****************************************       all done 
$
&fini