fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Fraktal

Uploader:	Jojo
Datum/Zeit:	22.09.2007 21:24:06

DIM K AS DOUBLE

DIM E AS DOUBLE

DIM F AS DOUBLE

DIM I AS DOUBLE

DIM J AS DOUBLE

DIM Z AS DOUBLE

DIM C AS DOUBLE

DIM N AS DOUBLE



SCREEN 19

CLS

INPUT "Iterationen: ",K

E = (Abs(-2.5)+Abs(1.5))/800

F = (Abs(-1.5)+Abs(1.5))/600

view Screen (-2.5, -1.5)-(1.5,1.5)

For I = (-2.5) To 1.5 STEP E

    For J = (-1.5) To 1.5 STEP F

        Z = 0

        N = 0

        C = I+J

        While (N<K) And (Abs(Z)<=4)

            N += 1

            Z = (Z*Z) + C

        WEND

        IF Abs(Z)>4 THEN

'            Print N

            N = Frac((N/4)*4)

            IF N = 1 THEN PSET(I,J),15

            IF N = 2 THEN PSET(I,J),4

            IF N = 3 THEN PSET(I,J),2

        END IF

    NEXT

NEXT

Getkey

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.