$
$*********************************************      basics
$
&device -g_default device  -fig_num yes 12 -oecho no
$
$*********************************************      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
