Skip to main content
Tweeted twitter.com/StackMma/status/1599463552846282752
Became Hot Network Question
edited body; edited title
Source Link
user64494
  • 1
  • 4
  • 29
  • 60

intersection Intersection of a line and a circle and distance between them

I'mi'm trying to plot the intersection point between a line and a circle but it's not working. How can I do that using the following command?

Manipulate[Show[ParametricPlot[{r Cos[t] + c, r Sin[t] + d}, {t, 0, 2 Pi}, PlotRange -> {-10, 10}],Plot[Tan[t] x + b, {x, -5 Pi, 5 Pi}]], {t, 0, 2 Pi}, {b, -40, 40}, {r, 0, 8}, {c, -10, 10}, {d, -10, 10}]

I also want to measure the shortest distance between that circle and the line. Am I able to do that using the same variables?

intersection of a line and a circle and distance between them

I'm trying to plot the intersection point between a line and a circle but it's not working. How can I do that using the following command?

Manipulate[Show[ParametricPlot[{r Cos[t] + c, r Sin[t] + d}, {t, 0, 2 Pi}, PlotRange -> {-10, 10}],Plot[Tan[t] x + b, {x, -5 Pi, 5 Pi}]], {t, 0, 2 Pi}, {b, -40, 40}, {r, 0, 8}, {c, -10, 10}, {d, -10, 10}]

I also want to measure the shortest distance between that circle and the line. Am I able to do that using the same variables?

Intersection of a line and a circle and distance between them

i'm trying to plot the intersection point between a line and a circle but it's not working. How can I do that using the following command?

Manipulate[Show[ParametricPlot[{r Cos[t] + c, r Sin[t] + d}, {t, 0, 2 Pi}, PlotRange -> {-10, 10}],Plot[Tan[t] x + b, {x, -5 Pi, 5 Pi}]], {t, 0, 2 Pi}, {b, -40, 40}, {r, 0, 8}, {c, -10, 10}, {d, -10, 10}]

I also want to measure the shortest distance between that circle and the line. Am I able to do that using the same variables?

Source Link
Sara
  • 65
  • 4

intersection of a line and a circle and distance between them

I'm trying to plot the intersection point between a line and a circle but it's not working. How can I do that using the following command?

Manipulate[Show[ParametricPlot[{r Cos[t] + c, r Sin[t] + d}, {t, 0, 2 Pi}, PlotRange -> {-10, 10}],Plot[Tan[t] x + b, {x, -5 Pi, 5 Pi}]], {t, 0, 2 Pi}, {b, -40, 40}, {r, 0, 8}, {c, -10, 10}, {d, -10, 10}]

I also want to measure the shortest distance between that circle and the line. Am I able to do that using the same variables?