Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt100/date_freq.cdd-plot
There are 4 other files named date_freq.cdd-plot in the archive. Click here to see a list.
{\Nie]^?\S\S\RXMAX\Y\XICOUNT\!\^XMIN\d\cYMIN\j\iYMAX\o\nXPOS\u\tYPOS\6\yINDEX\<\:XEAXIS\B\@YAXIS\H\FXLENGTH\0\LYLENGTH0\*\40YLABEL\!\H]D!5\0]R 0]U]W0\6\<\B\H\z\09]YLABELN^: (\N^>(X^D^\$\u^M^:\
DECLARE REAL VECTOR DATES, FREQS
DECLARE INDEX


DECLARE STRING Y_LABEL
DECLARE REAL	X_AXIS, Y_AXIS, X_LENGTH, Y_LENGTH
#DECLARE REAL	X_MAX, ICOUNT, X_MIN, Y_MIN, Y_MAX, X_POS, Y_POS, INDEX
ENTRY 0 (X_LABEL : STRING)
    BEGIN
		PLOT HOUSEKEEP 0
	X_AXIS = 10
	Y_AXIS = 1
	X_LENGTH = 62
	Y_LENGTH = 21
	Y_LABEL = ""
"	PLOT LABEL 0 (X_AXIS,Y_AXIS, X_LENGTH, Y_LENGTH, X_LABEL, Y_LABEL)
    END

ENTRY 1 (X : DATE)
    BEGIN
	INDEX = SEARCH (X, DATES)
	IF INDEX EQ 0
	    BEGIN
		INDEX = SIZE (DATES) + 1

		DATES (INDEX) = X
	    END
	FREQS (INDEX) = FREQS (INDEX) + 1
    END
! Print scatter plot
ENTRY 2
    BEGIN
	SORT (DATES, FREQS)
	X_MIN = MIN (DATES)
	X_MAX = MAX (DATES)
	Y_MAX = MAX (FREQS)
	Y_MIN = 0
	PLOT LABEL 3 (Y_MIN, Y_MAX)
	PLOT LABEL 8 (FREQS)
	PLOT LABEL 6 (X_MIN, X_MAX, DATES)
	PRINT ""


	INCR ICOUNT OVER DATES
	    PRINT TXY (DATES(ICOUNT), FREQS(ICOUNT)), "`"
	PRINT ""
		PLOT HOUSEKEEP 2
    END
END_PLOT