ajout d'un point dans une commande de manipulation

Question

J'ai du mal à ajouter un point pour marquer les valeurs Min de chaque parabole lors de l'utilisation de la commande Manipuler?

Manipulate[
 Plot[x^2 - 2*(a - 2)*x + a - 2, {a, -20, 20}, 
  PlotRange -> {-200, 200}], {a, -10, 10}]

Cela me donne les paraboles mais comment obtenir un point de sommet visible lorsqu'il se déplace avec le paramètre a.

Answer 1

Vous pouvez utiliser les options MeshFunctions, Meshet MeshStylecomme suit:

Manipulate[Plot[x^2 - 2*(a - 2)*x + a - 2, {x, -20, 20}, 
  ClippingStyle -> False,
  MeshFunctions -> {# &}, 
  Mesh -> {{a - 2}}, 
  MeshStyle -> Directive[PointSize[Large], Red], 
  PlotRange -> {-200, 200}], {a, -10, 10}]

Vous pouvez également utiliser Epilog

Manipulate[Plot[x^2 - 2*(a - 2)*x + a - 2, {x, -20, 20}, 
  Epilog -> {PointSize[Large], Red, Point[{a - 2, -6 + 5 a - a^2}]}, 
  PlotRange -> {-200, 200}], {a, -10, 10}]

où j'ai utilisé les résultats de:

Minimize[x^2 - 2*(a - 2)*x + a - 2, x]

 {-6 + 5 a - a^2, {x -> -2 + a}}