### CLASS 3D

Posted:

**Mon Aug 24, 2009 4:28 am**Program of ordination or classification 3D

Name: "CLASS 3D"

lrcvs 24.08.09

(Is limited, but...power)

CLS

DIM a$(9, 9, 9)

FOR n = 1 TO 1000

RANDOMIZE TIMER

x$ = LTRIM$(STR$(INT(RND * 999)))

IF LEN(x$) < 3 THEN l$ = STRING$(3 - (LEN(x$)), "0"): x$ = l$ + x$

a$(VAL(LEFT$(x$, 1)), VAL(MID$(x$, 2, 1)), VAL(RIGHT$(x$, 1))) = x$

NEXT n

FOR x = 0 TO 9

FOR y = 0 TO 9

FOR z = 0 TO 9

IF a$(x, y, z) <> "" THEN PRINT a$(x, y, z); " ";

NEXT z, y, x

Name: "CLASS 3D"

lrcvs 24.08.09

(Is limited, but...power)

CLS

DIM a$(9, 9, 9)

FOR n = 1 TO 1000

RANDOMIZE TIMER

x$ = LTRIM$(STR$(INT(RND * 999)))

IF LEN(x$) < 3 THEN l$ = STRING$(3 - (LEN(x$)), "0"): x$ = l$ + x$

a$(VAL(LEFT$(x$, 1)), VAL(MID$(x$, 2, 1)), VAL(RIGHT$(x$, 1))) = x$

NEXT n

FOR x = 0 TO 9

FOR y = 0 TO 9

FOR z = 0 TO 9

IF a$(x, y, z) <> "" THEN PRINT a$(x, y, z); " ";

NEXT z, y, x