Anonymous user
Julia set: Difference between revisions
→{{header|Fortran}}
Line 1,278:
<b>Fortran 77</b> version using ASCII art for the display.
Use the <code>PARAMETER</code> statement, on line 4, to modify the display. '''
The procedure calls, on lines 12 and 13, control the display window on the complex plane.
<lang fortran>C
C ------------------------------------------------------------------
COMPLEX*16 C
PARAMETER(NMAP=11,NROW=40,NCOL=100,C=(-0.798D0,0.1618D0))
CHARACTER*1 MAP(NMAP)
DATA MAP /' ','.',':','-','=','+','*','#','%','$','@'/
INTEGER IR, IC, I, J, MX
CHARACTER*1 CLR, LINE(NCOL)
COMPLEX*16 Z
MX = (NMAP-1)*5
Line 1,299 ⟶ 1,302:
DO 110 IR=1,NROW
DO 100 IC=1,NCOL
I = 1
CLR = ' '
10 CONTINUE
CLR = MAP(MOD(I,NMAP-1)+1)
GOTO 20
Line 1,322:
END
C ==================================================================
SUBROUTINE LINSPACE( N, A, S, F )
C ------------------------------------------------------------------
INTEGER N
INTEGER I
D = (F-S)/DBLE(N-1)
A(1) = S
| |||