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 Implicit function contain Sum (sigma)

  1. Aug 17, 2013 #1
    Dear friends,
    Over the past week, I tried to plot implicit function by mathematica but failed. I am very disappointed. Hopefully someone help me at this time.
    My equation is given by (see below figure):
    z0 := 6
    d := 12
    k := 11800
    w0 := 0.025
    w[z_] := sqrt[w0^2*(1 + (z/z0)^2)]
    deltaphi0[z_] := 0.6/(1 + (z^2/z0^2))
    R[z_] := z*(1 + (z0/z)^2)
    wm0[z_] := sqrt[w^2/(2*m + 1)]
    dm[z_] := (k/2)*((wm0)^2)
    g[z_] := 1 + (d/R)
    wm[z_] := wm0*sqrt[[g^2 + (d)^2/dm^2]]
    Rm[z_] := d*(1 - g/(g^2 + (d/dm)^2))^(-1)
    thetam[z_] := ArcTan[d/(dm*g)]
    I want to plot a graph to represent the dependence of r (z). I have tried the following code-mathematica file
    But mathamatica plot 2 coordinate axes without data (no points).
    Please help me!
    This is the mathematica file
    and my function
    Thanks very much.
  2. jcsd
  3. Aug 18, 2013 #2
    Quick look suggest you got that little s in there: First rule of Mathematica: all built-in functions names start with capital letters like Sqrt
  4. Aug 18, 2013 #3
    I don't know how many more errors remain, but this fixes the first couple of waves and does plot something.

    In[1]:= z0 = 6;
    d = 12;
    k = 11800;
    w0 = 0.025;
    w[z_] := Sqrt[w0^2*(1 + (z/z0)^2)];
    deltaphi0[z_] := 0.6/(1 + (z/z0)^2);
    R[z_] := z*(1 + (z0/z)^2);
    wm0[z_] := Sqrt[w[z]^2/(2*m + 1)];
    dm[z_] := k/2*wm0[z]^2;
    g[z_] := 1 + d/R[z];
    wm[z_] := wm0[z]*Sqrt[g[z]^2 + (d/dm[z])^2];
    Rm[z_] := d/(1 - g[z]/(g[z]^2 + (d/dm[z])^2));
    thetam[z_] := ArcTan[d/(dm[z]*g[z])];
    ContourPlot[ Abs[ Sum[ (I*deltaphi0[z])^m/m!*wm0[z]/wm[z]* Exp[-r^2/wm[z]^2 - I*k*r^2/2*Rm[z] + I*thetam[z]], {m, 0, 1}]]^2 - 0.153*Abs[ Sum[ (I*deltaphi0[z])^m/m!*wm0[z]/wm[z]*Exp[I*thetam[z]], {m, 0, 1}]]^2 == 0, {r, -100, 100}, {z, -100, 100}]

    Out[14]= ...PlotSnipped...

    There are fairly clearly other things wrong. For example, when I change your plot range {r, -100, 100} to {r, -5, 5} to try to zoom in on the horizontal axis, instead of getting a substantially wider and more detailed version of your plot I get a narrower and narrower plot. So I think at least a couple of other things are seriously broken in the code.
    Last edited: Aug 18, 2013
  5. Aug 18, 2013 #4
    Great. That's a good start.

    Now, to the poster:

    How do we proceed from here? Well, I can tell you how to fix it without even looking at it: Start cutting things out, make it simpler while trying to keep the qualitative content of the code you're trying to run. Keep doing that even if you have to mercilessly hack it to death until it only vaguely resembles the original code. Get that simplified version running. Then piece by piece and not 2 or three at time, add one thing to the code, get it running, add another, get it running, then another until you build it back up to what you're trying to do.
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook

Similar Threads - Mathematica Plot Implicit Date
Mathematica Cannot Plot This Function in Mathematica Feb 26, 2018
Is the integral for current correct? Jul 7, 2017
Mathematica Plot Real Portion (Contour Plot) Jun 21, 2017
Mathematica Add a rectangle to a plot to indicate range Jun 15, 2017
Implicit function plot in Mathematica Sep 5, 2012