Google
 

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt240/date_freq.cdd-plot
There are 4 other files named date_freq.cdd-plot in the archive. Click here to see a list.
FNKtGHAIUFSFRXMAXFYFXICOUNTF!F^XMINFdFcYMINFjFiYMAXFoFnXPOSFuFtYPOSF6FyINDEXF<F:XEAXISFBF@YAXISFHFFXLENGTHF0FLYLENGTH0F*F40YLABELF"R`FHGD"5pF0GR 0GUNUMBERGX0F6F<FBFHFzF09GZLABELIPH; (FNH@(XHEH^I&FuHOH;F
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