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].

$\endgroup$
  • $\begingroup$ This should be helpful Plotting complex numbers as an Argand Diagram $\endgroup$ – Artes Jun 10 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 Jun 11 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 Jun 11 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 Jun 11 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 Jun 11 at 16:47
0
$\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, privacy policy and cookie policy

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