' - - File: XII_Contour6b.txt
' - - Both 2D & 3D contours are shown: 3D with two different angles of view.

F{x,y}= x*Sin[y] - y*Sin[x]
Fx{x,y} = Diff[F,x]
Fy{x,y} = Diff[F,y]

M{x,y} = - Fx{x,y} / Fy{x,y}	' Slopes from the directed field.

r = 10 :  er = 0.2 :  sg = 0.4

Ux<t> = <t,0,0> : Uy<t> = <0,t,0>  :  Uz<t> = <0,0,t>
Plot[Ux,Uy,Uz,{t,-r,r,100}]

PlotContour[F,{-r,r,-r,r}{4,4}{-10,10,.2}{er,sg}]



