betty = Plot[f[x], {x, -3,1.25}, Filling->Axis, PlotRange->{{-3,3},{0,.5}}]
veronica = Plot[f[x], {x, 1.25,3}, PlotRange->{{-3,3},{0,.5}}]
cdfplot = Show[betty,veronica]

betty2 = Plot[f[x], {x, -3,-1.25}, Filling->Axis, PlotRange->{{-3,3},{0,.5}}]
veronica2 = Plot[f[x], {x, -1.25,3}, PlotRange->{{-3,3},{0,.5}}]
negtail = Show[betty2,veronica2]

betty3 = Plot[f[x], {x, -1.25,1.25}, Filling->Axis, PlotRange->{{-3,3},{0,.5}}]
veronica3 = Plot[f[x], {x, -3,-1.25}, PlotRange->{{-3,3},{0,.5}}]
veronica3stwin = Plot[f[x], {x, 1.25,3}, PlotRange->{{-3,3},{0,.5}}]
appa = Show[betty3,veronica3,veronica3stwin]

SetDirectory["~/Documents/ph3/labs/mathematica/week7"]

Export["cdfplot.pdf",cdfplot, "PDF"]
Export["appa.pdf",appa, "PDF"]
Export["negtail.pdf",negtail, "PDF"]