Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt100/x_freq.cdd-plot
There are 4 other files named x_freq.cdd-plot in the archive. Click here to see a list.
{\Xie\{^9\M\f\\\]XSP\A\k\lYSP\G\FXPOS\L\KYPOS\R\QICOUNT\;\WINDEX0\]]	]]&]4]C^%\9]HOUSEKEEP\;] 0]\
^4\X\R_(_A\f\R_7_E\f\R 0aH_Q_d_v`	`9`X`l`t`xa<aC\+_[\X\%_m\X\6`\f\0``\+\%\X9`LABEL`?\0\69`ALABEL`^\f9``LABEL`q 0`s\La4\Xaa0aa$\X\L\f\L 0a3`a8 0a;a@9aBHOUSEKEEP
DEFINE PLOT X_FREQ
$DECLARE X_AXIS, Y_AXIS, X_LENGTH, Y_LENGTH, X_MAX, X_MIN, Y_MIN, Y_MAX


DECLARE STRING Y_LABEL
DECLARE X_POS, Y_POS, ICOUNT, INDEX
DECLARE VECTOR XS, YS
ENTRY 0 (X_LABEL : STRING)
    BEGIN
		PLOT HOUSEKEEP 0
	Y_LABEL = ""
	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 : REAL)
	BEGIN


	INDEX = SEARCH (X, XS)
	IF INDEX EQ 0
	    BEGIN


		INDEX = SIZE (YS) + 1
			XS (INDEX) = X
	    END
	YS (INDEX) = YS (INDEX) + 1
    END
! Print scatter plot
ENTRY 2
    BEGIN
		X_MIN = MIN (XS)
		X_MAX = MAX (XS)
		Y_MAX = MAX (YS)
	Y_MIN = 0
	PLOT LABEL 2 (X_MIN, X_MAX, XS)
	PLOT LABEL 3 (Y_MIN, Y_MAX)

	PLOT LABEL 8 (YS)
	PRINT ""
	INCR ICOUNT OVER XS
	    PRINT TXY (XS(ICOUNT), YS(ICOUNT)), "`"
	PRINT ""
		PLOT HOUSEKEEP 2
    END
END_PLOT