PDP-10 Archive: datatrieve/vt240/multi_line.cdd-plot from BB-AI48A-BM

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt240/multi_line.cdd-plot

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

G]!XHL)MDUo0GqGa0GcYLABEL 0FiGu 0HCHRP GF| F}Y1P GG
GY2PG#GGY3PG1G'G(YMINPG@G6G7YMAXPGNGD GEYMXP FBGS GTCOLORP FHFGCNT FMFLJT FSFRK FXFWNUM F^F]KOUNT FcFbMX F$FhWIDTH F)F(YREF F/F.YLENGTH F6F4YMINVALUE F<F:YMAXVALUE F
H&H1H;HFHPH^HbHpH~I

ImItJJJ6JKJ_JvK

K"K;G|9G~HOUSEKEEPH- 0H0L(A2)H6 0
H9L"5"00FF8181818181FFHA 0
HCL"6"0018244281422418HK 0
HNL"0"00FF814242242418HV0HXS(MF1(AH150L45S50)2(AH150L30S66)3(AH150L45S66))FFI

"R`F)I	"5pI0F

	JJGqJ 0 0J
6JJGNJ 0 0J)HG]J- 0J@JGGqJD P 0JJ5JTJ\GNJY P PJiHG]Jm PKKGqK X 0K
0KKGNKXXK,HG]K0XFBKLG]KPKkXVALUE LLY1VALUE LL!Y2VALUE LL'Y3VALUEL/LSLwML8LFiLFL=LJFi 0L\LFwLjLaLnFw 0MLGMMMG 0M$L#GM2M)M6G 0UZ

MHMbNNN1NKNeNxO)O.OAOwP,P6P:P^QQ+Q/QGQ\SsUIUUMRMYG#MV 0FwMlMsG#Mp PGN	NG#M| XGN N(G1N% 0FwN:NBG1N? PGNTN\G1NY XGF/No
G#F6O
G1O

F/F69OLABEL

FO8

FiFOJ9OULABEL

FiFwGGP1 0P4T(BA2S[8,16])P>PYFXPH 0PKFw9PMMULTILINEPcP~FXPl PPoG9PqMULTILINEQQ"FXQ XQG9QMULTILINEQ' 0Q*T(E)FcQ>FQB

!>QPQXG@QU!>FBSlFiQnRR3RURiSS5QxRG#Q|0FwFBRR'G#RPGFBR<RIG#RA XGFBF^R^G#FHSSSSFcRxF
TFBT0T:TJG@FBG@TTFBTX 0T[HF

	UR9UTHOUSEKEEPX	Ui G]Un YVU|VXV^WW!XUsUi9UuLABELFSVFSV 0VV V>VAVT 0VP	V)V6FiV. 0UiV; 0 0V@W(IVJGNFS 0VW)FBWFiVnVr 0VqV	V{WFiFBUiFBW 0WW(R)FBXFiW1W5WfWi 0W4P	WHW_W>WLFiFB pWUWcUiFB! 0WhTWrGqFSW| 0WW(V)

DEFINE PLOT MULTI_LINE
DECLARE X_REF, X_LENGTH, X_MIN, X_MAX
DECLARE Y_REF, Y_LENGTH, Y_MIN_VALUE, Y_MAX_VALUE, D_LABEL
DECLARE CNT,JT,K,NUM, 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(AH150L45S50)2(AH150L30S66)3(AH150L45S66))"
"    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)

    SORT(X, Y1, Y2, Y3)
A2S[8,16])"

    IF KOUNT GE 1 THEN
        PLOT MULTI_LINE 3 (Y1)

    IF KOUNT GE 2 THEN
        PLOT MULTI_LINE 3 (Y2)

    IF KOUNT GE 3 THEN
        PLOT MULTI_LINE 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)
        JT =      ((X(CNT) - X_REF) / WIDTH) + 1

        Y_MX(JT) = 1000

	IF Y_MX(JT) GT MX THEN
MX(JT) = 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
ENTRY 3 (Y : VECTOR)
BEGIN
    PLOT LABEL 8 (Y)
	    NUM = NUM + 1
    PRINT "P", LXY(X(1), Y(1)), "W(I", CVT(COLOR(NUM)), ")"

    INCR CNT OVER X
        PRINT "V", LXY(X(CNT), Y(CNT))
	    PRINT "W(R)"

    INCR CNT OVER X
#        PRINT "P", LXY(X(CNT) - 4, Y(CNT) - 10), "T", QUOTE(CHR(NUM))
	    PRINT "W(V)"
END
END_PLOT