Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

Mathematica: plot and evaluate function of 2 variables

  1. Oct 12, 2010 #1
    Hi all,

    I am trying to evaluate and plot a function of two variable in mathematica.


    Code (Text):
    R(t,\theta) = a(t) + b(t)*Y_n(\theta)
    Where a(t) and b(t) are functions (that I have evaluated already), and Y is the spherical harmonic for a given n, and R is the radius.

    In mathematica I am unsure how to evaluate and plot a function of two variables in spherical coordinates. I attempted to use "SphericalPlot3D" to plot R as a function of \theta and \phi, and "Manipulate" to add a slider to adjust the time but am having no luck.

    Any help would be APPRECIATED!!!
  2. jcsd
  3. Oct 12, 2010 #2
    Is this something like what you are trying to do?

    a[t_] := 2t; b[t_] := t^2; m = 1;(* < --- Substitute your functions here *)
    R[t_, n_, m_, theta_, phi_] := a[t] + b[t]*SphericalHarmonicY[n, m, theta, phi]
    Manipulate[SphericalPlot3D[R[t, n, m, theta, phi], {theta, 0, 2Pi}, {phi, 0, Pi}], {t, 0, 1}, {n, 0, 4, 1}]

    Can you perhaps adapt this for what you need?
  4. Oct 12, 2010 #3
    That is pretty similar to what I have tried... but, I'll try copying that and modifying it.

    As usual, I suspect that I am missing just one small detail.
  5. Oct 12, 2010 #4
    If your modification doesn't work then divide the problem into simpler tasks.
    Confirm that
    SphericalPlot3D[SphericalHarmonicY[1, 2, theta, phi]], {theta, 0, 2Pi}, {phi, 0, Pi}]
    plot matches http://mathworld.wolfram.com/SphericalHarmonic.html
    and substitute a few other values for the 1 and 2.
    Then try a simpler Manipulate example using a Real and Integer value from the Help and confirm that works. That might uncover some of your missing details.
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook