Mathematica Tool 2

This Mathematica file is configured for use as a simple graphing tool for Section 2.2.

Define the distance function

f[t_]:=k (t^2)

Define the average speed function.

g[t_]:=((f[t+0.001]-f[t])/0.001)

Assign the value of k.

k=1;

Plot both the distance function and the approximate speed.

Plot[f[t],{t,-4,4}]
Plot[g[t],{t,-4,4}]