Re: Kummulative Liste

[Udo und Susanne Krause <su.krause@XXXXXXX.ch>]

Hallo Sven,

na, dann hacken Sie einfach

Remove[stollF];
stollF[(o_List)?VectorQ] :=
If[l = Length[o]; l < 2, o, FoldList[Plus, First[o], Rest[o]]]

und Sie haben die Funktion. Wenn Sie sich die Argumente erst zurechtlegen
wollen, dann tippen Sie eher

Remove[stollG];
stollG[(o_List)?VectorQ] :=
If[l = Length[o]; l < 2, o, Table[Plus @@ Take[o, n], {n, l}]]

Finden Sie noch 3 weitere Funktionsbeschreibungen.

Mit den besten Grüssen
Udo.

Sven Stoll wrote:

> Hallo,
>
> ich suche eine Funktion, die mir jeweils die Summe alle ersten n- 
> Elemente liefert:
> Also, das erste Ergebnis-Element enthält auch nur das erste Quell- 
> Element
> Das zweite Ergebnis-Element enthält die Summe vom ersten und zweiten  
> Quell-Element, usw.
>
>
> list={170,13380,15,232}
>
> f/@list
>
> {170, 13550, 13565, 13797}
>
> Geht so was, wenn möglich ohne For und While?
>
> Danke.
> Sven