New answers tagged

0

This I think works: {Slider[Dynamic[a], {-5, 5}], Dynamic[a]} Dynamic[Evaluate[y /. Solve[a^2 + y^2 == 25, y]]] {Slider[Dynamic[b], {-5, 5}], Dynamic[b]} Dynamic[Evaluate[y /. Solve[b^2 + y^2 == 25, y]]] Dynamic[Plot[Evaluate[y /. Solve[x^2 + y^2 == 25, y]], {x, a, b}, AspectRatio -> Automatic, PlotRange -> {{-20, 20}, {-20, 20}}, PlotLegends -&...


Top 50 recent answers are included