1 C APFELMAENNCHEN-PROGRAMM, 30.NOV.2004 PHILIPP HACHTMANN
7 + XIN1,XIN2,YIN1,YIN2,LOWX,LOWY,HIGHX,HIGHY,
8 + XSTEP,YSTEP,MAXVAL,TEMP,
15 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
18 C (32=LEERZEICHEN, 88=X)
28 CCCCCC MAXIMALE ITERATIONSTIEFE
34 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
44 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
47 10 FORMAT(40HMANDELBROT 30.NOV.2004 PHILIPP HACHTMANN )
49 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
50 C STARTWERTE ENDGUELTIG FESTLEGEN
52 C EVENTUELL STARTWERTE TAUSCHEN
54 CCCCCC WENN XIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN
55 150 I F(XIN2.GT.XIN1) GO TO 200
60 CCCCCC WENN YIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN
61 200 IF(YIN2.GT.YIN1) GO TO 201
66 CCCCCC WERTE UEBERNEHMEN
72 CCCCCC SCHRITTWEITEN AUSRECHNEN
73 XSTEP = (HIGHX-LOWX)/FLOAT(WIDTH)
76 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
80 20 FORMAT (9HSETTINGS:)
81 WRITE (1,30) LOWX, HIGHX
82 30 FORMAT (12HX-WERTE VON ,1F8.5,5H BIS ,1F8.5)
83 WRITE (1,40) LOWY, HIGHY
84 40 FORMAT (12HY-WERTE VON ,F8.5,5H BIS ,F8.5)
85 WRITE (1,50) MAXI, MAXVAL, XSTEP, YSTEP, WIDTH
86 50 FORMAT ( 4HMAX:,I3,
94 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
95 C EIGENTLICHE BERECHNUNG
97 CCCCCC EINSTIEG IN BERECHNUNG
101 CCCCCC EINSTIEG IN DEN AKTUELLEN PUNKT
106 CCCCCC HIER DER ITERIERTE TEIL
109 IF ((CABS(Z)).GE.MAXVAL) GO TO 410
111 IF (COUNT.GE.MAXI) GO TO 420
114 CCCCCC PUNKT DURCHGEFALLEN
118 CCCCCC PUNKT HAT MAXI ERREICHT
122 CCCCCC NEUEN PUNKT MACHEN
124 CCCCCC ZEILE NOCH NICHT VOLL?
125 IF (X.LT.HIGHX) GO TO 300
126 CCCCCC X AN ANFANG SETZTEN, CR+LF DRUCKEN
130 CCCCCC Y WEITERRUECKEN - NEGATIV WEIL WIR VON OBEN KOMMEN
132 IF (Y.GT.LOWY) GO TO 300
134 CCCCCC HIER IST DAS BILD FERTIG.
138 CCCCCC KURZE PAUSE, DANN NEUSTART