Trailing-Edge
-
PDP-10 Archives
-
BB-AI48A-BM
-
datatrieve/vt125/bar_average.cdd-plot
There are 4 other files named bar_average.cdd-plot in the archive. Click here to see a list.
h BE B\ C DZ 0 BK BJ 0 X LABEL 0 B@ BP 0 Y LABEL B" BD INDEX B1 B& B(VALUES P B B5 B7COUNTS P 0 B 0 BSTRINGS
0 BE C 0 STNG C C VALUE C C2 C Cz D) B@ C! C B C7 CC D D B" B@ D C
B" B@ D3 DM B1 B@ DC DQ B1 B@ 0 En D^ E_ Ei B@ Do B" Dy E B" B@ E E B" B@ B1 B@ E' BE BK B B" 9 E) DRAW_BAR Ef 9 Eh 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