{ ]3 "ie ]U a) j` 0 ]9 ]8 0 Y_LABEL 0 ]- ]> 0 X_LABEL \o ]2 START_BAR \u \t X_POS \z \y Y_POS ] \ ZERO ] ] SCALE_VAL ] ]
INDEX ] ] STOP ] ] NEXT ] ] CNT ]" ]3 MAX STR ]' ]& DIAG \@ ], SHADOW2 \F \D X AXIS \L \J YAXIS \R \P XLENGTH \X \V YLENGTH \^ \\ MINVALUE \d \b MAXVALUE \i \h WIDTH \! \n SHADOW \0 \& \'VALUES P \
^ ^' ^8 Y `! `5 `J ]9 ]? \L ^ "R` \F ^ "6@ \R ^# "5p ]3 ]E
]J ] ^y \! ] ]P ] 6 ] & \
] @ J \
_] ` _n _{ _g _r ] _k x t \L ` ! ` ` ]" `
0 ]9 ` 0 ` \X `+ \! \^ `?
\! `N `_ `u `R `\ \! x \d `n
\L `r ! \d a
\L a a
a a a P \! 0 jU
a1 b az bB bV b[ c c% c; ch cv d iy j jP a- 9 a/ HOUSEKEEP a5 0 \@ \F \L \R ]9 ]3 9 a7 LABEL b
bH \z 9 bJ LABEL ] bl \! bv c \0 ]
\! ] c \0 9 c LABEL
] c4 ] c8 x c@ cS ] cI \0
] c] \0
] cr c{ d
0 d
T(B) d 0 d T(B)[10,2] ] d* ] il ] d. 0 d8 dO e e e5 eZ fR fw g: hM hU ig ] dG ] dK 0 \o d_ \@ dh \d dy
do d} dl ] P 0 \u e \0 ]
\i e, \d e0
X e9 eI \z \F \z \F e^ f \i en \z ex \0 ]
f f. \i f$ f \z \0 ]
\i f= \z fH \0 ]
fV fc \i f` \i fm \i f{ g g) \z g \0 ]
]' g \i ]' \i g? gL gb ]' gI ]- g[ \z g_ P ]- \z gu gz h h h" h' h2 h7 hH 0 gw P \o ]- 0 h (B)W(I1S1)P \o \u 0 h$ V(BW(E)) \d
0 h4 (B)V
\i ]' 0 hK W(S0)P(E)V(E)(E) hZ hf v i \@ h \d i
i i i ] P i i" p i+ \
i5 i9 iO iS 0 i8 P \o iH \F iL ! 0 iR W(I5)t i] \
iv 0 ix T(E) j jH ] j \0
j j jC 0 j p j/ j< j% j3 \@ \L !v@ \F j@ !^ 0 jF T"(More...)" jM 9 jO HOUSEKEEP k jd k k ] jm \! \
k DEFINE PLOT DRAWBAR
DECLARE STRING VECTOR STRINGS
DECLARE REAL VECTOR VALUES, SCALE_VALUES
(DECLARE X_AXIS, Y_AXIS, X_LENGTH, Y_LENGTH, MIN_VALUE, MAX_VALUE, WIDTH, SHADOW
+DECLARE X_POS, Y_POS, ZERO, SCALE_VAL, 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
SCALE_VALUES (CNT) = VALUES (CNT)
PLOT LABEL 8 (SCALE_VALUES)
STOP = NEXT + 6
IF STOP GT SIZE (SCALE_VALUES)
STOP = SIZE (SCALE_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 = SCALE_VALUES (NEXT)
SHADOW = WIDTH / 3
IS THEN
ZERO = Y_AXIS
IF SHADOW GE ZERO - SCALE_VALUES (NEXT) THEN
IF SHADOW GE SCALE_VALUES (NEXT) - ZERO THEN
SHADOW = ZERO - SCALE_VALUES (NEXT)
IF SHADOW < 0 THEN SHADOW = - SHADOW
IF ZERO LT SCALE_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(I1S1)P",
, 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(I5)t",
QUOTE (STRINGS(NEXT))
END
PRINT "T(E)"
IF NEXT LT SIZE (SCALE_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