Mathematica Tool 1

This Mathematica notebook is a simple graphing tool designed to work with Section 2.2

Define the function to be graphed.

f[t_]=4.9 (t^2)

Identify the center point of the domain.

c= 2;

Identify the width of the interval. (You can zoom in or out by changing this value)

w= 10;
Plot[f[t],{t,c-(w/2),c+(w/2)}]