Re: ListPlot

[Michael Gamer <Michael.Gamer@XXXXXXX.de>]

Bin leider etwas in Eile, daher eine "Quick and dirty" Vorschlag, der, wenn ich Dich richtig verstanden habe, das tut 
was Du willst...


li = {1, 2, 3, 4};
Manipulate[
 ListPlot[li - k Table[KroneckerDelta[i, index], {i, 1, 4}], 
  PlotRange -> {{0, 4.5}, {-2.5, 4.5}}, PlotStyle -> PointSize[0.02]], {k, 1, 
  3, 1}, {index, 1, 4, 1}]

Viele Grüße

Michael

Am 14.09.2011 um 15:38 schrieb Andreas Rychen:

> li = {1, 2, 3, 4};
> Manipulate[
>  ListPlot[li - k, PlotRange -> {{0, 4.5}, {-2.5, 4.5}}, 
>   PlotStyle -> PointSize[0.02]], {k, 1, 3, 1}]