Mathematica Tool 1

This notebook supports Activity 1 of Section 1.5. Enter definitions for the functions f,g,h and k, where k is defined interms of g and h (not necessarily the sum of g and h). If you have the right combination, the graph of k should coincide with the graph of f. (The given definitions are not right.)

Needs["PlotLegends`"]

f[x_]:=(x^3)+4 (x^2)
g[x_]:=x
h[x_]:=4*x
k[x_]:=g[x]+h[x]

Plot[{g[x],h[x],f[x],k[x]},{x,-3,3},PlotStyle->{{Red,Thickness[0.01]},{Blue,Thickness[0.01],Dashing[{.03}]},{Black,Thickness[0.01]},{Green,Thickness[0.01]}},PlotLegend->{"g(x)","h(x)","f(x)","g(x)"},LegendPosition->{1,-1}]