H Wa H# L3 MP H H Y_LEN Ga H
Y ASPECT Gg Ge STRIDE Gm Gk POINTS Gs Gq Y ORIGIN Gy Gw Y BASE G% G} Y HIGH 0 G9 G* 0 G+L LABEL F] Fx K Fc Fb KOUNT 1 FL Fg OFFSET 2 FR FQ BAR WIDTH 3 FX FW BARX F* F\ BARY F/ F. YREF F5 F4 YLENGTH F; F: YMIN F@ F? YMAX FF FE YSCALE F
H- H< HE HP HZ He Hi H I I- IC IY Ir J J J6 JD JR Ja KA KI H) 9 H+ HOUSEKEEP H4 0 H7 S(M 1(AH150L45S100)2(AH150L30S66)3(AH150L45S66)) HB 0 HD L(A1) HK 0
HM L"X"FFFFFFFFFFFFFFFF HU 0
HX L"Y"FFFFFFFFFFFFFFFF H` 0
Hb L"Z"FFFFFFFFFFFFFFFF Hr Hz GM Hw 0 0 H| X I I G I I7 I> GM I; P 0 IA Y IM IT G IQ P YP Ic H G% Ig P I{ J GM J X 0 J Z J J G J X X J' H G% J, X F
L( Fy M M M Fy 0 M0 L- Fy M> M5 MB Fy 0 WM MT N N* Nf Ny O% Oh Oo P P- PG Pj Q QE QN QR V& VM W< WH FL Md F N Mu M| Mn My F] Mr 0 G9 0 Fi N F] FL N# ( F
Fy F; O
Fy O
F5 F; 9 O LABEL
O+ ( F5 F; Gg Ga Gs 9 O- LABEL
Gy P
P Gs Gg Ga H P# Gy Gs H P= F/ H Gm PV F* P` H Gs Po P| Gy Py Gm Q F* F/ Q Q' Gs Q$ Gm F* Q6 Fy 9 Q8 LABEL QJ 0 QM @:A Fi V! G9 Qc R R& Ql F* G Qz Qq R G 0 Fc R R R# Fi R 0 X Fn R1 F] V 0 R9 S S. UZ V FR RH
F FL S Rs S Rc R} R\ Rl Fi R` 0 F] Rp 0 Fn S 0 0 FX S
Fy S% Fc Fn S3 US FX SB
F* SF 0 Se T T; U U( UO SJ SO Sa 0 SM W(I0S SY Gm S] 0 0 Sd )P Sj Sy T FR FX
0 S{ V FL T T T# T7 0 T T(A1)W(S T Gm T 0 T, GM Fn 0 T: ) T@ TD TW T\ Tl Tq 0 TC W(I TM G Fn 0 TY )P FR FX
0 To V T{ FL T 0 U U
U U 0 U W(S0)P FR Gm
0 U V FX
U. U> U7 FL U; 0 UH Gm UL 0 Uc V G Uq Uh Uu G 0 Fy V
Fc Fn V 0 V T(A0) V0 F* G V= V4 VA G 0 VJ 0 VL @;@A VQ H F
DECLARE X_REF, X_LENGTH, X_MIN, X_MAX, X_SCALE
DECLARE Y_REF, Y_LENGTH, Y_MIN, Y_MAX, Y_SCALE, Y_LABEL
DECLARE BAR_WIDTH, BAR_X, BAR_Y
DECLARE KOUNT, OFFSET
DECLARE CNT, JT, K
DECLARE VECTOR Y_VALUE, Y_MX, COLOR
DECLARE STRING VECTOR L_LABEL, X_LABEL, HATCH
DECLARE REAL STRIDE, POINTS, Y_ORIGIN, Y_BASE, Y_HIGH
DECLARE REAL Y_LEN, Y_ASPECT
ENTRY 0 (X_LABEL : STRING,
LABEL_1 : STRING,
LABEL_2 : STRING,
LABEL_3 : STRING)
BEGIN
PLOT HOUSEKEEP 0
PRINT "S(M 1(AH150L45S100)2(AH150L30S66)3(AH150L45S66))"
PRINT "L(A1)"
PRINT "L""X""FFFFFFFFFFFFFFFF"
PRINT "L""Y""FFFFFFFFFFFFFFFF"
PRINT "L""Z""FFFFFFFFFFFFFFFF"
HATCH(1) = "X" COLOR(1) = 1 L_LABEL(1) = LABEL_1
HATCH(2) = "Y" COLOR(2) = 2 L_LABEL(2) = LABEL_2
HATCH(3) = "Z" COLOR(3) = 3 L_LABEL(3) = LABEL_3
" 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,Y_LABEL)
LLABEL
IF LENGTH(L_LABEL(CNT)) NE 0 THEN
KOUNT = KOUNT + 1
END
ENTRY 1 (X : STRING, Y1, Y2, Y3)
BEGIN
X_LABEL(SIZE(X_LABEL) + 1) = X
Y_VALUE(SIZE(Y_VALUE) + 1) = Y1
Y_VALUE(SIZE(Y_VALUE) + 1) = Y2
Y_VALUE(SIZE(Y_VALUE) + 1) = Y3
END
ENTRY 2
BEGIN
BAR_WIDTH = X_LENGTH / (((KOUNT + 1) * SIZE(X_LABEL)) + 1)
CNT = KOUNT * BAR_WIDTH
PLOT X_LABEL 0 (X_REF, Y_REF, CNT, BAR_WIDTH, X_LABEL)
N(YVALUE)
VALUE)
PLOT LABEL 3 (Y_MIN,Y_MAX)
PLOT LABEL 10 (Y_MIN, Y_MAX, POINTS, STRIDE, Y_BASE)
Y_HIGH = POINTS * STRIDE + Y_BASE
Y_LEN = Y_HIGH - Y_BASE
Y_ASPECT = Y_LENGTH / Y_LEN
Y_ORIGIN = Y_REF + (Y_ASPECT * Y_BASE)
IF Y_HIGH LE 0 THEN
Y_ORIGIN = Y_REF - Y_LENGTH
IF Y_BASE GE 0 THEN
Y_ORIGIN = Y_REF
PLOT LABEL 8 (Y_VALUE)
PRINT "@:A "
R XLABEL
BEGIN
Y_MX(SIZE(Y_MX) + 1) = Y_REF
OFFSET = (CNT - 1) * 3
INCR JT FROM 1 TO KOUNT
BEGIN
* BAR_X = X_REF + BAR_WIDTH * (((CNT - 1) * (KOUNT + 1)) + (JT - 1) + 1)
BAR_Y = Y_VALUE(OFFSET + JT)
IF BAR_Y LT (Y_REF - 1) THEN
BEGIN
PRINT "W(I0S", LY(Y_ORIGIN - 1), ")P"
PRINT LXY(BAR_X,BAR_Y), "V", RX(BAR_WIDTH)
% PRINT "T(A1)W(S", LY(Y_ORIGIN - 1), QUOTE(HATCH(JT)), ")"
/ PRINT "W(I", CVT(COLOR(JT)), ")P", LXY(BAR_X,BAR_Y), "V", RX(BAR_WIDTH - 1)
" PRINT "W(S0)P", LXY(BAR_X,Y_ORIGIN), "V", LY(BAR_Y)
PRINT RX(BAR_WIDTH - 1), LY(Y_ORIGIN - 1)
END
Y_MX(SIZE(Y_MX) + 1) = Y_VALUE(OFFSET + JT)
"T(A0)"
END
END
Y_MX(SIZE(Y_MX) + 1)=Y_REF
PRINT "@;@A"
/ PLOT LEGEND 3 (X_REF, Y_REF, X_LENGTH, Y_LENGTH, BAR_WIDTH, Y_MX, HATCH, COLOR, L_LABEL)
PLOT HOUSEKEEP 2
END
END_PLOT