{ \K ie \t ^+ ^{ \Z \P \QXS P \; \^ \NYS P \@ \? X POS \F \E Y POS \ ^ \h \n 0 \K \m 0 X LABEL 0 \h \s 0 Y LABEL \} ] ] ] ]. ^ \y 9 \{ HOUSEKEEP \ ^j ^a ^n \Z 0 a ^ $ 7 I `
`+ `? `I `M a a \* _ \K \% _ \K \5 _. \Z \0 _@ \Z _N _Z \0 _W \0 _d _g \* \% \K 9 _i LABEL ` \0 \5 9 ` LABEL `1 \Z 9 `3 LABEL `E 0 `H [1m \F a \K `_ a `h `x \K \F \Z \F 0 a ` a 0 a [0m a 9 a HOUSEKEEP DEFINE PLOT X_Y
$DECLARE X_AXIS, Y_AXIS, X_LENGTH, Y_LENGTH, X_MAX, X_MIN, Y_MIN, Y_MAX
POS, CNT
DECLARE VECTOR XS, YS
ENTRY 0 (X_LABEL : STRING, Y_LABEL : STRING)
BEGIN
PLOT HOUSEKEEP 0
X_AXIS = 10
Y_AXIS = 1
X_LENGTH = 62
Y_LENGTH = 21
# PLOT LABEL 0 (X_AXIS, Y_AXIS, X_LENGTH, Y_LENGTH, X_LABEL, Y_LABEL)
END
ENTRY 1 (X : REAL , Y : REAL)
BEGIN
1 ) = X
) = Y
END
! Print scatter plot
ENTRY 2
BEGIN
X_MIN = MIN (XS)
X_MAX = MAX (XS)
Y_MAX = MAX (YS)
Y_MIN = MIN (YS)
IF Y_MIN > 0
THEN Y_MIN = 0
PLOT LABEL 2 (X_MIN, X_MAX, XS)
PLOT LABEL 3 (Y_MIN, Y_MAX)
PLOT LABEL 8 (YS)
PRINT "[1m"
INCR CNT OVER XS
PRINT TXY(XS(CNT), YS(CNT)), "`"
PRINT "[0m"
PLOT HOUSEKEEP 2
END
END_PLOT