Trailing-Edge
-
PDP-10 Archives
-
BB-AI48A-BM
-
datatrieve/vt100/logx_y.cdd-plot
There are 4 other files named logx_y.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\\Z^n^e^r \Z 0a(:f``&`.`2`t`|\+
\L\%_ \L\6_1\Z\0_D\Z_M\0\69 _OLABEL_k\+\%\L9 _mLABEL`\Z9 `LABEL`+ 0 `-[1m\F`l\L`D`i`N`]\L\F\Z\F 0 `k``q 0 `s[0m`x9 `zHOUSEKEEP
DEFINE PLOT LOGX_Y
$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, Y)
BEGIN
XS (SIZE (XS) + 1 ) = LOG (X)
1 ) = 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 3 (Y_MIN, Y_MAX)
PLOT LABEL 4 (X_MIN, X_MAX, XS)
PLOT LABEL 8 (YS)
PRINT "[1m"
INCR CNT OVER XS
PRINT TXY (XS(CNT), YS(CNT)), "`"
PRINT "[0m"
PLOT HOUSEKEEP 2
END
END_PLOT