Example 2 (p. 732)
> F := [ -y/2, x/2 ];
> fieldplot( F, x=-2..2, y=-2..2 );
>
> r := [ x, y ];
> innerprod( r, F );