MathGroup Archive 2008

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

Search the Archive

Re: eliminate values while caculating Mean[data]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg91951] Re: eliminate values while caculating Mean[data]
  • From: kazik.lakomy at gmail.com
  • Date: Mon, 15 Sep 2008 03:38:51 -0400 (EDT)
  • References: <gag2rl$3fq$1@smc.vnet.net>

Hello Pasha,
I would generally recommend you to write your own functions, it's more
customizable:)
I wrote the function you need. Here it is:

The name of your set of data is "Data" and looks like in your post,
say: Data={1,2,3,4,5}; Value of "Summ" gives you a sum of all non-zero
elements in "Data" and "NonZeroValuesCounter" gives you a number of
non-zero entries in "Data". "Average" is what you want. Just paste the
script below into Mathematica and run:

Summ = 0; NonZeroValuesCounter = 0;
For[index = 1, index <= Length[Data], index += 1,
  If[Data[[index]] != 0, Summ += Data[[index]];
    NonZeroValuesCounter += 1];
  ];
Average = Summ/NonZeroValuesCounter;
Print["Summ: ", Summ, "
 NonZeroValuesCounter: ", NonZeroValuesCounter, "
 Average: ", Average]

-------------
Have fun,
best regards,
Kazik


  • Prev by Date: Re: Regressions in Mathematica
  • Next by Date: One fundamental Gudermannian identity not verified
  • Previous by thread: Re: eliminate values while caculating Mean[data]
  • Next by thread: Re: eliminate values while caculating Mean[data]