Solved

# Median value

Posted on 2008-10-09
Medium Priority
303 Views
I have a Running Total field in a Group Footer. I would like to get the Median value of those Running Totals in the Report Footer. Unfortunately, I am not offered the Group Running Total as one of the possible fields to summarize in another Running Total field.

Any ideas?
0
Question by:bt0011
• 7
• 3
• 2

LVL 17

Expert Comment

ID: 22682439
Replace the Running TOTAL with a VARIABLE that will do the exact same thing. They use the VARIABLE to obtain the Median Value.

M
0

Author Comment

ID: 22682569
I think I've already done that. To be clear, this report has multiple records which I use Running Total fields to add up in the Group Footer. I have a Variable in the Group Footer which sums two Running Total fields but this Variable does not appear as a field to summarize in the Report Footer.

or

are you saying I should replace the Running Total fields in the Group Footer with Variables?
0

LVL 17

Expert Comment

ID: 22682593

.... "....are you saying I should replace the Running Total fields in the Group Footer with Variables ...."

YES...that is what I'm saying...then the VARIABLE that is displayed...wherever can be used to calculate the MEDIAN Value at any given point in the report....GROUP FOOTER ...AND/OR...REPORT FOOTER...

M
0

LVL 101

Expert Comment

ID: 22682825
You can't use the summary functions on variables or on running totals.

You can use a summary function on a formula but a formula that calculates the sum of 2 running totals is evaluated after all summary functiions are done.

You will have to develop a set of formulas to do the median.

WhilePrintingRecords;
Global NumberVar Array GroupTotals;
Global NumberVar GroupCount;

In the group footer add a formula
WhilePrintingRecords;
Global NumberVar Array GroupTotals;
Global NumberVar GroupCount;
GroupCount := GroupCount + 1;
Redim Preserve GroupTotals[GroupCount];
GroupTotals[GroupCount] := {RTotal1} + {RTotal2};

Local NumberVar i;
Local NumberVar Temp;
For i := 1 to GroupCount - 1 do
If GroupTotals[i] > GroupTotals[i+1] then
(
Temp := GroupTotals[i];
GroupTotals[i] := GroupTotals[i+1];
GroupTotals[i+1] := Temp;
);
''

In the report footer
WhilePrintingRecords;
Global NumberVar Array GroupTotals;
Global NumberVar GroupCount;
If GroupCount mod 2 = 1 then
GroupTotals[(GroupCount+1)/2]
else
(GroupCount[GroupCount/2] + GroupTotals[(GroupCount/2) + 1]) / 2

mlmcc
0

Author Comment

ID: 22683282
That is not working either... Perhaps because trying to do a Running Total Median is a 2nd pass operation which, per the Help, isn't supported. Is there a way to do the Median against to Group variable manually?
0

Author Comment

ID: 22683292
Sorry, did not see MLMCC's response before my last post, I will give that a try. Thanks
0

Author Comment

ID: 22711159
OK!! This is very close to working (Whew!!)  Just couple of minor things

First, in the Report Footer formula I had to change this:

(GroupCount[GroupCount/2]

to this (

GroupTotals[(GroupCount/2] No big deal...

Now I have just one more minor problem... It seems that the wrong array values are being used, For example, when I have 10 values I get the quotient of the 6th and 7th value  / 2 instead of the 5th and 6th value. If I change to 9 values, I get the 6th value instead of the 5th value.

Seems like the array is being populated with a one place offset since the retrival formula in the Report Footer look like they are set to get the right slots...

I've tried to figure this out on my own ( obviously not well...) but I cannot see where
the problem is.

Thank you for all your help so far. It's been a real lifeline!
0

LVL 101

Expert Comment

ID: 22711454
Can you copy and paste your formulas?

mlmcc
0

Author Comment

ID: 22711588

WhilePrintingRecords;
Global NumberVar Array GroupTotals;
Global NumberVar GroupCount;

Group Footer:

WhilePrintingRecords;
Global NumberVar Array GroupTotals;
Global NumberVar GroupCount;
GroupCount := GroupCount + 1;
Redim Preserve GroupTotals[GroupCount];
GroupTotals[GroupCount] := {#RTotal0} + {#RTotal1};
Local NumberVar i;
Local NumberVar Temp;
For i := 1 to GroupCount - 1 do

If GroupTotals[i] > GroupTotals[i+1] then

(
Temp := GroupTotals[i];
GroupTotals[i] := GroupTotals[i+1];
GroupTotals[i+1] := Temp;
);

''

Report Footer:

WhilePrintingRecords;
Global NumberVar Array GroupTotals;
Global NumberVar GroupCount;
If GroupCount mod 2 = 1 then
GroupTotals[(GroupCount+1)/2]
else
(GroupTotals[GroupCount/2] + GroupTotals[(GroupCount/2) + 1]) / 2
0

LVL 101

Accepted Solution

mlmcc earned 1000 total points
ID: 22711616
The problem is the insertion sort.  Try this one

WhilePrintingRecords;
Global NumberVar Array GroupTotals;
Global NumberVar GroupCount;
Local NumberVar NewValue :=  {RTotal1} + {RTotal2};
GroupCount := GroupCount + 1;
Redim Preserve GroupTotals[GroupCount];

Local NumberVar i;
i := GroupCount -1;
While  (i > 0) AND (GroupTotals[i] > NewValue) do
(
GroupTotals[i+1] := GroupTotals[i];
i := i -1;
);
GroupTotals[i+1] := NewValue;
''

mlmcc
0

Author Comment

ID: 22712748
That works beautifully!!!

Thank you!!!
0

Author Closing Comment

ID: 31504810
Thank you!
0

## Featured Post

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.