Jump to content

Julia set: Difference between revisions

Julia set (view source)

Revision as of 19:01, 9 July 2022

780 bytes added ,  1 year ago
m
→‎{{header|Fortran}}
Line 1,279:
INTEGER NMAP,NROW,NCOL
DOUBLE PRECISION SR, SI
PARAMETER(NMAP=11,NROW=40,NCOL=80100,SR=-0.798D0,SI=0.1618D0)
CHARACTER*1 MAP(NMAP)
DATA MAP /' ','.',':','-','=','+','*','#','%','$','@'/
Line 1,290:
CALL LINSPACE( NROW, Y, -1.0D0, 1.0D0 )
 
WRITE (*,*) SR, SI, MX
 
DO 110 IR=1,NROW
Line 1,331:
{{out}}
<pre>
-0.79800000000000004 0.16180000000000000 50
.............................::::::::::::::::::::::::::::::::::::::::::::::::::::::.................
.......................::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::.............
..................::::::::::::::::::::::::::-------------------:::::::::::::::::::::::::::..........
...............::::::::::::::::::::::::--------===+#+===------------::::::::::::::::::::::::........
............:::::::::::::::::::::::----------===+* $.:*#+====-------------::::::::::::::::::::::......
.........:::::::::::::::::::::::-----------====+#-$. =$*+====--------------:::::::::::::::::::::....
.......::::::::::::::::::::::------------====++*#:% $# #+ . %*+++====--------------::::::::::::::::::::..
.....:::::::::::::::::::::-------------===+++*##$:*++ -$==%* $#*+++++====--------------::::::::::::::::::.
....::::::::::::::::::::-------------===+***#. #=%:$ -*$.+ %#%%$##**##++========----------:::::::::::::::
..:::::::::::::::::::-------------====+*+$ .- = %-::# *-- .==%*+ * .%#*+++=============------:::::::::::
.:::::::::::::::::---------=========+++*%$=# $* . =:#-.$$%- $ =:- -:%#*+++++======++++*#*==-----::::::::
:::::::::::::::------=============++++*#.- + %*%# $=%:.+#=- $ *.# $$ .%#**++++**%#*#%$+ ++==------:::::
::::::::::::-----==++++=======+++++++*#:.%+ *$ -% #. +: * $$ -:%: *= ##****# %* .#% % ##*+===------:::
:::::::::-----===+*-%. $#***************##.%= - :$#*++#*$%. . * $ * $ %%%% - % $$=.%%-- * %$ #*+===------:
::::::------====+#* = $%%% $%$ ###***#### +%%$ $ - $ =- =+ *=-++=*#-$ . :$$ :# $ :% #:$%%*+++==-----
::::------=====+*-. %$ +-+%$.=# : #.+*: $%%%%$-$ % + +* -....:-=*+# + :.:+ * -#+ - :$####%*#==--
::------=====+*+ %*. = .. $ # $ =:$. $ . : : # + %:. $$ .:-+=*#$-$ +==+ -::=$-+%: + .=:#+==
------===++++*#* $=: -+- -= : + = #=$...:=:=$ :#%.#$*.+: $$$$$ =# =- $=#** #*. $ $ = : ** ++$ +=*$:+
----=+#$*****#%#$ .%= #=-==+# *$:# ---=*:+% * .*+*+ $ %$%##%$=:% .% +% -$%%$=.#:=% -$#:%+*# - +.:. $ * #- %
-==++#% $ *-##+:$$ % $-...:-+=*%.#$: *+++*%:+#$- +#=-.%-$: *: %##**% #* *-* *. .==%$ % =-$-#+ ##:% #%#*+=
=+*#%# %:# #-$ +-= % $%==. .* *-#* %*#**##%$-%. :* :-+=# :%*-$#++++* .% :$#*+=-:...-$ % $##-$:+*% $ #++==-
% -# * $ .:.+ +%#$- #*%: %=:#.=$%%$- %+ %. %:=$%##%$% *$ ++*. *:* %+=--- # #:$*+==-=# =%. %$##****#*$+=----
+ +:$*=+ * $* : = $ . *# **$#= -= =# $$$$.$ :+*.%$##: $=:=:..#.$= = + : =- -+- $:= *#*++++===------
==+=#:. + :$=%+-::- +=+= $-$#+*=-:. $$ .:+% # .: $$:= $ .: # .. $ = .*% +*+=====------::
--=*=#%####$-: - * +# +:.+: * #+=-:...+.- *+ %- $$%%%%.:$ #=:*+.$%# +$%-+ % .*+=====------::::
-----==+++*$:%%# $%: #: $. +$: $-#*=++-=* -=$ - $ $% %+ ####***#%$## $$%%%$ = # *+====------::::::
:------===+*%# $ %. %* - -%%.=$$%%%% *$ $ * . %.$#*++*#$-: .# =%#***********#$-****$ .%+===-----:::::::::
:::------===+#*# #.% %. *%#****#%:-# =* $$ :% + * : .# %- $* .:#+%*+++++++=======++++==-----::::::::::::
:::::------==++ +$%#*#%**++++**#%$$. #.$* -=#+.:%=$ %* #% + -.#*++++=============------:::::::::::::::
::::::::-----==#**++++======+++++*#%-: -:= $ -%$$.= .-#: *$ $#=%*+++=========---------:::::::::::::::::.
:::::::::::------=============+++*#%. * +*%==#. --* ::-% = -. +$*+====-------------:::::::::::::::::::..
:::::::::::::::----------========++#*#*#%#%$*%%% +.- :%=$#. #***+===-------------::::::::::::::::::::....
.::::::::::::::::::--------------====++++**% ++*:#$ %==$-$##*+++===-------------:::::::::::::::::::::.....
..::::::::::::::::::::--------------====+++*#% #$. :#+ %*++====------------::::::::::::::::::::::.......
....:::::::::::::::::::::--------------====+*$= .$-#+====-----------:::::::::::::::::::::::.........
......::::::::::::::::::::::-------------====+#* :.$*+===----------:::::::::::::::::::::::............
........::::::::::::::::::::::::------------===+#+===--------::::::::::::::::::::::::...............
..........:::::::::::::::::::::::::::-------------------::::::::::::::::::::::::::..................
.............::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::.......................
.................::::::::::::::::::::::::::::::::::::::::::::::::::::::.............................
</pre>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/265626"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information