GraphingCalculator 4;
Window 45 0 848 1396;
PaneDivider 383;
SignificantDigits 14;
FontSizes 18;
BackgroundType 0;
StackPanes 1;
2D.Scale 0.1 0.1 5 5;
2D.BottomLeft -2.35 -3.29375;
2D.Axes 0;
2D.GraphPaper 0;
Expr function(f,x,y)=[2*x^2+5*y^2]*[1+1/4*cos([7*atan([y/x])])];
Color 8;
Expr function(p,x,y)=function(oppartial(x),function(f,x,y)),function(q,x,y)=function(oppartial(y),function(f,x,y));
Color 5;
Grain 0.5333333333333333;
XYType 3;
Expr z=function(f,x,y);
Color 4;
MathPaneSlider 14;
Expr T=slider([0,2*pi]);
Color 3;
MathPaneSlider 50;
Expr c=slider([0,10,100]);
Color 8;
Expr R=sqrt(c/function(f,cos(T),sin(T))),a=R*cos(T),b=R*sin(T);
Text "<size=11>The ""c"" in this formula is the contour on which the gradient is rooted in this example";
Color 2;
Expr vector(a,b),vector(a,b)+1/50*vector(function(p,a,b),function(q,a,b));
Text "<size=11>
Author: David A. Craig <<http://web.lemoyne.edu/~craigda/>";