Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt125/date_y.cdd-plot
There are 4 other files named date_y.cdd-plot in the archive. Click here to see a list.
hBQBzD1EB`BVBWDATESPB%BdBeYSPLB+B*XMAXB0B/CNTB6B5XMINB;B:YMINBAB@YMAXBFBEXPOSBLBKYPOSBDcD+B`DpDgDtB` 0	U8EE E2EEEWEjT#T6TdTjU3BQB`B0E)BQB%E<BQB;ENB`B6EaB`EnE{B6ExB6TTB6B;9T
LABELT(B`9T*LABELT;B0B%BQ9T=LABELB+U,BQTzUUU%U)BQB+UU"B`B+! 0U(+!U09U2HOUSEKEEP
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 = 100
	Y_AXIS = 360
	X_LENGTH = 600
	Y_LENGTH = 350
"	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)
	INCR CNT OVER DATES
	    PRINT CENTER (DATES(CNT), YS(CNT) - 9, "+", 9)
		PLOT HOUSEKEEP 2
    END
END_PLOT