{ \Q ie \z ^1 \ \` \V \WDATES P \% \d \eYS P L \+ \* X MAX \0 \/ CNT \6 \5 X MIN \; \: Y MIN \A \@ Y MAX \F \E X POS \L \K Y POS \ ^c ^+ \` ^p ^g ^t \` 0 a> 2 E W j `# `6 `d `m `q a2 a9 \Q \` \0 ) \Q \% < \Q \; N \` \6 a \` n { \6 x \6 ` ` \6 \; 9 `
LABEL `( \` 9 `* LABEL `; \0 \% \Q 9 `= LABEL `j 0 `l [1m \+ a* \Q a a& a a \Q \+ \` \+ 0 a) ` a. 0 a1 [0m a6 9 a8 HOUSEKEEP
DEFINE PLOT DATE_Y
DECLARE REAL X_AXIS, Y_AXIS, X_LENGTH, Y_LENGTH
!DECLARE REAL X_MAX, CNT, X_MIN, Y_MIN, Y_MAX, X_POS, Y_POS, INDEX
TES, 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 : DATE, Y)
BEGIN
DATES (SIZE (DATES) + 1 ) = X
1 ) = Y
END
! Print scatter plot
ENTRY 2
BEGIN
SORT (DATES, YS)
X_MIN = MIN (DATES)
X_MAX = MAX (DATES)
Y_MAX = MAX (YS)
Y_MIN = MIN (YS)
IF Y_MIN > 0
THEN Y_MIN = 0
PLOT LABEL 3 (Y_MIN, Y_MAX)
PLOT LABEL 8 (YS)
PLOT LABEL 6 (X_MIN, X_MAX, DATES)
PRINT "[1m"
INCR CNT OVER DATES
PRINT TXY (DATES(CNT), YS(CNT)), "`"
PRINT "[0m"
PLOT HOUSEKEEP 2
END
END_PLOT