MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Plot Manipulate Table

  • To: mathgroup at smc.vnet.net
  • Subject: [mg121122] Re: Plot Manipulate Table
  • From: Peter Pein <petsie at dordos.net>
  • Date: Mon, 29 Aug 2011 07:43:50 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <j3fgc2$fbm$1@smc.vnet.net>

Am 29.08.2011 09:50, schrieb . .:
> Hi all,
> 
> I want to plot
> 
> ConditionalExpression[(
>  a^y \[Lambda] (a + \[Lambda])^(-1 - y) Gamma[1 + y])/y!,
>  Re[a + \[Lambda]] > 0 && Re[y] > -1]
> 
> y is the variable. The value of may be 0.1 and the value of [\Lambda]
> can be 1. It would be nice if "a" can be manipulable.
> 
> I have seen this post,
> 
> http://forums.wolfram.com/student-support/topics/26441
> 
> but can not port the idea to my case. I have tried,
> 
> Manipulate[
>  ListLinePlot[
>   Table[(a^y \[Lambda] (a + \[Lambda])^(-1 - y) Gamma[1 + y])/
>    y!, {y, 0, 10, 1}], PlotRange -> {0, 1}, DataRange -> {0, 5},
>   PlotMarkers -> Automatic], {a, 0.01, 1, 0.01}]
> 
> but obviously
> 

Hi,

if you did not assign a value to lambda, the plot command does not know
what to do with the symbilc values.

Try

Manipulate[
  With[{\[Lambda]=1},
   ...
]]

or add a slider for lambda too:

Manipulate[
  ListLinePlot[
    (* Gamma[1+ y] and y! cancel of course *)
    Table[a^y*\[Lambda]*(a + \[Lambda])^(-1 - y), {y, 0, 10}],
    PlotRange -> {0, 1}, DataRange -> {0, 5},
    PlotMarkers -> Automatic
  ], {a, 0.01, 1, 0.01}, {{\[Lambda], 1}, 0, 2, 0.05}
]


hth,
  Peter




  • Prev by Date: CDF file works at home, not when posted on WordPress
  • Next by Date: Re: NDSolve solution does not fulfill boundary condition ??
  • Previous by thread: Plot Manipulate Table
  • Next by thread: NDSolve solution does not fulfill boundary condition ??