projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[h316.git]
/
programs
/
mandelbrot
/
src
/
apfel3.f
diff --git
a/programs/mandelbrot/src/apfel3.f
b/programs/mandelbrot/src/apfel3.f
index 168a92602648e2c069278be2f2fbec0c1956d2ca..eb86d582b2ae063a5e5025bc943390707c5b7573 100644
(file)
--- a/
programs/mandelbrot/src/apfel3.f
+++ b/
programs/mandelbrot/src/apfel3.f
@@
-94,10
+94,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
+132,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