User Portlet
| Discussions |
|---|
| Hello, I have made the given code: u[r_, phi_] := 0.018778093057411193`* Sum[BesselJ[n, 1.5*r] Exp[I n phi], {n, -5, 5}] + Sum[(0.00042221117650360055`*BesselJ[n, 3*r] + 3.026131439416714`*^-10*BesselY[n, 3*r])*Exp[I n... |
| Hi, I try to plot the following composite Sum of Bessel functions, with the given coefficients An-D_n prepared and inserted for, and with N defined as 5 (and not infinity): ![Function][1] and use: un[r_, phi_] := Piecewise[{Sum[ ... |
| Hi, I named a matrix A_n and got a series of values for it. Then I named the same matrix by An and I got a series of different results for it. What is happening? Thanks! |
| Hi, I have the data data = {{-20, 2.52177*10^-13}, {-19, 1.2556*10^-12}, {-18, 6.24859*10^-12}, {-17, 3.10783*10^-11}, {-16, 1.54463*10^-10}, {-15, 7.67041*10^-10}, {-14, 3.80498*10^-9}, {-13, 1.88499*10^-8}, {-12,... |
| Hello, I have prepared the determinant for a matrix, where its elements are Bessel functions of n'th degree. The determinant is given by: Table[-I^-n \[Zeta] (BesselJ[ n, \[Kappa]\[Zeta]] BesselY[-1 + n,... |
| Hi, I have the following matrix: m5 = {{0, -BesselJ[5, 3/2], -BesselY[5, 3/2], 0}, {0, -(3/2) (BesselJ[4, 3/2] - BesselJ[6, 3/2]), -(3/2) (BesselY[4, 3/2] - BesselY[6, 3/2]), 0}, {I^(5)*BesselJ[5, 1], BesselJ[5, 3],... |
| Hi, having this command: Table[Plot3D[u[r, phi, n] // Re, {r, 0, 4}, {phi, 0, 2 Pi}], {n, 0, 5, 1}](*Real Part*) I would like to label all the six plots that are generated, in one go. It does not work by the usual AxesLabel. How do I... |
| ![enter image description here][1] Hello, I try to prepare this function for plotting, but it appeared more difficult than expected. I have written the following code for the three respective functions on the image: u3[r_, \[Phi]_] :=... |
| Hi, after rigorous trying and help from some in the forum here, I turned out with the given command for a complex PDE: op = Function[r*D[#, r] + Tan[\[Phi]] D[#, \[Phi]]]; I*Nest[op, \[CapitalPsi][r, \[Phi]], 3] == 2... |
| Hi, I have tried out this command to test the results: op = I*Nest[op, \[CapitalPsi][r, \[Phi]], 3] == 2 \[CapitalPsi][r, \[Phi]]*r^2/Cos[\[Phi]]^5 sol = CapitalPsi[r, Phi] /. NDSolve[{op, CapitalPsi[0, Phi]... |