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

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

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

{]^"ie^b)cDkM0]r]b0]dYLABEL 0\j]v 0^CHRP ]\} \~Y1P ]] ]

Y2P]$]T]Y3P]2](])YMINP]A]7A]8YMAXPA]O]E ]FYMXP \B]T ]UCOLORP \H\GCNT \N\LJTEMP \S\RK \Y\XNTEMP \\^KOUNT \d\cMX \$\iWIDTH \)\(YREF \/\.YLENGTH \6\4YMINVALUE \<\:YMAXVALUE \
^)^3^=^H^R^`^d^r___o_v```6`K`_`xaa#a<^&9^(HOUSEKEEP^/ 0^2L(A2)^8 0
^;L"5"00FF8181818181FF^C 0
^EL"6"0018244281422418^M 0
^PL"0"00FF814242242418^X0^ZS(M\1(AH150L50S100)2(AH150L45S66)3(AH170L75S66))\\

"R`\)	"5p0\

	``]r` 0 0`
6``]O`00`)^]^`-0`@`G]r`DP0`J5`T`\]O`YPP`i^]^`mPaa	]raX0a0aa]OaXXa-^]^a2X\BaM]^aRalc$b#]c2c)c6] 0k8

cHcbddd1dKdedxe)e.eAewffff:f^gg

g$g9iQk'k4cRcY]$cV 0\xclcs]$cp P]d	d]$c| X]d d(]2d% 0\xd:dB]2d? P]dTd\]2dY X]\/do
]$\6e
]2e

\/\69eLABEL

\e8

\j\eJ9eULABEL

f 0fT(BA2S[8,16])\Sfff5\Yf# 0f&\x9f(MULTILRf>fY\YfH PfK]9fMMULTILRfcf~\Yfl Xfo]9fqMULTILRg 0gT(E)\dg\g

!>g-g5]Ag2!>\BiJ\jgKgmhh1hEhzigUgb]$gY0\x\Bgwh]$g{P]\Bhh&]$h X]\B\h;]$\Hhrhhhvh\dhU\

	k09k2HOUSEKEEPmkH ]^kL ARRAYk`kelll#m

kRkH9kTLABEL\Sku\Sky 0k|ll 0k~W(RIl	]O\S 0l)l9lLABEL\Bm\jll4l7lhll 0l6P	lKlalAlO\j\B plWlekH\B! 0lkTlu]r\Sm	 0mW(V)DEFINE PLOT MULTI_LR
DECLARE X_REF, X_LENGTH, X_MIN, X_MAX
DECLARE Y_REF, Y_LENGTH, Y_MIN_VALUE, Y_MAX_VALUE, D_LABEL
DECLARE CNT,J_TEMP,K,N_TEMP, KOUNT, MX, WIDTH
DECLARE VECTOR X, Y1, Y2, Y3, Y_MIN, Y_MAX, Y_MX, COLOR
DECLARE STRING VECTOR Y_LABEL, CHR
ENTRY 0 (X_LABEL : STRING,
         LABEL_1 : STRING,
         LABEL_2 : STRING,
         LABEL_3 : STRING)
BEGIN
    PLOT HOUSEKEEP 0
	    PRINT "L(A2)"
    PRINT "L""5""00FF8181818181FF"
    PRINT "L""6""0018244281422418"
    PRINT "L""0""00FF814242242418"
    PRINT "S(M 1(AH150L50S100)2(AH150L45S66)3(AH170L75S66))"
"    X_REF = 100    Y_REF = 360    X_LENGTH = 600    Y_LENGTH = 350
#    PLOT LABEL 0 (X_REF, Y_REF, X_LENGTH, Y_LENGTH, X_LABEL, D_LABEL)
    CHR(1) = "6"    COLOR(1) = 1   Y_LABEL(1) = LABEL_1
    CHR(2) = "5"    COLOR(2) = 2   Y_LABEL(2) = LABEL_2
    CHR(3) = "0"    COLOR(3) = 3   Y_LABEL(3) = LABEL_3
 YLABEL
        IF LENGTH(Y_LABEL(CNT)) NE 0 THEN
            KOUNT = KOUNT + 1
END
ENTRY 1 (X_VALUE, Y1_VALUE, Y2_VALUE, Y3_VALUE)
BEGIN
    X(SIZE(X) + 1) = X_VALUE
    Y1(SIZE(Y1) + 1) = Y1_VALUE
    Y2(SIZE(Y2) + 1) = Y2_VALUE
    Y3(SIZE(Y3) + 1) = Y3_VALUE
END
ENTRY 2
BEGIN
!    Y_MIN(1) = MIN(Y1)   Y_MIN(2) = MIN(Y2)   Y_MIN(3) = MIN(Y3)
!    Y_MAX(1) = MAX(Y1)   Y_MAX(2) = MAX(Y2)   Y_MAX(3) = MAX(Y3)
    Y_MIN_VALUE = MIN(Y_MIN)
    Y_MAX_VALUE = MAX(Y_MAX)
    PLOT LABEL 3 (Y_MIN_VALUE, Y_MAX_VALUE)

    X_MIN = MIN(X)

    X_MAX = MAX(X)
    PLOT LABEL 2 (X_MIN, X_MAX, X)
8,16])"
    N_TEMP = 0

    IF KOUNT GE 1 THEN
        PLOT MULTI_LR 3 (Y1)

    IF KOUNT GE 2 THEN
        PLOT MULTI_LR 3 (Y2)

    IF KOUNT GE 3 THEN
        PLOT MULTI_LR 3 (Y3)
	    PRINT "T(E)"
NGTH / 30
	    Y_MX(30) = 0

    INCR CNT OVER X
    BEGIN
#        Y_MIN(1) = Y1(CNT)   Y_MIN(2) = Y2(CNT)   Y_MIN(3) = Y3(CNT)

        MX = MIN(Y_MIN)
        J_TEMP =     ((X(CNT) - X_REF) / WIDTH) + 1
        Y_MX(J_TEMP) = 1000
	IF Y_MX(J_TEMP) GT MX THEN
            Y_MX(J_TEMP) = MX
    END

    INCR CNT OVER Y_MX
        IF     (CNT NE 1) AND (Y_MX(CNT) EQ 0) THEN
            Y_MX(CNT) = Y_MX(CNT  - 1)
(    PLOT LEGEND 4 (X_REF,Y_REF,X_LENGTH,Y_LENGTH,WIDTH,Y_MX,CHR,COLOR,Y_LABEL)
    PLOT HOUSEKEEP 2
END
 : VECTOR)
BEGIN
(ARRAY)

    N_TEMP = N_TEMP + 1
    PRINT "W(RI", CVT(COLOR(N_TEMP)), ")"
	    PLOT LABEL 7

    INCR CNT OVER X
    BEGIN
&        PRINT "P", LXY(X(CNT) - 4,ARRAY(CNT) - 10), "T", QUOTE(CHR(N_TEMP))
    END
	    PRINT "W(V)"
END
END_PLOT