Sujet : Re: Average of a [stack]
De : buzz_mccool (at) *nospam* yahoo.com (Buzz McCool)
Groupes : comp.lang.forthDate : 15. Jul 2024, 18:18:55
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <v73lm1$pnjq$1@dont-email.me>
References : 1 2 3 4 5 6 7
User-Agent : Mozilla Thunderbird
On 7/12/2024 10:25 AM, Buzz McCool wrote:
On 7/10/2024 8:31 PM, dxf wrote:
Simpler to count down. I find it easier writing for a common-stack model.
>
: FloatStackAvg ( rn ... r -- avg )
fdepth dup >r ( count)
begin 1- dup while ( not done)
>r f+ ( add two floats) r>
repeat drop
r> s>f f/ ( sum/count)
;
So for a separate floating point stack model:
: FloatStackAvg ( rn ... r -- avg )
fdepth dup ( count)
begin 1 - dup while ( not done)
f+ ( add two floats)
repeat drop
s>f f/ ; ( sum/count)
Re: Average of a [stack]
Re: Average of a [stack]