2
$\begingroup$

Found the animation of this graph (without code) and its functionFunctionGraph

And I just need a graph, not an animation. How to do it? It's just "Plot" or what? I mean, I'm confused, because I don't know what to do with i

$\endgroup$
1
  • 4
    $\begingroup$ The community expects the following from you: ✅: A clear description of an on-topic problem or goal. ❌: A minimal working Wolfram Language code example, formatted, easy to copy&paste, in Raw InputForm. ❌. An example of what you expect as output. ❌. Some proof of minimal Mathematica knowledge. ❌. Minimum due diligence: Share how you have searched the site and documentation, your attempts and reasons to believe an answer exists. $\endgroup$
    – rhermans
    Commented Aug 8, 2022 at 16:55

1 Answer 1

7
$\begingroup$

Under the working assumption that $\phi$ is a real variable from 0 to 2 $\pi$, one way to go about it is the following:

func[f_] := (Exp[I f] Sqrt[I Cos[2 f] + Sqrt[Sin[2 f]^2]])/(
 Exp[I/2] + Sqrt[2] (I Cos[2 f] + Sqrt[Sin[2 f]^2])^(3/2))

ListPlot[Table[ReIm@func@f, {f, 0, 2 Pi, .01}], Joined -> True]

Many thanks to @Bob Hanlon for the following suggestion:

ParametricPlot[ReIm@func@f, {f, 0, 2 Pi}, PlotPoints -> 100]

plot

$\endgroup$
2
  • 4
    $\begingroup$ +1 Also ParametricPlot[ReIm@func@f, {f, 0, 2 Pi}, PlotPoints -> 100] $\endgroup$
    – Bob Hanlon
    Commented Aug 8, 2022 at 18:12
  • 1
    $\begingroup$ @BobHanlon excellent recommendation. Many thanks! $\endgroup$
    – bmf
    Commented Aug 8, 2022 at 18:26

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.