{ ]- "ie ]O a# jW 0 ]3 ]2 0 Y_LABEL 0 ]' ]8 0 X_LABEL \o ], START_BAR \u \t X_POS \z \y Y_POS ] \ ZERO ] ] INDEX ] ]
STOP ] ] NEXT ] ] CNT ] ] MAX STR ]! ]> DIAG \@ ]& SHADOW2 \F \D X AXIS \L \J Y AXIS \R \P X LENGTH \X \V Y LENGTH \^ \\ MIN VALUE \d \b MAXVALUE \i \h WIDTH \! \n SHADOW \0 \& \'VALUES P \
\@ ]p !y \L ^ "R` \F ^ "6@ \R ^ "5p ]- ]?
]D ] \! ] ]J ] 0 ] \
] : D \
h u a l ] e x t \L y ! ` ` ] | 0 ]3 ` 0 ` \X `% \! \^ `9 \! `H `Y `o `L `V \! x \d `h
\L `l ! \d `
\L a a a a a
P \! 0 jL
a+ b az b< bP bU c c c5 cb cp d ir iv jH a' 9 a) HOUSEKEEP a/ 0 \@ \F \L \R ]3 ]- 9 a1 LABEL b b \X b \X b b! \X \^ 9 b# LABEL bB \z 9 bD LABEL ] bf \! bp c \0 ] \! ] c
\0 9 c
LABEL ] c. ] c2 x c: cM ] cC \0 ] cW \0 ] cl cu d d
0 d ] d# ] ie ] d' 0 d1 dH dz e e. eS fI fp g3 hF hN i` ] d@ ] dD 0 \o dX \@ da \d dr
dh dv de ] P 0 \u e
\0 ] \i e%
\d e)
X e2 eB \z \F \z \F eW e{ \i eg
\z eq \0 ] f f$ \i f
f \z \0 ] \i f3
\z f> \0 ] fN f[ \i fX
\i fe
\i
ft g g" \z g \0 ] ]! g \i
]! \i
g8 gE g[ ]! gB ]' gT \z gX P ]' \z gn gs h h
h h h+ h0 hA 0 gp P \o ]' 0 h (B)W(I(C)S1)P \o \u 0 h V(BW(E)) \d
0 h- (B)V
\i ]!
0 hD W(S0)P(E)V(E)(E) hS ho ho i \@ hx \d i
h i P i i p i$ \
i. i2 iH iL 0 i1 P \o iA \F iE ! 0 iK W(I(W))t iV \
io 0 iq T(E) i{ j? ] j \0 j j j; 0 j p j' j4 j j+ \@ \L !v@ \F j8 !^ 0 j= T"(More...)" jD 9 jF HOUSEKEEP k
j[ k k ] je \! \
k 9 k DRAW_BAR DEFINE PLOT DRAW_BAR
DECLARE STRING VECTOR STRINGS
DECLARE REAL VECTOR VALUES, SCALED_VALUES
(DECLARE X_AXIS, Y_AXIS, X_LENGTH, Y_LENGTH, MIN_VALUE, MAX_VALUE, WIDTH, SHADOW
&DECLARE X_POS, Y_POS, ZERO, INDEX, STOP, NEXT, CNT, MAX_STR, DIAG, SHADOW2
DECLARE START_BAR
DECLARE STRING Y_LABEL, X_LABEL
! Get data points
ENTRY 0 (X_LBL: STRING,
Y_LBL: STRING,
STRS : STRING VECTOR,
VALS : REAL VECTOR)
BEGIN
X_LABEL = X_LBL
X_AXIS = 100
X_LENGTH = 600
Y_AXIS = 360
Y_LENGTH = 350
Y_LABEL = Y_LBL
INCR CNT OVER STRS
BEGIN
STRINGS (CNT) = STRS (CNT)
VALUES (CNT) = VALS (CNT)
IF LENGTH (STRINGS(CNT)) GT MAX_STR
MAX_STR = LENGTH (STRINGS (CNT))
END
IF MAX_STR * 6 + 5 GT X_LENGTH / 9
BEGIN
DIAG = 1
X_LABEL = " "
END
IN (VALUES)
(VALUES)
IF SIZE (VALUES) GE 6
THEN WIDTH = X_LENGTH / 13
ELSE WIDTH = X_LENGTH / (2 * SIZE(VALUES) + 1)
END
ENTRY 2
BEGIN
PLOT HOUSEKEEP 0
# PLOT LABEL 0 (X_AXIS, Y_AXIS, X_LENGTH, Y_LENGTH, X_LABEL, Y_LABEL)
IF MIN_VALUE GT 0 THEN MIN_VALUE = 0
PLOT LABEL 3 (MIN_VALUE, MAX_VALUE)
PLOT LABEL 15 (ZERO)
INCR CNT OVER VALUES
SCALED_VALUES (CNT) = VALUES (CNT)
PLOT LABEL 8 (SCALED_VALUES)
STOP = NEXT + 6
IF STOP GT SIZE (SCALED_VALUES)
STOP = SIZE (SCALED_VALUES)
INDEX = 0
IF DIAG EQ 0
THEN PRINT "T(B)"
ELSE PRINT "T(B)[10,2]"
INCR NEXT FROM NEXT + 1 TO STOP
BEGIN
INDEX = INDEX + 1
X_POS = X_AXIS + WIDTH * (2 * INDEX - 1)
Y_POS = SCALED_VALUES (NEXT)
SHADOW = WIDTH / 3
IS THEN
ZERO = Y_AXIS
IF SHADOW GE ZERO - SCALED_VALUES (NEXT) THEN
IF SHADOW GE SCALED_VALUES (NEXT) - ZERO THEN
SHADOW = ZERO - SCALED_VALUES (NEXT)
IF SHADOW < 0 THEN SHADOW = - SHADOW
IF ZERO LT SCALED_VALUES (NEXT)
THEN SHADOW2 = - SHADOW
ELSE SHADOW2 = SHADOW
IF SHADOW2 > 0
THEN START_BAR = ZERO - 2
ELSE START_BAR = ZERO
PRINT "P", LXY (X_POS, START_BAR), "(B)W(I(C)S1)P",
OS, YPOS),
"V(BW(E))", RX (WIDTH), "(B)V", RXY (SHADOW, SHADOW2),
(E)(E)"
IF DIAG EQ 0
THEN X_POS = X_AXIS + (WIDTH * (2 * INDEX - .5)) - 4
* LENGTH (STRINGS (NEXT))
PRINT "P",LXY (X_POS, Y_AXIS + 15), "W(I(W))t",
QUOTE (STRINGS(NEXT))
END
PRINT "T(E)"
IF NEXT LT SIZE (SCALED_VALUES)
PRINT "p", LXY (X_AXIS + X_LENGTH - 90, Y_AXIS + 60),
"T""(More...)"""
PLOT HOUSEKEEP 2
END
! Re-sort data by height and replot
ENTRY 3
BEGIN
NEXT = 0
SORT DESC (VALUES, STRINGS)
PLOT DRAW_BAR 2
END
END_PLOT