Julia set: Difference between revisions

<b>Fortran 77</b> version using ASCII art for the display.

CALL LINSPACE( NCOL, X, -1.5D0, 1.5D0 )

CALL LINSPACE( NROW, Y, 1.0D0, -1.0D0 )

.............::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::.......................

..........:::::::::::::::::::::::::::-------------------::::::::::::::::::::::::::..................

........::::::::::::::::::::::::------------===+#+===--------::::::::::::::::::::::::...............

......::::::::::::::::::::::-------------====+*:.$*+===----------:::::::::::::::::::::::............

....:::::::::::::::::::::--------------====+*$= .$+====-----------:::::::::::::::::::::::.........

..::::::::::::::::::::--------------====+++*% . + %*++====------------::::::::::::::::::::::.......

.::::::::::::::::::--------------====+++++*#$ %==$-$##*+++===-------------:::::::::::::::::::::.....

:::::::::::::::----------========++##*##$%%% +.- $# #***+===-------------::::::::::::::::::::....

:::::::::::------=============+++*#%. * ==. --* ::-% -. $*+====-------------:::::::::::::::::::..

::::::::-----==**++++======+++++*#%: := $ -%$$.-#: *$ #=%*+++=========---------:::::::::::::::::.

:::::------==++ +$%#*#%**++++**#%. .* +.:%=$ #% + -.#*++++=============------:::::::::::::::

:::------===+*# % %. *%#****## =* :% * : .# - $* +%*+++++++=======++++==-----::::::::::::

:------===+*# $ * --%%.=$$%%%% $ $ * . .$*++*#$: =%#***************$ .%+===-----:::::::::

-----==+++*%%# %: #: $$: $-#*=++-=* -= %+ ####***### $$%%$ = *+====------::::::

--==#%####$: - +# +:.: #+=-:....- *+ % $$%%%%$ :*+.# +-+ % .*+=====------::::

==+#:. :%+-::- +== $-$#*=-:. $$ .:% # : : $ .: $ = .*% +*+=====------::

+:$*=+ $* : = $ *# **#= -= # $$$$$ :+*$## $=:=:...$= = - -+- := *#*++++===------

% * $ .:.+ - #*%: %=:#.$%%$- %+ %. %%##%$ $ ++*. * %+=--- #:$*+==-=# =%. $##*****$+=----

=+*#%# %:## +-= $%==. .* *-* *#**##% :* :-=# -$#++++ :$#*=-:...-$ % $$:+* $ #++==-

-==++# $ *+:$$ % $-...:-=*#$: ++++#$- #=-: *: %##**#* *-* *. .==%$ =-+ ##:% #%#*+=

----=+$*****##$ .%= #=-==+*$:# ---=+% * .*++ $ $%##%% .% +% -$%%$.#:=% :%*# - +.:. $ * %

------===++++*#* =: -+- - = =$...:=:=$ ##$*+: $$$$$ # =- =#** #* $ = : *$ +=*$:+

::------=====+*+ %*. = $ :. $ : : # %:. $$ .:-=*#$-$ ==+ -::-+%: .:#+==

::::------=====+*. % +-+ #.+*: $%%%%$$ % +* -....:-=+# :.:+ #+ - :$####%#==--

::::::------====+* = $%%$$ ###***#### +% =- *=-++=*#-$ :$$ :# :% #%%*+++==-----

:::::::::-----===+%. $***************#%= :$#*++*$. . * $ $ %%%%$$=.%%-- * $ #*+===------:

::::::::::::-----==++++=======+++++++*%+ *$ - #. : * %: *= ##****#%* .% % #*+===------:::

:::::::::::::::------=============++++*#.- + %# $=%:.+ *. .%#**++++**%#*#%$+ ++==------:::::

.:::::::::::::::::---------=========+++*%=# $* :#-.$$%- $ =: :%#*+++++======++++**==-----::::::::

..:::::::::::::::::::-------------====+*$ .- %-:: *-- .== * .%#*+++=============------:::::::::::

....::::::::::::::::::::-------------===+***# #$ -.+ %%%$##*##++========----------:::::::::::::::

.....:::::::::::::::::::::-------------===+++*##$-$==% $#*+++++====--------------::::::::::::::::::.

.......::::::::::::::::::::::------------====++*% + . %*+++====--------------::::::::::::::::::::..

.........:::::::::::::::::::::::-----------====+$. =$*+====--------------:::::::::::::::::::::....

............:::::::::::::::::::::::----------===+*$.:*+====-------------::::::::::::::::::::::......

...............::::::::::::::::::::::::--------===+#+===------------::::::::::::::::::::::::........

..................::::::::::::::::::::::::::-------------------:::::::::::::::::::::::::::..........

.......................::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::.............

.............................::::::::::::::::::::::::::::::::::::::::::::::::::::::.................

'''Note''' that for images the first '''''y''''' value is the top. The call to the <code>linspace</code> procedure inverts the imaginary axis so that the set is displayed with '''''-1*i''''' at the bottom and '''''+1*i''''' at the top.