Section 3.1 Homework
Calculus I
Andy Long

#48, p. 205

f[x_]:=x^3-6x^2+5
Plot[f[x],{x,-3,5}]

f'[x]
Plot[f'[x],{x,-3,5}]
Solve[f'[x]==0,x]

Plot[{f[x],f'[x]},{x,-3,5}]

f[-3]
f[4]

f[0]
f[5]

#52, p. 205

f[x_]:=x/(x^2-x+1)
Together[f'[x]]
Plot[f[x],{x,-0,3}]

#67, p. 206

v[r_]:=k(r0-r)r^2
v'[r]
Solve[v'[r]==0,r]

v[r0/2]
v[r0]
v[2*r0/3]

r0=1;
k=1;
Plot[v[r],{r,0,r0}]