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
63 11 FORMAT(9H X FROM: )
65 13 FORMAT(9H Y FROM: )
72 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
73 C STARTWERTE ENDGUELTIG FESTLEGEN
75 C EVENTUELL STARTWERTE TAUSCHEN
77 CCCCCC WENN XIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN
78 150 I F(XIN2.GT.XIN1) GO TO 200
83 CCCCCC WENN YIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN
84 200 IF(YIN2.GT.YIN1) GO TO 201
89 CCCCCC WERTE UEBERNEHMEN
95 CCCCCC SCHRITTWEITEN AUSRECHNEN
96 XSTEP = (HIGHX-LOWX)/FLOAT(WIDTH)
99 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
100 C STARTWERTE AUSGEBEN
105 20 FORMAT (9HSETTINGS:)
106 WRITE (1,30) LOWX, HIGHX
107 30 FORMAT (12HX-WERTE VON ,1F8.5,5H BIS ,1F8.5)
108 WRITE (1,40) LOWY, HIGHY
109 40 FORMAT (12HY-WERTE VON ,F8.5,5H BIS ,F8.5)
110 WRITE (1,50) MAXI, MAXVAL, XSTEP, YSTEP, WIDTH
111 50 FORMAT ( 4HMAX:,I3,
116 CCCCCC ZEILENVORSCHUB
120 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
121 C EIGENTLICHE BERECHNUNG
123 CCCCCC EINSTIEG IN BERECHNUNG
127 CCCCCC EINSTIEG IN DEN AKTUELLEN PUNKT
132 CCCCCC HIER DER ITERIERTE TEIL
135 IF ((CABS(Z)).GE.MAXVAL) GO TO 410
137 IF (COUNT.GE.MAXI) GO TO 420
140 CCCCCC PUNKT DURCHGEFALLEN
144 CCCCCC PUNKT HAT MAXI ERREICHT
148 CCCCCC NEUEN PUNKT MACHEN
150 CCCCCC ZEILE NOCH NICHT VOLL?
151 IF (X.LT.HIGHX) GO TO 300
152 CCCCCC X AN ANFANG SETZTEN, CR+LF DRUCKEN
156 CCCCCC Y WEITERRUECKEN - NEGATIV WEIL WIR VON OBEN KOMMEN
158 IF (Y.GT.LOWY) GO TO 300
160 CCCCCC HIER IST DAS BILD FERTIG.
164 CCCCCC KURZE PAUSE, DANN NEUSTART