G- !U GO K# TW 0 G3 G2 0 Y_LABEL 0 G' G8 0 X_LABEL Fo G, START_BAR Fu Ft X_POS Fz Fy Y_POS G F ZERO G G INDEX G G
STOP G G NEXT G G CNT G G MAX STR G! G> DIAG F@ G& SHADOW2 FF FD X AXIS FL FJ Y AXIS FR FP X LENGTH FX FV Y LENGTH F^ F\ MIN VALUE Fd Fb MAXVALUE Fi Fh WIDTH F! Fn SHADOW F0 F& F'VALUES P F
F@ Gp !y FL H "R` FF H "6@ FR H "5p G- G?
GD G F! G GJ G I I0 I G I F
G I: ID F
Ih Iu Ia Il G Ie x t FL Iy ! J J G I| 0 G3 J 0 J FX J% F! F^ J9 F! JH JY Jo JL JV F! x Fd Jh
FL Jl ! Fd J
FL K K K K K
P F! 0 TL
K+ L Kz L< LP LU M M M5 Mb Mp N Sr Sv TH K' 9 K) HOUSEKEEP K/ 0 F@ FF FL FR G3 G- 9 K1 LABEL L L FX L FX L L! FX F^ 9 L# LABEL LB Fz 9 LD LABEL G Lf F! Lp M F0 G F! G M
F0 9 M
LABEL G M. G M2 x M: MM G MC F0 G MW F0 G Ml Mu N N
0 N G N# G Se G N' 0 N1 NH Nz O O. OS PI Pp Q3 RF RN S` G N@ G ND 0 Fo NX F@ Na Fd Nr
Nh Nv Ne G P 0 Fu O
F0 G Fi O%
Fd O)
X O2 OB Fz FF Fz FF OW O{ Fi Og
Fz Oq F0 G P P$ Fi P
P Fz F0 G Fi P3
Fz P> F0 G PN P[ Fi PX
Fi Pe
Fi
Pt Q Q" Fz Q F0 G G! Q Fi
G! Fi
Q8 QE Q[ G! QB G' QT Fz QX P G' Fz Qn Qs R R
R R R+ R0 RA 0 Qp P Fo G' 0 R (B)W(I(C)S1)P Fo Fu 0 R V(BW(E)) Fd
0 R- (B)V
Fi G!
0 RD W(S0)P(E)V(E)(E) RS Ro Ro S F@ Rx Fd S
R S P S S p S$ F
S. S2 SH SL 0 S1 P Fo SA FF SE ! 0 SK W(I(W))t SV F
So 0 Sq T(E) S{ T? G T F0 T T T; 0 T p T' T4 T T+ F@ FL !v@ FF T8 !^ 0 T= T"(More...)" TD 9 TF HOUSEKEEP U
T[ U U G Te F! F
U 9 U 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