Julia set: Difference between revisions
Content added Content deleted
(→{{header|Elixir}}: add Emacs Lisp) |
|||
Line 1,274: | Line 1,274: | ||
showGraphic toColor 640 480 -0.7 0.27015 1.0 5000 |
showGraphic toColor 640 480 -0.7 0.27015 1.0 5000 |
||
</lang> |
</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}}== |
=={{header|FreeBASIC}}== |