Standalone CDF Export is not working

Questions
1

Hi all,

I wrote this simple code

f[x_] = x^5 + 100*x^2;

y[x_, x0_] = f[x0] + f'[x0]*(x - x0);

Manipulate[

 Plot[{y[x, x0], f[x]}, {x, -6, 4}, PlotRange -> {-1000, 2000}, 

  PlotStyle -> {{Thick, Purple}, {Thick, Green}}], {x0, -5, 4}]

that runs properly in the .nb notebook

fdads.jpg
fdads.jpg622×537 51.5 KB

but when I export it into a CDF file by means of the Standalone WIzard i get this:

asdga.jpg
asdga.jpg624×534 43.8 KB

Thank you!!

2

This seems to work:

Manipulate[
 Plot[{y[x, x0], f[x]}, {x, -6, 4}, PlotRange -> {-1000, 2000}, 
  PlotStyle -> {{Thick, Purple}, {Thick, Green}}],
 {x0, -5, 4},
 SaveDefinitions -> True,
 Initialization -> {
   f[x_] = x^5 + 100*x^2,
   y[x_, x0_] = f[x0] + f'[x0]*(x - x0)}
 ]
3

It does! Thanks a lot!