{ ]^ "ie ^ b) cD kM 0 ]r ]b 0 ]dY LABEL 0 \j ]v 0 ^ CHR P ] \} \~Y1 P ] ] ]
Y2 P ]$ ] T ]Y3 P ]2 ]( ])Y MIN P ]A ]7 A ]8Y MAX P A ]O ]E ]FYMX P \B ]T ]UCOLOR P \H \G CNT \N \L JTEMP \S \R K \Y \X NTEMP \ \^ KOUNT \d \c MX \$ \i WIDTH \) \( YREF \/ \. YLENGTH \6 \4 YMINVALUE \< \: YMAXVALUE \
^) ^3 ^= ^H ^R ^` ^d ^r _ _ _o _v ` ` `6 `K `_ `x a a# a< ^& 9 ^( HOUSEKEEP ^/ 0 ^2 L(A2) ^8 0
^; L"5"00FF8181818181FF ^C 0
^E L"6"0018244281422418 ^M 0
^P L"0"00FF814242242418 ^X 0 ^Z S(M\1(AH150L50S100)2(AH150L45S66)3(AH170L75S66)) \ \
"R` \) "5p 0 \
` ` ]r ` 0 0 `
6 ` ` ]O ` 0 0 `) ^ ]^ `- 0 `@ `G ]r `D P 0 `J 5 `T `\ ]O `Y P P `i ^ ]^ `m P a a ]r a X 0 a 0 a a ]O a X X a- ^ ]^ a2 X \B aM ]^ aR al c$ b# ] c2 c) c6 ] 0 k8
cH cb d d d1 dK de dx e) e. eA ew f f f f: f^ g g
g$ g9 iQ k' k4 cR cY ]$ cV 0 \x cl cs ]$ cp P ] d d ]$ c| X ] d d( ]2 d% 0 \x d: dB ]2 d? P ] dT d\ ]2 dY X ] \/ do
]$ \6 e
]2 e
\/ \6 9 e LABEL
\ e8
\j \ eJ 9 eU LABEL
f 0 f T(BA2S[8,16]) \S f f f5 \Y f# 0 f& \x 9 f( MULTILR f> fY \Y fH P fK ] 9 fM MULTILR fc f~ \Y fl X fo ] 9 fq MULTILR g 0 g T(E) \d g \ g
!> g- g5 ]A g2 !> \B iJ \j gK gm h h1 hE hz i gU gb ]$ gY 0 \x \B gw h ]$ g{ P ] \B h h& ]$ h X ] \B \ h; ]$ \H hr hh hv h \d hU \
k0 9 k2 HOUSEKEEP m kH ]^ kL ARRAY k` ke l l l# m
kR kH 9 kT LABEL \S ku \S ky 0 k| l l 0 k~ W(RI l ]O \S 0 l ) l 9 l LABEL \B m \j l l4 l7 lh ll 0 l6 P lK la lA lO \j \B p lW le kH \B ! 0 lk T lu ]r \S m 0 m W(V) DEFINE PLOT MULTI_LR
DECLARE X_REF, X_LENGTH, X_MIN, X_MAX
DECLARE Y_REF, Y_LENGTH, Y_MIN_VALUE, Y_MAX_VALUE, D_LABEL
DECLARE CNT,J_TEMP,K,N_TEMP, KOUNT, MX, WIDTH
DECLARE VECTOR X, Y1, Y2, Y3, Y_MIN, Y_MAX, Y_MX, COLOR
DECLARE STRING VECTOR Y_LABEL, CHR
ENTRY 0 (X_LABEL : STRING,
LABEL_1 : STRING,
LABEL_2 : STRING,
LABEL_3 : STRING)
BEGIN
PLOT HOUSEKEEP 0
PRINT "L(A2)"
PRINT "L""5""00FF8181818181FF"
PRINT "L""6""0018244281422418"
PRINT "L""0""00FF814242242418"
PRINT "S(M 1(AH150L50S100)2(AH150L45S66)3(AH170L75S66))"
" 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, D_LABEL)
CHR(1) = "6" COLOR(1) = 1 Y_LABEL(1) = LABEL_1
CHR(2) = "5" COLOR(2) = 2 Y_LABEL(2) = LABEL_2
CHR(3) = "0" COLOR(3) = 3 Y_LABEL(3) = LABEL_3
YLABEL
IF LENGTH(Y_LABEL(CNT)) NE 0 THEN
KOUNT = KOUNT + 1
END
ENTRY 1 (X_VALUE, Y1_VALUE, Y2_VALUE, Y3_VALUE)
BEGIN
X(SIZE(X) + 1) = X_VALUE
Y1(SIZE(Y1) + 1) = Y1_VALUE
Y2(SIZE(Y2) + 1) = Y2_VALUE
Y3(SIZE(Y3) + 1) = Y3_VALUE
END
ENTRY 2
BEGIN
! Y_MIN(1) = MIN(Y1) Y_MIN(2) = MIN(Y2) Y_MIN(3) = MIN(Y3)
! Y_MAX(1) = MAX(Y1) Y_MAX(2) = MAX(Y2) Y_MAX(3) = MAX(Y3)
Y_MIN_VALUE = MIN(Y_MIN)
Y_MAX_VALUE = MAX(Y_MAX)
PLOT LABEL 3 (Y_MIN_VALUE, Y_MAX_VALUE)
X_MIN = MIN(X)
X_MAX = MAX(X)
PLOT LABEL 2 (X_MIN, X_MAX, X)
8,16])"
N_TEMP = 0
IF KOUNT GE 1 THEN
PLOT MULTI_LR 3 (Y1)
IF KOUNT GE 2 THEN
PLOT MULTI_LR 3 (Y2)
IF KOUNT GE 3 THEN
PLOT MULTI_LR 3 (Y3)
PRINT "T(E)"
NGTH / 30
Y_MX(30) = 0
INCR CNT OVER X
BEGIN
# Y_MIN(1) = Y1(CNT) Y_MIN(2) = Y2(CNT) Y_MIN(3) = Y3(CNT)
MX = MIN(Y_MIN)
J_TEMP = ((X(CNT) - X_REF) / WIDTH) + 1
Y_MX(J_TEMP) = 1000
IF Y_MX(J_TEMP) GT MX THEN
Y_MX(J_TEMP) = MX
END
INCR CNT OVER Y_MX
IF (CNT NE 1) AND (Y_MX(CNT) EQ 0) THEN
Y_MX(CNT) = Y_MX(CNT - 1)
( PLOT LEGEND 4 (X_REF,Y_REF,X_LENGTH,Y_LENGTH,WIDTH,Y_MX,CHR,COLOR,Y_LABEL)
PLOT HOUSEKEEP 2
END
: VECTOR)
BEGIN
(ARRAY)
N_TEMP = N_TEMP + 1
PRINT "W(RI", CVT(COLOR(N_TEMP)), ")"
PLOT LABEL 7
INCR CNT OVER X
BEGIN
& PRINT "P", LXY(X(CNT) - 4,ARRAY(CNT) - 10), "T", QUOTE(CHR(N_TEMP))
END
PRINT "W(V)"
END
END_PLOT