Julia set: Difference between revisions
Content added Content deleted
No edit summary |
Antoni Gual (talk | contribs) |
||
Line 3,576: | Line 3,576: | ||
## |
## |
||
##</pre> |
##</pre> |
||
=={{header|VBScript}}== |
|||
<lang vb> |
|||
'ASCII Julia set. Translated from lua. Run with CScript |
|||
'Console should be 135x50 to avoid wrapping and scroll |
|||
cmap=array(" ", ".", ":", "-", "=", "+", "*", "#", "%", "$", "@" ) |
|||
for y = -1.0 to 1.0 step 0.05 |
|||
for x = -1.5 to 1.5 step 0.025 |
|||
zr=x |
|||
zi=y |
|||
i=0 |
|||
do while i < 100 |
|||
zr1 = zr*zr - zi*zi - 0.79 |
|||
zi=zr * zi * 2 + 0.15 |
|||
zr=zr1 |
|||
if (zr*zr + zi*zi) > 4. then exit do |
|||
i = i + 1 |
|||
loop |
|||
wscript.stdout.write cmap(i\10) |
|||
next |
|||
wscript.stdout.write vbcrlf |
|||
next |
|||
</lang> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |