Trailing-Edge
-
PDP-10 Archives
-
BB-AI48A-BM
-
datatrieve/pc350/bar_average.cdd-plot
There are 4 other files named bar_average.cdd-plot in the archive. Click here to see a list.
{ \E ie \\ ] ^Z 0 \K \J 0 X LABEL 0 \@ \P 0 Y LABEL \" \D INDEX \1 \& \(VALUES P \ \5 \7COUNTS P 0 \ 0 \STRINGS
0 \E ] 0 STNG ] ] VALUE ] ]2 ] ]z ^) \@ ]! ] \ ]7 ]C ^ ^ \" \@ ^ ]
\" \@ ^3 ^M \1 \@ ^C ^Q \1 \@ 0 _n ^^ __ _i \@ ^o \" ^y _ \" \@ _ _ \" \@ \1 \@ _' \E \K \ \" 9 _) DRAW_BAR _f 9 _h DRAW_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