function out=contours3(f,point,size, offset)
syms x y z
val=subs(f,[x,y,z],point);
   genplot(f,point(1)-size:.01*size:point(1)+size,point(2)-size:.01*size:point(2)+size,point(3)-size:.01*size:point(3)+size,val+offset)

