{ \L ie \u ^+ \ \Z \P \QXS P \; \ \`YS P \A \@ X POS \F \E Y POS \ ^ \i \o 0 \L \m 0 X LABEL 0 \i \s 0 Y LABEL \} ] ] ] ]/ ^ \z 9 \| HOUSEKEEP \ \Z ^n ^e ^r \Z 0 ^% a + > i ` `* `2 `6 `w `~ \+ \L \% " \L \6 5 \Z \0 G \Z P \0 \6 9 R LABEL o \+ \% \L 9 q LABEL ` \Z 9 ` LABEL `/ 0 `1 [1m \F `o \L `G `k `P `` \L \F \Z \F 0 `n ` `s 0 `v [0m `{ 9 `} HOUSEKEEP DEFINE PLOT LOGXLOGY
$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, Y)
BEGIN
XS (SIZE (XS) + 1 ) = LOG (X)
YS (SIZE (YS) + 1 ) = LOG (Y)
END
! Print scatter plot
ENTRY 2
BEGIN
X_MIN = MIN (XS)
X_MAX = MAX (XS)
Y_MAX = MAX (YS)
Y_MIN = MIN (YS)
PLOT LABEL 5 (Y_MIN, Y_MAX)
PLOT LABEL 4 (X_MIN, X_MAX, XS)
PLOT LABEL 8 (YS)
PRINT "[1m"
INCR CNT OVER XS
PRINT TXY (XS(CNT), YS(CNT)), "`"
PRINT "[0m"
PLOT HOUSEKEEP 2
END
END_PLOT