Skip to main content
Mathematica

Return to Question

Post Closed as "Not suitable for this site" by Kuba, m_goldberg, MarcoB, Jens, J. M.'s missing motivation♦
added 13 characters in body
Source Link
user9660
user9660

I made this animation:

hh = 3;
ll = 10;
Animate[Graphics[{Thick, Blue, Line[{{0, 0}, {0, hh}}], Thick,   
Green,Line[{{xr, 0}, {xr - (ll*xr)/Sqrt[xr^2 + hh^2],  
(ll*hh)/Sqrt[xr^2 + hh^2]}}]}, Axes -> True], {xr, 3, Sqrt[ll^2 - hh^2]}]

Question: How can I set a fixed domain, for example (-4,10) and how can I make sure that the origin doesn't 'move'? In other words; I want te green line to animate, but the rest should be motionless.

I made this animation:

hh = 3;
ll = 10;
Animate[Graphics[{Thick, Blue, Line[{{0, 0}, {0, hh}}], Thick, Green,Line[{{xr, 0}, {xr - (ll*xr)/Sqrt[xr^2 + hh^2], (ll*hh)/Sqrt[xr^2 + hh^2]}}]}, Axes -> True], {xr, 3, Sqrt[ll^2 - hh^2]}]

Question: How can I set a fixed domain, for example (-4,10) and how can I make sure that the origin doesn't 'move'? In other words; I want te green line to animate, but the rest should be motionless.

I made this animation:

hh = 3;
ll = 10;
Animate[Graphics[{Thick, Blue, Line[{{0, 0}, {0, hh}}], Thick,   
Green,Line[{{xr, 0}, {xr - (ll*xr)/Sqrt[xr^2 + hh^2],  
(ll*hh)/Sqrt[xr^2 + hh^2]}}]}, Axes -> True], {xr, 3, Sqrt[ll^2 - hh^2]}]

Question: How can I set a fixed domain, for example (-4,10) and how can I make sure that the origin doesn't 'move'? In other words; I want te green line to animate, but the rest should be motionless.

Source Link
GambitSquared
GambitSquared
  • 2.3k
  • 1
  • 16
  • 23

Domain in Graphics

I made this animation:

hh = 3;
ll = 10;
Animate[Graphics[{Thick, Blue, Line[{{0, 0}, {0, hh}}], Thick, Green,Line[{{xr, 0}, {xr - (ll*xr)/Sqrt[xr^2 + hh^2], (ll*hh)/Sqrt[xr^2 + hh^2]}}]}, Axes -> True], {xr, 3, Sqrt[ll^2 - hh^2]}]

Question: How can I set a fixed domain, for example (-4,10) and how can I make sure that the origin doesn't 'move'? In other words; I want te green line to animate, but the rest should be motionless.