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

Mathematica: Regarding ListPlot and Manipulate

  1. Mar 7, 2012 #1
    I am having trouble with ListPlot in combination with Manipulate. I can't see why it doesn't do what I tell it to.

    What I'm trying to do: I have several functions that is dependent upon one parameter t. These functions I got from solving a system with DSolve. I'd like to see their values varying with this parameter t next to each other like amplitude spikes, spaced 1 apart on an axis (not the t axis!).

    What I did: I tried using the Manipulate command like this

    Manipulate[ListPlot[{
    0.02 t^2,
    0.4 t,
    Abs[Subscript[y, 5][t] /. solution[[1]]]^2,
    0.4 t,
    0.02 t^2},
    Filling -> filling, PlotRange -> All], {t, 0, 25}, {filling, {None, Axis, Top, Bottom}}]

    here on place 3 is one of the functions that I'd like to see varying with t, and the other four places is just filled with some "whatever" functions.

    What I get: I get the anticipated evolution of all those "whatever" functions, although nothing for the one in the middle at place 3. This is strange to me! Since I can successfully plot the function alone in t like this

    Plot[Abs[Subscript[y, 5][t] /. solution[[1]]]^2, {t, 0, 75}]

    But in the above Manipulate and ListPlot I have a total blank on place 3.


    Someone feeling handy today?
     
  2. jcsd
  3. Mar 7, 2012 #2
    This is a wild guess here.

    I'm thinking you believe ListPlot means plot this list of functions.

    I believe Mathematica thinks ListPlot means plot this list of data points.
    http://reference.wolfram.com/mathematica/ref/ListPlot.html?q=ListPlot&lang=en
    I do not believe ListPlot creates lists of points for you.

    Perhaps try
    Manipulate[Plot[{
    0.02 t^2,...

    and see what you get.
    Plot[{a list of functions}
    should plot that list of functions on top of each other.

    OR

    Temporarily throw away your Manipulate and just see what

    ListPlot[{
    0.02 t^2,...

    does for a specific value of t. If that doesn't work then you have narrowed down your problem.
     
  4. Mar 7, 2012 #3
    Hello and thanks for the reply.
    I know what ListPlot does in that sense, however I thought it was worth a try since it did work to visualize an explicit functions amplitude like I wanted. Only now it failed with using something I've got as a solution. Bleh.

    I've changed some stuff now to accommodate nonliterary in my system, so it's NDSolve now. From this I receive nice solutions, but I'd still like to visualize them simultaneously spaced equally on a line. These will look like dots moving up and down as I vary the parameter t on each "site". Get the picture?
    I'm no pro at Mathematica, so do you know of any way to realize this? As I looked at it the Manipulate function and it looks like the best bet as I'd like to be able to vary t forth and back.
     
  5. Mar 7, 2012 #4
    I'm sorry, but I don't get the picture.

    Are you possibly trying to accomplish something like

    Manipulate[
    GraphicsRow[{
    Plot[someCompletePlotDependingOnt],
    Plot[someOtherCompletePlotDependingOnt],
    Plot[yetAnotherCompletePlotDependingOnt],
    Plot[etcCompletePlotDependingOnt]
    }],
    restOfMainpulateArgumentsIncludingt
    ]

    http://reference.wolfram.com/mathematica/ref/GraphicsRow.html
     
    Last edited: Mar 7, 2012
  6. Mar 8, 2012 #5
    Hey again. And no, that's not quite what I'd like. And ok, if you don't get my picture just run this and see

    Manipulate[
    ListPlot[{0.02 t^2, 0.4 t, 17 Sin[t], 0.4 t, 0.02 t^2},
    PlotRange -> 30, Filling -> filling], {t, 0,
    35}, {filling, {None, Axis, Bottom, Top}}]

    It views the plot as one-dimensional, having those dots racing up and down. Maybe there's some better option to this than using ListPlot and the rest, but I don't know of any.. Thank you for your time trying to help, much appreciated.
     
  7. Mar 12, 2012 #6
    Hello. Just reporting in that I solved this issue by using the "Block" command

    Manipulate[
    ListLinePlot[
    Table[Block[{t = k}, Abs[Subscript[y, i][t] /. solution[[1]]]^2], {i, 50, 151}],
    PlotRange -> {0, 0.7}, Filling -> Axis], {k, 0, 1100}]

    With this it, as I wanted, actually took forth the value of my solution and did not treat it as an "object".
     
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook




Similar Discussions: Mathematica: Regarding ListPlot and Manipulate
  1. Manipulate Mathematica (Replies: 1)

Loading...