Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt240/logx_logy.cdd-plot
There are 4 other files named logx_logy.cdd-plot in the archive. Click here to see a list.
FLKFuH+IFZFPFQXSPF;FF`YSPFAF@XPOSFFFEYPOSFHFiFo0FLFm0XLABEL0FiFs0YLABELF}GGGG/HFz9F|HOUSEKEEPFFZHnHeHrFZ 0H%KIII+I>IiJJ*J/K
F+IFLF%I"FLF6I5FZF0IGFZIPF0F69IRLABELIoF+F%FL9IqLABELJFZ9JLABELFFKFLJ?JCJuJz 0JBp	JVJmJLJZFLFF tJcJqFZFF! 0JxtJ~ 0K+K9K	HOUSEKEEPDEFINE PLOT LOGX_LOGY
$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, Y)
    BEGIN
	XS (SIZE (XS) + 1 ) = LOG (X)
	YS (SIZE (YS) + 1 ) = LOG (Y)
    END
! Print scatter plot
ENTRY 2
    BEGIN
		X_MIN = MIN (XS)
		X_MAX = MAX (XS)
		Y_MAX = MAX (YS)
		Y_MIN = MIN (YS)
	PLOT LABEL 5 (Y_MIN, Y_MAX)
	PLOT LABEL 4 (X_MIN, X_MAX, XS)

	PLOT LABEL 8 (YS)
		INCR CNT OVER XS
		PRINT "p", LXY (XS(CNT) - 5, YS(CNT) - 9), "t", QUOTE ("+")
		PLOT HOUSEKEEP 2
    END
END_PLOT