Group Abstract

Message Boards

WOLFRAM COMMUNITY

7.7K Views

6 Replies

4 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Animate a point on a function?

Marcel Pelletier

Marcel Pelletier, Education

Posted 10 years ago

POSTED BY: Marcel Pelletier

6 Replies

Sort By:

Valeriu Ungureanu

Valeriu Ungureanu, Moldova State University

Posted 10 years ago

Hi, Marcel, I posted this new code for the tangent line as a suggestion for you to post other pieces of code that you are using in the course. They may be useful for others in the Wolfram Community and the Community may suggest new solutions and useful pieces of code. Sure, it's your decision...

POSTED BY: Valeriu Ungureanu

Marcel Pelletier

Marcel Pelletier, Education

Posted 10 years ago

POSTED BY: Marcel Pelletier

Valeriu Ungureanu

Valeriu Ungureanu, Moldova State University

Posted 10 years ago

f[x_] := 2 x^3 + 2 x - 3 p[a_] := {{a, f[a]}} t[x_, a_] := f[a] + (x - a) f'[a] Animate[Plot[f[x], {x, -2, 4}, PlotRange -> {{-2, 4}, {-24, 128}}, Epilog -> {PointSize[Medium], Point[p[a]], Red, InfiniteLine[{p[a][[1]], {0, t[0, a]}}]}], {a, -2, 4}, AnimationDirection -> ForwardBackward]

f[x_] := 2 x^3 + 2 x - 3
p[a_] := {{a, f[a]}}
t[x_, a_] := f[a] + (x - a) f'[a]
Animate[Plot[f[x], {x, -2, 4}, PlotRange -> {{-2, 4}, {-24, 128}}, 
  Epilog -> {PointSize[Medium], Point[p[a]], Red, 
    InfiniteLine[{p[a][[1]], {0, t[0, a]}}]}], {a, -2, 4}, 
 AnimationDirection -> ForwardBackward]

POSTED BY: Valeriu Ungureanu