Trailing-Edge
-
PDP-10 Archives
-
BB-AI48A-BM
-
datatrieve/vt240/bar_average.cdd-plot
There are 4 other files named bar_average.cdd-plot in the archive. Click here to see a list.
FEIyF\GHZ0FKFJ0XLABEL0F@FP0YLABELF"FDINDEXF1F&F(VALUESPFF5F7COUNTSP0F0FSTRINGS
0FEG0STNGGGVALUEGG2GGzH)F@G!GFG7GCHH F"F@HG
F"F@H3HMF1F@HCHQF1F@ 0InH^I_IiF@HoF"HyIF"F@I IF"F@F1F@I' FEFKFF"9I)DRAW_BARIf9IhDRAW_BAR
DEFINE PLOT BAR_AVERAGE
DECLARE STRING VECTOR STRINGS
DECLARE REAL VECTOR VALUES, COUNTS
DECLARE INDEX
DECLARE STRING X_LABEL, Y_LABEL
ENTRY 0 (X_LBL : STRING, Y_LBL : STRING)
BEGIN
X_LABEL = X_LBL
Y_LABEL = Y_LBL
END
ENTRY 1 (STNG : STRING, VALUE)
BEGIN
INDEX = SEARCH (STNG, STRINGS)
IF INDEX EQ 0
INDEX = SIZE (STRINGS) + 1
STRINGS (INDEX) = STNG
VALUES (INDEX) = VALUES (INDEX) + VALUE
COUNTS (INDEX) = COUNTS (INDEX) + 1
END
ENTRY 2
BEGIN
INCR INDEX OVER VALUES
VALUES (INDEX) = VALUES(INDEX) / COUNTS(INDEX)
PLOT DRAW_BAR 0 (X_LABEL, Y_LABEL, STRINGS, VALUES)
PLOT DRAW_BAR 2
END
END_PLOT