Fillet

{  FILLET.PDE 

   This problem demonstrates the use of the FILLET and BEVEL commands

}

title 'fillet test'

Variables

    u

definitions

    k = 1

    u0 = 1-x**2-y**2

    s = 2*3/4+5*2/4

equations

    div(K*grad(u)) +s = 0

boundaries

    Region 1

       start(-1,-1)

       value(u)=u0        line to (1,-1) fillet(0.1)

                      to (-0.25,-0.25) fillet(0.1)

               to (-1,1) bevel(0.1)

               to close

monitors

    grid(x,y)

    contour(u)

plots

    grid(x,y)

    contour(u)

    contour(u) zoom(0.6,-1, 0.2,0.2)

    contour(u) zoom(-0.3,-0.3, 0.1,0.1)

end