PDP-10 Archive: datatrieve/pc350/x_y.cdd-plot from BB-AI48A-BM

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/pc350/x_y.cdd-plot

There are 4 other files named x_y.cdd-plot in the archive. Click here to see a list.

{\Kie\t^+^{\Z\P\QXSP\;\^\NYSP\@\?XPOS\F\EYPOS\^\h\n0\K\m0XLABEL0\h\s0YLABEL\}]]]].^\y9\{HOUSEKEEP\^j^a^n\Z 0a^$7I`

`+`?`Da\*	\K\%\K\5.\Z\0@\ZNZ\0W\0dg\*\%\K9iLABEL`\0\59`LABEL`1\Z9`3LABEL\Fa\K`V```zaa\K\F`p`~\Z\F! 0a+!a9a
$DECLARE X_AXIS, Y_AXIS, X_LENGTH, Y_LENGTH, X_MAX, X_MIN, Y_MIN, Y_MAX
POS, CNT
DECLARE VECTOR XS, 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 : REAL , Y : REAL)
	BEGIN
 1 ) = X
 ) = Y
    END
! Print scatter plot
ENTRY 2
    BEGIN
		X_MIN = MIN (XS)
		X_MAX = MAX (XS)
		Y_MAX = MAX (YS)
		Y_MIN = MIN (YS)
	IF Y_MIN > 0

	    THEN Y_MIN = 0
	PLOT LABEL 2 (X_MIN, X_MAX, XS)
	PLOT LABEL 3 (Y_MIN, Y_MAX)

	PLOT LABEL 8 (YS)
		INCR CNT OVER XS
	    PRINT CENTER (XS(CNT), YS(CNT) - 9, "+", 9)
		PLOT HOUSEKEEP 2
    END
END_PLOT