1 C APFELMAENNCHEN-PROGRAMM, 30.NOV.2004 PHILIPP HACHTMANN
3 C SENSE-SWITCH 1: WENN GESETZT, KONFIGURATION
4 C SENSE-SWITCH 2: WENN GESETZT, KEINE AUSGABE
7 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
11 + XIN1,XIN2,YIN1,YIN2,LOWX,LOWY,HIGHX,HIGHY,
12 + XSTEP,YSTEP,MAXVAL,TEMP,
17 + CR,LF,POSI,NEGA, I, N
19 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
22 C (32=LEERZEICHEN, 88=X)
31 + XIN1/-1.45/,XIN2/0.45/,
32 + YIN1/-1.00/,YIN2/1.00/
35 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
39 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
42 10 FORMAT(39HMANDELBROT-DEMO, 01.DEC.2004 HACHTI :-) )
45 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
64 11 FORMAT(9H X FROM: )
66 13 FORMAT(9H Y FROM: )
73 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
74 C STARTWERTE ENDGUELTIG FESTLEGEN
76 C EVENTUELL STARTWERTE TAUSCHEN
78 CCCCCC WENN XIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN
79 150 I F(XIN2.GT.XIN1) GO TO 200
84 CCCCCC WENN YIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN
85 200 IF(YIN2.GT.YIN1) GO TO 201
90 CCCCCC WERTE UEBERNEHMEN
96 CCCCCC SCHRITTWEITEN AUSRECHNEN
97 XSTEP = (HIGHX-LOWX)/FLOAT(WIDTH)
100 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
101 C STARTWERTE AUSGEBEN
107 20 FORMAT (9HSETTINGS:)
108 WRITE (1,30) LOWX, HIGHX
109 30 FORMAT (12HX-WERTE VON ,1F8.5,5H BIS ,1F8.5)
110 WRITE (1,40) LOWY, HIGHY
111 40 FORMAT (12HY-WERTE VON ,F8.5,5H BIS ,F8.5)
112 WRITE (1,50) MAXI, MAXVAL, XSTEP, YSTEP, WIDTH
113 50 FORMAT ( 4HMAX:,I3,
118 CCCCCC ZEILENVORSCHUB
122 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
123 C EIGENTLICHE BERECHNUNG
125 CCCCCC EINSTIEG IN BERECHNUNG
129 CCCCCC EINSTIEG IN DEN AKTUELLEN PUNKT
134 CCCCCC HIER DER ITERIERTE TEIL
137 IF ((CABS(Z)).GE.MAXVAL) GO TO 410
139 IF (COUNT.GE.MAXI) GO TO 420
142 CCCCCC PUNKT DURCHGEFALLEN
146 CCCCCC PUNKT HAT MAXI ERREICHT
150 CCCCCC NEUEN PUNKT MACHEN
152 CCCCCC ZEILE NOCH NICHT VOLL?
153 IF (X.LT.HIGHX) GO TO 300
154 CCCCCC X AN ANFANG SETZTEN, CR+LF DRUCKEN
158 CCCCCC Y WEITERRUECKEN - NEGATIV WEIL WIR VON OBEN KOMMEN
160 IF (Y.GT.LOWY) GO TO 300
162 CCCCCC HIER IST DAS BILD FERTIG.
166 CCCCCC KURZE PAUSE, DANN NEUSTART