0
$\begingroup$

I have a list of complex numbers in the form of g[y,t] such that {y,0,1, .1},{t, 0,1, .1}. How can I plot this list in ytg[y,t] axes

f[k_, j_] = 16*Sin[2*Pi*k]*Sin[2*Pi*j];
g[y_, t_] = 1/(2*Pi)*N[Sum[Sum[f[k, j]*E^-Sqrt[(I*j)^.1 + k^2]*E^(-I (k*y + j*t))
, {k, 0,1, .1}], {j, 0, 1, .1}]];
a = Table[g[y, t], {y, 0, 1, .1}, {t, 0, 1,
 .1}];
list = Flatten[a];

I want plot list {y,t,g[y,t]} for {y,0,1,.1},{t,0,1,.1} such that its axes are y & t & g[y,t].

Improve this question
$\endgroup$
6
  • $\begingroup$ This should be helpful Plotting complex numbers as an Argand Diagram $\endgroup$
    – Artes
    Commented Jun 10, 2020 at 20:26
  • $\begingroup$ How do you want to deal with the complex numbers? It takes 2 dimensions to plot complex numbers, and another 1 dimension for each of y and t. This is possible if colour is the 4th dimension, but how should that be dealt with? Should the real part of the complex number be the z-value and the imaginary part be the colour? Or should it be Abs vs Arg? Or some other representation? $\endgroup$
    – MassDefect
    Commented Jun 11, 2020 at 1:13
  • $\begingroup$ @MassDefect perhaps something like a ComplexListPlot3D? Or, considering canonical assumptions for dimensions of y and t, perhaps a line creates by plotting the complex #’s along the y axis, then dragging out the whole line as t changes, creating something presumably like a sheet? That’d be a full 4D type of a plot though..many options for the OP to let us know about! $\endgroup$
    – CA Trevillian
    Commented Jun 11, 2020 at 6:41
  • $\begingroup$ @MassDefect How to should plot such that the real part of the complex number be the z-value and the imaginary part be the colour? $\endgroup$
    – user68119
    Commented Jun 11, 2020 at 16:36
  • $\begingroup$ @CA Trevillian Yes, I want to plot it with ComplexListPlot3D, i tried with... For[j = 0, j <= 10, j++, For[k = 0, k <= 10, k++, Subscript[y, k] = 0 + .1*k; Subscript[t, j] = 0 + .1*j; {g[Subscript[y, k], Subscript[t, j]] = ((g[y, t] /. y -> Subscript[y, k]) /. t -> Subscript[t, j]), Subscript[y, k], Subscript[t, j]}]]; $\endgroup$
    – user68119
    Commented Jun 11, 2020 at 16:47

1 Answer 1

Reset to default
1
$\begingroup$

I don't see a problem here. It's what @MassDefect @Artes and @CA Trevillian have suggested. Either do Real/Imaginary plots of g[y,t], or plot in terms of absolute value or use argand diagram.

f[k_, j_] := 16*Sin[2*Pi*k]*Sin[2*Pi*j];
g[y_, t_] := 1/(2*Pi)*N[ Sum[Sum[f[k, j]*E^-Sqrt[(I*j)^.1 + k^2]*E^(-I (k*y + j*t)), {k, 0,
             1, .1}], {j, 0, 1, .1}]];

(*for Real, Imaginary and Absolute*)
GraphicsRow[ Plot3D[{y, t, # [g[y, t]]}, {y, 0, 1}, {t, 0, 1}] & /@ {Re, Im, Abs}, ImageSize -> 1600]

Real, Imaginary and Abs plots

Improve this answer
$\endgroup$

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.