projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
global: Make Makefile better and some small fixes
[h316.git]
/
programs
/
mandelbrot
/
src
/
apfel3.f
diff --git
a/programs/mandelbrot/src/apfel3.f
b/programs/mandelbrot/src/apfel3.f
index 168a92602648e2c069278be2f2fbec0c1956d2ca..9aa716bd81e14390adfa74855623599091d4eacf 100644
(file)
--- a/
programs/mandelbrot/src/apfel3.f
+++ b/
programs/mandelbrot/src/apfel3.f
@@
-53,6
+53,7
@@
C
60 FORMAT (5HREADY)
C
CCCCCC BREAK WITH 7 in A REG, THEN START OVER
60 FORMAT (5HREADY)
C
CCCCCC BREAK WITH 7 in A REG, THEN START OVER
+C CALL PWAIT
PAUSE 7
GO TO 100
END
PAUSE 7
GO TO 100
END
@@
-94,10
+95,13
@@
C
C
CCCCCC PUNKT FERTIG
410 NOUT=32
C
CCCCCC PUNKT FERTIG
410 NOUT=32
+C IF (COUNT.GE.8) NOUT=46
+C IF (COUNT.GE.23) NOUT=43
+C IF (COUNT.EQ.MAXI) NOUT=64
IF (COUNT.GE.8) NOUT=46
IF (COUNT.GE.23) NOUT=43
IF (COUNT.EQ.MAXI) NOUT=64
IF (COUNT.GE.8) NOUT=46
IF (COUNT.GE.23) NOUT=43
IF (COUNT.EQ.MAXI) NOUT=64
-C NOUT=46
+
411 CALL PCHAR(NOUT)
GO TO 500
C
411 CALL PCHAR(NOUT)
GO TO 500
C
@@
-129,13
+133,13
@@
C
C
CR = 13
LF = 10
C
CR = 13
LF = 10
- WIDTH =
70
+ WIDTH =
68
MAXI = 60
MAXVAL = 2.0
MAXI = 60
MAXVAL = 2.0
- LOWX =-1.4
5
- HIGHX = 0.
4
5
- LOWY =-1.
00
- HIGHY = 1.
00
+ LOWX =-1.4
8
+ HIGHX = 0.5
+ LOWY =-1.
2
+ HIGHY = 1.
2
INIT = 1
C
CCCCCC SCHRITTWEITEN AUSRECHNEN
INIT = 1
C
CCCCCC SCHRITTWEITEN AUSRECHNEN