Julia set: Difference between revisions

4,754 bytes added ,  1 year ago
(→‎{{header|Elixir}}: add Emacs Lisp)
Line 1,274:
showGraphic toColor 640 480 -0.7 0.27015 1.0 5000
</lang>
 
=={{header|Fortran}}==
<lang fortran> PROGRAM JULIA
INTEGER NMAP,NROW,NCOL
DOUBLE PRECISION SR, SI
PARAMETER(NMAP=11,NROW=40,NCOL=80,SR=-0.798D0,SI=0.1618D0)
CHARACTER*1 MAP(NMAP)
DATA MAP /' ','.',':','-','=','+','*','#','%','$','@'/
DOUBLE PRECISION X(NCOL), Y(NROW), ZR, ZI, TT
INTEGER IR, IC, I, J, MX
CHARACTER*1 CLR, LINE(NCOL)
 
MX = (NMAP-1)*5
CALL LINSPACE( NCOL, X, -1.5D0, 1.5D0 )
CALL LINSPACE( NROW, Y, -1.0D0, 1.0D0 )
 
WRITE (*,*) SR, SI, MX
 
DO 110 IR=1,NROW
DO 100 IC=1,NCOL
ZR = X(IC)
ZI = Y(IR)
I = 1
CLR = ' '
10 CONTINUE
TT = ZR*ZR - ZI*ZI + SR
ZI = ZR*ZI*2.0D0 + SI
ZR = TT
IF ( 4.0D0 .LT. (ZR*ZR + ZI*ZI) ) THEN
CLR = MAP(MOD(I,NMAP-1)+1)
GOTO 20
END IF
I = I + 1
IF ( MX .GT. I ) GOTO 10
20 CONTINUE
LINE(IC) = CLR
100 CONTINUE
WRITE(*,*) (LINE(J),J=1,NCOL)
110 CONTINUE
STOP
END
 
SUBROUTINE LINSPACE( N, A, S, F )
INTEGER N
DOUBLE PRECISION A(N), S, F
INTEGER I
DOUBLE PRECISION D
D = (F-S)/DBLE(N-1)
A(1) = S
DO 10 I=2,N
A(I) = A(I-1) + D
10 CONTINUE
RETURN
END</lang>
{{out}}
<pre>
-0.79800000000000004 0.16180000000000000 50
.......................:::::::::::::::::::::::::::::::::::::::::::..............
..................:::::::::::::::::::::::::::::::::::::::::::::::::::...........
...............::::::::::::::::::::---------------::::::::::::::::::::::........
............:::::::::::::::::::-------==+#+==---------::::::::::::::::::::......
..........::::::::::::::::::--------===* *#+===----------::::::::::::::::::.....
........::::::::::::::::::--------===+#-$. $*====-----------:::::::::::::::::...
......:::::::::::::::::----------===+*#: $# #*++===-----------::::::::::::::::..
....:::::::::::::::::-----------==++*#$:*++ %**++++===-----------::::::::::::::.
...::::::::::::::::-----------==+**#.#=%: -*$%#%#**#+=======--------::::::::::::
..:::::::::::::::----------===+*+ . = -::#==%*+ * #+++===========----:::::::::
.::::::::::::::-------=======++*%$ $ . =.$% :- -%*+++++====+++*#==----::::::
::::::::::::-----==========+++*#. %*% =+#=- $.# $$%*++++**#*#$+ +==-----::::
::::::::::----=+++======+++++*#:. -% . + $$ -:%#***# .# ##+===-----::
:::::::-----=+*-$#***********##. -$#++#$% $ * %%%% - % .% %*+===----:
:::::-----===+# = %%% $%#**###%%$ $ - $=- =+ + .$ : $ #:$*+++=----
:::-----====+*-%$+%$.=# :.%%%%$-% + +...:-=* +.:+ * - -$###%*=--
::-----===+**= .. # $ =:$$ . +:. $ .-+#$- +=+ -::=$: + .=+==
-----==+++*# $ -= : + #..:=: :#%.*.$$$$ = - $** #*. $ ** ++ +
---=+#****#% = #===+# # --=*:* *+* %$%##%$=:% % %%$=.= -$#%+ + #-
-==+#%*-##$ % -..:-+*%. *+++*%: +-.%-$%#**% #- . .% % =-$-# # ##*+=
=+*## # #-$-= % %. . -# %**#%$-%.-+ :%*+++* .%*+-:..- % $##-*%#+==-
-# + +%#$- =.=$%% % %:=$%##%$% *+* *:*=-- # #+===# = %#****#+=---
+ ++ ** $ .*# **$ - = $$$$.*.%#: :=:..# + : =- $ #*+++==-----
==+=. + :$=::- +=+ -$#+-. $ .:+ . $$:= $ # .. =**+===-----::
--=*%###$- - * +:.+ *=-:...+ + %-$%%%%.: #=.$%+$%-*+====-----:::
----=+++*$:# $ : $. + += -=$ - $ $%%###**#%$ %%% = #+===-----:::::
:----===+*% %. % - %%%% * $ %$#++#$- .##***********#$-*+=-----:::::::
::-----===+## #. #***#%:- $$ + . %- .:#*+++++======+++=----::::::::::
::::-----==+ +$#*#**++++*%$$ #.$ -=#+= %*% .#*+++==========-----::::::::::::
::::::----==#*+++====+++++*%- -: %$.= . $ $%*++=======-------::::::::::::::.
:::::::::----===========+++# * +*%==#::- = . +*+===----------:::::::::::::::..
::::::::::::--------=======+#**#%#%$*- :%=#.#**+==-----------::::::::::::::::...
.::::::::::::::-----------===++++**% ++*:$#*++==-----------:::::::::::::::::....
..::::::::::::::::-----------===++*# #$ :#*+===----------:::::::::::::::::......
...:::::::::::::::::-----------====*$ .$-#+===--------::::::::::::::::::........
.....::::::::::::::::::----------===+#* *===--------::::::::::::::::::..........
......::::::::::::::::::::---------==+#+==-------:::::::::::::::::::............
........::::::::::::::::::::::---------------::::::::::::::::::::...............
...........:::::::::::::::::::::::::::::::::::::::::::::::::::..................
..............:::::::::::::::::::::::::::::::::::::::::::.......................
</pre>
 
=={{header|FreeBASIC}}==
Anonymous user