{ ]& ie ]z n oJ 0 ]: ]+ 0 ],L LABEL 0 ]N ]? 0 ]@XALABEL P ] ] ]YMX P \i ] ] COLOR P \o \n CNT \u \s JTEMP \^ \y K \c \b KOUNT \M \h OFFSET \S \Q BARWIDTH \X \W BARX \* \] BARY \0 \/ YREF \6 \4 YLENGTH \; \: YMIN \A \@ YMAX \G \E YSCALE \ \K YLABEL \ \ XREF \ \ XLENGTH \ \ XMIN \$ \# XMAX \) XSCALE mf ]b ]h ]n ]t 0 ]& ]f 0 XLABEL 0 ]b ]l 0 LABEL1 0 ]h ]r 0 LABEL2 0 ]n ]x 0 LABEL3
^ ^ ^ ^& ^1 ^; ^? ^U ^k / H ^^ t l 9 ^ HOUSEKEEP ^ 0 ^ 0
^$ L"X"FFFFFFFFFFFFFFFF ^, 0
^. L"Y"FFFFFFFFFFFFFFFF ^6 0
^9 L"Z"FFFFFFFFFFFFFFFF ^I ^P ]N ^M 0 0 ^S X ^ ^f ] ^c 0 0 ^u ]h ]& ^y 0 ]N V X 0 \ Z h o ] l X X l ]t ]& l X \ l
!y \* l% "6@ \ l3 "R` \0 lB "5p lF 0 \ \* \ \0 ]b \G 9 lH LABEL
\i m1 ]& m5 mP \^ m \^ mc 0 oD mt my n n 0 ]& mx 0 X mt m~ Y1 my n Y2 n n
Y3 n n5 nZ n~ o# n mt ]: n) n n- ]: 0 n? my \z nM nD nQ \z 0 nd n \z nr nh nv \z 0 o n \z o o
\M p P p ( \i \* \M \u ]: 9 p X_LABEL \6 pi \z \; p| \z q \6 \; 9 q LABEL q$ \z 9 q& LABEL q8 0 q: @:A \o qK \^ we 0 r
r sX t t vC vI qS qW qg qk r 0 qV T(A0)W(I0S q` \* qd 0 0 qj )P qt q{ \ qx
0 \* r 0 0 r V \i s( ]: r# rJ r{ s$ \c r@ r9 \o r2 r= \i r6 0 X \S r` rY rj \ r]
0 \M rt \i rx 0 \X s
\z \c s \S \X s- s1 sA sU 0 s0 T(A1)W(S s: \* s> 0 sJ ]N \o 0 sW ) s^ sa su sx t 0 s` W(I sj ] \o 0 sw )P t t \ s|
0 \* t 0 0 t V \i v ]: t0 tX u u1 u5 \c tN tG \o t@ tK \i tD 0 X \S tn tg tx \ tk
0 \M u \i u 0 \X u \z \c u" \S \X u: u^ uC uS ] \i \z \c ug uw ] \i \z \c u| v
v v# v@ 0 u~ W(S0I v ] \o 0 v" )P v, v9 \ v0
0 \* v= 0 0 vB V \i w_ ]: vZ w w2 w[ \c vx vq \o vj vu \i vn 0 X \S w w w" \ w
0 \M w+ \i w/ 0 \X wB \z \c wL \S \X wl 0 wn T(A0)@;@A wt H \ \* \ \0 \M ] ]N ] ]& 9 wv LEGEND
xj 9 xl HOUSEKEEP
DEFINE PLOT MULTI_SHADE
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 KOUNT, OFFSET
DECLARE CNT, J_TEMP, K
DECLARE VECTOR Y_VALUE, Y_MX, COLOR
DECLARE STRING VECTOR L_LABEL, X_LABEL, HATCH
ENTRY 0 (X_LABEL : STRING,
LABEL_1 : STRING,
LABEL_2 : STRING,
LABEL_3 : STRING)
BEGIN
PLOT HOUSEKEEP 0
PRINT "S(M 1(AH150L50S100)2(AH150L45S66)3(AH170L75S66))"
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
KOUNT = KOUNT + 1
END
ENTRY 1 (X : STRING, Y1 : REAL ,
Y2 : REAL ,
Y3 : REAL )
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
Y_MX(SIZE(Y_MX) + 1) = 5000
END
ENTRY 2
BEGIN
BAR_WIDTH = (X_LENGTH - 2) / (SIZE(X_LABEL) - 1)
CNT = X_REF - BAR_WIDTH / 2
PLOT X_LABEL 0 (CNT, Y_REF, BAR_WIDTH, K, X_LABEL)
VALUE)
VALUE)
PLOT LABEL 3 (Y_MIN,Y_MAX)
PLOT LABEL 8 (Y_VALUE)
PRINT "@:A"
INCR J_TEMP FROM 1 TO KOUNT
BEGIN
( PRINT "T(A0)W(I0S", LY(Y_REF - 1), ")P", LXY(X_REF + 1,Y_REF - 1), "V"
INCR CNT OVER X_LABEL
BEGIN
OFFSET = (CNT - 1) * 3 + J_TEMP
BAR_X = X_REF + 1 + BAR_WIDTH * (CNT - 1)
BAR_Y = Y_VALUE(OFFSET)
PRINT LXY(BAR_X,BAR_Y)
END
" PRINT "T(A1)W(S", LY(Y_REF - 1), QUOTE(HATCH(J_TEMP)), ")"
' PRINT "W(I", CVT(COLOR(J_TEMP)), ")P", LXY(X_REF + 1,Y_REF - 1), "V"
INCR CNT OVER X_LABEL
BEGIN
OFFSET = (CNT - 1) * 3 + J_TEMP
BAR_X = X_REF + 1 + BAR_WIDTH * (CNT - 1)
BAR_Y = Y_VALUE(OFFSET)
PRINT LXY(BAR_X,BAR_Y)
IF Y_MX(CNT) > Y_VALUE(OFFSET) THEN
Y_MX(CNT) = Y_VALUE(OFFSET)
END
( PRINT "W(S0I", CVT(COLOR(J_TEMP)), ")P", LXY(X_REF + 1,Y_REF - 1), "V"
INCR CNT OVER X_LABEL
BEGIN
OFFSET = (CNT - 1) * 3 + J_TEMP
BAR_X = X_REF + 1 + BAR_WIDTH * (CNT - 1)
BAR_Y = Y_VALUE(OFFSET)
PRINT LXY(BAR_X,BAR_Y)
END
END
PRINT "T(A0)@;@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