Google
 

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/pc350/multi_line.cdd-plot
There are 3 other files named multi_line.cdd-plot in the archive. Click here to see a list.
{]^"ie^b)cDkr0]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] 0k]
cHcbddd1dKdedxe)e.eAewf,f6f:f^gg,g0gHg^ivkLkXcRcY]$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
\j\x]]f1 0f4T(BA2S[8,16])f>fY\YfH 0fK\x9fMMULTILINEfcf~\Yfl Pfo]9fqMULTILINEgg"\Yg Xg]9gMULTILINEg) 0g+T(E)\dg@\gD
!>gRgY]AgV!>\Bio\jgphh4hVhjii8gyh]$h0\x\Bhh)]$hP]\Bh>hK]$hB X]\B\h`]$\Hii
	kU9kWHOUSEKEEPnkl ]^kq Yll
l]lcm"m&nkvkl9kxLABEL\Sl\Sl 0l!l%lClFlZ 0l$P	l.l;\jl3 0kll@ 0 0lEW(IlO]O\S 0l\)\Bm\jltlw 0lvV	mm\j\Bkl\Bm 0m!W(R)\Bn\jm7m:mkmo 0m9P	mNmdmDmR\j\B pmZmhkl\B! 0mnTmx]r\Sm| 0mW(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,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)

    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)
        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
ENTRY 3 (Y : VECTOR)
BEGIN
    PLOT LABEL 8 (Y)

    N_TEMP = N_TEMP + 1
     PRINT "P", LXY(X(1), Y(1)), "W(I", CVT(COLOR(N_TEMP)), ")"

    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(N_TEMP))
	    PRINT "W(V)"
END
END_PLOT