Skip to main content
added 336 characters in body
Source Link
Basheer Algohi
  • 20k
  • 1
  • 32
  • 78

Does this work for you:

PolarPlot[{ArcCos[t], -ArcCos[t]}, {t, -1,1}]

enter image description here

Update: (Sjoerd C. de Vries comment)

For all r

r=(+/-)ArcCos[t]+2 n Pi

Taking few of r results:

Show[Table[
  PolarPlot[{ArcCos[t], -ArcCos[t]} + n 2 Pi, {t, -1, 1}, 
   PlotRange -> All], {n, -10, 10}]]

enter image description here

Does this work for you:

PolarPlot[{ArcCos[t], -ArcCos[t]}, {t, -1,1}]

enter image description here

Does this work for you:

PolarPlot[{ArcCos[t], -ArcCos[t]}, {t, -1,1}]

enter image description here

Update: (Sjoerd C. de Vries comment)

For all r

r=(+/-)ArcCos[t]+2 n Pi

Taking few of r results:

Show[Table[
  PolarPlot[{ArcCos[t], -ArcCos[t]} + n 2 Pi, {t, -1, 1}, 
   PlotRange -> All], {n, -10, 10}]]

enter image description here

deleted 3 characters in body
Source Link
Basheer Algohi
  • 20k
  • 1
  • 32
  • 78

Does this work for you:

PolarPlot[{ArcCos[t], -ArcCos[t]}, {t, -Pi1, Pi1}]

enter image description here

Does this work for you:

PolarPlot[{ArcCos[t], -ArcCos[t]}, {t, -Pi, Pi}]

enter image description here

Does this work for you:

PolarPlot[{ArcCos[t], -ArcCos[t]}, {t, -1,1}]

enter image description here

Source Link
Basheer Algohi
  • 20k
  • 1
  • 32
  • 78

Does this work for you:

PolarPlot[{ArcCos[t], -ArcCos[t]}, {t, -Pi, Pi}]

enter image description here