График комплексной функции в программе Mathematika

[IRENN_Ka]

Здравствуйте, помогите, пожалуйста, построить график комплексной функции в программе Mathematika:

In[260]:= \[Omega] := 500;
\[Gamma] := 1/0.15;
\[Mu] := 750*E[I*20];
k := \[Omega]*\[Gamma]*\[Mu]*I;
N[k];
ode = Subscript[h, 1]''[r] + 1/r*Subscript[h, 1]'[r] ==
k*Subscript[h, 1][r]
solution = DSolve[ode, Subscript[h, 1][r], r]


Out[265]=
Derivative[1][Subscript[h, 1]][r]/
r + (Subscript[h, 1]^\[Prime]\[Prime])[r] == (0. + 2.5*10^6 I) E[
20 I] Subscript[h, 1][r]

Out[266]= {{Subscript[h, 1][r] ->
r^(0. - 2.05321*10^-17 I)
BesselJ[0, (1118.03 - 1118.03 I) r Sqrt[E[20 I]]] C[1] +
r^(0. - 2.05321*10^-17 I)
BesselY[0, (1118.03 - 1118.03 I) r Sqrt[E[20 I]]] C[2]}}