1 C APFELMAENNCHEN-PROGRAMM, 29.DEC.2004 PHILIPP HACHTMANN
3 C SENSE-SWITCH 1: WENN GESETZT, KONFIGURATION
4 C SENSE-SWITCH 2: WENN GESETZT, KEINE AUSGABE DER EINSTELLUNGEN
5 C SENSE-SWITCH 3: WENN GESETZT, STARTWERTE WIEDERHERSTELLEN
7 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
8 C COMMON BLOCK DEKLARATIONEN
10 INTEGER MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
11 COMMON /PARAM2/MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
13 REAL LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
14 COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
17 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
21 10 FORMAT (45HMANDELBROT-DEMO NO.2, 29.DEC.2004 HACHTI :-) )
22 11 FORMAT (26HSEE HTTP://H316.HACHTI.DE )
24 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
26 CCCCCC RUECKSETZEN AUF DEFAULTWERTE?
31 CCCCCC BEIM ERSTEN START ODER WENN VERLANGT
32 IF(INIT.EQ.0) CALL STVAL
35 CCCCCC EINGABEN VERARBEITEN?
37 IF (I.EQ.1) CALL GETCFG
42 IF(I.EQ.2) CALL OUTCFG
52 CCCCCC KURZE PAUSE, DANN NEUSTART
59 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
60 C EIGENTLICHE BERECHNUNG
63 INTEGER MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
64 COMMON /PARAM2/MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
65 REAL LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
66 COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
72 CCCCCC EINSTIEG IN BERECHNUNG
76 CCCCCC EINSTIEG IN DEN AKTUELLEN PUNKT
81 CCCCCC HIER DER ITERIERTE TEIL
85 IF ((CABS(Z)).GE.MAXVAL) GO TO 410
87 IF (COUNT.GE.MAXI) GO TO 420
90 CCCCCC PUNKT DURCHGEFALLEN
94 CCCCCC PUNKT HAT MAXI ERREICHT
97 CCCCCC NEUEN PUNKT MACHEN
99 CCCCCC ZEILE NOCH NICHT VOLL?
100 IF (X.LT.HIGHX) GO TO 300
101 CCCCCC X AN ANFANG SETZTEN, CR+LF DRUCKEN
105 CCCCCC Y WEITERRUECKEN - NEGATIV WEIL WIR VON OBEN KOMMEN
107 IF (Y.GT.LOWY) GO TO 300
109 CCCCCC HIER IST DAS BILD FERTIG.
112 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
113 CCCCCC STARTWERTE AUSFUELLEN
116 INTEGER MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
117 COMMON /PARAM2/MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
118 REAL LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
119 COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
134 CCCCCC SCHRITTWEITEN AUSRECHNEN
135 XSTEP = (HIGHX-LOWX)/FLOAT(WIDTH)
139 1500 FORMAT (19HSTARTWERTE GESETZT.)
144 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
145 CCCCCC EINSTELLUNGEN EINLESEN
148 INTEGER MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
149 COMMON /PARAM2/MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
150 REAL LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
151 COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
153 REAL XIN1,XIN2,YIN1,YIN2
166 11 FORMAT(14H X FROM : )
168 13 FORMAT(14H Y FROM : )
170 15 FORMAT(14H MAXIT (I3): )
174 CCCCCC EVENTUELL STARTWERTE TAUSCHEN:
175 CCCCCC WENN XIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN
176 150 I F(XIN2.GT.XIN1) GO TO 200
181 CCCCCC WENN YIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN
182 200 IF(YIN2.GT.YIN1) GO TO 201
187 CCCCCC WERTE UEBERNEHMEN
193 CCCCCC SCHRITTWEITEN AUSRECHNEN
194 XSTEP = (HIGHX-LOWX)/FLOAT(WIDTH)
201 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
202 CCCCCC EINSTELLUNGEN AUSGEBEN
205 INTEGER MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
206 COMMON /PARAM2/MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
207 REAL LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
208 COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
211 20 FORMAT (9HSETTINGS:)
212 WRITE (1,30) LOWX, HIGHX
213 30 FORMAT (12HX-WERTE VON ,1F8.5,5H BIS ,1F8.5)
214 WRITE (1,40) LOWY, HIGHY
215 40 FORMAT (12HY-WERTE VON ,F8.5,5H BIS ,F8.5)
216 WRITE (1,50) MAXI, MAXVAL, XSTEP, YSTEP, WIDTH
217 50 FORMAT ( 4HMAX:,I3,
226 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
230 INTEGER MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
231 COMMON /PARAM2/MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
234 245 FORMAT(24HRUECKSETZUNG GEWUENSCHT )
240 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
243 INTEGER MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
244 COMMON /PARAM2/MAXI,WIDTH,CR,LF,POSI,NEGA,INIT
247 CCCCCCCCCCCCCCCCCCCCCCCC