Density of Love Inside Mathematics

By

Manipulate[ GraphicsRow[{Show[ ContourPlot[y == 1/x, {x, 0, 10}, {y, -1, 10}, Frame -> False, PlotRange -> {{0, 10}, {0, 10}}, PerformanceGoal -> "Quality"], Graphics[Table[{Red, Point[{b, 1/b}]}, {b, 0.1, a, 0.1}]]], Show[ContourPlot[x^2 + y^2 == 9, {x, -3, 3}, {y, -3, 3}, Frame -> False, PlotRange -> {{-3, 3}, {-3, 3}}, PerformanceGoal -> "Quality"], Graphics[ Table[{Red, Point[{3 Cos[b], 3 Sin[b]}]}, {b, 0, a, 0.05}]]], Show[ContourPlot[y == Abs[-2 x], {x, -3, 3}, {y, 0, 3}, Frame -> False, PlotRange -> {{-3, 3}, {0, 3}}, PerformanceGoal -> "Quality"], Graphics[ Table[{Red, Point[{b, Abs[-2 b]}]}, {b, -3, a - 3, 0.05}]]], Show[ContourPlot[x == -3 Abs[Sin[y]], {x, -3, 0}, {y, -3, 3}, Frame -> False, PlotRange -> {{-3, 0}, {-3, 3}}, PerformanceGoal -> "Quality", PlotLabel -> Style["Bed Dhakal, TU", 6, Black]], Graphics[ Table[{Red, Point[{-3 Abs[Sin[b]], b}]}, {b, -3, a - 3, 0.05}]]]}], {{a, 0.1, "y=1/x & x^2+y^2=9 & y=|-2x| & x=-3|siny|: Density of Love"}, 0.1, 10}]]

1 comment:

  1. dagoberteagenNovember 7, 2022 at 3:32 PM

    In January, the primary month cellular sports activities playing turned authorized in New York, people wagered a record $1.6 billion online, greater than another state in its opening month. But Ashley Owen, a group chief on the NYC Problem Gambling Resource Center, funded by the 배당 사이트 New York State Office of Addiction Services and Supports, nonetheless has trouble convincing people to take playing points critically. Part of the issue, she stated, is that drawback playing has become tougher to detect.

    ReplyDelete