Google
 

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt125/multi_lr.cdd-plot
There are 3 other files named multi_lr.cdd-plot in the archive. Click here to see a list.
G]!WHL)MDUI0GqGa0GcYLABEL 0FiGu 0HCHRP GF| F}Y1P GG
GY2PG#GGY3PG1G'G(YMINPG@G6G7YMAXPGNGD GEYMXP FBGS GTCOLORP FHFGCNT FMFLJCNT FSFRK FXFWNUM F^F]TALLY 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(AH120L30S66)3(AH120L45S66))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 0U4
MHMbNNN1NKNeNxO)O.OAOwPPPP9P^QQ
Q"Q7SNU#U0MRMYG#MV 0FwMlMsG#Mp PGN	NG#M| XGN N(G1N% 0FwN:NBG1N? PGNTN\G1NY XGF/No
G#F6O
G1O
F/F69OLABEL

FO8
FiFOJ9OULABEL
P 0PT(BA2S[8,16])FSPPP4FXP# 0P&Fw9P(MULTILRP>PYFXPG PPJG9PLMULTILRPbP}FXPl XPoG9PqMULTILRQ 0QT(E)FcQFQ
!>Q+Q3G@Q0!>FBSGFiQIQkRR0RDRxSQSQ`G#QW 0FwFBQuRG#Qy PGFBRR&G#R XGFBF^R9G#FHRpRfRtR]FcRSF
G@FH"_ SS.SF^G@FHS7F^G@FHFBS^G@SoT
ScSs0TT#G@FBG@T-FBT1 0T4HF
	U,9U.HOUSEKEEPW
UD G]UH ARRAYU\UaVVVWUNUD9UPLABELFSUpFSUt 0UwUzV 0UyW(RIVGNFS 0V)V9VLABELFBWFiV{V0V3VdVh 0V2P	VGV]V=VKFiFB pVSVaUDFB! 0VgTVqGqFSW 0WW(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,JCNT,K,NUM, TALLY, 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(AH120L30S66)3(AH120L45S66))"
"    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
            TALLY = TALLY + 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])"
    NUM = 0

    IF TALLY GE 1 THEN
        PLOT MULTI_LR 3 (Y1)

    IF TALLY GE 2 THEN
        PLOT MULTI_LR 3 (Y2)

    IF TALLY  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)
        JCNT =    ((X(CNT) - X_REF) / WIDTH) + 1
CNT) = 1000
 MX THEN
            Y_MX(JCNT) = 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)
	    NUM = NUM + 1
    PRINT "W(RI", CVT(COLOR(NUM)), ")"
	    PLOT LABEL 7

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