I3 !W! IU M) V` 0 I9 I8 0 Y_LABEL 0 I- I> 0 X_LABEL Ho I2 START_BAR Hu Ht X_POS Hz Hy Y_POS I H ZERO I I SCALE_VAL I I
INDEX I I STOP I I NEXT I I CNT I" I3 MAX STR I' I& DIAG H@ I, SHADOW2 HF HD X AXIS HL HJ YAXIS HR HP XLENGTH HX HV YLENGTH H^ H\ MINVALUE Hd Hb MAXVALUE Hi Hh WIDTH H! Hn SHADOW H0 H& H'VALUES P H
J J' J8 KY L! L5 LJ I9 I? HL J "R` HF J "6@ HR J# "5p I3 IE
IJ I Jy K H! I IP I K K6 K I K& H
I K@ KJ H
K] L Kn K{ Kg Kr I Kk x t HL L ! L L I" L
0 I9 L 0 L HX L+ H! H^ L?
H! LN L_ Lu LR L\ H! x Hd Ln
HL Lr ! Hd M
HL M M
M M M P H! 0 VU
M1 N Mz NB NV N[ O O% O; Oh Ov P Uy V VP M- 9 M/ HOUSEKEEP M5 0 H@ HF HL HR I9 I3 9 M7 LABEL N
NH Hz 9 NJ LABEL I Nl H! Nv O H0 I
H! I O H0 9 O LABEL
I O4 I O8 x O@ OS I OI H0
I O] H0
I Or O{ P
0 P
T(B) P 0 P T(B)[10,2] I P* I Ul I P. 0 P8 PO Q Q Q5 QZ RR Rw S: TM TU Ug I PG I PK 0 Ho P_ H@ Ph Hd Py
Po P} Pl I P 0 Hu Q H0 I
Hi Q, Hd Q0
X Q9 QI Hz HF Hz HF Q^ R Hi Qn Hz Qx H0 I
R R. Hi R$ R Hz H0 I
Hi R= Hz RH H0 I
RV Rc Hi R` Hi Rm Hi R{ S S) Hz S H0 I
I' S Hi I' Hi S? SL Sb I' SI I- S[ Hz S_ P I- Hz Su Sz T T T" T' T2 T7 TH 0 Sw P Ho I- 0 T (B)W(I(C)S1)P Ho Hu 0 T$ V(BW(E)) Hd
0 T4 (B)V
Hi I' 0 TK W(S0)P(E)V(E)(E) TZ Tf v U H@ T Hd U
U U U I P U U" p U+ H
U5 U9 UO US 0 U8 P Ho UH HF UL ! 0 UR W(I(W))t U] H
Uv 0 Ux T(E) V VH I V H0
V V VC 0 V p V/ V< V% V3 H@ HL !v@ HF V@ !^ 0 VF T"(More...)" VM 9 VO HOUSEKEEP W Vd W W I Vm H! H
W DEFINE PLOT DRAWBAR
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, 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
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