Google
 

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/gigi/date_freq.cdd-plot
There are 4 other files named date_freq.cdd-plot in the archive. Click here to see a list.
{\Nie]^A\U\S\RXMAX\Y\XICOUNT\!\^XMIN\d\cYMIN\j\iYMAX\o\nXPOS\u\tYPOS\6\yINDEX\<\:XEAXIS\B\@YAXIS\H\FXLENGTH\0\LYLENGTH0\*\40YLABEL\"R`\H]D"5p\0]R 0]UNUMBER]X0\6\<\B\H\z\09]ZLABELP^; (\N^@(X^E^^&\u^O^;\
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 = 100
	Y_AXIS = 360
	X_LENGTH = 600
	Y_LENGTH = 350

	Y_LABEL = "NUMBER"
"	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)

	INCR ICOUNT OVER DATES
	    PRINT CENTER (DATES(ICOUNT), FREQS(ICOUNT)-9, "+", 9)
		PLOT HOUSEKEEP 2
    END
END_PLOT