# No work done by a radial vect. field along a circle with(mvcal): F := [x/3,y/3]; field := plotvectorfield(F,x=-1.5..1.5,y=-1.5..1.5,0.3): curve := plot([cos(t),sin(t),t=0..2*Pi]): with(plots): work1 := f1 := display({field,curve}): #