Message Boards Message Boards

Graphing a calculus problem involving limits on Mathematica

Posted 6 months ago

Hey all, I've spent a few hours trying to graph the following Calculus problem on Mathematica but I've struggled to find the right code.... enter image description here

I was trying to use the Manipulate command somehow to control the radius of C2 in order to see the coordinate of R shift. I basically just want to do what this person did on geogebra (https://www.geogebra.org/m/WHnJAKmG) but on Mathematica instead.

POSTED BY: Andrew Nassar
3 Replies
Posted 6 months ago

Gonna try this again brb

POSTED BY: Andrew Nassar

Here is an attempt:

pointP[s_] = {0, s};
Assuming[0 < s < 2,
  pointQ[s_] = SolveValues[{x, y} \[Element] Circle[{0, 0}, s] &&
      {x, y} \[Element] Circle[{1, 0}, 1] &&
      y > 0,
     {x, y}][[1]];
  pointR[s_] = SolveValues[{x, y} \[Element] InfiniteLine[{pointQ[s],
         pointP[s]}] &&
      y == 0,
     {x, y}][[1]]];
Manipulate[Graphics[{Circle[{0, 0}, r], Circle[{1, 0}, 1],
   PointSize[Large], Point[{pointQ[r], pointP[r], pointR[r]}], 
   InfiniteLine[{pointQ[r], pointP[r]}]},
  Axes -> True, PlotRange -> {{-2, 4.5}, {-2, 3}}],
 {{r, 3/2}, 0, 2}]
POSTED BY: Gianluca Gorni
Posted 6 months ago

Woah you got it! This is definitely a complex code, I wouldn've never been been able to figure it out haha. Thank you!

POSTED BY: Andrew Nassar
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract