ClearAll["Global`*"];
Manipulate[aux=Func/.{x->x+a}; 
Dynamic@Plot[ {b*aux+c, 0}, {x, -3, 3}], {{Func, x^2, "Graficando   y = b*f(x+a)+c   en la cual f(x) ="}, {y=x, y= (x^2), y=(x^3), y=(Sqrt[x]),y=(1/x),y=(1/(x^2)),y=Abs[x],y=(x^(1/3)),y=(2^x),y=((((1/2)))^x) }}, {{a, 0}, -3, 3, 1, Appearance->"Labeled"}, {b, 1, 5, 1, Appearance->"Labeled"}, {{c, 0}, -3, 3, 1, Appearance->"Labeled"}]

Autores: Juan Félix Ávila Herrera y Enrique Vílchez Quesada, Escuela de Informática, Universidad Nacional de Costa Rica,  .