1

I am trying to visualize the intersection of a complex curve in $\mathbb{C}^2$ with various 3D subspaces but I am not sure how to get Mathematica to do it (so far I have been able to visualize intersections with 2D subspaces using ReIm and ContourPlot). For example, say I have the curve $p^4+qp^2+1=q^8$ in $\mathbb{C^2}$, how would I get Mathematica to plot all values where $p \in \mathbb{R}$ and $q \in \mathbb{C}$?

Thanks in advance!

Wolfgangg
  • 11
  • 1

1 Answers1

2

Using the method in Plotting implicitly-defined space curves

Block[{F},
 F[p_, q_] := p^4 + q*p^2 - q^8 + 1;
 ContourPlot3D[
  ComplexExpand@ReIm@F[pR + I*pI, qR + I*qI] /. pI -> 0 // Evaluate,
  {pR, -4, 4}, {qR, -4, 4}, {qI, -2, 2},
  MaxRecursion -> 3, PlotPoints -> 25,
  Contours -> {0}, ContourStyle -> Opacity[0], Mesh -> None, 
  BoundaryStyle -> {1 -> None, 
    2 -> None, {1, 2} -> {{Green, Tube[.03]}}}, Boxed -> False]
 ]

enter image description here

Michael E2
  • 235,386
  • 17
  • 334
  • 747