{ ^ ie ^# b3 cP ^ ^ Y_LEN ]a ^
Y ASPECT ]g ]e STRIDE ]m ]k POINTS ]s ]q Y ORIGIN ]y ]w Y BASE ]% ]} Y HIGH 0 ]9 ]* 0 ]+L LABEL \] \x K \c \b TALLY 1 \L \g OFFSET 2 \R \Q BAR WIDTH 3 \X \W BARX \* \\ BARY \/ \. YREF \5 \4 YLENGTH \; \: YMIN \@ \? YMAX \F \E YSCALE \
^- ^< ^E ^P ^Z ^e ^i ^ _ _- _C _Y _r ` ` `6 `D `R `a aA aI ^) 9 ^+ HOUSEKEEP ^4 0 ^7 S(M 1(AH150L45S100)2(AH150L30S66)3(AH150L45S66)) ^B 0 ^D L(A1) ^K 0
^M L"X"FFFFFFFFFFFFFFFF ^U 0
^X L"Y"FFFFFFFFFFFFFFFF ^` 0
^b L"Z"FFFFFFFFFFFFFFFF ^r ^z ]M ^w 0 0 ^| X ] \7 `> ]M ; P 0 cA Y M T ] Q P YP c ^ ]% bg P { ` ]M ` X 0 ` Z ` ` ] ` X X `' ^ ]% `, X \
b( \y c c c \y 0 c0 b- \y c> c5 cB \y 0 mM cT d d* df dy e% eh eo f f- fG fj g gE gN gR l& lM m< mH \L cd \ d cu c| cn cy \] cr 0 ]9 0 \i d \] \L d# ( \
\y \; e
\y e
\5 \; 9 e LABEL
e+ ( \5 \; ]g ]a ]s 9 e- LABEL
]y f
f ]s ]g ]a ^ f# ]y ]s ^ f= \/ ^ ]m fV \* f` ^ ]s fo f| ]y fy ]m g \* \/ g g' ]s g$ ]m \* g6 \y 9 g8 LABEL gJ 0 gM @:A \i l! ]9 gc h h& gl \* ] gz gq h ] 0 \c h h h# \i h 0 X \n h1 \] l 0 h9 i i. kZ l \R hH
\ \L i hs i hc h} h\ hl \i h` 0 \] hp 0 \n i 0 0 \X i
\y i% \c \n i3 kS \X iB
\* iF 0 ie j j; k k( kO iJ iO ia 0 iM W(I0S iY ]m i] 0 0 id )P ij iy j \R \X
0 i{ V \L j j j# j7 0 j T(A1)W(S j ]m j 0 j, ]M \n 0 j: ) j@ jD jW j\ jl jq 0 jC W(I jM ] \n 0 jY )P \R \X
0 jo V j{ \L j 0 k k
k k 0 k W(S0)P \R ]m
0 k V \X
k. k> k7 \L k; 0 kH ]m kL 0 kc l ] kq kh ku ] 0 \y l
\c \n l 0 l T(A0) l0 \* ] l= l4 lA ] 0 lJ 0 lL @;@A lQ H \
DECLARE X_REF, X_LENGTH, X_MIN, X_MAX, X_SCALE
DECLARE Y_REF, Y_LENGTH, Y_MIN, Y_MAX, Y_SCALE, Y_LABEL
DECLARE BAR_WIDTH, BAR_X, BAR_Y
DECLARE TALLY, OFFSET
DECLARE CNT, JCNT, K
DECLARE VECTOR Y_VALUE, Y_MX, COLOR
DECLARE STRING VECTOR L_LABEL, X_LABEL, HATCH
DECLARE REAL STRIDE, POINTS, Y_ORIGIN, Y_BASE, Y_HIGH
DECLARE REAL Y_LEN, Y_ASPECT
ENTRY 0 (X_LABEL : STRING,
LABEL_1 : STRING,
LABEL_2 : STRING,
LABEL_3 : STRING)
BEGIN
PLOT HOUSEKEEP 0
PRINT "S(M 1(AH150L45S100)2(AH150L30S66)3(AH150L45S66))"
PRINT "L(A1)"
PRINT "L""X""FFFFFFFFFFFFFFFF"
PRINT "L""Y""FFFFFFFFFFFFFFFF"
PRINT "L""Z""FFFFFFFFFFFFFFFF"
HATCH(1) = "X" COLOR(1) = 1 L_LABEL(1) = LABEL_1
HATCH(2) = "Y" COLOR(2) = 2 L_LABEL(2) = LABEL_2
HATCH(3) = "Z" COLOR(3) = 3 L_LABEL(3) = LABEL_3
" X_REF = 100 Y_REF = 360 X_LENGTH = 600 Y_LENGTH = 350
! PLOT LABEL 0 (X_REF,Y_REF,X_LENGTH,Y_LENGTH,X_LABEL,Y_LABEL)
LLABEL
IF LENGTH(L_LABEL(CNT)) NE 0 THEN
TALLY = TALLY + 1
END
ENTRY 1 (X : STRING, Y1, Y2, Y3)
BEGIN
X_LABEL(SIZE(X_LABEL) + 1) = X
Y_VALUE(SIZE(Y_VALUE) + 1) = Y1
Y_VALUE(SIZE(Y_VALUE) + 1) = Y2
Y_VALUE(SIZE(Y_VALUE) + 1) = Y3
END
ENTRY 2
BEGIN
BAR_WIDTH = X_LENGTH / (((TALLY + 1) * SIZE(X_LABEL)) + 1)
CNT = TALLY * BAR_WIDTH
PLOT X_LABEL 0 (X_REF, Y_REF, CNT, BAR_WIDTH, X_LABEL)
N(YVALUE)
VALUE)
PLOT LABEL 3 (Y_MIN,Y_MAX)
PLOT LABEL 10 (Y_MIN, Y_MAX, POINTS, STRIDE, Y_BASE)
Y_HIGH = POINTS * STRIDE + Y_BASE
Y_LEN = Y_HIGH - Y_BASE
Y_ASPECT = Y_LENGTH / Y_LEN
Y_ORIGIN = Y_REF + (Y_ASPECT * Y_BASE)
IF Y_HIGH LE 0 THEN
Y_ORIGIN = Y_REF - Y_LENGTH
IF Y_BASE GE 0 THEN
Y_ORIGIN = Y_REF
PLOT LABEL 8 (Y_VALUE)
PRINT "@:A "
R XLABEL
BEGIN
Y_MX(SIZE(Y_MX) + 1) = Y_REF
OFFSET = (CNT - 1) * 3
INCR JCNT FROM 1 TO TALLY
BEGIN
+ BAR_X = X_REF + BAR_WIDTH * (((CNT - 1) * (TALLY + 1)) + (JCNT - 1) + 1)
BAR_Y = Y_VALUE(OFFSET + JCNT)
IF BAR_Y LT (Y_REF - 1) THEN
BEGIN
PRINT "W(I0S", LY(Y_ORIGIN - 1), ")P"
PRINT LXY(BAR_X,BAR_Y), "V", RX(BAR_WIDTH)
& PRINT "T(A1)W(S", LY(Y_ORIGIN - 1), QUOTE(HATCH(JCNT)), ")"
0 PRINT "W(I", CVT(COLOR(JCNT)), ")P", LXY(BAR_X,BAR_Y), "V", RX(BAR_WIDTH - 1)
" PRINT "W(S0)P", LXY(BAR_X,Y_ORIGIN), "V", LY(BAR_Y)
PRINT RX(BAR_WIDTH - 1), LY(Y_ORIGIN - 1)
END
Y_MX(SIZE(Y_MX) + 1) = Y_VALUE(OFFSET + JCNT)
NT "T(A0)"
END
END
Y_MX(SIZE(Y_MX) + 1)=Y_REF
PRINT "@;@A"
/ PLOT LEGEND 3 (X_REF, Y_REF, X_LENGTH, Y_LENGTH, BAR_WIDTH, Y_MX, HATCH, COLOR, L_LABEL)
PLOT HOUSEKEEP 2
END
END_PLOT