Google
 

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt100/date_logy.cdd-plot
There are 4 other files named date_logy.cdd-plot in the archive. Click here to see a list.
{\Lie\u^+^\Z\P\QXSP\;\\`YSP\A\@XPOS\F\EYPOS\^\i\o0\L\m0XLABEL0\i\s0YLABEL\}]]]]/^\z9\|HOUSEKEEP\^j^a^n\Z 0^%a(:q``$`.`2`t`{\+
\L\%_\L\6_1\Z\0_D\Z_M\+\%\L9_OLABEL_w\0\69_yLABEL`\Z9`LABEL`* 0`-\F`l\L`D`h`M`]\L\F\Z\F 0`k``p 0`s`x9`zHOUSEKEEPDEFINE PLOT DATE_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 = 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 : DATE, Y)
    BEGIN
 ) = 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 6 (X_MIN, X_MAX, XS)
	PLOT LABEL 5 (Y_MIN, Y_MAX)

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