GraphingCalculator 4;
Window 436 83 895 1114;
FontSizes 18;
DrawGraph 0;
PaneDivider 459;
StackPanes 1;
2D.Scale 1 1 5 5;
2D.BottomLeft -12.4375 -17.3125;
2D.GraphPaper 0;
Color 17;
Expr function(k,x)=?;
Text "The following is the approximate rate of change function for f:";
Color 17;
Expr function(r,x)=(function(k,x+0.001)-function(k,x))/0.001;
Color 2;
Expr y=function(r,x);
Text "Define your exact rate of change function. GC will graph it. It should coincide with the graph of y=r(x).";
Color 17;
Expr function(r_k,x)=?;
Expr y=function(r_k,x);